home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / INVENTRY / SUPCNTRL.SBP < prev    next >
Encoding:
Text File  |  1989-08-27  |  1.5 KB  |  78 lines
  1. SBP
  2.   ╜ supplier control program
  3.  
  4. supmenu: 
  5.   Γ e
  6.   ┤ £"supmenu"
  7.   vsetup 
  8.   Æ
  9.  
  10. setup: 
  11.   ╜ ******************************************************************** 
  12.   ╜ this next block of code repeated  in setup to get round a feature/bug
  13.   ╜ that push button plus open form seems to turn these commands off
  14.   ╩ É e
  15.   │ _ wsuperrtrap
  16.   ╜ ********************************************************************
  17.   ├
  18.  
  19.   Æ
  20.  
  21. stend:  å £: Æ: ╜ Testing phase
  22.  
  23.  
  24.   ╜ *************************************************************
  25.   ╜ Suppliers Processing: Entry, Amend and View
  26.   ╜ *************************************************************
  27.  
  28. suppent: 
  29.   ╜              *** pushbutton clicked from Suppliers menu ***
  30.   ╜              ***         Add a New Supplier         ***
  31.  
  32.   ┤ £"supmaint"
  33.   vsetup
  34.   ü £
  35.   ö1,0
  36.   Æ
  37.  
  38.  
  39. suppedit: 
  40.   ╜              ***  pushbutton clicked on SUPMENU ***
  41.   ╜              ***  OR pushbutton on SUPVIEW      ***
  42.  
  43.  key1$ Supplier_code.Supplier
  44.   Γ e 
  45.   ┤ £"supmaint"
  46.   vsetup
  47.   ╔ £ Ñkey1$
  48.   £
  49.   Æ
  50.  
  51.  
  52. suppview:
  53.   ╜              ***  pushbutton clicked on menu or SUPMAINT ***
  54.   ╜              ***        Browse file                  ***
  55.  
  56.   Γ │
  57.   ┤ £"supview"
  58.   vsetup
  59.   ╔ £ Ñkey1$
  60.   £
  61.   Æ
  62.  
  63.  
  64. stkcntrl: 
  65.   ╜              ***  pushbutton clicked on menu ***  
  66.   ╜              ***  Return to Stock Menu   ***
  67.  
  68.   ¿"stkcntrl"
  69.   Æ
  70. superrtrap:  í & 11 p ysupmenu
  71.   í & 50 p ysupmenu
  72.  
  73.  
  74.   ┬"Error no"  ( &,"9999"), (( &),2,a%
  75.   Æ
  76.  
  77.  
  78.