26-02-19, 04:06 AM
السلام عليكم اخوانى الكرام
عندى فى شاشة العملاء حقل مخصص لرصيد العميل وعند استدعاء العميل فى شاشة الفاتورة وضعت تشيك بوكس لتحديد اذا كان العميل لة رصيد فيتم خصم الفاتورة من رصيدة المسجل لدية وذلك من خلال الضغط true على التشيك بوكس
وهذا هو الكود تم استدعائة فى زر الحفظ وقبل اجراء الحفظ وضعت الكود وعند الضغط لا تحصل معايا مشكلة ويتم حفظ الفاتورة ولكن لا يعمل اب ديت لرصيد العميل فى جدول العملاء
فارجو الايضاح والرد وشكرا لكم
كود :
Try
'===============================================================
If chkcustomerbalance.Checked = True Then
Dim balancenew2, invamo, cusbalan As Double
invamo = Val(InvoiceAmount.Text)
cusbalan = Val(CustomerBalanceBill.Text)
balancenew2 = invamo - cusbalan
If con.State = ConnectionState.Closed Then con.Open()
Dim cmd3 As New SqlCommand
cmd3.Connection = con
cmd3.CommandType = CommandType.Text
cmd3.CommandText = "UPDATE Customers SET CustomerBalance=@CustomerBalance WHERE CustomerName=@CustomerName"
cmd3.Parameters.AddWithValue("@CustomerBalance", balancenew2)
cmd3.Parameters.AddWithValue("@CustomerName", CustomerID.Text)
cmd3.ExecuteScalar()
con.Close()
End If
'===============================================================
Insert_Sales(InvoicID.Text, InvoicDate.Value, CustomerID.Text, InvoiceAmount.Text, ItemsNo.Text, EmpID.Text)
Insert_SalesDetails()
LoseQty()
Catch
Exit Sub
End Try
لكل من يقوم بالمساهمة