home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / KFZ10.SC < prev    next >
Text File  |  1991-12-22  |  1KB  |  58 lines
  1. ; Kfz10
  2.  
  3.  
  4.  
  5. AppLib = "Kfz4"
  6. if (not isfile(AppLib + ".lib")) then
  7.   Createlib AppLib
  8. endif
  9.  
  10.  
  11. proc Kfz10Menu()
  12. private x, escape
  13.  
  14.   x = "TÜV Abfrage"
  15.   while (TRUE)
  16.     Clear
  17.  
  18.     ShowMenu
  19.         "TÜV Abfrage": "Datum eingeben um Kunden mit TÜV fälligen Fahrzeugen zu seh.",
  20.         "Kundenübersicht": "Anzeige aller Kundenrechnungen",
  21.         "Umsatz sehen": "Umsatz ansehen"
  22.       Default x
  23.       To x
  24.  
  25.     switch
  26.       case x = "TÜV Abfrage":
  27.         Play "Tuev"
  28.         x = "TÜV Abfrage"
  29.         escape = FALSE
  30.  
  31.       case x = "Kundenübersicht":
  32.         Play "Kustat1"
  33.         x = "Kundenübersicht"
  34.         escape = FALSE
  35.  
  36.       case x = "Umsatz sehen":
  37.         Play "Zeitr1"
  38.         x = "Umsatz sehen"
  39.         escape = FALSE
  40.  
  41.       case x = "Esc":
  42.         return FALSE
  43.     endswitch
  44.  
  45.     ; Wert von ErrorProc zurücksetzen 
  46.     ErrorProc = "ApplicErrorProc"
  47.     ApplicErrorRetVal = FALSE
  48.  
  49.     if (not escape) then
  50.       return TRUE
  51.     endif
  52.   endwhile
  53. endproc
  54.  
  55. Writelib AppLib Kfz10Menu
  56. Release Procs Kfz10Menu
  57.  
  58.