Subject: | Re: Multi-Line queries
| Date: | Thu, 10 May 2018 23:02:21 +0100
| From: | Michael Kennedy <Info@KennedySoftware.ie>
| Newsgroups: | pnews.paradox-dos
|
Bernie,
I collected some of the multi-line queries from one of my bigger apps,
and dropped them into a single .SC file, as attached.
If you glance through the file, it might give you an idea of the
multi-line stuff that I used in live apps, back about 20years ago...
- Mike
On 07/05/2018 15:54, Bernie van't Hof wrote:
> I didn't properly consider multi-line queries before so much
> head-scratching.
>
> Consider the following (not real!):
> query
>
> accnums | A/C# | Account Name |
> | _s | check |
>
> transact | A/C# | Amt | Src | Dest |
> | _a | >0 | _s | not _s |
> | _a | <0 | _s | _s |
>
> Clients | Client# | Co name |
> | _a | check |
>
> endquery
>
> and
>
> query
>
> transact | A/C# | Name
| Amt |
> | checkplus as a | CHECKPLUS "Fred, Martha or Tim" | >0 |
> | checkplus as a | checkplus fred |
<0 |
>
> endquery
> Do_It!
> clearall
>
> These are harmless enough and their intent pretty straightforward.
>
> But how far do I take this? What level of complexity is
> acceptable/common etc?
> What's the minimum rule set? We know pdox allows some pretty wild stuff,
> but chokes on others.
>
> Regards,
> Bernie
bernie.sc ;******************************************
; 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
|