home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / KFZ2.SC < prev    next >
Text File  |  1991-12-22  |  2KB  |  82 lines
  1. ; Kfz2
  2.  
  3.  
  4.  
  5. AppLib = "Kfz1"
  6. if (not isfile(AppLib + ".lib")) then
  7.   Createlib AppLib
  8. endif
  9.  
  10.  
  11. proc Kfz2S4()
  12. private opResult
  13.  
  14.   Readlib "Kfzutl"  ViewTable, ToggleForm, VwFldView, 
  15.         HelpKey
  16.  
  17.   opResult = ViewTable("Lager1", "Lager1", "1", TRUE)
  18.  
  19.   Release Procs ViewTable, ToggleForm, VwFldView, 
  20.         HelpKey
  21.  
  22.   return opResult
  23. endproc
  24.  
  25. Writelib AppLib Kfz2S4
  26. Release Procs Kfz2S4
  27.  
  28. proc Kfz2Menu()
  29. private x, escape
  30.  
  31.   x = "Eingabe"
  32.   while (TRUE)
  33.     Clear
  34.  
  35.     ShowMenu
  36.         "Eingabe": "Neue Artikel eingeben",
  37.         "Ändern": "Bestehende Artikel ändern",
  38.         "Bestelliste sehen": "Bestelliste ansehen",
  39.         "Bestand": "Alle Artikel ansehen"
  40.       Default x
  41.       To x
  42.  
  43.     switch
  44.       case x = "Eingabe":
  45.         Play "Neuart"
  46.         x = "Eingabe"
  47.         escape = FALSE
  48.  
  49.       case x = "Ändern":
  50.         Play "Lagersu"
  51.         x = "Ändern"
  52.         escape = FALSE
  53.  
  54.       case x = "Bestelliste sehen":
  55.         Play "Bestels"
  56.         x = "Bestelliste sehen"
  57.         escape = FALSE
  58.  
  59.       case x = "Bestand":
  60.         ReadLib "Kfz1" Kfz2S4
  61.         escape = Kfz2S4()
  62.         escape = not escape
  63.         Release Procs Kfz2S4
  64.  
  65.       case x = "Esc":
  66.         return FALSE
  67.     endswitch
  68.  
  69.     ; Wert von ErrorProc zurücksetzen 
  70.     ErrorProc = "ApplicErrorProc"
  71.     ApplicErrorRetVal = FALSE
  72.  
  73.     if (not escape) then
  74.       return TRUE
  75.     endif
  76.   endwhile
  77. endproc
  78.  
  79. Writelib AppLib Kfz2Menu
  80. Release Procs Kfz2Menu
  81.  
  82.