home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / KFZ1.SC < prev    next >
Text File  |  1993-12-01  |  2KB  |  91 lines
  1. ; Kfz1
  2.  
  3.  
  4.  
  5. AppLib = "Kfz1"
  6. if (not isfile(AppLib + ".lib")) then
  7.   Createlib AppLib
  8. endif
  9.  
  10.  
  11. proc Kfz1Menu()
  12. private x, escape, zzzmexit, zzzzexit, pword
  13.  
  14.   zzzzexit = FALSE
  15.   x = "Lager"
  16.   while (TRUE)
  17.     Clear
  18.  
  19.     ShowMenu
  20.         "Lager": "Artikel eingeben,ändern,Bestellisten ausdrucken",
  21.         "Auftrag": "Kundendaten bearbeiten,Rechnungen bearbeiten",
  22.         "Kostenvoranschlag": "Kostenvoranschläge bearbeiten",
  23.         "Statistik": "Kundeninformationen, Fahrzeuginformationen (TÜV)",
  24.         "System": "Softwareeinstellungen,Datensicherung",
  25.         "Ende": "Anwendung verlassen"
  26.       Default x
  27.       To x
  28.  
  29.     switch
  30.       case x = "Lager":
  31.         ReadLib "Kfz1" Kfz2Menu
  32.         escape = Kfz2Menu()
  33.         escape = not escape
  34.         Release Procs Kfz2Menu
  35.  
  36.       case x = "Auftrag":
  37.         ReadLib "Kfz1" Kfz3Menu
  38.         escape = Kfz3Menu()
  39.         escape = not escape
  40.         Release Procs Kfz3Menu
  41.  
  42.       case x = "Kostenvoranschlag":
  43.         ReadLib "Kfz2" Kfz4Menu
  44.         escape = Kfz4Menu()
  45.         escape = not escape
  46.         Release Procs Kfz4Menu
  47.  
  48.       case x = "Statistik":
  49.         ReadLib "Kfz2" Kfz5Menu
  50.         escape = Kfz5Menu()
  51.         escape = not escape
  52.         Release Procs Kfz5Menu
  53.  
  54.       case x = "System":
  55.         ReadLib "Kfz2" Kfz6Menu
  56.         escape = Kfz6Menu()
  57.         escape = not escape
  58.         Release Procs Kfz6Menu
  59.  
  60.       case x = "Ende":
  61.     ShowMenu
  62.         "Nein": "Anwendung nicht verlassen.",
  63.         "Ja": "Anwendung verlassen."
  64.      To zzzmexit
  65.  
  66.     zzzzexit = (zzzmexit = "Ja")
  67.     escape = (zzzmexit = "Esc")
  68.  
  69.       case x = "Esc":
  70.         escape = FALSE
  71.     endswitch
  72.  
  73.     Reset
  74.     ; Wert von ErrorProc zurücksetzen 
  75.     ErrorProc = "ApplicErrorProc"
  76.     ApplicErrorRetVal = FALSE
  77.  
  78.     if (zzzzexit) then
  79.       return TRUE
  80.     endif
  81.  
  82.     if (not escape) then
  83.       x = "Lager"
  84.     endif
  85.   endwhile
  86. endproc
  87.  
  88. Writelib AppLib Kfz1Menu
  89. Release Procs Kfz1Menu
  90.  
  91.