home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
demdat.zip
/
STKRBE.SBP
< prev
next >
Wrap
Text File
|
1990-02-08
|
2KB
|
71 lines
SBP
╜ STKRBE
╜ Client Trading Balance Report
╜ Last updated Jan 21, 90
│ _ wrerror
hd1$ "Client Trading Balances at " ( Q,"mmm dd,yy")
hd12$ "Ref: STKRBE"
m1:
┴USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
} ┴
{@52;" ========= ========== ==========="
{@1;"Totals for Client Trading Balance Report";@54;&6.2 lUSD Value.TRANS;@67;&11 lComm_Value.TRANS;@79;&6.2 lTotal_Due.TRANS
{@52;" ========= ========== ==========="
Æ ┴
ƒ
{@1;hd1$;@66;hd12$
{
{@1;"Client ref Name Location Telephone "
{@1;"Date b/s Ref Quantity Curr units Price US$ Value Commission Total Due"
{@1;"--------- --- ------ -------- ---------- --------- --------- ---------- -----------"
Æ ƒ
₧Customer_Ref.TRANS,USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
Ç ₧Customer_Ref.TRANS
{
{@1;&8Customer_Ref.TRANS;@10;&24Client.CLIENTS;@35;&30Location.CLIENTS;@66;&3Dialcode.COUNTRY;@70;&16Telephone.CLIENTS
Æ ₧
} ₧Customer_Ref.TRANS
{@54;" --------- ---------- ------------"
{@1;"Totals for ";&15 ₧;@55;&12 lUSD Value.TRANS;&11 lComm_Value.TRANS;@80;&12 lTotal_Due.TRANS
{@55;"--------- ---------- ------------"
Æ ₧
╔@1;&10Trans_Date.TRANS;@12;&1Trans_Type.TRANS;@14;&7Transaction ref.TRANS;@22;&9Quantity.TRANS;
@32;&8Units.CURRENCY;@41;&12Stock_Price.TRANS;@54;&10USD Value.TRANS;@65;&11Comm_Value.TRANS;@78;&11Total_Due.TRANS
╨Currency.TRANS Currency.CURRENCY Customer_Ref.CLIENTS Customer_Ref.TRANS Name.COUNTRY Country.CLIENTS
╡Customer_Ref.TRANS,Transaction ref.TRANS
m2:
íp$ "d" p
╩ ╦ss14$
╧ Ñ ▀
Æ í
repeat:
┬ms3$,"",135,a%
ía% 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
É