home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / LAGERSU.SC < prev    next >
Text File  |  1991-12-22  |  1KB  |  71 lines
  1. view "Lager1"
  2. clear eol
  3.  
  4.  
  5. while (true)
  6.  
  7. @1,0 ?? "Abbruch mit [ESC] !"
  8. @2,0 ?? "Nach Artikelnummer suchen [N] oder nach Artikelbezeichnung [A] :"
  9.   cursor bar
  10.   Accept "A1" to Wahl
  11.   if retval = false then
  12.   quitloop
  13.   endif
  14.  
  15. Switch
  16.  
  17.         case Wahl = "N" OR Wahl = "n" :
  18.             @4,0 ?? "Artikelnummer angeben: "
  19.              Accept "A15" to suchart
  20.                 moveto [Art.Nr.]
  21.                  locate suchart
  22.                 if retval = false then
  23.                  beep
  24.                  message "Artikelnummer nicht vorhanden !"
  25.                  sleep 3000
  26.                  quitloop
  27.                 endif
  28.  
  29.  
  30.         case Wahl = "A" or Wahl = "a" :
  31.             @4,0 ?? "Artikelbezeichnung angeben:"
  32.              Accept "A80" to artbez
  33.                 moveto [Artikel]
  34.                 locate artbez
  35.  
  36. Endswitch
  37.  
  38. Pickform 1      ;Formularsicht wählen
  39.  
  40. editkey         ;editieren des Records
  41.  
  42. Wait table
  43. Prompt "Bearbeiten abschließen mit [F2] !       Blättern mit den Bildtasten !",
  44.        "Wiederholung mit [F5] !"
  45. Until "F2","F5"
  46.  
  47. if retval = "F2"
  48. then quitloop
  49. endif
  50.  
  51. ;Do_it!
  52.  
  53. ;Wait record                          ;Sicht konservieren
  54.  
  55. ;Prompt "Beenden mit  [ESC] !"
  56. ;until "ESC"
  57.  
  58. clearall
  59. clear
  60.  
  61. endwhile
  62. do_it!
  63. clearall
  64. clear
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.