form7.frm

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

Grid1.TextMatrix(Grid1.Rows - 1, 14) = rs2.Fields("Other_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 15) = rs2.Fields("Sales_Tax")

'//////////////////////////////////////////
'///////////////////////////////////
Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs.Fields("S_Supply_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs.Fields("S_Supply_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs.Fields("S_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs.Fields("Cust_Id")
Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs.Fields("Grand_Amount")
Grid1.TextMatrix(Grid1.Rows - 1, 17) = rs.Fields("Net_Amount")

'////////////////////////////////
'If rs1.State = adStateOpen Then rs1.Close
'rs1.Open "select * from Customer_Amount_Detail where S_Supply_Order='" & rs.Fields("S_Supply_Order") & "'", cnn, adOpenStatic, adLockReadOnly
'Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs1.Fields("Pay_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 17) = rs1.Fields("Left_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 18) = rs1.Fields("Check_No")
'Grid1.TextMatrix(Grid1.Rows - 1, 19) = rs1.Fields("Check_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 20) = rs1.Fields("Bank_Name")
'//////////////////////
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "select * from Customer_Table where Cust_Id=" & rs.Fields("Cust_Id"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs2.Fields("Cust_Name")
'//////////////////////////

'////////////////////////////////
Grid1.Rows = Grid1.Rows + 1
'End If
rs.MoveNext
Wend
End If
End If
End If

If Option1.Value = True Then
ad1
End If
If Option2.Value = True Then
ad2
End If
If Option4.Value = True Then
atta3
End If
End Sub
Public Sub ad1()
'///////////////////
If Option1.Value = True Then
If nm.Value > date2.Value Then
MsgBox "From Date must be smaller than the ToDate"
nm.SetFocus
Exit Sub
Else
'////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open " select * from Sale_Supply_Order_Table where s_Supply_Date>='" & nm.Value & " ' and S_Supply_Date <='" & date2.Value & " '", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
    MsgBox "Invoice is not issued between these dates"
    Exit Sub
Else
rs.MoveFirst
While Not rs.EOF
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "Select * from Sale_Supply_Order_Detail_Table where S_Supply_Order=" & rs.Fields("S_Supply_Order"), cnn, adOpenStatic, adLockReadOnly
'If Trim(rs2.Fields("Product_Code")) = 4 Then

Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs2.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs2.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs2.Fields("Total_Bags")
Grid1.TextMatrix(Grid1.Rows - 1, 8) = rs2.Fields("W/Bag")
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs2.Fields("Total_Mounds")
Grid1.TextMatrix(Grid1.Rows - 1, 10) = Val(rs2.Fields("Total_Mounds")) * 37.324

Grid1.TextMatrix(Grid1.Rows - 1, 11) = rs2.Fields("Rate/Mound")
Grid1.TextMatrix(Grid1.Rows - 1, 12) = rs2.Fields("Labour_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 13) = rs2.Fields("Packing_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 14) = rs2.Fields("Other_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 15) = rs2.Fields("Sales_Tax")
'///////////////////////////////////
Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs.Fields("S_Supply_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs.Fields("S_Supply_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs.Fields("S_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs.Fields("Cust_Id")
Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs.Fields("Grand_Amount")
Grid1.TextMatrix(Grid1.Rows - 1, 17) = rs.Fields("Net_Amount")

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

'////////////////////////////////
'If rs1.State = adStateOpen Then rs1.Close
'rs1.Open "select * from Customer_Amount_Detail where S_Supply_Order='" & rs.Fields("S_Supply_Order") & "'", cnn, adOpenStatic, adLockReadOnly
'Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs1.Fields("Pay_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 17) = rs1.Fields("Left_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 18) = rs1.Fields("Check_No")
'Grid1.TextMatrix(Grid1.Rows - 1, 19) = rs1.Fields("Check_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 20) = rs1.Fields("Bank_Name")

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

'//////////////////////
If rs1.State = adStateOpen Then rs1.Close
rs1.Open "select * from Customer_Table where Cust_Id=" & rs.Fields("Cust_Id"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs1.Fields("Cust_Name")
'//////////////////////////

'////////////////////////////////
Grid1.Rows = Grid1.Rows + 1
'End If
rs.MoveNext
Wend
End If
End If
End If
End Sub
Public Sub ad2()
If Option2.Value = True Then
If order.Text = "" Then
MsgBox "Please Enter the Contract No"
order.SetFocus
Exit Sub
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Sale_Supply_Order_Table where S_Receive_Order='" & Val(order.Text) & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
    MsgBox "Required Record is not Present"
    Exit Sub
Else
rs.MoveFirst
While Not rs.EOF
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "Select * from Sale_Supply_Order_Detail_Table where S_Supply_Order=" & rs.Fields("S_Supply_Order"), cnn, adOpenStatic, adLockReadOnly
'If Trim(rs2.Fields("Product_Code")) = 4 Then

Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs2.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs2.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs2.Fields("Total_Bags")
Grid1.TextMatrix(Grid1.Rows - 1, 8) = rs2.Fields("W/Bag")
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs2.Fields("Total_Mounds")
Grid1.TextMatrix(Grid1.Rows - 1, 10) = Val(rs2.Fields("Total_Mounds")) * 37.324

Grid1.TextMatrix(Grid1.Rows - 1, 11) = rs2.Fields("Rate/Mound")
Grid1.TextMatrix(Grid1.Rows - 1, 12) = rs2.Fields("Labour_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 13) = rs2.Fields("Packing_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 14) = rs2.Fields("Other_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 15) = rs2.Fields("Sales_Tax")
'////////////////////////////

'///////////////////////////////////
Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs.Fields("S_Supply_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs.Fields("S_Supply_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs.Fields("S_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs.Fields("Cust_Id")
Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs.Fields("Grand_Amount")
Grid1.TextMatrix(Grid1.Rows - 1, 17) = rs.Fields("Net_Amount")

'////////////////////////////////
'////////////////////////////////
'If rs1.State = adStateOpen Then rs1.Close
'rs1.Open "select * from Customer_Amount_Detail where S_Supply_Order='" & rs.Fields("S_Supply_Order") & "'", cnn, adOpenStatic, adLockReadOnly
'Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs1.Fields("Pay_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 17) = rs1.Fields("Left_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 18) = rs1.Fields("Check_No")
'Grid1.TextMatrix(Grid1.Rows - 1, 19) = rs1.Fields("Check_Amount")
'Grid1.TextMatrix(Grid1.Rows - 1, 20) = rs1.Fields("Bank_Name")
'//////////////////////
If rs1.State = adStateOpen Then rs1.Close
rs1.Open "select * from Customer_Table where Cust_Id=" & rs.Fields("Cust_Id"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs1.Fields("Cust_Name")
'//////////////////////////

'////////////////////////////////
Grid1.Rows = Grid1.Rows + 1


rs.MoveNext
Wend


End If
End If
End If
End Sub


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

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

callingform.pno(0).Text = Grid1.TextMatrix(Grid1.RowSel, 0)
callingform.sdate.Value = Grid1.TextMatrix(Grid1.RowSel, 1)
'callingform.Text7.Text = Grid1.TextMatrix(Grid1.RowSel, 1)
callingform.cno.Text = Grid1.TextMatrix(Grid1.RowSel, 2)
callingform.csid(0).Text = Grid1.TextMatrix(Grid1.RowSel, 3)
'callingform.cusid(1).Text = Grid1.TextMatrix(Grid1.RowSel, 3)
callingform.pexp(0).Text = Grid1.TextMatrix(Grid1.RowSel, 5)
callingform.item.Text = Grid1.TextMatrix(Grid1.RowSel, 6)
callingform.noofbags.Text = Grid1.TextMatrix(Grid1.RowSel, 7)
callingform.bagw.Text = Grid1.TextMatrix(Grid1.RowSel, 8)
callingform.totalm.Text = Grid1.TextMatrix(Grid1.RowSel, 9)
callingform.totalkg.Text = Grid1.TextMatrix(Grid1.RowSel, 10)
callingform.nam.Text = Grid1.TextMatrix(Grid1.RowSel, 4)
callingform.mrate.Text = Grid1.TextMatrix(Grid1.RowSel, 11)
callingform.lbexp(3).Text = Grid1.TextMatrix(Grid1.RowSel, 12)
callingform.pexp(5).Text = Grid1.TextMatrix(Grid1.RowSel, 13)
callingform.oexp(0).Text = Grid1.TextMatrix(Grid1.RowSel, 14)
callingform.amount.Text = Grid1.TextMatrix(Grid1.RowSel, 16)
callingform.namount(6).Text = Grid1.TextMatrix(Grid1.RowSel, 17)
callingform.ttax.Text = Grid1.TextMatrix(Grid1.RowSel, 15)
a = Val(Grid1.TextMatrix(Grid1.RowSel, 12)) / Val(Grid1.TextMatrix(Grid1.RowSel, 7))
callingform.lb.Text = CStr(Round(a, 0))
callingform.tax.Text = Val(Val(Grid1.TextMatrix(Grid1.RowSel, 15)) * 100) / Val(Grid1.TextMatrix(Grid1.RowSel, 16))

Unload Me
Exit Sub
End If
End If
'////////////////////////
If callingform.Name = "Form5" 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, 1)
callingform.custcode.Text = Grid1.TextMatrix(Grid1.RowSel, 3)
callingform.custname.Text = Grid1.TextMatrix(Grid1.RowSel, 4)
callingform.prodname.Text = Grid1.TextMatrix(Grid1.RowSel, 6)
callingform.prodid.Text = Grid1.TextMatrix(Grid1.RowSel, 5)
callingform.bagw.Text = Grid1.TextMatrix(Grid1.RowSel, 8)
'////////////////////
If Grid1.TextMatrix(Grid1.RowSel, 5) = 3 Or Grid1.TextMatrix(Grid1.RowSel, 5) = 4 Then
Form5.Label3.Visible = True
Form5.Label10.Visible = True
Form5.Label17.Visible = False
Form5.Label18.Visible = False

Else
Form5.Label3.Visible = False
Form5.Label10.Visible = False
Form5.Label17.Visible = True
Form5.Label18.Visible = True
End If
'/////////////////

Unload Me
Exit Sub
End If
End If

End Sub
Public Sub atta3()
If Option4.Value = True Then
If invoice.Text = "" Then
MsgBox "Please Enter the Invoice No"
invoice.SetFocus
Exit Sub
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Sale_Supply_Order_Table where S_Supply_Order='" & Val(invoice.Text) & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
    MsgBox "Required Record is not Present"
    Exit Sub
Else
rs.MoveFirst
While Not rs.EOF
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "Select * from Sale_Supply_Order_Detail_Table where S_Supply_Order=" & rs.Fields("S_Supply_Order"), cnn, adOpenStatic, adLockReadOnly
'If Trim(rs2.Fields("Product_Code")) = 4 Then

Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs2.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs2.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs2.Fields("Total_Bags")
Grid1.TextMatrix(Grid1.Rows - 1, 8) = rs2.Fields("W/Bag")
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs2.Fields("Total_Mounds")
Grid1.TextMatrix(Grid1.Rows - 1, 10) = Val(rs2.Fields("Total_Mounds")) * 37.324

Grid1.TextMatrix(Grid1.Rows - 1, 11) = rs2.Fields("Rate/Mound")
Grid1.TextMatrix(Grid1.Rows - 1, 12) = rs2.Fields("Labour_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 13) = rs2.Fields("Packing_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 14) = rs2.Fields("Other_Exp")
Grid1.TextMatrix(Grid1.Rows - 1, 15) = rs2.Fields("Sales_Tax")
'///////////////////////////////////
Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs.Fields("S_Supply_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs.Fields("S_Supply_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs.Fields("S_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs.Fields("Cust_Id")
Grid1.TextMatrix(Grid1.Rows - 1, 16) = rs.Fields("Grand_Amount")
Grid1.TextMatrix(Grid1.Rows - 1, 17) = rs.Fields("Net_Amount")

'//////////////////////
If rs1.State = adStateOpen Then rs1.Close
rs1.Open "select * from Customer_Table where Cust_Id=" & rs.Fields("Cust_Id"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs1.Fields("Cust_Name")
'//////////////////////////
'////////////////////////////////
Grid1.Rows = Grid1.Rows + 1


rs.MoveNext
Wend


End If
End If
End If
End Sub