home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKFC.SBP < prev    next >
Encoding:
Text File  |  1989-05-31  |  1.9 KB  |  115 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKFC
  4.   ╜   Maintain Clients
  5.   ╜   Last updated Sep 20, 89
  6.   ╜   -----------------------------------------
  7.  
  8.  ms1$ "Is entry correct?"
  9.  ms2$ "Continue with data entry?"
  10.  ms3$ "Select another record?"
  11.   Γ e: │ _ wm99
  12.   Ö"CLIENTS"
  13.   úCustomer_Ref
  14.  
  15. m0: ╜ Decide which type of form
  16.  a$ "c":sho% 0
  17.   ┬"Enter choice of form","(c)olor screen-oriented or (m)onochrome report-oriented",4,a%,a$,1
  18.   ía% 0 p wm25
  19.  a$  =(a$)
  20.   ía$ "c" p
  21.  ┤ £"stkc"
  22.   ^ ía$ "m" p
  23.  ┤ £"stkc2"
  24.   ^
  25.  wm0
  26.   Æ í
  27.   wm11
  28.  
  29. m1:
  30.   ísho% 1 p ╚
  31.   ía$ "c" p £1 ^ £ ╚
  32.  
  33. m11: ╜ Wait here for a push button to be clicked
  34.   ╧ ▀
  35.   wm11
  36.  
  37. m21: ╜ Enter new record
  38.   ü £
  39.  Class.CLIENTS "P"
  40.   ▀ │: ö: ▀ e
  41.   ┬ms1$,"",1,a%
  42.   ía% 0 p
  43.  ü £
  44.   ^
  45.  ╠
  46.  ┬ms2$,"",1,a%
  47.  ía% 1 p wm21 
  48.   Æ í
  49.   ╔ ÑCustomer_Ref.CLIENTS
  50.   wm1
  51.  
  52. m22: ╜ Edit existing record
  53.   ▀ │: ö:  ▀ e
  54.   ┬ms1$,"",1,a%: ía% 0 p wm1
  55.   ╠: ┬ms3$,"",1,a%
  56.   ía% 1 p wm24  ^ wm1
  57.  
  58. m23: ╜ Delete
  59.   ╜: Should really check here for related transactions
  60.   ┬"Deleting client record","Are you sure?",1,a%
  61.   ía% 0 p wm1
  62.   ╔ ╛
  63.   wm1
  64.  
  65. m24: ╜ Browse
  66.   vm291: ╜ Select index for browsing
  67.   ía% 0 p wm11
  68.  
  69. m241: 
  70.   │ _ wm242
  71.   ╧ Γ: Γ e: ía$ "c" psho% 1
  72.   │ _ wm99
  73.   wm1
  74.  
  75. m242: ╜ Panel errors
  76.   ┬ (( &),"",2,a%
  77.   ╔ Y: ym241
  78.  
  79. m25: ╜ Exit
  80.   å £: ╔ ╨
  81.  ret% 1: ä"stkm"
  82.  
  83. m29: ╜ Print
  84.  b$ "c"
  85.   ┬"Print (c)urrent record, (s)elected or (a)ll records","",4,a%,b$,1
  86.   ía% 0 p wm1
  87.  b$  =(b$)
  88.   íb$ "c" p ╣ Y: wm1 
  89.   vm291
  90.   íb$ "s" p ╔ £ ╨ ~
  91.   ╔ £ `
  92.   ╪ O B("clients")
  93.  ╣ Y
  94.  ╔ £ ▒
  95.   ┘
  96.   Å;: ╔ ╨: wm1
  97.  
  98. m291: ╜ Select index
  99.  ind$ "Customer_Ref"
  100.   ┬"Select index","",7,a%,ind$
  101.   ía% 0 p ├
  102.   úind$: ╔ `: ├
  103.  
  104. m99: ╜ Error conditions
  105.   í & 57 p
  106.  ┬"Record already exists with this key","",2,a%
  107.  ym1 
  108.   ^
  109.  ┬ (( &),"Press OK to make another selection",1,a%
  110.  ía% 1 p ym1 
  111.   Æ í
  112.   ym25 
  113.  
  114.  
  115.