ÁVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 1 Top = 220 Width = 520 Height = 253 Name = "Dataenvironment" cursorcursorCursor1DataenvironmentŒLeft = 10 Top = 20 Width = 90 Height = 160 Alias = "sales" Database = ..\data\trackerdb.dbc CursorSource = "sales" Name = "Cursor1" cursorcursorCursor2Dataenvironment“Left = 150 Top = 20 Width = 90 Height = 173 Alias = "customer" Database = ..\data\trackerdb.dbc CursorSource = "customer" Name = "Cursor2" 31t_formretrieve..\libs\t_base.vcxform frmWhatMonthäHeight = 400 Width = 400 DoCreate = .T. Caption = "Mailing List" AlwaysOnTop = .F. umonthreturntype = nwhatmonth = 0 cprinterstatus = "" ctalkstatus = "" cconsolestatus = "" ureturnvalue = .F. Name = "frmWhatMonth" 1¾PROCEDURE olddommonthly PRIVATE shipmonth, nRecordsRead, nTotalRecords, nTotalQty shipmonth = thisform.cShipMonth * Create domestic monthly CD SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME,; CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2,; CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP,; CUSTOMER.CU_SCOUNTY ; FROM SALES, CUSTOMER, PRODUCTS ; WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID; AND SALES.SA_PR_ID == PRODUCTS.PR_ID ; AND (LEFT(SALES.SA_PR_ID, 4) == "ABMD"; OR LEFT(SALES.SA_PR_ID, 4) == "ABMW"; OR LEFT(SALES.SA_PR_ID, 4) == "ABWW"); AND SALES.SA_STATUS == "A" ; AND &shipmonth; AND (Sales.sa_Company = "BT"; OR Sales.sa_Company = "LP"); AND ALLTRIM(Products.ReleaseNum) = "1"; ORDER BY CUSTOMER.CU_SNAME; INTO CURSOR temp SUM temp.sa_qty to nTotalQty SELECT temp nTotalRecords = RECCOUNT() IF nTotalRecords > 0 thisform.WriteMailList("MailList\dom25.txt") ENDIF SELECT Temp USE thisform.PrintCDReport("Domestic Edition Monthly DOM25.TXT ", nTotalRecords, nTotalQty) ENDPROC PROCEDURE olddomweekly PRIVATE ShipMonth, nTotalRecords, nTotalQty nTotalRecords = 0 shipmonth = thisform.cShipMonth * Create domestic weekly CD SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME,; CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2,; CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP,; CUSTOMER.CU_SCOUNTY ; FROM SALES, CUSTOMER, PRODUCTS ; WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID; AND SALES.SA_PR_ID == PRODUCTS.PR_ID ; AND (LEFT(SALES.SA_PR_ID, 4) == "ABWD"; OR LEFT(SALES.SA_PR_ID, 4) == "ABWW"); AND SALES.SA_STATUS == "A" ; AND &shipmonth; AND (Sales.sa_Company = "BT"; OR Sales.sa_Company = "LP"); AND ALLTRIM(Products.ReleaseNum) = "1"; ORDER BY CUSTOMER.CU_SNAME; INTO CURSOR temp SUM temp.sa_qty to nTotalQty SELECT temp nTotalRecords = RECCOUNT() IF nTotalRecords > 0 thisform.WriteMailList("MailList\week.txt") ENDIF SELECT Temp USE thisform.PrintCDReport("Domestic Edition Weekly Mailing WEEK.TXT ", nTotalRecords, nTotalQty) ENDPROC PROCEDURE oldworldmonthly PRIVATE shipmonth, nTotalRecords, nTotalQty nTotalRecords = 0 shipmonth = thisform.cShipMonth * Create world monthly CD SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME,; CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2,; CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP,; CUSTOMER.CU_SCOUNTY ; FROM SALES, CUSTOMER, PRODUCTS ; WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID; AND SALES.SA_PR_ID == PRODUCTS.PR_ID ; AND (LEFT(SALES.SA_PR_ID, 4) == "ABMW"; OR LEFT(SALES.SA_PR_ID, 4) == "ABWW"); AND SALES.SA_STATUS == "A" ; AND &shipmonth; AND (Sales.sa_Company = "BT"; OR Sales.sa_Company = "LP"); AND ALLTRIM(Products.ReleaseNum) = "1"; ORDER BY CUSTOMER.CU_SNAME; INTO CURSOR temp SUM temp.sa_qty to nTotalQty SELECT temp nTotalRecords = RECCOUNT() IF nTotalRecords > 0 thisform.WriteMailList("MailList\wormonth.txt") ENDIF SELECT Temp USE Thisform.PrintCDReport("World Edition Monthly Mailing WORMONTH.TXT ", nTotalRecords, nTotalQty) ENDPROC PROCEDURE oldworldweekly PRIVATE shipmonth, nTotalRecords, nTotalQty nTotalRecords = 0 shipmonth = thisform.cShipMonth * Create world weekly CD SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME,; CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2,; CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP,; CUSTOMER.CU_SCOUNTY ; FROM SALES, CUSTOMER, PRODUCTS ; WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID; AND SALES.SA_PR_ID == PRODUCTS.PR_ID ; AND LEFT(SALES.SA_PR_ID, 4) == "ABWW"; AND SALES.SA_STATUS == "A" ; AND &shipmonth; AND (Sales.sa_Company = "BT"; OR Sales.sa_Company = "LP"); AND ALLTRIM(Products.ReleaseNum) = "1"; ORDER BY CUSTOMER.CU_SNAME; INTO CURSOR temp SUM temp.sa_qty to nTotalQty SELECT temp nTotalRecords = RECCOUNT() IF nTotalRecords > 0 thisform.WriteMailList("MailList\worweek.txt") ENDIF SELECT Temp USE thisform.PrintCDReport("World Edition Weekly Mailing WORWEEK.TXT ", nTotalRecords, nTotalQty) ENDPROC PROCEDURE newdommonthly PRIVATE shipmonth, nRecordsRead, nTotalRecords, nTotalQty shipmonth = thisform.cShipMonth * Create domestic monthly CD SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME,; CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2,; CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP,; CUSTOMER.CU_SCOUNTY ; FROM SALES, CUSTOMER, PRODUCTS ; WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID; AND SALES.SA_PR_ID == PRODUCTS.PR_ID ; AND (LEFT(SALES.SA_PR_ID, 4) == "ABMD"; OR LEFT(SALES.SA_PR_ID, 4) == "ABWW"; OR LEFT(SALES.SA_PR_ID, 4) == "ABWD"); AND SALES.SA_STATUS == "A" ; AND &shipmonth; AND (Sales.sa_Company = "BT"; OR Sales.sa_Company = "LP"); AND ALLTRIM(Products.ReleaseNum) = "2"; ORDER BY CUSTOMER.CU_SNAME; INTO CURSOR temp SUM temp.sa_qty to nTotalQty SELECT temp nTotalRecords = RECCOUNT() IF nTotalRecords > 0 thisform.WriteMailList("MailList\Ndom25.txt") ENDIF SELECT Temp USE thisform.PrintCDReport("New Domestic Edition Monthly NDOM25.TXT ", nTotalRecords, nTotalQty) ENDPROC PROCEDURE newdomweekly PRIVATE ShipMonth, nTotalRecords, nTotalQty nTotalRecords = 0 shipmonth = thisform.cShipMonth * Create domestic weekly CD SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME,; CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2,; CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP,; CUSTOMER.CU_SCOUNTY ; FROM SALES, CUSTOMER, PRODUCTS ; WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID; AND SALES.SA_PR_ID == PRODUCTS.PR_ID ; AND (LEFT(SALES.SA_PR_ID, 4) == "ABWD"; OR LEFT(SALES.SA_PR_ID, 4) == "ABWW"); AND SALES.SA_STATUS == "A" ; AND &shipmonth; AND (Sales.sa_Company = "BT"; OR Sales.sa_Company = "LP"); AND ALLTRIM(Products.ReleaseNum) = "2"; ORDER BY CUSTOMER.CU_SNAME; INTO CURSOR temp SUM temp.sa_qty to nTotalQty SELECT temp nTotalRecords = RECCOUNT() IF nTotalRecords > 0 thisform.WriteMailList("MailList\ndomweek.txt") ENDIF SELECT Temp USE thisform.PrintCDReport("New Domestic Edition Weekly Mailing NDOMWEEK.TXT ", nTotalRecords, nTotalQty) ENDPROC PROCEDURE newworldmonthly PRIVATE shipmonth, nTotalRecords, nTotalQty nTotalRecords = 0 shipmonth = thisform.cShipMonth * Create world monthly CD SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME,; CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2,; CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP,; CUSTOMER.CU_SCOUNTY ; FROM SALES, CUSTOMER, PRODUCTS ; WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID; AND SALES.SA_PR_ID == PRODUCTS.PR_ID ; AND (LEFT(SALES.SA_PR_ID, 4) == "ABMW"; OR LEFT(SALES.SA_PR_ID, 4) == "ABWW") ; AND SALES.SA_STATUS == "A" ; AND &shipmonth; AND Sales.sa_Company = "BT"; AND ALLTRIM(Products.ReleaseNum) = "2"; ORDER BY CUSTOMER.CU_SNAME; INTO CURSOR temp SUM temp.sa_qty to nTotalQty SELECT temp nTotalRecords = RECCOUNT() IF nTotalRecords > 0 thisform.WriteMailList("MailList\nwormonth.txt") ENDIF SELECT Temp USE Thisform.PrintCDReport("New World Edition Monthly Mailing NWORMONTH.TXT ", nTotalRecords, nTotalQty) ENDPROC PROCEDURE newworldweekly PRIVATE shipmonth, nTotalRecords, nTotalQty nTotalRecords = 0 shipmonth = thisform.cShipMonth * Create world weekly CD SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME,; CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2,; CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP,; CUSTOMER.CU_SCOUNTY ; FROM SALES, CUSTOMER, PRODUCTS ; WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID; AND SALES.SA_PR_ID == PRODUCTS.PR_ID ; AND LEFT(SALES.SA_PR_ID, 4) == "ABWW"; AND SALES.SA_STATUS == "A" ; AND &shipmonth; AND (Sales.sa_Company = "BT"; OR Sales.sa_Company = "LP"); AND ALLTRIM(Products.ReleaseNum) = "2"; ORDER BY CUSTOMER.CU_SNAME; INTO CURSOR temp SUM temp.sa_qty to nTotalQty SELECT temp nTotalRecords = RECCOUNT() IF nTotalRecords > 0 thisform.WriteMailList("MailList\nworweek.txt") ENDIF SELECT Temp USE thisform.PrintCDReport("New World Edition Weekly Mailing NWORWEEK.TXT ", nTotalRecords, nTotalQty) ENDPROC PROCEDURE avaccess PRIVATE shipmonth, nTotalRecords, nTotalQty shipmonth = thisform.cShipMonth * Create AV Access monthly CD SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME,; CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2,; CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP,; CUSTOMER.CU_SCOUNTY; FROM SALES, CUSTOMER; WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID; AND SALES.SA_STATUS == "A" ; AND &shipmonth; AND (LEFT(SALES.SA_PR_ID, 4) == "ABMD"; OR LEFT(SALES.SA_PR_ID, 4) == "ABMW"; OR LEFT(SALES.SA_PR_ID, 4) == "ABWD"; OR LEFT(SALES.SA_PR_ID, 4) == "ABWW"); AND SALES.SA_STATUS == "A" ; AND &shipmonth; AND (Sales.sa_Company = "BT"; OR Sales.sa_Company = "LP"); ORDER BY CUSTOMER.CU_SNAME; INTO TABLE MailList\AVAP.DBF copy to xls\AVAP type xls SUM avap.sa_qty to nTotalQty SELECT avap nTotalRecords = RECCOUNT() USE thisform.PrintCDReport("AV Access mailing list AVAP.DBF ", nTotalRecords, nTotalQty) ENDPROC PROCEDURE printcdreport PARAMETER cReportName, nRecordCount, nTotalQty set console off IF SET("PRINTER") = "OFF" SET PRINTER ON set console off thisform.cPrinterStatus = "OFF" ELSE thisform.cPrinterStatus = "ON" ENDIF ? cReportName + DTOC(DATE()) ; + " " + "Record count = " + ALLTRIM(STR(nRecordCount)) ; + " Total Qty = " + Alltrim(STR(nTotalQty)) ? ENDPROC PROCEDURE formatshipmonth PRIVATE nWhatMonth nWhatMonth = ThisForm.cmgMonth.value DO CASE CASE nWhatMonth = 1 thisform.cShipmonth = "sales.sa_sJan" CASE nWhatMonth = 2 thisform.cShipmonth = "sales.sa_sFeb" CASE nWhatMonth = 3 thisform.cShipmonth = "sales.sa_sMar" CASE nWhatMonth = 4 thisform.cShipmonth = "sales.sa_sApr" CASE nWhatMonth = 5 thisform.cShipmonth = "sales.sa_sMay" CASE nWhatMonth = 6 thisform.cShipmonth = "sales.sa_sJun" CASE nWhatMonth = 7 thisform.cShipmonth = "sales.sa_sJul" CASE nWhatMonth = 8 thisform.cShipmonth = "sales.sa_sAug" CASE nWhatMonth = 9 thisform.cShipmonth = "sales.sa_sSep" CASE nWhatMonth = 10 thisform.cShipmonth = "sales.sa_sOct" CASE nWhatMonth = 11 thisform.cShipmonth = "sales.sa_sNov" CASE nWhatMonth = 12 thisform.cShipmonth = "sales.sa_sDec" ENDCASE ENDPROC PROCEDURE writemaillist PARAMETER cOutFile PRIVATE nRecordsRead, nTotalRecords nRecordsRead = 0 nTotalRecords = 0 _elibarcon = -1 _runmancon = 3 _iconpostion = 5 nTotalRecords = RECCOUNT('Temp') GOTO TOP nOutHandle = FCREATE(cOutFile) IF nOutHandle > 0 DO therm WITH nTotalRecords, nRecordsRead, 'Mailing List', cOutFile, '' DO WHILE !EOF('Temp') sOutBuff = " " + ; temp.cu_sname + ; temp.cu_scontact + ; temp.cu_saddr1 + ; temp.cu_saddr2 + ; temp.cu_saddr3 + ; temp.cu_scity + ; temp.cu_sstate + ; temp.cu_scounty + ; temp.cu_szip + ; PADR(ALLTRIM(STR(temp.sa_qty)), 3) + ; temp.sa_pr_id FPUTS(nOutHandle, sOutBuff) nRecordsRead = nRecordsRead + 1 DO therm WITH nTotalRecords, nRecordsRead, 'Mailing List', cOutFile, '' SKIP 1 in Temp ENDDO ELSE MESSAGEBOX("Error opening MailList\dom25 output file",16,"Mailing List") ENDIF DO therm WITH nTotalRecords, nRecordsRead, 'Mailing List', cOutFile, '' =FCLOSE(nOutHandle) ENDPROC PROCEDURE Init IF SET("TALK") = "ON" SET TALK OFF thisform.ctalkstatus = "ON" ELSE thisform.ctalkstatus = "OFF" ENDIF IF SYS(100) = "ON" SET CONSOLE OFF thisform.cConsoleStatus = "ON" ELSE thisform.cConsoleStatus = "OFF" ENDIF ENDPROC PROCEDURE Release IF thisform.cPrinterStatus = "ON" SET PRINTER OFF SET PRINTER TO ENDIF IF thisform.cTalkStatus = "ON" SET TALK ON ENDIF IF thisform.cConsoleStatus = "OFF" SET CONSOLE OFF ENDIF DODEFAULT() ENDPROC ²þòÿ ™™~R%ÿP!üU} ™ô÷þ%üôô÷ýù'þ ™ô÷þþ%üôô÷ýùHþ ™ô÷þþ%üôô÷ýùiþ ™ô÷þþ%üôô ÷ýùŠþ ™ô÷ þþ%üôô ÷ýù«þ ™ô÷ þþ%üôô ÷ýùÌþ ™ô÷þþ%üôô÷ýùíþ ™ô÷þþ%üôô÷ýùþ ™ô÷þþ%üôô÷ýù/þ ™ô÷þþR þ8™üCÙMailing List has Completedø@Ù Mailing Listêxýþ ™ô÷þUTHISFORMFORMATSHIPMONTHCHKOLDDOMMONTHLYVALUE OLDDOMMONTHLYCHKOLDDOMWEEKLY OLDDOMWEEKLYCHKOLDWORLDMONTHLYOLDWORLDMONTHLYCHKOLDWORLDWEEKLYOLDWORLDWEEKLYCHKNEWDOMMONTHLY NEWDOMMONTHLYCHKNEWDOMWEEKLY NEWDOMWEEKLYCHKNEWWORLDMONTHLYNEWWORLDMONTHLYCHKNEWWORLDWEEKLYNEWWORLDWEEKLY CHKAVACCESSAVACCESSRELEASEClick,ÿÿ1¡3¡A2¡A2¡A2¡A3¡A2¡A2¡A2¡A3¡AR‚¢14)™Çþòÿ ®®ßÃ%Pe_üU ™ô÷þUTHISFORMRELEASEClick,ÿÿ1¡1!)®!Arial, 0, 9, 5, 15, 12, 32, 3, 0 WCaption = "New CD" Height = 16 Left = 264 Top = 180 Width = 49 Name = "T_label2"  frmWhatMonthT_label2label..\libs\t_base.vcxt_label=Caption = "Old CD" Left = 48 Top = 180 Name = "T_label1"  frmWhatMonthT_label1label..\libs\t_base.vcxt_labelgTop = 264 Left = 240 Width = 125 Caption = "World Weekly" Value = .T. Name = "chkNewWorldWeekly"  frmWhatMonthchkNewWorldWeeklycheckbox..\libs\t_base.vcx t_checkboxiTop = 240 Left = 240 Width = 125 Caption = "World Monthly" Value = .T. Name = "chkNewWorldMonthly"  frmWhatMonthchkNewWorldMonthlycheckbox..\libs\t_base.vcx t_checkboxhTop = 216 Left = 240 Width = 125 Caption = "Domestic Weekly" Value = .T. Name = "chkNewDomWeekly"  frmWhatMonthchkNewDomWeeklycheckbox..\libs\t_base.vcx t_checkboxjTop = 192 Left = 240 Width = 125 Caption = "Domestic Monthly" Value = .T. Name = "chkNewDomMonthly"  frmWhatMonthchkNewDomMonthlycheckbox..\libs\t_base.vcx t_checkboxfTop = 264 Left = 24 Width = 125 Caption = "World Weekly" Value = .T. Name = "chkOldWorldWeekly"  frmWhatMonthchkOldWorldWeeklycheckbox..\libs\t_base.vcx t_checkbox?PROCEDURE Click thisform.FormatShipMonth * Old CD Format IF ThisForm.chkOldDomMonthly.value thisform.OldDomMonthly ENDIF IF ThisForm.chkOldDomWeekly.value thisform.OldDomWeekly ENDIF IF ThisForm.chkOldWorldMonthly.value thisform.OldWorldMonthly ENDIF IF ThisForm.chkOldWorldWeekly.value thisform.OldWorldWeekly ENDIF * New CD Format IF ThisForm.chkNewDomMonthly.value thisform.NewDomMonthly ENDIF IF ThisForm.chkNewDomWeekly.value thisform.NewDomWeekly ENDIF IF ThisForm.chkNewWorldMonthly.value thisform.NewWorldMonthly ENDIF IF ThisForm.chkNewWorldWeekly.value thisform.NewWorldWeekly ENDIF * AV Access Plus CD IF ThisForm.chkAVAccess.value thisform.AVAccess ENDIF WAIT CLEAR MESSAGEBOX("Mailing List has Completed",64,"Mailing List") thisform.release ENDPROC \Top = 360 Left = 122 Height = 22 Width = 75 Caption = "Continue" Name = "cmdContinue"  frmWhatMonth cmdContinue commandbutton..\libs\t_base.vcxt_commandbuttonpTop = 312 Left = 148 Height = 17 Width = 104 Caption = "AV Access Plus" Value = .T. Name = "chkAVAccess"  frmWhatMonth chkAVAccesscheckbox..\libs\t_base.vcx t_checkboxhTop = 240 Left = 24 Width = 125 Caption = "World Monthly" Value = .T. Name = "chkOldWorldMonthly"  frmWhatMonthchkOldWorldMonthlycheckbox..\libs\t_base.vcx t_checkboxgTop = 216 Left = 24 Width = 125 Caption = "Domestic Weekly" Value = .T. Name = "chkOldDomWeekly"  frmWhatMonthchkOldDomWeeklycheckbox..\libs\t_base.vcx t_checkboxiTop = 192 Left = 24 Width = 125 Caption = "Domestic Monthly" Value = .T. Name = "chkOldDomMonthly"  frmWhatMonthchkOldDomMonthlycheckbox..\libs\t_base.vcx t_checkboxnButtonCount = 12 BackStyle = 0 Value = 1 ControlSource = "thisform.nWhatMonth" Height = 161 Left = 115 TerminateRead = .T. Top = 8 Width = 170 TabIndex = 2 Name = "cmgMonth" Command1.Top = 5 Command1.Left = 9 Command1.Height = 24 Command1.Width = 75 Command1.Caption = "January" Command1.TerminateRead = .T. Command1.Name = "Command1" Command2.Top = 29 Command2.Left = 9 Command2.Height = 24 Command2.Width = 75 Command2.Caption = "February" Command2.Name = "Command2" Command3.Top = 53 Command3.Left = 9 Command3.Height = 24 Command3.Width = 75 Command3.Caption = "March" Command3.Name = "Command3" Command4.Top = 77 Command4.Left = 9 Command4.Height = 24 Command4.Width = 75 Command4.Caption = "April" Command4.Name = "Command4" Command5.Top = 101 Command5.Left = 9 Command5.Height = 24 Command5.Width = 75 Command5.Caption = "May" Command5.Name = "Command5" Command6.Top = 125 Command6.Left = 9 Command6.Height = 24 Command6.Width = 75 Command6.Caption = "June" Command6.Name = "Command6" Command7.Top = 5 Command7.Left = 86 Command7.Height = 24 Command7.Width = 75 Command7.Caption = "July" Command7.Name = "Command7" Command8.Top = 29 Command8.Left = 86 Command8.Height = 24 Command8.Width = 75 Command8.Caption = "August" Command8.Name = "Command8" Command9.Top = 53 Command9.Left = 86 Command9.Height = 24 Command9.Width = 75 Command9.Caption = "September" Command9.Name = "Command9" Command10.Top = 77 Command10.Left = 86 Command10.Height = 24 Command10.Width = 75 Command10.Caption = "October" Command10.Name = "Command10" Command11.Top = 101 Command11.Left = 86 Command11.Height = 24 Command11.Width = 75 Command11.Caption = "November" Command11.Name = "Command11" Command12.Top = 125 Command12.Left = 86 Command12.Height = 24 Command12.Width = 75 Command12.Caption = "December" Command12.Name = "Command12"  frmWhatMonthcmgMonth commandgroup..\libs\t_base.vcxt_commandgroup,PROCEDURE Click thisform.release ENDPROC fTop = 360 Left = 202 Height = 22 Width = 75 Caption = "Cancel" TabIndex = 1 Name = "cmdCancel"  frmWhatMonth cmdCancel commandbutton..\libs\t_base.vcxt_commandbutton$umonthreturntype nwhatmonth cshipmonth cprinterstatus ctalkstatus cconsolestatus *olddommonthly *olddomweekly *oldworldmonthly *oldworldweekly *newdommonthly *newdomweekly *newworldmonthly *newworldweekly *avaccess *printcdreport *formatshipmonth *writemaillist ,kþòÿ R,R,Õ%K(9+Ý)üU>5÷÷÷÷þT÷üô÷ýþwSELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME, CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2, CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP, CUSTOMER.CU_SCOUNTY FROM SALES, CUSTOMER, PRODUCTS WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID AND SALES.SA_PR_ID == PRODUCTS.PR_ID AND (LEFT(SALES.SA_PR_ID, 4) == "ABMD" OR LEFT(SALES.SA_PR_ID, 4) == "ABMW" OR LEFT(SALES.SA_PR_ID, 4) == "ABWW") AND SALES.SA_STATUS == "A" AND &shipmonth AND (Sales.sa_Company = "BT" OR Sales.sa_Company = "LP") AND ALLTRIM(Products.ReleaseNum) = "1" ORDER BY CUSTOMER.CU_SNAME INTO CURSOR temp K(÷üô÷ýþF÷þ T÷üCNýþ%ü÷øýùðþ"™üCÙMailList\dom25.txtôöýþþF÷þQþ<™üCÙ$Domestic Edition Monthly DOM25.TXT ÷÷ôö ýþU SHIPMONTH NRECORDSREAD NTOTALRECORDS NTOTALQTYTHISFORM CSHIPMONTHTEMPSA_QTY WRITEMAILLIST PRINTCDREPORT(5÷÷÷þ T÷üøýþT÷üô÷ýþRSELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME, CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2, CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP, CUSTOMER.CU_SCOUNTY FROM SALES, CUSTOMER, PRODUCTS WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID AND SALES.SA_PR_ID == PRODUCTS.PR_ID AND (LEFT(SALES.SA_PR_ID, 4) == "ABWD" OR LEFT(SALES.SA_PR_ID, 4) == "ABWW") AND SALES.SA_STATUS == "A" AND &shipmonth AND (Sales.sa_Company = "BT" OR Sales.sa_Company = "LP") AND ALLTRIM(Products.ReleaseNum) = "1" ORDER BY CUSTOMER.CU_SNAME INTO CURSOR temp K(÷üô÷ýþF÷þ T÷üCNýþ%ü÷øýùÓþ!™üCÙMailList\week.txtôöýþþF÷þQþC™üCÙ+Domestic Edition Weekly Mailing WEEK.TXT ÷÷ôöýþU SHIPMONTH NTOTALRECORDS NTOTALQTYTHISFORM CSHIPMONTHTEMPSA_QTY WRITEMAILLIST PRINTCDREPORT.5÷÷÷þ T÷üøýþT÷üô÷ýþRSELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME, CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2, CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP, CUSTOMER.CU_SCOUNTY FROM SALES, CUSTOMER, PRODUCTS WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID AND SALES.SA_PR_ID == PRODUCTS.PR_ID AND (LEFT(SALES.SA_PR_ID, 4) == "ABMW" OR LEFT(SALES.SA_PR_ID, 4) == "ABWW") AND SALES.SA_STATUS == "A" AND &shipmonth AND (Sales.sa_Company = "BT" OR Sales.sa_Company = "LP") AND ALLTRIM(Products.ReleaseNum) = "1" ORDER BY CUSTOMER.CU_SNAME INTO CURSOR temp K(÷üô÷ýþF÷þ T÷üCNýþ%ü÷øýù×þ%™üCÙMailList\wormonth.txtôöýþþF÷þQþE™üCÙ-World Edition Monthly Mailing WORMONTH.TXT ÷÷ôöýþU SHIPMONTH NTOTALRECORDS NTOTALQTYTHISFORM CSHIPMONTHTEMPSA_QTY WRITEMAILLIST PRINTCDREPORT5÷÷÷þ T÷üøýþT÷üô÷ýþ+SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME, CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2, CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP, CUSTOMER.CU_SCOUNTY FROM SALES, CUSTOMER, PRODUCTS WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID AND SALES.SA_PR_ID == PRODUCTS.PR_ID AND LEFT(SALES.SA_PR_ID, 4) == "ABWW" AND SALES.SA_STATUS == "A" AND &shipmonth AND (Sales.sa_Company = "BT" OR Sales.sa_Company = "LP") AND ALLTRIM(Products.ReleaseNum) = "1" ORDER BY CUSTOMER.CU_SNAME INTO CURSOR temp K(÷üô÷ýþF÷þ T÷üCNýþ%ü÷øýù¯þ$™üCÙMailList\worweek.txtôöýþþF÷þQþB™üCÙ*World Edition Weekly Mailing WORWEEK.TXT ÷÷ôöýþU SHIPMONTH NTOTALRECORDS NTOTALQTYTHISFORM CSHIPMONTHTEMPSA_QTY WRITEMAILLIST PRINTCDREPORTD5÷÷÷÷þT÷üô÷ýþwSELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME, CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2, CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP, CUSTOMER.CU_SCOUNTY FROM SALES, CUSTOMER, PRODUCTS WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID AND SALES.SA_PR_ID == PRODUCTS.PR_ID AND (LEFT(SALES.SA_PR_ID, 4) == "ABMD" OR LEFT(SALES.SA_PR_ID, 4) == "ABWW" OR LEFT(SALES.SA_PR_ID, 4) == "ABWD") AND SALES.SA_STATUS == "A" AND &shipmonth AND (Sales.sa_Company = "BT" OR Sales.sa_Company = "LP") AND ALLTRIM(Products.ReleaseNum) = "2" ORDER BY CUSTOMER.CU_SNAME INTO CURSOR temp K(÷üô÷ýþF÷þ T÷üCNýþ%ü÷øýùñþ#™üCÙMailList\Ndom25.txtôöýþþF÷þQþA™üCÙ)New Domestic Edition Monthly NDOM25.TXT ÷÷ôö ýþU SHIPMONTH NRECORDSREAD NTOTALRECORDS NTOTALQTYTHISFORM CSHIPMONTHTEMPSA_QTY WRITEMAILLIST PRINTCDREPORT45÷÷÷þ T÷üøýþT÷üô÷ýþRSELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME, CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2, CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP, CUSTOMER.CU_SCOUNTY FROM SALES, CUSTOMER, PRODUCTS WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID AND SALES.SA_PR_ID == PRODUCTS.PR_ID AND (LEFT(SALES.SA_PR_ID, 4) == "ABWD" OR LEFT(SALES.SA_PR_ID, 4) == "ABWW") AND SALES.SA_STATUS == "A" AND &shipmonth AND (Sales.sa_Company = "BT" OR Sales.sa_Company = "LP") AND ALLTRIM(Products.ReleaseNum) = "2" ORDER BY CUSTOMER.CU_SNAME INTO CURSOR temp K(÷üô÷ýþF÷þ T÷üCNýþ%ü÷øýù×þ%™üCÙMailList\ndomweek.txtôöýþþF÷þQþK™üCÙ3New Domestic Edition Weekly Mailing NDOMWEEK.TXT ÷÷ôöýþU SHIPMONTH NTOTALRECORDS NTOTALQTYTHISFORM CSHIPMONTHTEMPSA_QTY WRITEMAILLIST PRINTCDREPORT5÷÷÷þ T÷üøýþT÷üô÷ýþ6SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME, CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2, CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP, CUSTOMER.CU_SCOUNTY FROM SALES, CUSTOMER, PRODUCTS WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID AND SALES.SA_PR_ID == PRODUCTS.PR_ID AND (LEFT(SALES.SA_PR_ID, 4) == "ABMW" OR LEFT(SALES.SA_PR_ID, 4) == "ABWW") AND SALES.SA_STATUS == "A" AND &shipmonth AND Sales.sa_Company = "BT" AND ALLTRIM(Products.ReleaseNum) = "2" ORDER BY CUSTOMER.CU_SNAME INTO CURSOR temp K(÷üô÷ýþF÷þ T÷üCNýþ%ü÷øýù¼þ&™üCÙMailList\nwormonth.txtôöýþþF÷þQþJ™üCÙ2New World Edition Monthly Mailing NWORMONTH.TXT ÷÷ôöýþU SHIPMONTH NTOTALRECORDS NTOTALQTYTHISFORM CSHIPMONTHTEMPSA_QTY WRITEMAILLIST PRINTCDREPORT 5÷÷÷þ T÷üøýþT÷üô÷ýþ+SELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME, CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2, CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP, CUSTOMER.CU_SCOUNTY FROM SALES, CUSTOMER, PRODUCTS WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID AND SALES.SA_PR_ID == PRODUCTS.PR_ID AND LEFT(SALES.SA_PR_ID, 4) == "ABWW" AND SALES.SA_STATUS == "A" AND &shipmonth AND (Sales.sa_Company = "BT" OR Sales.sa_Company = "LP") AND ALLTRIM(Products.ReleaseNum) = "2" ORDER BY CUSTOMER.CU_SNAME INTO CURSOR temp K(÷üô÷ýþF÷þ T÷üCNýþ%ü÷øýù°þ%™üCÙMailList\nworweek.txtôöýþþF÷þQþG™üCÙ/New World Edition Weekly Mailing NWORWEEK.TXT ÷÷ôöýþU SHIPMONTH NTOTALRECORDS NTOTALQTYTHISFORM CSHIPMONTHTEMPSA_QTY WRITEMAILLIST PRINTCDREPORT5÷÷÷þT÷üô÷ýþzSELECT SALES.SA_PR_ID, SALES.SA_QTY, CUSTOMER.CU_SNAME, CUSTOMER.CU_SCONTACT, CUSTOMER.CU_SADDR1, CUSTOMER.CU_SADDR2, CUSTOMER.CU_SADDR3, CUSTOMER.CU_SCITY, CUSTOMER.CU_SSTATE, CUSTOMER.CU_SZIP, CUSTOMER.CU_SCOUNTY FROM SALES, CUSTOMER WHERE CUSTOMER.CUSTOMER_ID == SALES.SA_CU_ID AND SALES.SA_STATUS == "A" AND &shipmonth AND (LEFT(SALES.SA_PR_ID, 4) == "ABMD" OR LEFT(SALES.SA_PR_ID, 4) == "ABMW" OR LEFT(SALES.SA_PR_ID, 4) == "ABWD" OR LEFT(SALES.SA_PR_ID, 4) == "ABWW") AND SALES.SA_STATUS == "A" AND &shipmonth AND (Sales.sa_Company = "BT" OR Sales.sa_Company = "LP") ORDER BY CUSTOMER.CU_SNAME INTO TABLE MailList\AVAP.DBF (ûxls\AVAPÔÇþK(÷üô÷ýþF÷þ T÷üCNýþQþ9™üCÙ!AV Access mailing list AVAP.DBF ÷÷ôöýþU SHIPMONTH NTOTALRECORDS NTOTALQTYTHISFORM CSHIPMONTHXLSAVAPSA_QTY PRINTCDREPORTÄ4÷÷÷þG þ%üCÙPRINTERvÙOFFýùQþG* þG þTô÷üÙOFFýþùkþTô÷üÙONýþþKøü÷CC$*Ù ÙRecord count = CC÷Z›Ù Total Qty = CC÷Z›ýþøþU CREPORTNAME NRECORDCOUNT NTOTALQTYTHISFORMCPRINTERSTATUSV5÷þT÷üôô÷ýþ Hù'ùOþ ü÷øýùUþTô÷üÙ sales.sa_sJanýþ ü÷øýùƒþTô÷üÙ sales.sa_sFebýþ ü÷øýù±þTô÷üÙ sales.sa_sMarýþ ü÷øýùßþTô÷üÙ sales.sa_sAprýþ ü÷øýù þTô÷üÙ sales.sa_sMayýþ ü÷øýù;þTô÷üÙ sales.sa_sJunýþ ü÷øýùiþTô÷üÙ sales.sa_sJulýþ ü÷øýù—þTô÷üÙ sales.sa_sAugýþ ü÷ø ýùÅþTô÷üÙ sales.sa_sSepýþ ü÷ø ýùóþTô÷üÙ sales.sa_sOctýþ ü÷ø ýù!þTô÷üÙ sales.sa_sNovýþ ü÷ø ýùOþTô÷üÙ sales.sa_sDecýþþU NWHATMONTHTHISFORMCMGMONTHVALUE CSHIPMONTH4÷þ 5÷÷þ T÷üøýþ T÷üøýþT÷üùÿÿýþ T÷üøýþ T÷üøýþT÷üCûTempNýþ#)þT÷üC÷•ýþ%ü÷øýùŒþ+÷Ñ÷÷üû Mailing Listý÷üûýþ+üCûTemp+ ýùˆþeT÷üÙ ô ÷ ô ÷ ô ÷ ô ÷ ô ÷ô ÷ô ÷ô ÷ô ÷CCCô ÷Z›ø²ô ÷ýþ™üC÷÷™ýþT÷ü÷øýþ+÷Ñ÷÷üû Mailing Listý÷üûýþ H÷ üøýþþùÚþF™üCÙ(Error opening MailList\dom25 output fileøÙ Mailing Listêxýþþ+÷Ñ÷÷üû Mailing Listý÷üûýþ †üC÷‘ýþUCOUTFILE NRECORDSREAD NTOTALRECORDS _ELIBARCON _RUNMANCON _ICONPOSTION NOUTHANDLETHERMSOUTBUFFTEMPCU_SNAME CU_SCONTACT CU_SADDR1 CU_SADDR2 CU_SADDR3CU_SCITY CU_SSTATE CU_SCOUNTYCU_SZIPSA_QTYSA_PR_IDŸ%üCÙTALKvÙONýù1þG2þTô÷üÙONýþùLþTô÷üÙOFFýþþ%üCød]ÙONýù}þG þTô÷üÙONýþù˜þTô÷üÙOFFýþþUTHISFORM CTALKSTATUSCCONSOLESTATUSs%üô÷ÙONýù"þG*þG*(þþ%üô÷ÙONýùBþG2 þþ%üô÷ÙOFFýùcþG þþ ™üCê¡ýþUTHISFORMCPRINTERSTATUS CTALKSTATUSCCONSOLESTATUS olddommonthly,ÿÿ olddomweeklyãÿÿoldworldmonthlyvÿÿoldworldweekly ÿÿ newdommonthly}ÿÿ newdomweekly:ÿÿnewworldmonthlyÙÿÿnewworldweekly\ÿÿavaccessÐÿÿ printcdreport? ÿÿformatshipmonthG!ÿÿ writemaillistÔ#ÿÿInitÓ&ÿÿRelease'ÿÿ11 q'rÁ!ArAÂ2ñÒ!%rÁArA22ñÒ!%rÁQArAR2ñÒ±"rÁAArA"21 q'rÁ1ArA2ñÒ!%rÁQArA²2ñÒa#rÁaArA¢2ñÒ±"rÁQArAr2ñ0¡'!rÁA’3ñbÒaa1!A´q4q2ÒÑÑÑÑÑÑÑÑÑÑÑÑA2q±ÑÑáÑÑ3Qò²R^â²ÑAaA²²3‘a!1ARa!1A3aaaAbaAraA’1j»'á L-8 8q<\³•JÖ»Y6Làhqw"w–"¤&(‚È&0(LŽV(©+`«Í+Â/€ÄÝ/Å0³Ñã0³1Ã)R,