purchase detail form.frm

This project is to design the automated system for the inventory of Al-Ahmad Cotton and Oil Mills si

'/////////////////////////////////////////

If rs1.State = adStateOpen Then rs1.Close

rs1.Open " select * from Purchase_Receive_Order_Table where P_Receive_Order=" & rs.Fields("P_Receive_Order"), cnn, adOpenStatic, adLockReadOnly
'rs1.Open "select * from Purchase_Receive_Order_Table where P_Receive_Order= '" & rs.Fields("P_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly

Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs1.Fields("P_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs1.Fields("Invoice_No")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs1.Fields("P_Receive_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs1.Fields("P_Given_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs1.Fields("Sup_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs1.Fields("Net_Amount")

'//////////////////////////////////////
'//////////////////////
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "select * from Supplier_Table where Sup_Code=" & rs1.Fields("Sup_Code"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs2.Fields("Sup_Name")
'//////////////////////////


'/////////////////////////////////
'If rs3.State = adStateOpen Then rs3.Close
'rs3.Open "select "
'If rs2.State = adStateOpen Then rs2.Close
'rs2.Open "select * from Supplier_Amount_Detail where P_Receive_Order= '" & rs.Fields("P_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly


'Grid1.TextMatrix(Grid1.Rows - 1, 14) = rs2.Fields("Pay_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 15) = rs2.Fields("Left_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs2.Fields("Check_No")
'Grid1.TextMatrix(Grid1.Rows - 1, 17) = rs2.Fields("Check_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 18) = rs2.Fields("Bank_Name")


'/////////////////////////////////////////////////



Grid1.Rows = Grid1.Rows + 1
rs.MoveNext
Wend
End If
End If
End Sub
Public Sub ad2()
If Option1.Value = True Then
If code1.Text = "" Then
MsgBox "Enter the Supplier Code"
code1.SetFocus
Exit Sub
End If


If rs1.State = adStateOpen Then rs1.Close

rs1.Open " select * from Purchase_Receive_Order_Table where Sup_Code=" & Val(code1.Text), cnn, adOpenStatic, adLockReadOnly
'rs1.Open "select * from Purchase_Receive_Order_Table where P_Receive_Order= '" & rs.Fields("P_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly
If rs1.RecordCount = 0 Then
MsgBox " This Supplier code Record is not present "
code1.SetFocus
Else
rs1.MoveFirst
While Not rs1.EOF
Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs1.Fields("P_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs1.Fields("P_Receive_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs1.Fields("P_Given_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs1.Fields("Sup_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs1.Fields("Net_Amount")

'//////////////////////////////////////


If rs.State = adStateOpen Then rs.Close
'rs.Open " select * from Purchase_Receive_Order_Detail_Table where P_Receive_Order=" & Val(code.Text), cnn, adOpenStatic, adLockReadOnly

rs.Open "select * from Purchase_Receive_Order_Detail_Table where P_Receive_Order= '" & rs1.Fields("P_receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly

Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 8) = rs.Fields("Total_Bags")
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs.Fields("W/Bag")
Grid1.TextMatrix(Grid1.Rows - 1, 10) = rs.Fields("Total_Mounds")
Grid1.TextMatrix(Grid1.Rows - 1, 11) = rs.Fields("Rate/Mound")
Grid1.TextMatrix(Grid1.Rows - 1, 12) = rs.Fields("Labour_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 13) = rs.Fields("Packing_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 15) = rs.Fields("Other_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 14) = rs.Fields("Sales_Tax")


'/////////////////////////////////
'If rs3.State = adStateOpen Then rs3.Close
'rs3.Open "select "
'If rs2.State = adStateOpen Then rs2.Close
'rs2.Open "select * from Supplier_Amount_Detail where P_Receive_Order= '" & rs1.Fields("P_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly


'Grid1.TextMatrix(Grid1.Rows - 1, 14) = rs2.Fields("Pay_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 15) = rs2.Fields("Left_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs2.Fields("Check_No")
'Grid1.TextMatrix(Grid1.Rows - 1, 17) = rs2.Fields("Check_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 18) = rs2.Fields("Bank_Name")

'//////////////////////
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "select * from Supplier_Table where Sup_Code=" & rs1.Fields("Sup_Code"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs2.Fields("Sup_Name")
'//////////////////////////


'/////////////////////////////////////////////////



Grid1.Rows = Grid1.Rows + 1
rs1.MoveNext
Wend
End If
End If
End Sub

Private Sub Option3_Click()
code.Text = ""
nm.Text = ""
code1.Text = ""
invoice.Text = ""


code1.Enabled = False
invoice.Enabled = False
code.Enabled = False
nm.Enabled = False
tdate.Enabled = True
fdate.Enabled = True
fdate.SetFocus
End Sub

Private Sub Option4_Click()
code.Text = ""
nm.Text = ""
code1.Text = ""
invoice.Text = ""

tdate.Enabled = False
fdate.Enabled = False
code1.Enabled = False
code.Enabled = False
nm.Enabled = False
invoice.Enabled = True
invoice.SetFocus
End Sub

Private Sub select_Click()
If callingform.Name = "MDIForm1" Then
Exit Sub
End If
'/////////////////////////////
'////////////////////////
If callingform.Name = "Form31" Then
If Grid1.TextMatrix(Grid1.RowSel, 0) = "" Then
MsgBox "No Record Exists"
Exit Sub
Else

callingform.b.Text = Grid1.TextMatrix(Grid1.RowSel, 4)
callingform.a.Text = Grid1.TextMatrix(Grid1.RowSel, 5)
callingform.invoice.Text = Grid1.TextMatrix(Grid1.RowSel, 0)
Unload Me
Exit Sub
End If
End If
'//////////////////////////
If callingform.Name = "Form10" Then
If Grid1.TextMatrix(Grid1.RowSel, 0) = "" Then
MsgBox "No Record Exists"
Exit Sub
Else

callingform.pno(2).Text = Grid1.TextMatrix(Grid1.RowSel, 0)
callingform.invoiceno.Text = Grid1.TextMatrix(Grid1.RowSel, 1)
callingform.sdate.Value = Grid1.TextMatrix(Grid1.RowSel, 2)
callingform.csid(2).Text = Grid1.TextMatrix(Grid1.RowSel, 3)
callingform.scode(1).Text = Grid1.TextMatrix(Grid1.RowSel, 4)

callingform.nam(0).Text = Grid1.TextMatrix(Grid1.RowSel, 5)
callingform.namount(1).Text = Grid1.TextMatrix(Grid1.RowSel, 16)
callingform.oexp(0).Text = Grid1.TextMatrix(Grid1.RowSel, 6)
callingform.item(2).Text = Grid1.TextMatrix(Grid1.RowSel, 7)
callingform.noofbags(1).Text = Grid1.TextMatrix(Grid1.RowSel, 8)
callingform.bagw(1).Text = Grid1.TextMatrix(Grid1.RowSel, 9)
callingform.totalm(1).Text = Grid1.TextMatrix(Grid1.RowSel, 10)
callingform.mrate(1).Text = Grid1.TextMatrix(Grid1.RowSel, 11)
callingform.lbexp(1).Text = Grid1.TextMatrix(Grid1.RowSel, 12)
callingform.pexp(1).Text = Grid1.TextMatrix(Grid1.RowSel, 13)
callingform.oexp(2).Text = Grid1.TextMatrix(Grid1.RowSel, 15)
callingform.ttax(2).Text = Grid1.TextMatrix(Grid1.RowSel, 14)
callingform.totalkg(1).Text = Val(Grid1.TextMatrix(Grid1.RowSel, 8)) * Val(Grid1.TextMatrix(Grid1.RowSel, 9))
callingform.lb(2).Text = Val(Grid1.TextMatrix(Grid1.RowSel, 12)) / Val(Grid1.TextMatrix(Grid1.RowSel, 8))
a = Val(Grid1.TextMatrix(Grid1.RowSel, 10)) * Val(Grid1.TextMatrix(Grid1.RowSel, 11))
callingform.amount(1).Text = CStr(Round(a, 0))
callingform.ttax(2).Text = Grid1.TextMatrix(Grid1.RowSel, 14)
callingform.tax(0).Text = Val(Val(Grid1.TextMatrix(Grid1.RowSel, 14)) * 100) / Val(a)
Unload Me
Exit Sub
End If
End If
'////////////////////////
If callingform.Name = "Form29" Then
If Grid1.TextMatrix(Grid1.RowSel, 0) = "" Then
MsgBox "No Record Exists"
Exit Sub
Else

callingform.invoiceno.Text = Grid1.TextMatrix(Grid1.RowSel, 0)
callingform.invoicedate.Text = Grid1.TextMatrix(Grid1.RowSel, 2)
callingform.custcode.Text = Grid1.TextMatrix(Grid1.RowSel, 4)
callingform.custname.Text = Grid1.TextMatrix(Grid1.RowSel, 5)
callingform.prodname.Text = Grid1.TextMatrix(Grid1.RowSel, 7)
callingform.prodid.Text = Grid1.TextMatrix(Grid1.RowSel, 6)
callingform.bagw.Text = Grid1.TextMatrix(Grid1.RowSel, 9)
Unload Me
Exit Sub
End If
End If

'////////////////////////
End Sub
Public Sub atta()

If Option4.Value = True Then
If invoice.Text = "" Then
MsgBox "Enter the Invoice No"
invoice.SetFocus
Exit Sub
End If

If rs1.State = adStateOpen Then rs1.Close

rs1.Open " select * from Purchase_Receive_Order_Table where P_Receive_Order=" & Val(invoice.Text), cnn, adOpenStatic, adLockReadOnly
'rs1.Open "select * from Purchase_Receive_Order_Table where P_Receive_Order= '" & rs.Fields("P_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly
If rs1.RecordCount = 0 Then
MsgBox " This invoice is not issued"
invoice.SetFocus
'Exit Sub
Else
rs1.MoveFirst
While Not rs1.EOF
Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs1.Fields("P_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs1.Fields("Invoice_No")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs1.Fields("P_Receive_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs1.Fields("P_Given_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs1.Fields("Sup_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs1.Fields("Net_Amount")

'//////////////////////////////////////


If rs.State = adStateOpen Then rs.Close
'rs.Open " select * from Purchase_Receive_Order_Detail_Table where P_Receive_Order=" & Val(code.Text), cnn, adOpenStatic, adLockReadOnly

rs.Open "select * from Purchase_Receive_Order_Detail_Table where P_Receive_Order= '" & rs1.Fields("P_receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly

Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 8) = rs.Fields("Total_Bags")
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs.Fields("W/Bag")
Grid1.TextMatrix(Grid1.Rows - 1, 10) = rs.Fields("Total_Mounds")
Grid1.TextMatrix(Grid1.Rows - 1, 11) = rs.Fields("Rate/Mound")
Grid1.TextMatrix(Grid1.Rows - 1, 12) = rs.Fields("Labour_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 13) = rs.Fields("Packing_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 15) = rs.Fields("Other_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 14) = rs.Fields("Sales_Tax")

'//////////////////////
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "select * from Supplier_Table where Sup_Code=" & rs1.Fields("Sup_Code"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs2.Fields("Sup_Name")
'//////////////////////////


'/////////////////////////////////
'If rs3.State = adStateOpen Then rs3.Close
'rs3.Open "select "
'If rs2.State = adStateOpen Then rs2.Close
'rs2.Open "select * from Supplier_Amount_Detail where P_Receive_Order= '" & rs1.Fields("P_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly


'Grid1.TextMatrix(Grid1.Rows - 1, 14) = rs2.Fields("Pay_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 15) = rs2.Fields("Left_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs2.Fields("Check_No")
'Grid1.TextMatrix(Grid1.Rows - 1, 17) = rs2.Fields("Check_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 18) = rs2.Fields("Bank_Name")
'/////////////////////////////////////////////////
Grid1.Rows = Grid1.Rows + 1
rs1.MoveNext
Wend
End If
End If
End Sub
Public Sub atta1()

If Option3.Value = True Then
If fdate.Value = "" Then
MsgBox "Enter the From Date"
fdate.SetFocus
Exit Sub
End If
'///////////////////
If Option3.Value = True Then
If fdate.Value > tdate.Value Then
MsgBox "From Date must be smaller than the ToDate"
fdate.SetFocus
Exit Sub
Else
'////////////////////
If rs1.State = adStateOpen Then rs1.Close

rs1.Open " select * from Purchase_Receive_Order_Table where P_Receive_Date>='" & fdate.Value & " ' and P_Receive_Date <='" & tdate.Value & " '", cnn, adOpenStatic, adLockReadOnly
'rs1.Open " select * from Purchase_Given_Order_Table where Order_Date >='" & fdate.Value & " ' and Order_Date <='" & tdate.Value & " '", cnn, adOpenStatic, adLockReadOnly
If rs1.RecordCount = 0 Then
MsgBox "Invoice is not issued between these dates"
fdate.SetFocus
'Exit Sub
Else
rs1.MoveFirst
While Not rs1.EOF
Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs1.Fields("P_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs1.Fields("Invoice_No")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs1.Fields("P_Receive_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs1.Fields("P_Given_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs1.Fields("Sup_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs1.Fields("Net_Amount")
'//////////////////////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Purchase_Receive_Order_Detail_Table where P_Receive_Order= '" & rs1.Fields("P_receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 8) = rs.Fields("Total_Bags")
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs.Fields("W/Bag")
Grid1.TextMatrix(Grid1.Rows - 1, 10) = rs.Fields("Total_Mounds")
Grid1.TextMatrix(Grid1.Rows - 1, 11) = rs.Fields("Rate/Mound")
Grid1.TextMatrix(Grid1.Rows - 1, 12) = rs.Fields("Labour_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 13) = rs.Fields("Packing_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 15) = rs.Fields("Other_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 14) = rs.Fields("Sales_Tax")
'//////////////////////
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "select * from Supplier_Table where Sup_Code=" & rs1.Fields("Sup_Code"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs2.Fields("Sup_Name")
'/////////////////////////////////////////////////
Grid1.Rows = Grid1.Rows + 1
rs1.MoveNext
Wend
End If
End If
End If
End If
End Sub