home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / LEISEIN1.SC < prev    next >
Text File  |  1991-12-22  |  2KB  |  76 lines
  1. while (true); Schleife, die wiederholte Eingaben gestattet
  2.  
  3.   clear
  4.     @1,0 ?? "Welche Reparatur soll durchgeführt werden ?"
  5.     @1,55 ?? "Abbruch mit [ESC]"
  6.     @3,0 ?? "Bezeichnung des entsprechenden Kürzels eingeben:"
  7.     @4,0 ?? "Direkteingabe mit [1]!  "
  8.     clear eol
  9.     cursor bar
  10.     Accept "A10" to Leist    ;Eingabe des Leistungskürzels
  11.  
  12.     if retval = false
  13.             then quitloop
  14.     endif
  15.  
  16.     View "Leist1"
  17.     View "Dienste1"
  18.  
  19.     moveto [Kürzel]
  20.     locate pattern Leist
  21.  
  22.    If retval Then
  23.                  copytoarray rec      ;kopieren der gesuchten Leistung
  24.                  Moveto [leist1 ->]
  25.                  end
  26.  
  27.                  editkey
  28.                  down
  29.                  moveto [Leistung]
  30.                  copyfromarray rec
  31.  
  32.                  do_it!
  33.  
  34.      else beep
  35.          message Leist, "nicht vorhanden"
  36.     endif
  37.  
  38.   clearall
  39.  
  40. ;@ 1,0 ?? "Auftragsnummer zuteilen:"
  41. ;@ 3,0 ?? "Eingabe beenden mit [Enter]"
  42.    view "leist1"
  43.    end
  44.    Pickform 1   ;Tabelle im Formular Modus betrachten
  45.    moveto [Auftrag Nr.]
  46.   editkey
  47.   Wait Record
  48.          Prompt "Auftragsnummer zuteilen!",
  49.                 "Eingabe mit [Return] beenden!"
  50.   until "Enter"
  51.  
  52.   if retval = false then quitloop
  53.   endif
  54.  
  55. do_it!
  56.  
  57.  
  58. ;
  59.  
  60.    wait table
  61.        Prompt "Drücken Sie [F2] um die Eingabe zu beenden",
  62.               "Drücken Sie [F5] um eine weitere Eingabe zu machen"
  63.  
  64.    until "F2" , "F5"
  65.  
  66.   if retval = "F2"
  67.      then quitloop
  68.   endif
  69.  
  70.  
  71. endwhile
  72.  
  73. do_it!
  74.  
  75.  
  76.