home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / LAGERSU.SC < prev    next >
Text File  |  1993-12-01  |  1KB  |  56 lines
  1. view "Lager1"
  2. clear eol
  3.  
  4. @1,0 ?? "Lassen Sie sich registrieren um diese lästigen Texte und"
  5. @2,0 ?? "Zeitverzögerungen auszuschalten. Auf der DOS Ebene einfach"
  6. @3,0 ?? "[Regis] eintippen und Sie erhalten das Formular."
  7. sleep 7000
  8. clear 
  9.  
  10.  
  11. @1,0 ?? "Nach Artikelnummer suchen [N] oder nach Artikelbezeichnung [A] :"
  12.   Accept "A1" to Wahl
  13.  
  14.  
  15.  
  16. Switch
  17.  
  18.         case Wahl = "N" OR Wahl = "n" :
  19.             @2,0 ?? "Artikelnummer angeben: "
  20.              Accept "N" to suchart
  21.                 right
  22.                  locate suchart
  23.  
  24.  
  25.         case Wahl = "A" or Wahl = "a" :
  26.             @2,0 ?? "Artikelbezeichnung angeben:"
  27.              Accept "A25" to artbez
  28.                 right
  29.                 right
  30.                 right
  31.                 locate artbez
  32.  
  33. Endswitch
  34.  
  35. Pickform 1      ;Formularsicht wählen
  36.  
  37. editkey         ;editieren des Records
  38. Wait Record
  39. Prompt "Bearbeiten abschließen mit [F2] !"
  40. Until "F2"
  41. Do_it!
  42.  
  43. Wait record                          ;Sicht konservieren
  44.  
  45. Prompt "Beenden mit  [ESC] !"
  46. until "ESC"
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.