frmtop.frm

This a complete inventory management system that performs the functions of Purchases, Sales and paym

End Sub

Private Sub mnuDed_Click()
PopCondition.txtCondition = "DED"
PopCondition.Show vbModal
End Sub

Private Sub mnuDeduction_Click()
frmDeduction2Agent.Show vbModal
End Sub

Private Sub MnuEditVendorBill_Click()
frmVendorBillEdit.Show vbModal
End Sub

Private Sub mnuEmptyDB_Click()
frmMakeDatabaseEmpty.Show vbModal
End Sub

Private Sub mnuExit_Click(Index As Integer)
Unload Me
End Sub

Private Sub mnuGenealogy_Click()
frmGenealogy.Show
End Sub

Private Sub mnuGenerateBill_Click()
frmBill.Show
End Sub

Private Sub mnuGoodsReceive_Click()
    frmGoodsReceive.Show
End Sub

Private Sub mnuGoodsReceived_Click()
popGoodsReceived.Show vbModal
End Sub

Private Sub mnuHO2MF_Click()
    frmMFReturn.Show
End Sub

'Private Sub mnuHOSingleOpStock_Click()
'frmInitializeSinHOStock.Show vbModal
'End Sub

Private Sub mnuHOStock_Click()
frmInitializeSinHOStock.Show vbModal
'frmInitializeHOStock.Show vbModal
End Sub

Private Sub mnuInbound_Click()
frmMF2HO.Show
End Sub

Private Sub mnuInTransitGoods_Click()
'With CR
'            .ReportFileName = App.Path & "/Reports/InTransitStatus.rpt"
'            .Connect = App.Path & "/DBase/iManager.mdb"
'            .DiscardSavedData = True
'            .RetrieveDataFiles
'            .ReportSource = 0
'            .SelectionFormula = "{tHO2BRDetails.t_Received}=0"
'            .WindowShowPrintSetupBtn = True
'            .WindowShowRefreshBtn = True
'            .WindowControlBox = True
'            .WindowMaxButton = True
'            .WindowMinButton = True
'            .WindowShowCancelBtn = True
'            .WindowShowCloseBtn = True
'            .WindowShowNavigationCtls = True
'            .WindowShowSearchBtn = True
'            .WindowState = crptMaximized
'            .Action = 1
'End With
popChallanStatus.txtInTransit.Text = "InTransit"
popChallanStatus.Show vbModal
'frmInTransitGoodsReport.Show vbModal
End Sub

Private Sub mnuJV_Click()
frmJV.Show vbModal
End Sub

Private Sub mnuJVStatus_Click()
    PopJVStatus.Show vbModal
End Sub

Private Sub mnuLiabilties_Click()
PopCondition.txtCondition = "LIB"
PopCondition.Show vbModal
End Sub

Private Sub mnuLoan_Click()
PopCondition.txtCondition = "LOAN"
PopCondition.Show vbModal
End Sub

Private Sub mnuLstSettleUp_Click()
Me.MousePointer = vbHourglass
Dim rstBr As ADODB.Recordset
Dim rstWeekly As ADODB.Recordset
Dim gSQL
Dim gBRID, gBrName, gDate, gSettleNo, gTransID
Set rstBr = New ADODB.Recordset
Set rstWeekly = New ADODB.Recordset

If rstBr.State = 1 Then rstBr.Close
rstBr.Open "select distinct(r_ID),r_name from aBranchMaster order by r_name", CNimanager, adOpenDynamic, adLockOptimistic

If Not rstBr.EOF And Not rstBr.BOF Then
    CNimanager.Execute ("delete from t_RptLastSettleUp")
    While Not rstBr.EOF
        gBRID = fnEscapeQuote(Null2Blank(rstBr("r_Id")))
        
        gSQL = "select distinct(a.s_TransId),s_AgentWeeklyNo,a.s_BranchId,a.s_TransType,s_ProductCode,s_Desc " & _
                ",s_In,s_Out,s_Sale,s_Rate,s_Total,s_Date,s_SrNo,s_OpBal,s_ClBal,s_FromDate,s_ToDate,b.r_Name " & _
                "from t_weeklyregister a,aBranchMaster b " & _
                "where a.s_BranchId=b.r_ID and a.s_BranchId='" & gBRID & "' and  a.s_Date in " & _
                "(select max(s_Date) as s_Date From t_weeklyregister where s_BranchId='" & gBRID & "')"
        
        If rstWeekly.State = 1 Then rstWeekly.Close
        rstWeekly.Open gSQL, CNimanager, adOpenDynamic, adLockOptimistic
        
        If Not rstWeekly.EOF And Not rstWeekly.BOF Then
        
                gTransID = fnEscapeQuote(Null2Blank(rstWeekly("s_TransID")))
                gBrName = fnEscapeQuote(Null2Blank(rstWeekly("r_Name")))
                gDate = fnEscapeQuote(Null2Blank(rstWeekly("s_Date")))
                gSettleNo = fnEscapeQuote(Null2Blank(rstWeekly("s_SrNo")))
                
                gSQL = "insert into t_RptLastSettleUp(s_TransID,s_SrNo,s_Date,r_Name)" & _
                        "values('" & gTransID & "','" & gSettleNo & "','" & gDate & "','" & gBrName & "')"
                
                        
                CNimanager.Execute (gSQL)
        End If
        rstBr.MoveNext
        
    Wend
End If

With CR
            .ReportFileName = App.Path & "/Reports/LastSettleUpReport.rpt"
            '.DiscardSavedData = False
            .RetrieveDataFiles
            .ReportSource = 0
            .SelectionFormula = ""
            .WindowShowPrintSetupBtn = True
            .WindowShowRefreshBtn = True
            .WindowControlBox = True
            .WindowMaxButton = True
            .WindowMinButton = True
            .WindowShowCancelBtn = True
            .WindowShowCloseBtn = True
            .WindowShowNavigationCtls = True
            .WindowShowSearchBtn = True
            .WindowState = crptMaximized
            .Action = 1
End With


Me.MousePointer = vbDefault

End Sub

Private Sub mnuMakeBillsDue_Click()
frmMakeVendorBillsDue.Show
End Sub

Private Sub mnuMakeJVBrToBr_Click()
frmBrToBrJV.Show
End Sub

Private Sub mnuMakePayment_Click()
frmMakePayment.Show vbModal
End Sub

Private Sub mnuMakePmt_Click()
frmVndMakePmt.Show vbModal
End Sub

Private Sub mnuMakeReceivePay_Click()
frmMakeReceivePay.Show
End Sub

Private Sub mnuMakeRecieve_Click()
frmMakeRecPayVendors.Show
End Sub

Private Sub mnuMftMaster_Click()
frmMftMaster.Show
End Sub

Private Sub mnuNewMakePayment_Click()
frmNewMakePayment.Show vbModal
End Sub

Private Sub mnuNewPaymentMaster_Click()
frmNewPaymentMaster.Show
End Sub

Private Sub mnuNewReceivePayment_Click()
frmNewVenRecPayment.Show vbModal
End Sub

Private Sub mnuNewVenMakePayment_Click()
frmNewVenMakePayment.Show vbModal
End Sub

Private Sub mnuOHCommissions_Click()
PopCondition.txtCondition = "ORG"
PopCondition.Show
End Sub

Private Sub mnuOHProfit_Click()
frmOHProfitCalculation.Show
End Sub

Private Sub mnuOpeningStock_Click()
popHOOpenStockStatus.Show vbModal
End Sub

Private Sub mnuOutbound_Click()
    frmHO2BR.Show
End Sub

Private Sub mnuPayment_Click()
frmPayment.Show vbModal
End Sub

Private Sub mnuPaymentMaster_Click()
    frmPaymentMaster.Show vbModal
End Sub

Private Sub mnuPaymentsMade_Click()
PopCondition.txtCondition = "PAY"
PopCondition.Show vbModal
End Sub

Private Sub mnuPaymentsReceived_Click()
PopCondition.txtCondition = "REC"
PopCondition.Show vbModal
End Sub

Private Sub mnuPONumber_Click()
popPO.Show vbModal
End Sub

Private Sub mnuPOStatus_Click()
popVndPOStatus.Show vbModal
End Sub

Private Sub mnuPReturn_Click()
frmPurReturn.Show vbModal
End Sub

Private Sub mnuPrintBill_Click()
popBillNo.Show vbModal
End Sub

Private Sub mnuPrintChallan_Click()
popChallanNo.Show vbModal
End Sub

Private Sub mnuPrintCreditNote_Click()
popCRNNo.Show vbModal
End Sub

Private Sub mnuPrintDebitNote_Click()
popDBNNo.Show vbModal
End Sub

Private Sub mnuProdBillSummaryReport_Click()
frmProdBillSummaryReport.Show vbModal
End Sub

Private Sub mnuProducttobranchBillSummary_Click()
frmBranchProdBillSummaryReport.Show vbModal
End Sub

Private Sub mnuReceivePmt_Click()
frmVndReceivePmt.Show vbModal
End Sub

Private Sub mnuRecPayment_Click()
frmReceivePayment.Show vbModal
End Sub

Private Sub mnuSalesDone_Click()
PopCondition.txtCondition = "SAL"
PopCondition.Show vbModal
End Sub

Private Sub mnuSelOvrhds_Click()
frmInitSelOvrhd.Show vbModal
End Sub

Private Sub mnuShortQty_Click()
frmBRShortQty.Show vbModal
End Sub

Private Sub mnuStockInitialise_Click()
frmInitialiseStock.Show vbModal
End Sub

Private Sub mnuStockReport_Click()
 popStockReport.Show vbModal
End Sub

Private Sub mnuStockStatus_Click()
popHOStockStatus.Show vbModal
End Sub

Private Sub mnuTransMaster_Click()
frmTransporter.Show
End Sub

Private Sub mnuTransporterStatus_Click()
popTransporterRpt.Show vbModal
'        With CR
'                    .ReportFileName = App.Path & "/Reports/TransporterStatus.rpt"
'                    .Connect = App.Path & "/DBase/iManager.mdb"
'                    .DiscardSavedData = True
'                    .RetrieveDataFiles
'                    .ReportSource = 0
'                    .SelectionFormula = ""
'                    .WindowShowPrintSetupBtn = True
'                    .WindowShowRefreshBtn = True
'                    .WindowControlBox = True
'                    .WindowMaxButton = True
'                    .WindowMinButton = True
'                    .WindowShowCancelBtn = True
'                    .WindowShowCloseBtn = True
'                    .WindowShowNavigationCtls = True
'                    .WindowShowSearchBtn = True
'                    .WindowState = crptMaximized
'                    .Action = 1
'        End With
End Sub

Private Sub mnuVenBillStatus_Click()
popVndBills.Show vbModal
End Sub

Private Sub mnuVenBillSummary_Click()
frmVenBillSummaryReport.Show vbModal
End Sub

Private Sub mnuVenCreditNote_Click()
popVenCRNNo.Show vbModal
End Sub

Private Sub mnuVenDebitNote_Click()
popVenDBNNo.Show vbModal
End Sub

Private Sub mnuVendorBill_Click()
    frmVendorBillNew.Show
End Sub

Private Sub mnuVendorBillSummary_Click()
frmVenBillSummaryReport.Show vbModal
End Sub

Private Sub mnuVendorProductBillSummary_Click()
frmVenProdBillSummaryReport.Show vbModal
End Sub

Private Sub mnuVenGoodsReceived_Click()
popGoodsReceived.Show vbModal
End Sub

Private Sub mnuVenLibTransReport_Click()
frmVenBillSummaryReport.txtLoan = "LIB"
frmVenBillSummaryReport.Show vbModal
End Sub

Private Sub mnuVenLoanTransReport_Click()
frmVenBillSummaryReport.txtLoan = "LOAN"
frmVenBillSummaryReport.Show vbModal
'popVndBills.Show vbModal
End Sub

Private Sub mnuVenPOStatus_Click()
popVndPOStatus.Show vbModal
End Sub

Private Sub mnuVenPReturn_Click()
frmPurReturn.Show vbModal
End Sub

Private Sub mnuVenSQty_Click()
frmVndSQtyRep.Show vbModal
End Sub

Private Sub mnuVenTransReport_Click()
frmVenTransReport.Show vbModal
End Sub

Private Sub mnuVndAcc_Click()
frmVndAccountInitialization.Show vbModal
End Sub

Private Sub mnuVndBillStatus_Click()
popVndBills.Show vbModal
End Sub

Private Sub mnuVndCreditNote_Click()
frmVndCreditNote.Show vbModal
End Sub

Private Sub mnuVndDebitNote_Click()
frmVndDebitNote.Show
End Sub

Private Sub mnuVndSQty_Click()
frmVndSQtyRep.Show vbModal
End Sub

Private Sub mnuWeeklySale_Click()
    frmWeeklyRegister.Show
End Sub

Private Sub rrr_Click()
    Form1.Show
End Sub

Private Sub mnugoods_Click()
    frmGoodmngmt.Show
End Sub

Private Sub mnuParty_Click()
    frmBranchMaster.Show
End Sub

Private Sub mnuPerforma_Click()
    frmQuot.Show
End Sub

Private Sub mnuprtBill_Click()
    rptBill.Show
End Sub

Private Sub mnurptChallan_Click()
    rptChallan.Show
End Sub

Private Sub mnurptHeade_Click()
    FrmReportHeader.Show
End Sub

Private Sub mnuStd_Click()
     With CR
            .Reset
            .ReportFileName = App.Path & "/Reports/StockOnDate.rpt"
            .DataFiles(0) = App.Path & "\Adequate.mdb"
            .DiscardSavedData = True
            .SelectionFormula = "{stock.in_date}<=#" & CDate(Now) & "#"
            .ReportTitle = Format(FormatDateTime(CDate(Now), vbShortDate), "dd-mmm-YYYY")
            .WindowShowPrintSetupBtn = True
            .WindowShowRefreshBtn = True
            .WindowControlBox = True
            .WindowShowPrintBtn = True
            .WindowMaxButton = True
            .WindowMinButton = True
            .WindowShowCancelBtn = True
            .WindowShowCloseBtn = True
            .WindowShowNavigationCtls = True
            .WindowShowSearchBtn = True
            .WindowState = crptMaximized
            .Action = 1
    End With
End Sub

Private Sub mnuStock_Click()
    rptStock.Show
End Sub

Private Sub mnuTax_Click()
    frmTaxInv.Show
End Sub

Private Sub mnuVendor_Click()
    frmVendorMaster.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
            frmCompany.Show
        Case 3
            frmBookMaster.Show
        Case 5
             frmVendorMaster.Show
        Case 7
             frmBranchMaster.Show
        Case 9
            End
    End Select
End Sub