home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKDR.SBP < prev    next >
Encoding:
Text File  |  1989-09-14  |  1.1 KB  |  56 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKDR
  4.   ╜   Enter Cash Receipts and Payments
  5.   ╜   Last updated Sep 14, 89
  6.   ╜   -----------------------------------------
  7.  
  8.  ms1$ "Is entry correct?"
  9.  ms2$ "Enter another?"
  10.   Γ e: │ _ wm99
  11.  
  12.   ┬"This enters new cash receipts or payments","",1,a%
  13.   ía% 0 pret% 1: ä"stkm"
  14.  
  15.   ┤ Ö"audit"
  16.   ┤ £"stkdr"
  17.  
  18. m1:  ╜ Enter new transaction
  19.   ü £
  20.   ímb% 4 pms3$ "Receipts":ms4$ "Payments":Trans_Type.AUDIT "r"
  21.   ímb% 5 pms4$ "Receipts":ms3$ "Payments":Trans_Type.AUDIT "p"
  22.   ▀ │: ö: ▀ e
  23.  
  24. m11: 
  25.   íAmount.AUDIT 0 p wm12
  26.   ┬"Amount must be positive","Else use " ms4$ " routine",2,a%
  27.   ö10
  28.   wm11
  29.  
  30. m12: 
  31.   ┬ms1$,"",1,a%
  32.   ía% 0 p wm1
  33.  Trans_Date.AUDIT  Q:Printed_yn.AUDIT "n"
  34.   ímb% 5 pAmount.AUDIT Amount.AUDIT  1
  35.   ╠
  36.  
  37.   Ö"clients"
  38.   ╔ ÑClient.AUDIT
  39.  Cash_Receipts.CLIENTS Cash_Receipts.CLIENTS Amount.AUDIT
  40.   ╠
  41.  
  42.   Ö"AUDIT"
  43.   ┬ms2$,"",1,a%
  44.   ía% 1 p wm1
  45.  
  46. m26:  ╜ Exit
  47.   å £
  48.  ret% 1: ä"stkm"
  49.  
  50. m99:  ╜ Error conditions
  51.   ┬ (( &),"Press OK to make another selection",1,a%
  52.   ía% 1 p ym1 
  53.   Æ
  54.  
  55.  
  56.