home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKRCE.SBP < prev    next >
Encoding:
Text File  |  1989-09-24  |  1.4 KB  |  60 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKRCE
  4.   ╜   Cash Audit report
  5.   ╜   Last updated Sep 20, 89
  6.   ╜   -----------------------------------------
  7.   │ _ wm99
  8.   ┤ Ö"AUDIT"
  9.   ┤ Ö"CLIENTS"
  10.  hd1$ "Cash Audit report at "  ( Q,"mmm dd,yy") "     "
  11.  hd12$ "Ref: STKRCE"
  12.  ms3$ "Do you wish to reprint?"
  13.  
  14. m1: 
  15.   ┬"REPORT TO PRINTER?","",134,a%
  16.   ía% 0 p wm2  ^ ía% 1 p ╣;
  17.  
  18.   ┴Amount.AUDIT
  19.   } ┴
  20.   {
  21.   {@1;"Net Cash Received/Paid:";@66;&13 lAmount.AUDIT
  22.   Æ ┴
  23.  
  24.   ƒ
  25.   {@1; ╘;hd1$; ╘ e;@66;hd12$
  26.   {
  27.   {@1;"Date       Seq no Client   Name                 R/P Client Ref        Amount "
  28.   {@1;"---------- ------ -------- ---------------------- - ------------ -----------"
  29.   Æ ƒ
  30.  
  31.   ₧Trans_Date.AUDIT
  32.   } ₧Trans_Date.AUDIT
  33.   {
  34.   Æ ₧
  35.  
  36.   ╔@1;&10Trans_Date.AUDIT;@12;&6Serial.AUDIT;@19;&8Client.AUDIT;@28;&23Client.CLIENTS;&1Trans_Type.AUDIT;
  37.  @53;&12Reference.AUDIT;@66;&11Amount.AUDIT
  38.   ╨Client.AUDIT Customer_Ref.CLIENTS  printed_yn.AUDIT "n"
  39.   ╡Trans_Date.AUDIT
  40.  
  41. m2: 
  42.   ┬"Has output been correctly printed?","",1,a%
  43.   ía% 0 p
  44.  ┬"Do you wish to reprint?","",1,a%
  45.  ía% 1 p wm1
  46.   ^
  47.  ═Printed_yn.AUDIT "y" ╨Printed_yn.AUDIT "n"
  48.  Æ ═
  49.   Æ í
  50.  RET% 1: ä"stkm"
  51.  
  52. m99: ╜ On error
  53.   í & 27 p
  54.  ┬"Report line too long for printer","Try using a smaller font",0,a%
  55.   ^
  56.  ┬ (( &),"",2,a%
  57.   Æ í
  58.   ym2 
  59.  
  60.