home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKRBE.SBP < prev    next >
Encoding:
Text File  |  1989-09-24  |  2.1 KB  |  67 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKRBE
  4.   ╜   Client Trading Balance Report
  5.   ╜   Last updated Sep 20, 89
  6.   ╜   -----------------------------------------
  7.   │ _ wm99
  8.   ┤ Ö"TRANS"
  9.   ┤ Ö"CURRENCY"
  10.   ┤ Ö"CLIENTS"
  11.   ┤ Ö"COUNTRY"
  12.  hd1$ "Client Trading Balances at "  ( Q,"mmm dd,yy") "     "
  13.  hd12$ "Ref: STKRBE"
  14.  ms3$ "Do you wish to reprint?"
  15.  
  16. m1: 
  17.   ┬"REPORT TO PRINTER?","",134,a%
  18.   ía% 0 p wm2  ^ ía% 1 p ╣;
  19.  
  20.   ┴USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  21.   } ┴
  22.   {@52;"   =========  ==========  ==========="
  23.   {@1;"Totals for Client Trading Balance Report";@53;&12 lUSD Value.TRANS;&11 lComm_Value.TRANS;@78;&12 lTotal_Due.TRANS
  24.   {@52;"   =========  ==========  ==========="
  25.   Æ ┴
  26.  
  27.   ƒ
  28.   {@1; ╘;hd1$; ╘ e;@66;hd12$
  29.   {
  30.   {@1;"Client ref Name                   Location                       Telephone "
  31.   {@1;"Date      b/s Ref    Quantity  Curr units      Price  US$ Value  Commission    Total Due"
  32.   {@1;"--------- --- ------ --------  ----------  ---------  ---------  ----------  -----------"
  33.   Æ ƒ
  34.  
  35.   ₧Customer_Ref.TRANS,USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  36.   Ç ₧Customer_Ref.TRANS
  37.   {
  38.   {@1;&8Customer_Ref.TRANS;@10;&24Client.CLIENTS;@35;&30Location.CLIENTS;@66;&3Dialcode.COUNTRY;@70;&16Telephone.CLIENTS
  39.   Æ ₧
  40.  
  41.   } ₧Customer_Ref.TRANS
  42.   {@54;" ---------  ----------  ------------"
  43.   {@1;"Totals for ";&15 ₧;@53;&12 lUSD Value.TRANS;&11 lComm_Value.TRANS;@78;&12 lTotal_Due.TRANS
  44.   {@55;"---------  ----------  ------------"
  45.   Æ ₧
  46.  
  47.   ╔@1;&10Trans_Date.TRANS;@12;&1Trans_Type.TRANS;@14;&7Transaction ref.TRANS;@22;&9Quantity.TRANS;
  48.  @32;&8Units.CURRENCY;@41;&12Stock_Price.TRANS;@54;&10USD Value.TRANS;@65;&11Comm_Value.TRANS;@78;&11Total_Due.TRANS
  49.   ╨Currency.TRANS Currency.CURRENCY  Customer_Ref.CLIENTS Customer_Ref.TRANS  Name.COUNTRY Country.CLIENTS
  50.   ╡Customer_Ref.TRANS,Transaction ref.TRANS
  51.  
  52. m2: 
  53.   ┬ms3$,"",1,a%
  54.   ía% 1 p wm1
  55.  RET% 1: ä"stkm"
  56.  
  57. m99: ╜ On error
  58.   í & 27 p
  59.  ┬"Report line too long for printer","Try using a smaller font",0,a%
  60.   ^
  61.  ┬ (( &),"",2,a%
  62.   Æ í
  63.   ym2 
  64.  
  65.  
  66.  
  67.