home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKRRE.SBP < prev    next >
Encoding:
Text File  |  1989-09-24  |  2.5 KB  |  88 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKRRE
  4.   ╜   Stock Trading Balance report
  5.   ╜   Last updated Sep 20, 89
  6.   ╜   -----------------------------------------
  7.   │ _ wm99
  8.   ísktr% 1 wm0: ╜ If not first time then no need to open + dim
  9.   ┤ Ö"STOCKS"
  10.   ┤ Ö"TRANS"
  11.   ┤ Ö"CURRENCY"
  12.   ╫skt%(40),skt$(40)
  13.  
  14. m0:
  15.  sktr% 1
  16.  hd1$ "Stock Trading Balances at "  ( Q,"mmm dd,yy") "     "
  17.  hd12$ "Ref: STKRRE"
  18.  hd2$ "Stock Key                Company                              Stock Type"
  19.  hd3$ "Date      b/s Ref    Quantity  Curr units      Price  US$ Value  Commission    Total Due"
  20.  hd4$ "--------- --- ------ --------  ----------  ---------  ---------  ----------  -----------"
  21.  ms3$ "Do you wish to reprint?"
  22.  
  23. m1: 
  24.   ┬"REPORT TO PRINTER?","",134,a%
  25.   ía% 0 p wm2  ^ ía% 1 p ╣;
  26.  
  27.   ┴USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  28.   } ┴
  29.   {@52;"   =========  ==========  ==========="
  30.   {@1;"Totals for Stock Trading Balance Report";@53;&12 lUSD Value.TRANS;&11 lComm_Value.TRANS;@78;&12 lTotal_Due.TRANS
  31.   {@52;"   =========  ==========  ==========="
  32.  
  33.  tkt%  lComm_Value.TRANS:hd2$ "":hd3$ "":hd4$ ""
  34.   æ: {
  35.   {@1; ╘;"Commissions by Stock   "; ╘ e;@33;"Commission  % of total"
  36.   {@33;"----------  ----------"
  37.   ¢i% 1 qsktr% 1
  38.  {skt$(i%);@32;&11skt%(i%);@47; (skt%(i%) 100 tkt%,"999.00%")
  39.   ▒i%
  40.   {@33;"==========  =========="
  41.   {@32;&11tkt%;@47; (100,"999.00%")
  42.   {@33;"==========  =========="
  43.  
  44.   Æ ┴
  45.  
  46.   ƒ
  47.   {@1; ╘;hd1$; ╘ e;@65;hd12$
  48.   {
  49.   {@1;hd2$
  50.   {@1;hd3$
  51.   {@1;hd4$
  52.   Æ ƒ
  53.  
  54.   ₧Stock_Key.TRANS,USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  55.   Ç ₧Stock_Key.TRANS
  56.   {
  57.   {@1;&24Stock_Key.TRANS;@26;&36Company Name.STOCKS;@63;&16Stock_Type.STOCKS
  58.   Æ ₧
  59.  
  60.   } ₧Stock_Key.TRANS
  61.   {@52;"   ---------  ----------  -----------"
  62.   {@1;"Totals for ";@13;&15 ₧;@53;&12 lUSD Value.TRANS;&11 lComm_Value.TRANS;@78;&12 lTotal_Due.TRANS
  63.   {@52;"   ---------  ----------  -----------"
  64.  skt%(sktr%)  lcomm_value.TRANS:skt$(sktr%)  ₧
  65.  sktr% sktr% 1
  66.   Æ ₧
  67.  
  68.   ╔@1;&10Trans_Date.TRANS;@12;&1Trans_Type.TRANS;@14;&7Transaction ref.TRANS;@22;&9Quantity.TRANS;
  69.  @32;&8Units.CURRENCY;@41;&12Stock_Price.TRANS;@54;&10USD Value.TRANS;@65;&11Comm_Value.TRANS;@78;&11Total_Due.TRANS
  70.   ╨Stock_Key.TRANS Stock_Key.STOCKS  Currency.CURRENCY Currency.TRANS
  71.   ╡Stock_Key.TRANS,Transaction ref.TRANS
  72.  
  73. m2: 
  74.   ┬ms3$,"",1,a%
  75.   ía% 1 p wm0
  76.  RET% 1: ä"stkm"
  77.  
  78. m99: ╜ On error
  79.   í & 27 p
  80.  ┬"Report line too long for printer","Try using a smaller font",0,a%
  81.   ^
  82.  ┬ (( &),"",2,a%
  83.   Æ í
  84.   ym2 
  85.  
  86.  
  87.  
  88.