home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / KFZ3.SC < prev    next >
Text File  |  1991-12-22  |  2KB  |  80 lines
  1. ; Kfz3
  2.  
  3.  
  4.  
  5. AppLib = "Kfz1"
  6. if (not isfile(AppLib + ".lib")) then
  7.   Createlib AppLib
  8. endif
  9.  
  10.  
  11. proc Kfz3Menu()
  12. private x, escape
  13.  
  14.   x = "Adressen"
  15.   while (TRUE)
  16.     Clear
  17.  
  18.     ShowMenu
  19.         "Adressen": "Kundenadressen eingeben,suchen und ändern",
  20.         "Positionen": "Rechnungspositionen für Aufträge und Kostenvoranschläge",
  21.         "Status": "Aus einem Kostenvoranschlag eine Rechnung erstellen",
  22.         "Leistung": "Dienstleistungen zu den einzelnen Aufträgen bzw. Kostenvora.",
  23.         "Aktualisieren": "Lagerbestand mit den Rechnungspositionen verrechnen",
  24.         "Sehen": "Rechnungen und Kostenvoranschläge sehen"
  25.       Default x
  26.       To x
  27.  
  28.     switch
  29.       case x = "Adressen":
  30.         ReadLib "Kfz2" Kfz4Menu
  31.         escape = Kfz4Menu()
  32.         escape = not escape
  33.         Release Procs Kfz4Menu
  34.  
  35.       case x = "Positionen":
  36.         ReadLib "Kfz2" Kfz5Menu
  37.         escape = Kfz5Menu()
  38.         escape = not escape
  39.         Release Procs Kfz5Menu
  40.  
  41.       case x = "Status":
  42.         Play "Statussw"
  43.         x = "Status"
  44.         escape = FALSE
  45.  
  46.       case x = "Leistung":
  47.         ReadLib "Kfz3" Kfz7Menu
  48.         escape = Kfz7Menu()
  49.         escape = not escape
  50.         Release Procs Kfz7Menu
  51.  
  52.       case x = "Aktualisieren":
  53.         Play "Laaktu"
  54.         x = "Aktualisieren"
  55.         escape = FALSE
  56.  
  57.       case x = "Sehen":
  58.         ReadLib "Kfz3" Kfz8Menu
  59.         escape = Kfz8Menu()
  60.         escape = not escape
  61.         Release Procs Kfz8Menu
  62.  
  63.       case x = "Esc":
  64.         return FALSE
  65.     endswitch
  66.  
  67.     ; Wert von ErrorProc zurücksetzen 
  68.     ErrorProc = "ApplicErrorProc"
  69.     ApplicErrorRetVal = FALSE
  70.  
  71.     if (not escape) then
  72.       return TRUE
  73.     endif
  74.   endwhile
  75. endproc
  76.  
  77. Writelib AppLib Kfz3Menu
  78. Release Procs Kfz3Menu
  79.  
  80.