Module1
''---------------------------------------
Public DB As New ADODB.Connection
Public RS As New ADODB.Recordset
Public RS2 As New ADODB.Recordset
Public RA As New ADODB.Recordset
Public RSSNFMaxID As New ADODB.Recordset
Public RSSNFN As New ADODB.Recordset
Public RSADItm As New ADODB.Recordset
Public RSASNAF As New ADODB.Recordset
''---------------------------------------
Public ItemsID As String
''---------------------------------------
Form4
''---------------------------------------
Private Sub Command1_Click()
ItemsID = Val(Trim$(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)))
Unload Me
End Sub
''---------------------------------------
''---------------------------------------
Form1
''---------------------------------------
Private Sub Command4_Click()
Form4.Show 1
fox.TextMatrix(fox.Row, 0) = ItemsID
End Sub
''---------------------------------------
Private Sub Command1_Click()
Dim I As Integer
For I = 1 To fox.Rows - 1
If Trim$(fox.TextMatrix(I, 0)) <> "" And Val(Trim$(fox.TextMatrix(I, 0))) > 0 Then
Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
RS.CursorLocation = adUseClient
ms = MsgBox("هل تريد بالفعل حفظ بيانات الفاتورة", vbYesNo)
If ms = vbYes Then
RS.Open "select* from BillItems ", DB, adOpenStatic, adLockPessimistic
RS.AddNew
RS!Id = Val(Trim$(fox.TextMatrix(I, 0)))
RS!Name = Trim$(fox.TextMatrix(I, 1))
RS!Qty = Val(Trim$(fox.TextMatrix(I, 3))) '3
RS.Update
DoEvents
Set RS2 = New ADODB.Recordset
If RS2.State = adStateOpen Then RS2.Close
RS2.CursorLocation = adUseClient
RS2.Open "Select * From Store Where iD=" & Val(Trim$(fox.TextMatrix(I, 0))), DB, adOpenStatic, adLockPessimistic
If RS2.RecordCount > 0 Then
RS2![noo] = RS2![noo] - Val(Trim$(fox.TextMatrix(I, 3))) '3
RS2.Update
DoEvents
MsgBox "تمت عملية حفظ الفاتورة ", vbMsgBoxRtlReading + vbInformation, "تنبية"
Else
MsgBox "لم يتم حفظ الفاتورة ", vbMsgBoxRtlReading + vbInformation, "تنبية"
Exit Sub
End If
End If
End If
Next
End Sub
If MsgBox("Save", vbYesNo, "") = vbYes Then
MsgBox "تم الحفظ بنجاح"
Else
MsgBox "لم يتم الحفظ بنجاح"
End If