;****************************************** ; Purge "Empty" Transactions ? " - Purge_Empty_Trans()" Proc Purge_Empty_Trans(Tabl) ? " - ",Tabl MENU {Ask} SELECT Tabl ;Delete all lines with no HEADER/Item Codes [#] = "fast Delete" [Header] = "Blank or 0" DOWN ;same as "OR" [#] = "fast Delete" [Item Code] = "Blank or 0" Do_It! Qry_is_Ok("B26") ClearAll EndProc Writelib Lib_Name Purge_Empty_Trans Release Procs Purge_Empty_Trans ;------------------------------------------------------ ; Run a Sub-Query for the "Build_Ctls_12()" Proc ? "Build_Ctls_12a()" Proc Build_Ctls_12a(ID1, Tbl_1, Tbl_2, Tbl_3, ID2, Ren_or_Add, ID3) ?? ID1 MENU {Ask} SELECT Tbl_1 [Account No] = "_ac1" [Year End Date] = "_yr1" [Business Typ] = "F" [Run Batches] = "Y" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Business Typ] = "B" [Run Batches] = "Y" MENU {Ask} SELECT Tbl_2 MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS MOVETO [Line No] CHECKPLUS MOVETO [Header] CHECKPLUS MOVETO [Item Code] CHECKPLUS [Item Code] = "_Item1!,Calc \"" + ID2 + "\" as Tbl" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS MOVETO [Line No] CHECKPLUS MOVETO [Header] CHECKPLUS MOVETO [Item Code] CHECKPLUS [Item Code] = "_Item2!,Calc \"" + ID2 + "\" as Tbl" MENU {Ask} SELECT "Lib\\pf9" MOVETO [Item Code] "_Item1,count=0" MENU {Ask} SELECT "Lib\\pft" MOVETO [Item Code] "_Item2,count=0" Do_It! Qry_is_Ok(ID3) If Ren_or_Add Then Rename "Answer" Tbl_3 Else Add "Answer" Tbl_3 Delete "Answer" EndIf ClearAll EndProc Writelib Lib_Name Build_Ctls_12a Release Procs Build_Ctls_12a ;------------------------------------------------------ ; Check Adjusted Space ? "Build_Ctls_3()" Proc Build_Ctls_3() Private Lin,t ? "Checking Adjusted Space (Fishing Only)...A" ClearAll ; Extract all Adjusted-Space, from Sundry-Items section MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "77" [Item Code] = "8101" [Quantity] = "_q1,calc (0-_q1)/100 as Acr" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "77" [Item Code] = "8201" [Quantity] = "_q2,calc (0-_q2)/100 as Acr" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Header] = "77" [Item Code] = "8301" [Quantity] = "_q3,calc ( _q3)/100 as Acr" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Header] = "77" [Item Code] = "9201" [Quantity] = "_q4,calc ( _q4)/100 as Acr" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS [Header] = "77" [Item Code] = "9301" [Quantity] = "_q5,calc (0-_q5)/100 as Acr" Do_It! Qry_is_Ok("C12") Rename "Answer" Temp_1 ClearAll EndProc Writelib Lib_Name Build_Ctls_3 Release Procs Build_Ctls_3 ;------------------------------------------------------------------------ ; Check Coded Dr/Cr Balances ? "Build_Ctls_1()" Proc Build_Ctls_1() Private Lin,t ? "Checking Coded Dr/Cr Balances (Fishing & Business)...A" CLEARALL ; Extract Open-Clos for all Stated Debtor/Creditor Codes, from MEMO-table MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac2" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "F or B" MENU {Ask} SELECT Trans_BL_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Item Code] = "4401" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "not Blank, not 0,calc \"Drs\" as DrCr" [Opening Net Amount] = "_op1" [Closing Net Amount] = "_cl1,calc _op1-_cl1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Item Code] = "4501" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "not Blank, not 0,calc \"Crs\" as DrCr" [Opening Net Amount] = "_op2" [Closing Net Amount] = "_cl2,calc 0-(_op2-_cl2) as Amt" Do_It! Qry_is_Ok("C01") Rename "Answer" Temp_1 ClearAll SaveTables ; Extract 1x/5x and 6x/7x/2x trans, from Trans_10... ?? "B" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "F or B" MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "1.. or 5.." [Item Code] = "4401" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "not Blank, not 0,calc \"Drs\" as DrCr" [Net Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.. or 6.. or 7.." [Item Code] = "4401" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "not Blank, not 0,calc \"Drs\" as DrCr" [Net Amount] = "_am2,calc 0-_am2 as Amt" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Header] = "1.. or 5.." [Item Code] = "4501" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "not Blank, not 0,calc \"Crs\" as DrCr" [Net Amount] = "_am3,calc 0-_am3 as Amt" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Header] = "2.. or 6.. or 7.." [Item Code] = "4501" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "not Blank, not 0,calc \"Crs\" as DrCr" [Net Amount] = "_am4,calc _am4 as Amt" Do_It! Qry_is_Ok("C02") Add "Answer" Temp_1 Delete "Answer" ClearAll SaveTables ; Fishing - Extract 23 and 53 trans, from Trans_51... ; - Extract 51/5801 and 21-22/5801 trans, from Trans_51... ?? "C" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac6" [Year End Date] = "_yr6" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_51_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "53" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "not Blank, not 0,calc \"Drs\" as DrCr" [Gross Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "23" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "not Blank, not 0,calc \"Crs\" as DrCr" [Gross Amount] = "_am2,calc 0-_am2 as Amt" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Item Code] = "5801" [Header] = "51" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "Not Blank, Not 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am3,calc 0-_am3 as Amt" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Item Code] = "5801" [Header] = "21 or 22" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "Not Blank, Not 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am4,calc _am4 as Amt" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS [Header] = "24" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "Not Blank, Not 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am5,calc 0-_am5 as Amt" DOWN MOVETO [Account No] "_ac6" CHECKPLUS MOVETO [Year End Date] "_yr6" CHECKPLUS [Header] = "54" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "Not Blank, Not 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am6,calc _am6 as Amt" Do_It! Qry_is_Ok("C03") Add "Answer" Temp_1 Delete "Answer" ClearAll SaveTables ; Business - Extract 23 and 53 trans, from Trans_51... ; - Extract 51/4401 or 4501 and 21-22/4401 or 4501, from Trans_51... ?? "D" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac6" [Year End Date] = "_yr6" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac7" [Year End Date] = "_yr7" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac8" [Year End Date] = "_yr8" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only MENU {Ask} SELECT Trans_51_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "53" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "not Blank, not 0,calc \"Drs\" as DrCr" [Gross Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "23" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "not Blank, not 0,calc \"Crs\" as DrCr" [Gross Amount] = "_am2,calc 0-_am2 as Amt" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Item Code] = "4401" [Header] = "51" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "Not Blank, Not 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am3,calc _am3 as Amt" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Item Code] = "4501" [Header] = "51" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "Not Blank, Not 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am4,calc _am4 as Amt" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS [Item Code] = "4401" [Header] = "21 or 22" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "Not Blank, Not 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am5,calc 0-_am5 as Amt" DOWN MOVETO [Account No] "_ac6" CHECKPLUS MOVETO [Year End Date] "_yr6" CHECKPLUS [Item Code] = "4501" [Header] = "21 or 22" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "Not Blank, Not 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am6,calc 0-_am6 as Amt" DOWN MOVETO [Account No] "_ac7" CHECKPLUS MOVETO [Year End Date] "_yr7" CHECKPLUS [Header] = "24" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "Not Blank, Not 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am7,calc 0-_am7 as Amt" DOWN MOVETO [Account No] "_ac8" CHECKPLUS MOVETO [Year End Date] "_yr8" CHECKPLUS [Header] = "54" MOVETO [Cr or Dr ID] CHECKPLUS [Cr or Dr ID] = "Not Blank, Not 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am8,calc _am8 as Amt" Do_It! Qry_is_Ok("C04") Add "Answer" Temp_1 Delete "Answer" ClearAll SaveTables EndProc Writelib Lib_Name Build_Ctls_1 Release Procs Build_Ctls_1 ;----------------------------------------------------------------------- ; Check Non-Coded Dr/Cr Balances ? "Build_Ctls_2()" Proc Build_Ctls_2() Private lin,t ? "Checking Non-Coded Dr/Cr Balances (Fishing & Business)...A" CLEARALL ; Extract Open-Clos for all NON-Specific Dr/Cr Codes, from MEMO-table MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F or B" MENU {Ask} SELECT Trans_BL_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Item Code] = "4401" [Cr or Dr ID] = "Blank or 0,calc \"Drs\" as DrCr" [Opening Net Amount] = "_op1" [Closing Net Amount] = "_cl1,calc _op1-_cl1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Item Code] = "4501" [Cr or Dr ID] = "Blank or 0,calc \"Crs\" as DrCr" [Opening Net Amount] = "_op2" [Closing Net Amount] = "_cl2,calc 0-(_op2-_cl2) as Amt" Do_It! Qry_is_Ok("C06") Rename "Answer" Temp_1 ClearAll SaveTables ; Extract 1x/5x and 6x/7x/2x trans, from Trans_10... ?? "B" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "F or B" MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "1.. or 5.." [Item Code] = "4401" [Cr or Dr ID] = "Blank or 0,Calc \"Drs\" as DrCr" [Net Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.. or 6.. or 7.." [Item Code] = "4401" [Cr or Dr ID] = "Blank or 0,Calc \"Drs\" as DrCr" [Net Amount] = "_am2,calc 0-_am2 as Amt" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Header] = "1.. or 5.." [Item Code] = "4501" [Cr or Dr ID] = "Blank or 0,Calc \"Crs\" as DrCr" [Net Amount] = "_am3,calc 0-_am3 as Amt" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Header] = "2.. or 6.. or 7.." [Item Code] = "4501" [Cr or Dr ID] = "Blank or 0,Calc \"Crs\" as DrCr" [Net Amount] = "_am4,calc _am4 as Amt" Do_It! Qry_is_Ok("C07") Add "Answer" Temp_1 Delete "Answer" ClearAll SaveTables ; Fishing - Extract 23 and 53 trans, from Trans_51... ; - Extract 51/5801 and 21-22/5801 trans, from Trans_51... ?? "C" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac6" [Year End Date] = "_yr6" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_51_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "53" [Cr or Dr ID] = "Blank or 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "23" [Cr or Dr ID] = "Blank or 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am2,calc 0-_am2 as Amt" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Item Code] = "5801" [Header] = "51" [Cr or Dr ID] = "Blank or 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am3,calc 0-_am3 as Amt" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Item Code] = "5801" [Header] = "21 or 22" [Cr or Dr ID] = "Blank or 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am4,calc _am4 as Amt" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS [Header] = "24" [Cr or Dr ID] = "Blank or 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am5,calc 0-_am5 as Amt" DOWN MOVETO [Account No] "_ac6" CHECKPLUS MOVETO [Year End Date] "_yr6" CHECKPLUS [Header] = "54" [Cr or Dr ID] = "Blank or 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am6,calc _am6 as Amt" Do_It! Qry_is_Ok("C08") Add "Answer" Temp_1 Delete "Answer" ClearAll SaveTables ; Business - Extract 23 and 53 trans, from Trans_51... ; - Extract 51/4401 or 4501, and 21-22/4401 or 4501, from Trans_51... ?? "D" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac6" [Year End Date] = "_yr6" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac7" [Year End Date] = "_yr7" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only DOWN [Account No] = "_ac8" [Year End Date] = "_yr8" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only MENU {Ask} SELECT Trans_51_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "53" [Cr or Dr ID] = "Blank or 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "23" [Cr or Dr ID] = "Blank or 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am2,calc 0-_am2 as Amt" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Item Code] = "4401" [Header] = "51" [Cr or Dr ID] = "Blank or 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am3,calc _am3 as Amt" ;01/07/99 "0-") DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Item Code] = "4501" [Header] = "51" [Cr or Dr ID] = "Blank or 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am4,calc 0-_am4 as Amt" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS [Item Code] = "4401" [Header] = "21 or 22" [Cr or Dr ID] = "Blank or 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am5,calc 0-_am5 as Amt" DOWN MOVETO [Account No] "_ac6" CHECKPLUS MOVETO [Year End Date] "_yr6" CHECKPLUS [Item Code] = "4501" [Header] = "21 or 22" [Cr or Dr ID] = "Blank or 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am6,calc _am6 as Amt" DOWN MOVETO [Account No] "_ac7" CHECKPLUS MOVETO [Year End Date] "_yr7" CHECKPLUS [Header] = "24" [Cr or Dr ID] = "Blank or 0,Calc \"Drs\" as DrCr" [Gross Amount] = "_am7,calc 0-_am7 as Amt" DOWN MOVETO [Account No] "_ac8" CHECKPLUS MOVETO [Year End Date] "_yr8" CHECKPLUS [Header] = "54" [Cr or Dr ID] = "Blank or 0,Calc \"Crs\" as DrCr" [Gross Amount] = "_am8,calc _am8 as Amt" Do_It! Qry_is_Ok("C09") Add "Answer" Temp_1 Delete "Answer" ClearAll SaveTables ; Extract 28 and 58 trans, from Trans_58... ?? "E" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "F or B" DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "F or B" MENU {Ask} SELECT Trans_58_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "5..,calc \"Drs\" as DrCr" [Item Code] = "4401" [Gross Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "5..,calc \"Crs\" as DrCr" [Item Code] = "4501" [Gross Amount] = "_am2,calc 0-_am2 as Amt" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Header] = "2..,calc \"Drs\" as DrCr" [Item Code] = "4401" [Gross Amount] = "_am3,calc 0-_am3 as Amt" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Header] = "2..,calc \"Crs\" as DrCr" [Item Code] = "4501" [Gross Amount] = "_am4,calc _am4 as Amt" Do_It! Qry_is_Ok("C10") Add "Answer" Temp_1 Delete "Answer" ClearAll SaveTables EndProc Writelib Lib_Name Build_Ctls_2 Release Procs Build_Ctls_2 ;------------------------------------------------------------- ; Check Non-Coded CASH-on-Hand ? "Check_C_o_H1()" Proc Check_C_o_H1() Private Lin,t ? "Checking Non-Coded Cash-on-Hand (Fishing & Business)...A" CLEARALL ; Extract all Opening/Closing MEMO-data MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS Only MENU {Ask} SELECT Trans_BL_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Item Code] = "4201" ;Fishing [Bank Code] = "Blank or 0" [Opening Net Amount] = "_op1" [Closing Net Amount] = "_cl1,calc _op1-_cl1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Item Code] = ">= 4201,<= 4209" ;business [Bank Code] = "Blank or 0" [Opening Net Amount] = "_op2" [Closing Net Amount] = "_cl2,calc _op2-_cl2 as Amt" Do_It! Qry_is_Ok("C15") Rename "Answer" Temp_1 ClearAll ; Extract 1x/5x and 6x/7x/2x trans, from Trans_10... ?? "B" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Item Code] = "4201" ;Fishing [Bank Code] = "Blank or 0" [Header] = "1.. or 5.." [Net Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Item Code] = "4201" ;Fishing [Bank Code] = "Blank or 0" [Header] = "2.. or 6.. or 7.." [Net Amount] = "_am2,calc 0-_am2 as Amt" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Item Code] = ">= 4201,<= 4209" ;business [Bank Code] = "Blank or 0" [Header] = "1.. or 5.." [Net Amount] = "_am3,calc _am3 as Amt" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Item Code] = ">= 4201,<= 4209" ;business [Bank Code] = "Blank or 0" [Header] = "2.. or 6.. or 7.." [Net Amount] = "_am4,calc 0-_am4 as Amt" Do_It! Qry_is_Ok("C16") Add "Answer" Temp_1 Delete "Answer" ClearAll ; Extract 5x trans, from Trans_51... ?? "C" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F or B" MENU {Ask} SELECT Trans_51_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "51" [Bank Code] = "Blank or 0" [Gross Amount] = "_am1,calc _am1 as Amt" Do_It! Qry_is_Ok("C17") Add "Answer" Temp_1 Delete "Answer" ClearAll ; Extract all Lodgements, from Trans_51... ?? "D" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F or B" MENU {Ask} SELECT Trans_51_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Bank Code] = "Blank or 0" [Lodgement] = "_am1,calc 0-_am1 as Amt" Do_It! Qry_is_Ok("C18") Add "Answer" Temp_1 Delete "Answer" ClearAll EndProc Writelib Lib_Name Check_C_o_H1 Release Procs Check_C_o_H1 ;------------------------------------------------------------- ; Check Coded CASH-on-Hand ? "Check_C_o_H2()" Proc Check_C_o_H2() Private Lin,t ? "Checking Coded Cash-on-Hand (Fishing & Business)...A" CLEARALL ; Extract all Opening/Closing MEMO-data MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS MENU {Ask} SELECT Trans_BL_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Item Code] = "4201" ;Fishing MOVETO [Bank Code] CHECKPLUS [Bank Code] = "Not Blank, Not 0" [Opening Net Amount] = "_op1" [Closing Net Amount] = "_cl1,calc _op1-_cl1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Item Code] = ">= 4201,<= 4209" ;business MOVETO [Bank Code] CHECKPLUS [Bank Code] = "Not Blank, Not 0" [Opening Net Amount] = "_op2" [Closing Net Amount] = "_cl2,calc _op2-_cl2 as Amt" Do_It! Qry_is_Ok("C20") Rename "Answer" Temp_1 ClearAll ; Extract 1x/5x and 6x/7x/2x trans, from Trans_10... ?? "B" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Item Code] = "4201" ;Fishing MOVETO [Bank Code] CHECKPLUS [Bank Code] = "Not Blank, Not 0" [Header] = "1.. or 5.." [Net Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Item Code] = "4201" ;Fishing MOVETO [Bank Code] CHECKPLUS [Bank Code] = "Not Blank, Not 0" [Header] = "2.. or 6.. or 7.." [Net Amount] = "_am2,calc 0-_am2 as Amt" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Item Code] = ">= 4201,<= 4209" ;business MOVETO [Bank Code] CHECKPLUS [Bank Code] = "Not Blank, Not 0" [Header] = "1.. or 5.." [Net Amount] = "_am3,calc _am3 as Amt" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Item Code] = ">= 4201,<= 4209" ;business MOVETO [Bank Code] CHECKPLUS [Bank Code] = "Not Blank, Not 0" [Header] = "2.. or 6.. or 7.." [Net Amount] = "_am4,calc 0-_am4 as Amt" Do_It! Qry_is_Ok("C21") Add "Answer" Temp_1 Delete "Answer" ClearAll EndProc Writelib Lib_Name Check_C_o_H2 Release Procs Check_C_o_H2 ;------------------------------------------------------------- ; Check CODED Bank-Balances (Fishing) ? "Build_Ctls_4a()" Proc Build_Ctls_4a() ? "Checking Coded Bank Balances (Fishing Only)...A" ; Extract 1x/5x and 6x/7x/2x trans, from Trans_10... ?? "B" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "1.. or 5.." [Item Code] = "4301" MOVETO [Bank Code] CHECKPLUS [Bank Code] = "not Blank, not 0" [Net Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.. or 6.. or 7.." [Item Code] = "4301" MOVETO [Bank Code] CHECKPLUS [Bank Code] = "not Blank, not 0" [Net Amount] = "_am2,calc 0-_am2 as Amt" Do_It! Qry_is_Ok("C26") Add "Answer" Temp_1 Delete "Answer" ClearAll EndProc Writelib Lib_Name Build_Ctls_4a Release Procs Build_Ctls_4a ;------------------------------------------------------------- ; Check Bank-Balances (BUSINESS) (Coded and Non-Coded) ? "Build_Ctls_4b()" Proc Build_Ctls_4b() Private Lin,t ? "Checking ALL Bank Balances (BUSINESS Only)...A" ; Extract 1x/5x and 6x/7x/2x trans, from Trans_10... ?? "B" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "B" ;BUSINESS MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "1.. or 5.." [Item Code] = ">=4301,<=4309" MOVETO [Bank Code] CHECKPLUS [Net Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.. or 6.. or 7.." [Item Code] = ">=4301,<=4309" MOVETO [Bank Code] CHECKPLUS [Net Amount] = "_am2,calc 0-_am2 as Amt" Do_It! Qry_is_Ok("C92") Add "Answer" Temp_1 Delete "Answer" ClearAll ; Locate any Mis-Coded Bank Transactions for BUSINESS Accounts ; Ie, Item-code = 4301-4309, but Bank-Code not a corresponding 1-9 ; a. In Trans_BL: ?? "I" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac6" [Year End Date] = "_yr6" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac7" [Year End Date] = "_yr7" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac8" [Year End Date] = "_yr8" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac9" [Year End Date] = "_yr9" [Business Typ] = "B" [Run Batches] = "Y" MENU {Ask} SELECT Trans_BL_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4301" [Bank Code] = "not 1,calc \"TRANS_BL\" as Tbl" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4302" [Bank Code] = "not 2,calc \"TRANS_BL\" as Tbl" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4303" [Bank Code] = "not 3,calc \"TRANS_BL\" as Tbl" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4304" [Bank Code] = "not 4,calc \"TRANS_BL\" as Tbl" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4305" [Bank Code] = "not 5,calc \"TRANS_BL\" as Tbl" DOWN MOVETO [Account No] "_ac6" CHECKPLUS MOVETO [Year End Date] "_yr6" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4306" [Bank Code] = "not 6,calc \"TRANS_BL\" as Tbl" DOWN MOVETO [Account No] "_ac7" CHECKPLUS MOVETO [Year End Date] "_yr7" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4307" [Bank Code] = "not 7,calc \"TRANS_BL\" as Tbl" DOWN MOVETO [Account No] "_ac8" CHECKPLUS MOVETO [Year End Date] "_yr8" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4308" [Bank Code] = "not 8,calc \"TRANS_BL\" as Tbl" DOWN MOVETO [Account No] "_ac9" CHECKPLUS MOVETO [Year End Date] "_yr9" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4309" [Bank Code] = "not 9,calc \"TRANS_BL\" as Tbl" Do_It! Qry_is_Ok("C95") Rename "Answer" Temp_1 ClearAll ; b. In Trans_10: ?? "J" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac6" [Year End Date] = "_yr6" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac7" [Year End Date] = "_yr7" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac8" [Year End Date] = "_yr8" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac9" [Year End Date] = "_yr9" [Business Typ] = "B" [Run Batches] = "Y" MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4301" [Bank Code] = "not 1,calc \"TRANS_10\" as Tbl" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4302" [Bank Code] = "not 2,calc \"TRANS_10\" as Tbl" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4303" [Bank Code] = "not 3,calc \"TRANS_10\" as Tbl" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4304" [Bank Code] = "not 4,calc \"TRANS_10\" as Tbl" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4305" [Bank Code] = "not 5,calc \"TRANS_10\" as Tbl" DOWN MOVETO [Account No] "_ac6" CHECKPLUS MOVETO [Year End Date] "_yr6" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4306" [Bank Code] = "not 6,calc \"TRANS_10\" as Tbl" DOWN MOVETO [Account No] "_ac7" CHECKPLUS MOVETO [Year End Date] "_yr7" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4307" [Bank Code] = "not 7,calc \"TRANS_10\" as Tbl" DOWN MOVETO [Account No] "_ac8" CHECKPLUS MOVETO [Year End Date] "_yr8" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4308" [Bank Code] = "not 8,calc \"TRANS_10\" as Tbl" DOWN MOVETO [Account No] "_ac9" CHECKPLUS MOVETO [Year End Date] "_yr9" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4309" [Bank Code] = "not 9,calc \"TRANS_10\" as Tbl" Do_It! Qry_is_Ok("C96") Add "Answer" Temp_1 Delete "Answer" ClearAll ; c. In Trans_51: ?? "K" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac6" [Year End Date] = "_yr6" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac7" [Year End Date] = "_yr7" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac8" [Year End Date] = "_yr8" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac9" [Year End Date] = "_yr9" [Business Typ] = "B" [Run Batches] = "Y" MENU {Ask} SELECT Trans_51_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4301" [Bank Code] = "not 1,calc \"TRANS_51\" as Tbl" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4302" [Bank Code] = "not 2,calc \"TRANS_51\" as Tbl" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4303" [Bank Code] = "not 3,calc \"TRANS_51\" as Tbl" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4304" [Bank Code] = "not 4,calc \"TRANS_51\" as Tbl" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4305" [Bank Code] = "not 5,calc \"TRANS_51\" as Tbl" DOWN MOVETO [Account No] "_ac6" CHECKPLUS MOVETO [Year End Date] "_yr6" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4306" [Bank Code] = "not 6,calc \"TRANS_51\" as Tbl" DOWN MOVETO [Account No] "_ac7" CHECKPLUS MOVETO [Year End Date] "_yr7" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4307" [Bank Code] = "not 7,calc \"TRANS_51\" as Tbl" DOWN MOVETO [Account No] "_ac8" CHECKPLUS MOVETO [Year End Date] "_yr8" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4308" [Bank Code] = "not 8,calc \"TRANS_51\" as Tbl" DOWN MOVETO [Account No] "_ac9" CHECKPLUS MOVETO [Year End Date] "_yr9" CHECKPLUS MOVETO [Line No] CHECKPLUS [Item Code] = "4309" [Bank Code] = "not 9,calc \"TRANS_51\" as Tbl" Do_It! Qry_is_Ok("C97") Add "Answer" Temp_1 Delete "Answer" ClearAll EndProc Writelib Lib_Name Build_Ctls_4b Release Procs Build_Ctls_4b ;------------------------------------------------------------------- ; Check Non-Coded Bank Balances ? "Build_Ctls_5()" Proc Build_Ctls_5() Private Lin,t ? "Checking Non-Coded Bank Balances (Fishing Only)...A" ; Extract 1x/5x and 6x/7x/2x trans, from Trans_10... ?? "B" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "1.. or 5.." [Item Code] = "4301" [Bank Code] = "Blank or 0" [Net Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.. or 6.. or 7.." [Item Code] = "4301" [Bank Code] = "Blank or 0" [Net Amount] = "_am2,calc 0-_am2 as Amt" Do_It! Qry_is_Ok("C31") Add "Answer" Temp_1 Delete "Answer" ClearAll ; Extract 28 and 58 trans, from Trans_58... ?? "E" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_58_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "5.." [Item Code] = "4301" [Gross Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.." [Item Code] = "4301" [Gross Amount] = "_am2,calc 0-_am2 as Amt" Do_It! Qry_is_Ok("C34") Add "Answer" Temp_1 Delete "Answer" ClearAll EndProc Writelib Lib_Name Build_Ctls_5 Release Procs Build_Ctls_5 ;----------------------------------------------------------------------- ; Check Materials1s ? "Build_Ctls_9()" Proc Build_Ctls_9() Private Lin,Lin1,Lin2,t,a,y,i,q,q1,v1,q2,a2,y2,v,Rec_Ok ? "Checking Materials1s (Fishing Only)...A" ; Extract Openings / Closings, from Trans_10... ?? "G" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "1.. or 2.." MOVETO [Item Code] CHECKPLUS [Item Code] = "..03,not 5003,not 5103,not 5203,not 5303,not 8703" [Quantity] = "_qt1,calc _qt1 as Qty" [Net Amount] = "_am1,calc _am1 as Val" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "6.. or 7.." MOVETO [Item Code] CHECKPLUS [Item Code] = "..03,not 5003,not 5103,not 5203,not 5303,not 8703" [Quantity] = "_qt2,calc 0-_qt2 as Qty" [Net Amount] = "_am2,calc 0-_am2 as Val" Do_It! Qry_is_Ok("C51") Rename "Answer" Temp_1 ClearAll ; Extract 1x/5x trans, from Trans_51... ?? "H" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_51_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "2.." MOVETO [Item Code] CHECKPLUS [Item Code] = "..03,not 5003,not 5103,not 5203,not 5303,not 8703" [Quantity] = "_qt1,calc _qt1 as Qty" [Gross Amount] = "_am1,calc _am1 as Val" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "5.." MOVETO [Item Code] CHECKPLUS [Item Code] = "..03,not 5003,not 5103,not 5203,not 5303,not 8703" [Quantity] = "_qt2,calc 0-_qt2 as Qty" [Gross Amount] = "_am2,calc 0-_am2 as Val" Do_It! Qry_is_Ok("C52") Add "Answer" Temp_1 Delete "Answer" ClearAll EndProc Writelib Lib_Name Build_Ctls_9 Release Procs Build_Ctls_9 ;----------------------------------------------------------------------- ; Check Crops ? "Build_Ctls_10()" Proc Build_Ctls_10() Private a,y,i,q,Lin,Lin1,Lin2,a2,y2,pc,rus,t,Rec_Ok ? "Checking Crops (Fishing Only)...A" CLEARALL ; Extract Purchases / Sales ?? "B" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac6" [Year End Date] = "_yr6" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_51_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "2.." MOVETO [Item Code] CHECKPLUS [Item Code] = "3030 or 3131 or 3232 or 3333 or 3434 or 3535 or 3636" [Quantity] = "_q1,calc _q1 as Qty" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.." MOVETO [Item Code] CHECKPLUS [Item Code] = "3737 or 3838 or 3939 or 4141 or 4242 or 4343 or 4444" [Quantity] = "_q2,calc _q2 as Qty" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Header] = "2.." MOVETO [Item Code] CHECKPLUS [Item Code] = "5050 or 5151 or 5252 or 6161 or 6262 or 6363 or 6464" [Quantity] = "_q3,calc _q3 as Qty" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Header] = "5.." MOVETO [Item Code] CHECKPLUS [Item Code] = "3030 or 3131 or 3232 or 3333 or 3434 or 3535 or 3636" [Quantity] = "_q4,calc 0-_q4 as Qty" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS [Header] = "5.." MOVETO [Item Code] CHECKPLUS [Item Code] = "3737 or 3838 or 3939 or 4141 or 4242 or 4343 or 4444" [Quantity] = "_q5,calc 0-_q5 as Qty" DOWN MOVETO [Account No] "_ac6" CHECKPLUS MOVETO [Year End Date] "_yr6" CHECKPLUS [Header] = "5.." MOVETO [Item Code] CHECKPLUS [Item Code] = "5050 or 5151 or 5252 or 6161 or 6262 or 6363 or 6464" [Quantity] = "_q6,calc 0-_q6 as Qty" Do_It! Qry_is_Ok("C57") Add "Answer" Temp_1 Delete "Answer" ClearAll ; Extract Transfers ?? "C" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac6" [Year End Date] = "_yr6" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_58_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "2.." MOVETO [Item Code] CHECKPLUS [Item Code] = "3030 or 3131 or 3232 or 3333 or 3434 or 3535 or 3636" [Quantity] = "_q1,calc _q1 as Qty" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.." MOVETO [Item Code] CHECKPLUS [Item Code] = "3737 or 3838 or 3939 or 4141 or 4242 or 4343 or 4444" [Quantity] = "_q2,calc _q2 as Qty" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS [Header] = "2.." MOVETO [Item Code] CHECKPLUS [Item Code] = "5050 or 5151 or 5252 or 6161 or 6262 or 6363 or 6464" [Quantity] = "_q3,calc _q3 as Qty" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS [Header] = "5.." MOVETO [Item Code] CHECKPLUS [Item Code] = "3030 or 3131 or 3232 or 3333 or 3434 or 3535 or 3636" [Quantity] = "_q4,calc 0-_q4 as Qty" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS [Header] = "5.." MOVETO [Item Code] CHECKPLUS [Item Code] = "3737 or 3838 or 3939 or 4141 or 4242 or 4343 or 4444" [Quantity] = "_q5,calc 0-_q5 as Qty" DOWN MOVETO [Account No] "_ac6" CHECKPLUS MOVETO [Year End Date] "_yr6" CHECKPLUS [Header] = "5.." MOVETO [Item Code] CHECKPLUS [Item Code] = "5050 or 5151 or 5252 or 6161 or 6262 or 6363 or 6464" [Quantity] = "_q6,calc 0-_q6 as Qty" Do_It! Qry_is_Ok("C58") Add "Answer" Temp_1 Delete "Answer" ClearAll EndProc Writelib Lib_Name Build_Ctls_10 Release Procs Build_Ctls_10 ;----------------------------------------------------------------------- ; Check StockPurchases ? "Build_Ctls_8()" Proc Build_Ctls_8() Private Lin,t ? "Checking StockPurchases (Fishing Only)...A" CLEARALL ; Extract 1x/5x and 6x/7x/2x trans, from Trans_10... ?? "B" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only! MENU {Ask} SELECT Trans_10_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "1.. or 5.." [Item Code] = "0901" [Net Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.. or 6.. or 7.." [Item Code] = "0901" [Net Amount] = "_am2,calc 0-_am2 as Amt" Do_It! Qry_is_Ok("C43") Add "Answer" Temp_1 Delete "Answer" ClearAll ; Extract 2x and 5x trans, from Trans_51...BOOK-VALUE! ?? "C" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_51_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "5.." [Item Code] = "0901" [Book Value] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.." [Item Code] = "0901" [Book Value] = "_am2,calc 0-_am2 as Amt" Do_It! Qry_is_Ok("C44") Add "Answer" Temp_1 Delete "Answer" ClearAll ; Extract 2x/5x trans, from Trans_58... ?? "D" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Run Batches] = "Y" [Business Typ] = "F" ;Fishing Only MENU {Ask} SELECT Trans_58_Tmp MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS [Header] = "5.." [Item Code] = "0901" [Gross Amount] = "_am1,calc _am1 as Amt" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS [Header] = "2.." [Item Code] = "0901" [Gross Amount] = "_am2,calc 0-_am2 as Amt" Do_It! Qry_is_Ok("C45") Add "Answer" Temp_1 Delete "Answer" ClearAll EndProc Writelib Lib_Name Build_Ctls_8 Release Procs Build_Ctls_8 ; Validation on Tax-Run / Pages ;************************************************************************ ? " - Bat_Tax_P()" Proc Bat_Tax_P () Private t,lin ? " - Page P (Checks, per Line, Fishing)" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_dt1" [Business Typ] = "F" ;Fishing Only [Run Batches] = "Y" DOWN [Account No] = "_ac2" [Year End Date] = "_dt2" [Business Typ] = "F" [Run Batches] = "Y" DOWN [Account No] = "_ac3" [Year End Date] = "_dt3" [Business Typ] = "F" [Run Batches] = "Y" MENU {Ask} SELECT TaxPadP MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_dt1" CHECKPLUS MOVETO [Line No] "not 28,not 61" CHECKPLUS [WDV 1] = "not Blank,not 0" [Gross Cost] = "not Blank,not 0" [SalesX] = "Blank or 0" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_dt2" CHECKPLUS MOVETO [Line No] "not 28,not 61" CHECKPLUS [WDV 1] = "not Blank, not 0" [Gross Cost] = "not Blank,not 0" [SalesX] = "not Blank,not 0" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_dt3" CHECKPLUS MOVETO [Line No] "not 28,not 61" CHECKPLUS [WDV 1] = "not Blank, not 0" [Gross Cost] = "Blank or 0" [SalesX] = "not Blank,not 0" Do_It! Qry_is_Ok("B12") Rename "Answer" Temp_1 ClearAll SaveTables ? " - Page P (Checks, per Line, Business)" MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_dt1" [Business Typ] = "B" ;BUSINESS Only [Run Batches] = "Y" DOWN [Account No] = "_ac2" [Year End Date] = "_dt2" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac3" [Year End Date] = "_dt3" [Business Typ] = "B" [Run Batches] = "Y" MENU {Ask} SELECT TaxPadP MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_dt1" CHECKPLUS MOVETO [Line No] "not 42" CHECKPLUS [WDV 1] = "not Blank, not 0" [Gross Cost] = "not Blank,not 0" [SalesX] = "Blank or 0" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_dt2" CHECKPLUS MOVETO [Line No] "not 42" CHECKPLUS [WDV 1] = "not Blank, not 0" [Gross Cost] = "not Blank,not 0" [SalesX] = "not Blank,not 0" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_dt3" CHECKPLUS MOVETO [Line No] "not 42" CHECKPLUS [WDV 1] = "not Blank, not 0" [Gross Cost] = "Blank or 0" [SalesX] = "not Blank,not 0" Do_It! Qry_is_Ok("B13") Add "Answer" Temp_1 ClearAll SaveTables ;-------------------------------- ? " - Page P (Disallowed Line-Nos)" CLEARALL MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Business Typ] = "F" ;Fishing Only [Run Batches] = "Y" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Business Typ] = "F" [Run Batches] = "Y" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Business Typ] = "F" [Run Batches] = "Y" DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Business Typ] = "F" [Run Batches] = "Y" DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Business Typ] = "F" [Run Batches] = "Y" MENU {Ask} SELECT TaxPadP MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS MOVETO [Line No] "<18" CHECKPLUS DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS MOVETO [Line No] "27" CHECKPLUS DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS MOVETO [Line No] ">28,<33" CHECKPLUS DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4" CHECKPLUS MOVETO [Line No] "60" CHECKPLUS DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5" CHECKPLUS MOVETO [Line No] ">61" CHECKPLUS Do_It! Qry_is_Ok("B31") Rename "Answer" Temp_1 ClearAll ; Ditto...for Business A/cs MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Business Typ] = "B" ;Business Only [Run Batches] = "Y" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Business Typ] = "B" [Run Batches] = "Y" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Business Typ] = "B" [Run Batches] = "Y" MENU {Ask} SELECT TaxPadP MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1" CHECKPLUS MOVETO [Line No] "<18" CHECKPLUS DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2" CHECKPLUS MOVETO [Line No] "41" CHECKPLUS DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3" CHECKPLUS MOVETO [Line No] ">42" CHECKPLUS Do_It! Qry_is_Ok("B32") Add "Answer" Temp_1 ClearAll EndProc Writelib Lib_Name Bat_Tax_P Release Procs Bat_Tax_P ;************************************************************************ ; Check for Errors on Tax-Run Pages T or U or V, Business or Fishing ; ; # Trans where ; 1. Description is Missing ; 2. Description is Superfluous ; 3. Amount-2 must be Blank/Zero ; 4. Amount-1 must be Blank/Zero Proc Tax_Check_TU (Tbl,ForB,Err_Msg) MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac1" [Year End Date] = "_yr1" [Business Typ] = "~ForB" ;Fishing or BUSINESS [Run Batches] = "Y" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Business Typ] = "~ForB" [Run Batches] = "Y" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Business Typ] = "~ForB" [Run Batches] = "Y" MENU {Ask} SELECT Tbl MOVETO [Account No] "_ac1" CHECKPLUS MOVETO [Year End Date] "_yr1,calc 3 as \"Err\"" CHECKPLUS MOVETO [Line No] ">=17,<=30" CHECKPLUS MOVETO [Amount 2] "not Blank,not 0" DOWN MOVETO [Account No] "_ac2" CHECKPLUS MOVETO [Year End Date] "_yr2,calc 3 as \"Err\"" CHECKPLUS MOVETO [Line No] ">=49,<=55" CHECKPLUS MOVETO [Amount 2] "not Blank,not 0" DOWN MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3,calc 4 as \"Err\"" CHECKPLUS MOVETO [Line No] "15 or 36 or 38 or 41 or 45 or 62" CHECKPLUS MOVETO [Amount 1] "not Blank,not 0" Do_It! Qry_is_Ok("B15") ClearAll SaveTables Tax_Pad_Errors(Err_Msg) ;Post all Error-messages EndProc Writelib Lib_Name Tax_Check_TU Release Procs Tax_Check_TU ;----------------------------------- Proc Tax_Check_UV (Tbl,ForB,Err_Msg) MENU {Ask} SELECT Trans_01_Tmp [Account No] = "_ac3" [Year End Date] = "_yr3" [Business Typ] = "~ForB" ;Fishing or BUSINESS [Run Batches] = "Y" DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Business Typ] = "~ForB" [Run Batches] = "Y" DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Business Typ] = "~ForB" [Run Batches] = "Y" DOWN [Account No] = "_ac6" [Year End Date] = "_yr6" [Business Typ] = "~ForB" [Run Batches] = "Y" DOWN [Account No] = "_ac7" [Year End Date] = "_yr7" [Business Typ] = "~ForB" [Run Batches] = "Y" MENU {Ask} SELECT Tbl MOVETO [Account No] "_ac3" CHECKPLUS MOVETO [Year End Date] "_yr3,calc 3 as \"Err\"" CHECKPLUS MOVETO [Line No] ">=10,<=19" CHECKPLUS MOVETO [Amount 2] "not Blank,not 0" DOWN MOVETO [Account No] "_ac4" CHECKPLUS MOVETO [Year End Date] "_yr4,calc 3 as \"Err\"" CHECKPLUS MOVETO [Line No] ">=21,<=27" CHECKPLUS MOVETO [Amount 2] "not Blank,not 0" DOWN MOVETO [Account No] "_ac5" CHECKPLUS MOVETO [Year End Date] "_yr5,calc 3 as \"Err\"" CHECKPLUS MOVETO [Line No] ">=32,<=38" CHECKPLUS MOVETO [Amount 2] "not Blank,not 0" DOWN MOVETO [Account No] "_ac6" CHECKPLUS MOVETO [Year End Date] "_yr6,calc 3 as \"Err\"" CHECKPLUS MOVETO [Line No] ">=40,<=56" CHECKPLUS MOVETO [Amount 2] "not Blank,not 0" DOWN MOVETO [Account No] "_ac7" CHECKPLUS MOVETO [Year End Date] "_yr7,calc 4 as \"Err\"" CHECKPLUS MOVETO [Line No] "09 or 20 or 28 or 30 or 39 or 57 or 59" CHECKPLUS MOVETO [Amount 1] "not Blank,not 0" Do_It! Qry_is_Ok("B16") ClearAll SaveTables Tax_Pad_Errors(Err_Msg) ;Post all Error-messages EndProc Writelib Lib_Name Tax_Check_UV Release Procs Tax_Check_UV ;************************************************************************ ; Check the Sub-Totals in sections of Tax-Run Page-P Proc Tax_Tots_P (ForB,min_line,tot_line) Private ac,yr,a1,a2,a3,a4,a5,a6,a7,a8,t,lin1,aaa,bbb,Rec_Ok ClearAll ?? "C" Menu {Ask} Select Trans_01_Tmp Moveto [Account No] "_ac" Moveto [Year End Date] "_dt" Moveto [Run Batches] "Y" Moveto [Business Typ] "~ForB" ;Fishing/BUSINESS MENU {Ask} SELECT TaxPadP MOVETO [Account No] "_a!,_ac" CHECKPLUS MOVETO [Year End Date] "_b!,_dt" CHECKPLUS [Line No] = "~tot_line" ;= match on line "37" DOWN ;A-N-D (because of next _a,_b) MOVETO [Account No] "_a" ;??? Maybe ",count=0" here also MOVETO [Year End Date] "_b" ;??? Maybe ",count=0" here also [Line No] = "not ~tot_line,count=0" ;have a total of NO ;lines, WITHOUT 37 Do_It! Qry_is_Ok("B18") ClearAll EndProc Writelib Lib_Name Tax_Tots_P Release Procs Tax_Tots_P ;*************************************************************** ; Export selected ACS and TAX Trans to ASCII Files ? "Export_Acs_Tax ()" Proc Export_Acs_Tax () Private Sel_Acs,Sel_Dts,Sel_Ct ? "Refresh BASE-Currencies, in all Selected A/cs" Menu {Ask} Select Trans_01 MOVETO [Account No] CHECK MOVETO [Year End Date] CHECK [Run Exp-Acs] = "Y" DOWN MOVETO [Account No] CHECK MOVETO [Year End Date] CHECK [Run Exp-Tax] = "Y" Do_It! Qry_is_Ok_ClrAll("I1") EndProc Writelib Lib_Name Export_Acs_Tax Release Procs Export_Acs_Tax ;*********************************************************************** Proc JC_Bank_Rec_Report(Typ) Private Prtr,CPI Clear @ 0,0 ?? "Run-Purchases - Bank-Reconciliation Report . . ." ClearAll ? "Process Db/Cr Transaction Types" MENU {Ask} SELECT "Answer" [#] = "Fast" [Transaction Code] = "01 or 12 or 73" [Gross Amount] = ">=0,_gr1" [Db] = "Changeto _gr1" DOWN [Transaction Code] = "01 or 12 or 73" [Gross Amount] = "<0,_gr2" [Cr] = "Changeto _gr2" DOWN [Transaction Code] = "21 or 23" [Gross Amount] = ">=0,_gr3" [Cr] = "Changeto 0-_gr3" DOWN [Transaction Code] = "21 or 23" [Gross Amount] = "<0,_gr4" [Db] = "Changeto 0-_gr4" DOWN [Transaction Code] = "31" [Gross Amount] = "_gr5,>=0" [Cr] = "Changeto 0-_gr5" DOWN [Transaction Code] = "31" [Gross Amount] = "_gr6,<0" [Db] = "Changeto 0-_gr6" Do_It! Qry_is_OK_ClrAll("J1") EndProc WriteLib Lib_Name JC_Bank_Rec_Report Release Procs JC_Bank_Rec_Report ;*********************************************************************** Proc JC_EX_CDrs() Private Do_C, Do_C62 Clear @ 0,0 ?? "Check for errors/missing data in the CDEBTORS Table..." ; Check for invalid fields ; - Unrecognised Fitter27-Nos ; - Missing Fitter27-Nos ; - Missing/Invalid Dates CLEARALL MENU {Ask} SELECT "CDebtors" MOVETO [Period] CHECKPLUS MOVETO [Transaction Code] "62" CHECKPLUS MOVETO [Account No] CHECKPLUS MOVETO [Date] "Blank" CHECKPLUS MOVETO [Gross Amount] CHECKPLUS MOVETO [Fitter27 No] CHECKPLUS MOVETO [Co. Id] CHECKPLUS MOVETO [Description] "Calc \"Missing Date \" as Msg" MOVETO [Boking ID] CHECKPLUS Down MOVETO [Period] CHECKPLUS MOVETO [Transaction Code] "62" CHECKPLUS MOVETO [Account No] CHECKPLUS MOVETO [Date] "> Today" CHECKPLUS MOVETO [Gross Amount] CHECKPLUS MOVETO [Fitter27 No] CHECKPLUS MOVETO [Co. Id] CHECKPLUS MOVETO [Description] "Calc \"Date is too Late \" as Msg" MOVETO [Boking ID] CHECKPLUS Down MOVETO [Period] CHECKPLUS MOVETO [Transaction Code] "62" CHECKPLUS MOVETO [Account No] CHECKPLUS MOVETO [Date] "< Today - 366" CHECKPLUS MOVETO [Gross Amount] CHECKPLUS MOVETO [Fitter27 No] CHECKPLUS MOVETO [Co. Id] CHECKPLUS MOVETO [Description] "Calc \"Date is too Early \" as Msg" MOVETO [Boking ID] CHECKPLUS Do_It! Qry_is_OK_ClrAll("J4") Add "Answer" "Temp1" ClearAll EndProc WriteLib Lib_Name JC_EX_CDrs Release Procs JC_EX_CDrs ;****************************************************************** ; Summarise Purchases / Sales Proc Profile_Summary() Private ac, yr, hd, it, qt, nt, gr Clear @ 0,0 ?? "Summarise TRANS_51 into PROFILE Tables..." ? ? " - Simplify Header-codes" MENU {Ask} SELECT "Temp_1" [#] = "Fast" [Header] = "22 or 23,changeto 21" DOWN [Header] = "52 or 53,changeto 51" DOWN [Header] = "24,changeto 51" [Quantity] = "_q1,changeto 0-_q1" [Net Amount] = "_n1,changeto 0-_n1" [Gross Amount] = "_g1,changeto 0-_g1" DOWN [Header] = "54,changeto 21" [Quantity] = "_q2,changeto 0-_q2" [Net Amount] = "_n2,changeto 0-_n2" [Gross Amount] = "_g2,changeto 0-_g2" Do_It! Qry_is_Ok("P02") ClearAll EndProc WriteLib Lib_Name Profile_Summary Release Procs Profile_Summary ;******************************************************************* ; Prepare a Table's records for Prooflist Printing ? " - Build_P_List()" Proc Build_P_List(Tbl,Seq) Private Old_Ac, Old_Dt, Old_Hd ? "Seek/Extract data from: ",Tbl CLEARALL MENU {Ask} SELECT Trans_01 [Account No] = "_ac1" [Year End Date] = "_yr1" [Business Typ] = "F or B or P" [Run Pl] = "Y" [Hdr-1] = "Blank or 0" [Hdr-2] = "Blank or 0" [Hdr-3] = "Blank or 0" [Hdr-4] = "Blank or 0" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Business Typ] = "F or B or P" [Run Pl] = "Y" [Hdr-1] = "_hh1,not Blank,not 0" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Business Typ] = "F or B or P" [Run Pl] = "Y" [Hdr-1] = "_hx2" [Hdr-2] = "_hh2,not _hx2,not Blank,not 0" DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Business Typ] = "F or B or P" [Run Pl] = "Y" [Hdr-1] = "_hx3" [Hdr-2] = "_hy3" [Hdr-3] = "_hh3,not _hx3,not _hy3,not Blank,not 0" DOWN [Account No] = "_ac5" [Year End Date] = "_yr5" [Business Typ] = "F or B or P" [Run Pl] = "Y" [Hdr-1] = "_hx4" [Hdr-2] = "_hy4" [Hdr-3] = "_hz4" [Hdr-4] = "_hh4,not _hx4,not _hy4,not _hz4,not Blank,not 0" MENU {Ask} SELECT Tbl CTRLHOME CHECKPLUS ; check all fields [Account No] = "_ac1" [Year End Date] = "_yr1" DOWN CTRLHOME CHECKPLUS ; check all fields [Account No] = "_ac2" [Year End Date] = "_yr2" [Header] = "_hh1" DOWN CTRLHOME CHECKPLUS ; check all fields [Account No] = "_ac3" [Year End Date] = "_yr3" [Header] = "_hh2" DOWN CTRLHOME CHECKPLUS ; check all fields [Account No] = "_ac4" [Year End Date] = "_yr4" [Header] = "_hh3" DOWN CTRLHOME CHECKPLUS ; check all fields [Account No] = "_ac5" [Year End Date] = "_yr5" [Header] = "_hh4" Do_It! Qry_is_Ok("R2") ClearAll ClearAll EndProc WRITELIB Lib_Name Build_P_List Release Procs Build_P_List ; ************************************************************************ ; Do TAX-Report ? " - TAX_Report ()" Proc TAX_Report () Private Do_21s, mm, x, yy ClearAll Clear @0,0 ?? "TAX-Report, for the Selected Client(s) . . ." ? ? "Extracting all TRANS_51 records for the selected A/cs" CLEARALL MENU {Ask} SELECT Trans_01 [Account No] = "_ac1" [Year End Date] = "_yr1" [Business Typ] = "F or B" [Vat] = "V or Y" [Run TAX-Rpt] = "Y" [From MM] = "_fm1" [From YY] = "_fy1" [To MM] = "_tm1" [To YY] = "_ty1,= _fy1" DOWN [Account No] = "_ac2" [Year End Date] = "_yr2" [Business Typ] = "F or B" [Vat] = "V or Y" [Run TAX-Rpt] = "Y" [From MM] = "_fm2" [From YY] = "_fy2" [To MM] = "_tm2" [To YY] = "_ty2,> _fy2" DOWN [Account No] = "_ac3" [Year End Date] = "_yr3" [Business Typ] = "F or B" [Vat] = "V or Y" [Run TAX-Rpt] = "Y" [From MM] = "_fm3" [From YY] = "_fy3" [To MM] = "_tm3" [To YY] = "_ty3,> _fy3" DOWN [Account No] = "_ac4" [Year End Date] = "_yr4" [Business Typ] = "F or B" [Vat] = "V or Y" [Run TAX-Rpt] = "Y" [From MM] = "_fm4" [From YY] = "_fy4" [To MM] = "_tm4" [To YY] = "_ty4,> _fy4" MENU {Ask} SELECT Trans_51 ;Months in SAME Year Moveto [Account No] "_ac1" CHECKPLUS Moveto [Year End Date] "_yr1" CHECKPLUS If Do_21s Then Moveto [Header] CHECKPLUS Else Moveto [Header] "Not 21" CHECKPLUS EndIf Moveto [Trans Date] CHECKPLUS Moveto [Desc] CHECKPLUS Moveto [Net Amount] CHECKPLUS Moveto [Tax Code] CHECKPLUS Moveto [Tax Year] "_fy1" CHECKPLUS Moveto [Tax Month] ">= _fm1,<= _tm1" CHECKPLUS Moveto [Tax Amount] CHECKPLUS Moveto [For Resale] CHECKPLUS Moveto [Gross Amount] CHECKPLUS [Gross Amount] = "Calc \"?\" as Cat,calc 0.0 as Rate, calc \"94/01\" as YrMt" DOWN ;Diff Years, 1st-Yr Moveto [Account No] "_ac2" CHECKPLUS Moveto [Year End Date] "_yr2" CHECKPLUS If Do_21s Then Moveto [Header] CHECKPLUS Else Moveto [Header] "Not 21" CHECKPLUS EndIf Moveto [Trans Date] CHECKPLUS Moveto [Desc] CHECKPLUS Moveto [Net Amount] CHECKPLUS Moveto [Tax Code] CHECKPLUS Moveto [Tax Year] "_fy2" CHECKPLUS Moveto [Tax Month] ">= _fm2" CHECKPLUS Moveto [Tax Amount] CHECKPLUS Moveto [For Resale] CHECKPLUS Moveto [Gross Amount] CHECKPLUS [Gross Amount] = "Calc \"?\" as Cat,calc 0.0 as Rate, calc \"94/01\" as YrMt" DOWN ;Diff Years, Yr-"n" Moveto [Account No] "_ac3" CHECKPLUS Moveto [Year End Date] "_yr3" CHECKPLUS If Do_21s Then Moveto [Header] CHECKPLUS Else Moveto [Header] "Not 21" CHECKPLUS EndIf Moveto [Trans Date] CHECKPLUS Moveto [Desc] CHECKPLUS Moveto [Net Amount] CHECKPLUS Moveto [Tax Code] CHECKPLUS Moveto [Tax Year] "> _fy3,< _ty3" CHECKPLUS Moveto [Tax Month] CHECKPLUS Moveto [Tax Amount] CHECKPLUS Moveto [For Resale] CHECKPLUS Moveto [Gross Amount] CHECKPLUS [Gross Amount] = "Calc \"?\" as Cat,calc 0.0 as Rate, calc \"94/01\" as YrMt" DOWN ;Diff Years, End-Yr Moveto [Account No] "_ac4" CHECKPLUS Moveto [Year End Date] "_yr4" CHECKPLUS If Do_21s Then Moveto [Header] CHECKPLUS Else Moveto [Header] "Not 21" CHECKPLUS EndIf Moveto [Trans Date] CHECKPLUS Moveto [Desc] CHECKPLUS Moveto [Net Amount] CHECKPLUS Moveto [Tax Code] CHECKPLUS Moveto [Tax Year] "_ty4" CHECKPLUS Moveto [Tax Month] "<= _tm4" CHECKPLUS Moveto [Tax Amount] CHECKPLUS Moveto [For Resale] CHECKPLUS Moveto [Gross Amount] CHECKPLUS [Gross Amount] = "Calc \"?\" as Cat,calc 0.0 as Rate, calc \"94/01\" as YrMt" Do_It! Qry_is_Ok("R4") Add "Answer" TAX_Rpt ClearAll EndProc WRITELIB Lib_Name TAX_Report Release Procs TAX_Report ; Simple Scripts to implement the "NOTES REGISTER" System ; ; Ver Date Comments ; --- -------- -------- ; 1.0 17/08/95 Initial Release ; ; 1.1 29/08/95 "Rounding" included in some calcs ; Formula-2 inserted, for Div calcs ; Warning to do Backup, before proceeding with Bonus/Div runs. ; ; 1.2 15/05/96 Speeded up a few Queries, by a little... ; Inserted Export option for Mail-Merge ; Inserted Labels-Printout option. ; ; 1.3 22/11/00 Small tidy-up to the procs. Cvt from PDox 3.5 to 4.5. ; ; 1.4 16/03/01 Additional "Register" / Prooflist report ; ; ... 11/04/08 Many small tweaks, "Conversions" report, etc. ; ; ; ;************************************************************************* ? "Shr_Refresh_S_H_2()" Proc Shr_Refresh_S_H_2(Co,Dt,Cur_Yr_Adjust) ? "Clear out any Negative 0.00 values!" MENU {Ask} SELECT "Shares\\SharHldr" [#] = "Fast" [Total Shares Qty Owned] = ">-0.012,<0.012,changeto 0.0" DOWN [Total Adj Qty Owned] = ">-0.012,<0.012,changeto 0.0" DOWN [Total Worth to Shareholdr] = ">-0.012,<0.012,changeto 0.0" Do_It! Qry_Is_OK("S23") ClearAll ? "Check for any NEGATIVE Balances" MENU {Ask} SELECT "Shares\\SharHldr" MOVETO [Company Code] CHECKPLUS MOVETO [Account Code] CHECKPLUS MOVETO [Total Shares Qty Owned] "< -0.004" CHECKPLUS MOVETO [Total Adj Qty Owned] CHECKPLUS DOWN MOVETO [Company Code] CHECKPLUS MOVETO [Account Code] CHECKPLUS MOVETO [Total Shares Qty Owned] "Blank" CHECKPLUS MOVETO [Total Adj Qty Owned] "< -0.004" CHECKPLUS DOWN MOVETO [Company Code] CHECKPLUS MOVETO [Account Code] CHECKPLUS MOVETO [Total Shares Qty Owned] ">= -0.004" CHECKPLUS MOVETO [Total Adj Qty Owned] "< -0.004" CHECKPLUS Do_It! Qry_Is_OK("S24") ClearAll SaveTables Return True EndProc WriteLib Lib_Name Shr_Refresh_S_H_2 Release Procs Shr_Refresh_S_H_2 ;************************************************************************* ; Print Error-Trans Proc Shr_Report_Errors() Clear @ 0,0 ?? "Error Transactions...on A4 Continuous Stationery" If not Report_Options(Printer_type) Then ;Report required ? Return EndIf ? ? "Checking for errors in the Keyed Transactions..." ; Do ALL Companies!! CLEARALL MENU {Ask} SELECT "Shares\\Trans" CTRLHOME CHECKPLUS ; check all fields [Transaction Code] = "1" [Qty of Shares] = "<=0" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "1" [Amount Paid - by/to shldr] = "<0" DOWN CTRLHOME CHECKPLUS [Qty of Shares] = "Not Blank,Not 0" [Amount per Share] = "Not 1.0" DOWN CTRLHOME CHECKPLUS [Date] = "<01.01.1970" DOWN CTRLHOME CHECKPLUS [Date] = ">Today" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "2 or 6 or 8" [Qty of Shares] = "<=0" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "2 or 6 or 8" [Amount Paid - by/to shldr] = "<0" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "3 or 7 or 9" [Qty of Shares] = "Not 0,Not Blank" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "3 or 7 or 9" [Amount Paid - by/to shldr] = "<=0" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "4" [Qty of Shares] = ">=0" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "4" [Amount Paid - by/to shldr] = ">0" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "5" [Qty of Shares] = "Not 0,Not Blank" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "5" [Amount Paid - by/to shldr] = ">=0" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "10" [Qty of Shares] = "<0,not Blank" [Amount Paid - by/to shldr] = ">0" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "10" [Qty of Shares] = ">0" [Amount Paid - by/to shldr] = "<0,not Blank" DOWN CTRLHOME CHECKPLUS [Transaction Code] = "<1" DOWN CTRLHOME CHECKPLUS [Transaction Code] = ">10" DOWN CTRLHOME CHECKPLUS [Date] = "Blank" Do_It! Qry_Is_OK("S26") ClearAll EndProc WriteLib Lib_Name Shr_Report_Errors Release Procs Shr_Report_Errors ;************************************************************************* ; Print Bak-Rec listing Proc Shr_Report_Bank_Rec() Private Mth_Open,Cum_Baln,Old_Year,Old_Mnth,Wh_Company,FrDate,ToDate Clear @ 0,0 ?? "Bank-Reconciliation...on A4 Continuous Stationery" ? "Discard any unwanted trans (1)" MENU {Ask} SELECT "Entry001" [#] = "Fast Delete" [Company Code] = "Not ~Wh_Company" DOWN [#] = "Fast Delete" [Transaction Code] = "10" ;Drop Adjustments Do_It! Qry_Is_OK("S26") ClearAll EndProc WriteLib Lib_Name Shr_Report_Bank_Rec Release Procs Shr_Report_Bank_Rec ;************************************************************************* ; Print Purchases listing Proc Shr_Report_Purchases() Private Wh_Company,FrDate,ToDate Clear @ 0,0 ?? "PURCHASES List...on A4 Continuous Stationery" ? ? "Discard unwanted Adjs..." MENU {Ask} SELECT "Answer" [#] = "Fast Delete" [Transaction Code] = "10" [Qty of Shares] = "<0" DOWN [#] = "Fast Delete" [Transaction Code] = "10" [Amount Paid - by/to shldr] = "<0" Do_It! Qry_Is_OK("S25") ClearAll EndProc WriteLib Lib_Name Shr_Report_Purchases Release Procs Shr_Report_Purchases ;************************************************************************* ; Print Sales listing Proc Shr_Report_Sales() Private Wh_Company,FrDate,ToDate Clear @ 0,0 ?? "SALES List...on A4 Continuous Stationery" ? ? "Discard unwanted Adjs..." MENU {Ask} SELECT "Answer" [#] = "Fast Delete" [Transaction Code] = "10" [Qty of Shares] = ">0" DOWN [#] = "Fast Delete" [Transaction Code] = "10" [Amount Paid - by/to shldr] = ">0" Do_It! Qry_Is_OK("S25") ClearAll EndProc WriteLib Lib_Name Shr_Report_Sales Release Procs Shr_Report_Sales ;************************************************************************* ; Create Mail-Merge File ? "Shr_Report_Mail_Merge()" Proc Shr_Report_Mail_Merge() Private Go_On, Wh_Company, Opt, FilP, FilC, Msg ? "Identify (& flag) any records who have requested Conversion..." MENU {Ask} SELECT "Answer" [#] = "Fast" [Account Code] = "_Ac1" [Total Shares Qty Date] = "_Dt1" [PayCvt] = "Changeto \"Cvt\"" DOWN [#] = "Fast" [Account Code] = "_Ac2" [Total Shares Qty Date] = "_Dt2" [PayCvt] = "Changeto \"Cvt\"" DOWN [#] = "Fast" [Account Code] = "_Ac3" [Total Shares Qty Date] = "_Dt3" [PayCvt] = "Changeto \"Cvt\"" DOWN [#] = "Fast" [Account Code] = "_Ac4" [Total Shares Qty Date] = "_Dt4" [PayCvt] = "Changeto \"Cvt\"" MENU {Ask} SELECT "Shares\\shldropt" [Company Code] = "~Wh_Company" [Account Code] = "_Ac1" [Convert Dividends] = "\"Y\" or \"y\"" [Convert Div - From Date] = "Blank" [Convert Div - To Date] = ">=_Dt1" DOWN [Company Code] = "~Wh_Company" [Account Code] = "_Ac2" [Convert Dividends] = "\"Y\" or \"y\"" [Convert Div - From Date] = "<=_Dt2" [Convert Div - To Date] = "Blank" DOWN [Company Code] = "~Wh_Company" [Account Code] = "_Ac3" [Convert Dividends] = "\"Y\" or \"y\"" [Convert Div - From Date] = "<=_Dt3" [Convert Div - To Date] = ">=_Dt3" DOWN [Company Code] = "~Wh_Company" [Account Code] = "_Ac4" [Convert Dividends] = "\"Y\" or \"y\"" [Convert Div - From Date] = "Blank" [Convert Div - To Date] = "Blank" Do_It! ClearAll SaveTables EndProc WriteLib Lib_Name Shr_Report_Mail_Merge Release Procs Shr_Report_Mail_Merge