home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / KFZ11.SC < prev    next >
Text File  |  1993-12-01  |  1KB  |  58 lines
  1. ; Kfz11
  2.  
  3.  
  4.  
  5. AppLib = "Kfz4"
  6. if (not isfile(AppLib + ".lib")) then
  7.   Createlib AppLib
  8. endif
  9.  
  10.  
  11. proc Kfz11Menu()
  12. private x, escape
  13.  
  14.   x = "Kundenübersicht"
  15.   while (TRUE)
  16.     Clear
  17.  
  18.     ShowMenu
  19.         "Kundenübersicht": "Umsatz nach Kunden aufgeteilt",
  20.         "Kundenübers. drucken": "Kundenübers. drucken Option",
  21.         "Kundenübers. Zeitra.": "Kundenübersicht in einem ausgewählten Zeitraum"
  22.       Default x
  23.       To x
  24.  
  25.     switch
  26.       case x = "Kundenübersicht":
  27.         Play "Kustat1"
  28.         x = "Kundenübersicht"
  29.         escape = FALSE
  30.  
  31.       case x = "Kundenübers. drucken":
  32.         Play "Kustatd"
  33.         x = "Kundenübers. drucken"
  34.         escape = FALSE
  35.  
  36.       case x = "Kundenübers. Zeitra.":
  37.         Play "Zeitr1"
  38.         x = "Kundenübers. Zeitra."
  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 Kfz11Menu
  56. Release Procs Kfz11Menu
  57.  
  58.