home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
demdat.zip
/
STKRCE.SBP
< prev
next >
Wrap
Text File
|
1990-02-08
|
2KB
|
78 lines
SBP
╜ STKRCE
╜ Cash Audit report
╜ Last updated Jan 21, 90
│ _ wrerror
┤ Ö"cash"
hd1$ "Cash Audit report at " ( Q,"mmm dd,yy")
hd12$ "Ref: STKRCE"
m1:
┴Signed_Amt.CASH
} ┴
{@64;"============"
{@1;"Net Cash Received:";@67;&12 lSigned_Amt.CASH
{@64;"============"
Æ ┴
ƒ
{@1;"Cash Audit Report at";@22;&15 ( Q,"mmm dd,yy");@65;"Ref: STKRC"
{
{@1;"Date Ref Client Name Cash ref Amount "
{@1;"----------- ---- -------- ------------------------ ------------ -----------"
Æ ƒ
₧Batch_ref.CASH,Signed_Amt.CASH
Ç ₧Batch_ref.CASH
{@1;"Batch reference:";@18;&6Batch_ref.CASH;@27;"Date:";@33;&10Batch_date.CASH;@45;"Type:";@51;&8Trans_Desc.CASH
Æ ₧
} ₧Batch_ref.CASH
{@64;"============"
{@1;"Batch total:";@67;&12 lSigned_Amt.CASH
{
Æ ₧
╔@1;&10Trans_date.CASH;@13;&5Trans_ref.CASH;@18;&8Client.CASH;@27;&24Client.CLIENTS;
@52;&12Cash_ref.CASH;@65;&11Signed_Amt.CASH
╨Client.CASH Customer_Ref.CLIENTS Printed_yn.CASH "n"
╡Batch_ref.CASH
m2:
íp$ "d" p
╩ ╦ss14$
╧ Ñ ▀
Æ í
repeat:
b% 0
┬ms4$,"",130,a%
í(a% 0 p$ "p") p
═Printed_yn.CASH "y" ╨Printed_yn.CASH "n"
Æ ═
^
┬ms3$,"",135,b%
Æ í
íb% 0 p wrexit
íp$ "p" p ╣;
wm1
rexit:
ä"menu"
rerror: ╜ On error
res% 0
í & 11 p
┬ms21$,ms22$,130,a%: ía% 1 pres% 1
^ í & 27 p
┬ms11$,ms12$,100,a%:res% 2
^
┬ (( &),"",113,a%:res% 1
Æ í
íres% 1 p yrepeat
íres% 2 p yrexit
É