gVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 1 Top = 220 Width = 520 Height = 200 Name = "Dataenvironment" 11t_form..\libs\t_base.vcxform frmInvoicing*Height = 454 Width = 633 DoCreate = .T. AutoCenter = .T. Caption = "Pre-Invoicing Report" WindowState = 2 ccompanytoinvoice = dinvoicemonth = {} ninvoicemonth = 1 dinvoicemonthplus2 = {} lfirstinvoice = .T. dinvoicedate = {} dinvoicedateplus2 = {} cinvcode = Name = "frmInvoicing" -_PROCEDURE formatinvoicedate LOCAL temp1, temp2 * Change starting invoice date to first of the selected month in the YYYYMMDD format temp1 = ALLTRIM(STR(YEAR(DATE()))) + ',' + ALLTRIM(STR(thisform.nInvoiceMonth)) + ',01' * Change invoice dates to correct Y2K format and add 2 months thisform.dInvoiceDate = DATE(&Temp1) thisform.dInvoiceDatePlus2 = GOMONTH(DATE(&temp1), + 2) * get the first 3 letters of the billing months. 1 = JAN, 2 = FEB thisform.cInvoicemonth = LEFT(CMONTH(thisform.dInvoiceDate), 3) thisform.cInvoiceMonthPlus2 = LEFT(CMONTH(thisform.dInvoiceDatePlus2), 3) * Change date formats to MM/YY format thisform.dInvoiceMonth = thisform.mth_yr_format(thisform.dInvoiceDate) thisform.dInvoiceMonthPlus2 = thisform.mth_yr_format(thisform.dInvoiceDatePlus2) * get current system date and change to MM/YY format thisform.cCurrentSystemDate = thisform.mth_yr_format(DATE()) * format string for date comparison when selecting invoice line items thisform.sInvoiceMonth = "InvoicableSalesRpt.sa_b" + thisform.cInvoicemonth thisform.sInvoiceMonthPlus2 = "InvoicableSalesRpt.sa_b" + thisform.cInvoiceMonthPlus2 ENDPROC PROCEDURE doinvoicing thisform.FormatInvoiceDate thisform.GetInvoicableSalesRecords IF thisform.lContinue thisform.OpenDatabases thisform.GetInvoiceLineItems IF thisform.lContinue thisform.GetInvoiceHeaderInfo IF thisform.lContinue thisform.PrintReport ENDIF thisform.CloseDatabases ELSE MESSAGEBOX("Of the potential invoicable records non were eligable.",64,"Invoicing") ENDIF ELSE MESSAGEBOX("No records were found to Invoice.",64,"Invoicing") ENDIF THISFORM.RELEASE() ENDPROC PROCEDURE mth_yr_format PARAMETER tempdate PRIVATE tmonth, tyear, rvalue tmonth = MONTH(tempdate) tyear = YEAR(tempdate) rvalue = ALLTRIM(STR(tmonth)) + '/' + ALLTRIM(STR(tyear)) RETURN(rvalue) ENDPROC PROCEDURE getinvoicablesalesrecords * Get Sales records for appropriate months PRIVATE SQLMonth, SQLMonth_2, cCompany, nPosition, cCompanyCode SQLcurmth = "sales.sa_b" + thisform.cInvoiceMonth SQLcurmth_2 = "sales.sa_b" + thisform.cInvoiceMonthPlus2 * This is used to convert the company name to the company code nPosition = ASCAN(thisform.aCompanyCode, ThisForm.cboCompanyCode.value) && Search for company IF nPosition != 0 nPosition = nPosition + 2 *** Company found, get company code *** cCompanyCode = thisform.aCompanyCode[nPosition] ENDIF * Select appropriate sales records SELECT *; FROM trackerdb!sales; WHERE Sales.sa_status = 'A'; AND Sales.sa_company = cCompanyCode; AND (&SQLcurmth = .T.; OR (&SQLcurmth_2 = .T.)); AND (LEFT(Sales.sa_pr_id, 1) = 'A'; OR (LEFT( Sales.sa_pr_id, 1) = 'S')); INTO TABLE tmp\InvoicableSalesRpt.dbf * If the there are no records found then we should stop IF RECCOUNT() > 0 thisform.lContinue = .T. INDEX ON sa_cu_id TAG sa_cu_id ELSE thisform.lContinue = .F. ENDIF USE SELECT sales USE ENDPROC PROCEDURE opendatabases OPEN DATABASE trackerdb IF USED("InvoicableSalesRpt.dbf") SELECT InvoicableSalesRpt.dbf SET ORDER TO sa_cu_id ELSE SELECT 0 USE (LOCFILE("tmp\InvoicableSalesRpt.dbf","DBF","Where is InvoicableSalesRpt ?")); AGAIN ALIAS InvoicableSalesRpt SET ORDER TO sa_cu_id ENDIF IF USED("Sch_letRpt") SELECT Sch_letRpt SET ORDER TO TAG Customer_i ELSE SELECT 0 USE (LOCFILE("Sch_letRpt.dbf","DBF","Where is Sch_Let ?")) EXCLUSIVE ; AGAIN ALIAS Sch_letRpt SET ORDER TO TAG Customer_i ENDIF ZAP IF USED("customer") SELECT customer SET ORDER TO TAG cu_id ELSE SELECT 0 USE (LOCFILE("customer.dbf","DBF","Where is customer ?")); AGAIN ALIAS customer SET ORDER TO TAG cu_id ENDIF SELECT InvoicableSalesRpt SET RELATION TO InvoicableSalesRpt.sa_cu_id INTO CUSTOMER ADDITIVE SELECT customer ENDPROC PROCEDURE getinvoicelineitems PRIVATE nRecordsRead, nInvoiceCount, cPrev_cu_id, cCu_ID nRecordsRead = 0 nInvoiceCount = 0 cPrev_cu_id = '' cCu_ID = '' * For progress thermometer #DEFINE c_thermtitle 'Invoice Extract' #DEFINE c_thermmssg 'Processing Sales file' _elibarcon = -1 _runmancon = 3 _iconpostion = 5 SELECT Sch_letRpt SET ORDER TO TAG Customer_I SELECT InvoicableSalesRpt GOTO TOP DO therm WITH RECCOUNT(), nRecordsRead, 'Invoicing', 'Processing Sales file', '' DO WHILE NOT EOF("InvoicableSalesRpt") AND LASTKEY() <> 27 cCu_ID = thisform.SelectInvoiceLineItem() IF !EMPTY(cCu_ID) SEEK cCU_ID IN Sch_letRpt IF !FOUND("Sch_letRpt") INSERT INTO Sch_letRpt (Customer_ID) VALUES (cCu_ID) nInvoiceCount = nInvoiceCount + 1 ENDIF ENDIF SKIP 1 IN InvoicableSalesRpt nRecordsRead = nRecordsRead + 1 DO therm WITH RECCOUNT(), nRecordsRead, 'Invoicing', 'Processing Sales file', '' ENDDO DO therm WITH RECCOUNT(), nRecordsRead, 'Invoicing', 'Processing Sales file', '' SELECT InvoicableSalesRpt USE IF RECCOUNT("Sch_letRpt") > 0 thisform.lContinue = .T. ELSE thisform.lContinue = .F. ENDIF RETURN ENDPROC PROCEDURE getinvoiceheaderinfo PRIVATE recs_read, cMarket recs_read = 0 _elibarcon = -1 _runmancon = 3 _iconpostion = 5 set exact on SELECT Customer SET ORDER TO TAG Customer_I SELECT Sch_LetRpt GOTO TOP DO therm WITH RECCOUNT('Sch_LetRpt'), recs_read, 'Invoicing', 'Matching sales and customer information', '' DO WHILE NOT EOF('Sch_letRpt') SEEK Sch_letRpt.Customer_ID IN Customer IF FOUND('Customer') cMarket = customer.cu_market IF (cMarket = "S") or (cMarket = "G") REPLACE Sch_letRpt.Name WITH customer.cu_sname REPLACE Sch_letRpt.Addr WITH customer.cu_saddr REPLACE Sch_letRpt.Addr2 WITH customer.cu_saddr2 REPLACE Sch_letRpt.Addr3 WITH customer.cu_saddr3 REPLACE Sch_letRpt.City WITH customer.cu_scity REPLACE Sch_letRpt.State WITH customer.cu_sstate REPLACE Sch_letRpt.Country WITH customer.cu_scounty REPLACE Sch_letRpt.szip WITH customer.cu_szip REPLACE Sch_letRpt.AccountNum WITH customer.cu_acctno REPLACE Sch_letRpt.Region WITH customer.cu_region ELSE DELETE ENDIF ELSE MESSAGEBOX(Sch_letRpt.Customer_ID + " Customer detail data not found", 48 ,"Error") ENDIF SKIP 1 IN Sch_letRpt recs_read = recs_read + 1 DO therm WITH RECCOUNT('Sch_letRpt'), recs_read, c_thermtitle, 'Matching sales and customer information', '' ENDDO DO therm WITH RECCOUNT('Sch_letRpt'), recs_read, c_thermtitle, 'Matching sales and customer information', '' PACK IF RECCOUNT() < 1 MESSAGEBOX("There are no School or Government accounts to Invoice",48,"Print School Letters") thisform.lContinue = .F. ENDIF ENDPROC PROCEDURE getinvoicecodes WAIT WINDOW "Getting Invoice Codes" NOWAIT SELECT DISTINCT Inv_data.d_cuid, Inv_data.d_invnum, Inv_data.d_invcode, Inv_data.d_linvdt; FROM Inv_data; INTO TABLE tmp\tmp_code.dbf IF RECCOUNT('tmp_code') > 0 INDEX ON d_invnum TAG D_invnum ADDITIVE SELECT inv_head SET ORDER TO TAG D_invnum OF tmp\tmp_code.cdx IN Tmp_Code SET RELATION TO Inv_head.h_invnum INTO Tmp_code ADDITIVE REPLACE ALL inv_head.h_Invcode WITH Tmp_code.d_Invcode ; FOR Inv_head.h_invnum = Tmp_code.d_invnum REPLACE ALL inv_head.h_linvdt WITH Tmp_code.d_linvdt ; FOR Inv_head.h_invnum = Tmp_code.d_invnum ENDIF WAIT CLEAR RETURN ENDPROC PROCEDURE countbillingperiods PRIVATE period_cnt period_cnt = 0 IF InvoicableSalesRpt.sa_bjan = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_bfeb = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_bmar = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_bapr = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_bmay = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_bjun = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_bjul = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_baug = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_bsep = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_boct = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_bnov = .T. period_cnt = period_cnt + 1 ENDIF IF InvoicableSalesRpt.sa_bdec = .T. period_cnt = period_cnt + 1 ENDIF RETURN(period_cnt) ENDPROC PROCEDURE selectinvoicelineitem PRIVATE rvalue, sInvoiceMonth, sInvoiceMonthPlus2 rvalue = "" sInvoiceMonth = thisform.sInvoiceMonth sInvoiceMonthPlus2 = thisform.sInvoiceMonthPlus2 IF NOT DELETED() AND InvoicableSalesRpt.sa_status = 'A' IF &sInvoiceMonth OR &sInvoiceMonthPlus2 IF &sInvoiceMonth IF LEFT(InvoicableSalesRpt.sa_pr_id, 1) = "A" lastinvdt = thisform.mth_yr_format(InvoicableSalesRpt.sa_linvdt) IF lastinvdt <> thisform.cCurrentSystemDate IF EMPTY(InvoicableSalesRpt.sa_linvdt) rvalue = InvoicableSalesRpt.sa_cu_id ELSE IF thisform.CountBillingPeriods() = 12 rvalue = InvoicableSalesRpt.sa_cu_id ENDIF ENDIF ENDIF ELSE IF LEFT(InvoicableSalesRpt.sa_pr_id, 1) = "S" IF EMPTY(InvoicableSalesRpt.sa_linvdt) rvalue = InvoicableSalesRpt.sa_cu_id ENDIF ENDIF ENDIF ELSE IF &sInvoiceMonthPlus2 = .T. IF LEFT(InvoicableSalesRpt.sa_pr_id, 1) = "A" lastinvdt = thisform.mth_yr_format(InvoicableSalesRpt.sa_linvdt) IF lastinvdt <> thisform.cCurrentSystemDate rvalue = InvoicableSalesRpt.sa_cu_id ENDIF ELSE IF LEFT(InvoicableSalesRpt.sa_pr_id, 1) = "S" IF EMPTY(InvoicableSalesRpt.sa_linvdt) rvalue = InvoicableSalesRpt.sa_cu_id ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF RETURN(rvalue) ENDPROC PROCEDURE getsubscriptionperiod PARAMETER billingmonth PRIVATE periods, begindate, enddate, billingmonth periods = thisform.CountBillingPeriods() * begindate = CTOD(ALLTRIM(STR(MONTH(billingmonth))) + "/01/" + ALLTRIM(STR(YEAR(billingmonth)))) begindate = DATE(YEAR(billingmonth), MONTH(billingmonth), 01) periods = (12/periods) - 1 enddate = GOMONTH(begindate, periods) m.d_subdate = ALLTRIM(CMONTH(begindate)) + " " + ALLTRIM(STR(YEAR(begindate))) + ; " - " + ALLTRIM(CMONTH(enddate)) + " " + ALLTRIM(STR(YEAR(enddate))) ENDPROC PROCEDURE closedatabases IF USED("InvoicableSalesRpt.dbf") SELECT InvoicableSalesRpt.dbf USE ENDIF IF USED("customer") SELECT customer USE ENDIF IF USED("company") SELECT company USE ENDIF IF USED("Sch_letRpt") SELECT Sch_letRpt USE ENDIF ENDPROC PROCEDURE printreport SELECT Sch_let SET ORDER TO TAG Rpt IF MESSAGEBOX("Would you like to see a preview",4,"Print Report")=6 REPORT FORM Sch_let NOCONSOLE PREVIEW ELSE REPORT FORM Sch_let NOCONSOLE TO PRINTER ENDIF ENDPROC PROCEDURE Init SET PATH TO PROGS, FORMS, LIBS, MENUS, DATA, ; REPORTS, INCLUDES, HELP, BITMAPS ON ERROR DO progs\errhand WITH ; ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ), SELECT(), RECNO() * Build array for company codes SELECT Company.co_name, Company.company_id, Company.co_code; FROM trackerdb!company; ORDER BY Company.co_name; INTO ARRAY thisform.aCompanyCode USE ThisForm.cboCompanyCode.NumberOfElements = ALEN(thisform.aCompanyCode) ThisForm.cboCompanyCode.value = 'Baker & Taylor' ENDPROC # ""%!1lUt )TCCCC$iZ,CCZ,01(thisform.dInvoiceDate = DATE(&Temp1) ;thisform.dInvoiceDatePlus2 = GOMONTH(DATE(&temp1), + 2) TCC!=TCC!=TC T C T CC$ .T InvoicableSalesRpt.sa_b.T InvoicableSalesRpt.sa_bUTEMP1TEMP2THISFORM NINVOICEMONTH CINVOICEMONTH DINVOICEDATECINVOICEMONTHPLUS2DINVOICEDATEPLUS2 DINVOICEMONTH MTH_YR_FORMATDINVOICEMONTHPLUS2CCURRENTSYSTEMDATE SINVOICEMONTHSINVOICEMONTHPLUS2/  %  %z %l  QC6Of the potential invoicable records non were eligable.@ Invoicingx<C!No records were found to Invoice.@ Invoicingx C U THISFORMFORMATINVOICEDATEGETINVOICABLESALESRECORDS LCONTINUE OPENDATABASESGETINVOICELINEITEMSGETINVOICEHEADERINFO PRINTREPORTCLOSEDATABASESRELEASE_45TCHTCiTCCZ/CCZ BUTEMPDATETMONTHTYEARRVALUE5T sales.sa_bT sales.sa_b TC  %TTC SELECT * FROM trackerdb!sales WHERE Sales.sa_status = 'A' AND Sales.sa_company = cCompanyCode AND (&SQLcurmth = .T. OR (&SQLcurmth_2 = .T.)) AND (LEFT(Sales.sa_pr_id, 1) = 'A' OR (LEFT( Sales.sa_pr_id, 1) = 'S')) INTO TABLE tmp\InvoicableSalesRpt.dbf %CNT a& T -QFQUSQLMONTH SQLMONTH_2CCOMPANY NPOSITION CCOMPANYCODE SQLCURMTHTHISFORM CINVOICEMONTH SQLCURMTH_2CINVOICEMONTHPLUS2 ACOMPANYCODECBOCOMPANYCODEVALUE LCONTINUESA_CU_IDSALES trackerdb%%CInvoicableSalesRpt.dbfQ FG((sa_cu_idFRQCtmp\InvoicableSalesRpt.dbfDBFWhere is InvoicableSalesRpt ?G((sa_cu_id%C Sch_letRptFG(( Customer_iZF<QCSch_letRpt.dbfDBFWhere is Sch_Let ?G(( Customer_iS%CcustomerFG((cu_idF:QC customer.dbfDBFWhere is customer ?G((cu_idFG-(FU TRACKERDBINVOICABLESALESRPTDBFSA_CU_ID SCH_LETRPT CUSTOMER_ICUSTOMERCU_ID{5 T T T TT T TFG(( Customer_IF #)@ CN InvoicingProcessing Sales file-+CInvoicableSalesRpt+ C| TC %C ~ E%C Sch_letRpt4 zr Sch_letRpt T H T@ CN InvoicingProcessing Sales file@ CN InvoicingProcessing Sales fileF Q%C Sch_letRptNZT apT -BU NRECORDSREAD NINVOICECOUNT CPREV_CU_IDCCU_ID _ELIBARCON _RUNMANCON _ICONPOSTION SCH_LETRPT CUSTOMER_IINVOICABLESALESRPTTHERMTHISFORMSELECTINVOICELINEITEM CUSTOMER_ID LCONTINUE 5 TT T TG FG(( Customer_IF#)_C Sch_LetRptN Invoicing'Matching sales and customer information+C Sch_letRpt+ E %CCustomer4 T %S G >  > >>>>>>>>P=C  Customer detail data not found0Errorx HTeC Sch_letRptNInvoice Extract'Matching sales and customer informationeC Sch_letRptNInvoice Extract'Matching sales and customer information3%CN [C5There are no School or Government accounts to Invoice0Print School LettersxT -U! RECS_READCMARKET _ELIBARCON _RUNMANCON _ICONPOSTIONCUSTOMER CUSTOMER_I SCH_LETRPTTHERM CUSTOMER_ID CU_MARKETNAMECU_SNAMEADDRCU_SADDRADDR2 CU_SADDR2ADDR3 CU_SADDR3CITYCU_SCITYSTATE CU_SSTATECOUNTRY CU_SCOUNTYSZIPCU_SZIP ACCOUNTNUM CU_ACCTNOREGION CU_REGIONTHISFORM LCONTINUE. R,:Getting Invoice CodesIoInv_data1tmp\tmp_code.dbf%Ctmp_codeN& F)G((D_invnumtmp\tmp_code.cdxG-( $>  $>  R BUDISTINCTINV_DATAD_CUIDD_INVNUM D_INVCODED_LINVDTTMPINV_HEADTMP_CODEH_INVNUMALL H_INVCODEFORH_LINVDT5 T%a7T%a^T%aT%aT%aT%aT%a!T% aHT% aoT% aT% aT% aT BU PERIOD_CNTINVOICABLESALESRPTSA_BJANSA_BFEBSA_BMARSA_BAPRSA_BMAYSA_BJUNSA_BJULSA_BAUGSA_BSEPSA_BOCTSA_BNOVSA_BDEC5 TTT%C' A r0IF &sInvoiceMonth OR &sInvoiceMonthPlus2nIF &sInvoiceMonth%C=AATC % =%C T 9%C  5T %C=S%C T j$IF &sInvoiceMonthPlus2 = .T.f%C=ATC % T b%C=S^%C ZT  BU RVALUE SINVOICEMONTHSINVOICEMONTHPLUS2THISFORMINVOICABLESALESRPT SA_STATUSSA_PR_ID LASTINVDT MTH_YR_FORMAT SA_LINVDTCCURRENTSYSTEMDATESA_CU_IDCOUNTBILLINGPERIODS45TCTCCiCH$T  TC@T CC! CCCiZ - CC! CCCiZU BILLINGMONTHPERIODS BEGINDATEENDDATETHISFORMCOUNTBILLINGPERIODS D_SUBDATE%%CInvoicableSalesRpt.dbf3 FQ%CcustomerYFQ%Ccompany~FQ%C Sch_letRptFQUINVOICABLESALESRPTDBFCUSTOMERCOMPANY SCH_LETRPTF G((RptE%CWould you like to see a preview Print Reportxi?Sch_let9?Sch_let(!9USCH_LETRPT8KG)(BPROGS, FORMS, LIBS, MENUS, DATA, REPORTS, INCLUDES, HELP, BITMAPSi1aDO progs\errhand WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ), SELECT(), RECNO()Dotrackerdb!companyQT C!T Baker & TaylorU PROGSCOMPANYCO_NAME COMPANY_IDCO_CODE TRACKERDBTHISFORM ACOMPANYCODECBOCOMPANYCODENUMBEROFELEMENTSVALUEformatinvoicedate, doinvoicingx mth_yr_formatNgetinvoicablesalesrecords opendatabasesgetinvoicelineitems getinvoiceheaderinfoA getinvoicecodesMcountbillingperiodsselectinvoicelineitemgetsubscriptionperiodclosedatabases printreportInitK1c2AAA2q3rRAABrA3R"Aq11AArqAr1q31r1rRAABrAAB4br1rQr1111111111AAARARBA2r1CCBQB2q"A!A!A!A!A!A!A!A!A!A!A!A4rA!QAAA!AAAArAA!AAAAAAA3q1b!3QAArqAAbqAAqAA3qR!A3FB1}  b/' <: 3dX]|+DnK!w!&A *'&)tK)?*"a*.+*I+T-)"cccompanytoinvoice dinvoicemonth ninvoicemonth dinvoicemonthplus2 cinvoicemonth cinvoicemonthplus2 sinvoicemonth sinvoicemonthplus2 lfirstinvoice ccurrentsystemdate dinvoicedate dinvoicedateplus2 ccurrentinvoicenumber cpreviousinvoicenumber cheaderinvoicenumber cdetailinvoicenumber lcontinue cinvcode ^acompanycode[1,0] *formatinvoicedate *doinvoicing *mth_yr_format *getinvoicablesalesrecords *opendatabases *getinvoicelineitems *getinvoiceheaderinfo *getinvoicecodes *countbillingperiods *selectinvoicelineitem *getsubscriptionperiod *closedatabases *printreport t_commandgroup..\libs\t_base.vcx commandgroupcmgMonth frmInvoicingaAutoSize = .F. ButtonCount = 12 Value = 1 ControlSource = "thisform.nInvoiceMonth" Height = 154 Left = 57 Top = 24 Width = 162 Name = "cmgMonth" Command1.AutoSize = .F. Command1.Top = 5 Command1.Left = 5 Command1.Height = 24 Command1.Width = 75 Command1.Caption = "January" Command1.Name = "Command1" Command2.AutoSize = .F. Command2.Top = 29 Command2.Left = 5 Command2.Height = 24 Command2.Width = 75 Command2.Caption = "February" Command2.Name = "Command2" Command3.AutoSize = .F. Command3.Top = 53 Command3.Left = 5 Command3.Height = 24 Command3.Width = 75 Command3.Caption = "March" Command3.Name = "Command3" Command4.AutoSize = .F. Command4.Top = 77 Command4.Left = 5 Command4.Height = 24 Command4.Width = 75 Command4.Caption = "April" Command4.Name = "Command4" Command5.AutoSize = .F. Command5.Top = 101 Command5.Left = 5 Command5.Height = 24 Command5.Width = 75 Command5.Caption = "May" Command5.Name = "Command5" Command6.AutoSize = .F. Command6.Top = 125 Command6.Left = 5 Command6.Height = 24 Command6.Width = 75 Command6.Caption = "June" Command6.Name = "Command6" Command7.AutoSize = .F. Command7.Top = 5 Command7.Left = 82 Command7.Height = 24 Command7.Width = 75 Command7.Caption = "July" Command7.Name = "Command7" Command8.AutoSize = .F. Command8.Top = 29 Command8.Left = 82 Command8.Height = 24 Command8.Width = 75 Command8.Caption = "August" Command8.Name = "Command8" Command9.AutoSize = .F. Command9.Top = 53 Command9.Left = 82 Command9.Height = 24 Command9.Width = 75 Command9.Caption = "Septemeber" Command9.Name = "Command9" Command10.AutoSize = .F. Command10.Top = 77 Command10.Left = 82 Command10.Height = 24 Command10.Width = 75 Command10.Caption = "October" Command10.Name = "Command10" Command11.AutoSize = .F. Command11.Top = 101 Command11.Left = 82 Command11.Height = 24 Command11.Width = 75 Command11.Caption = "November" Command11.Name = "Command11" Command12.AutoSize = .F. Command12.Top = 125 Command12.Left = 82 Command12.Height = 24 Command12.Width = 75 Command12.Caption = "December" Command12.Name = "Command12" t_commandbutton..\libs\t_base.vcx commandbutton cmdContinue frmInvoicing]Top = 288 Left = 47 Height = 24 Width = 75 Caption = "\