home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / KFZ7.SC < prev    next >
Text File  |  1993-12-01  |  2KB  |  102 lines
  1. ; Kfz7
  2.  
  3.  
  4.  
  5. AppLib = "Kfz3"
  6. if (not isfile(AppLib + ".lib")) then
  7.   Createlib AppLib
  8. endif
  9.  
  10.  
  11. proc Kfz7S1()
  12. private opResult
  13.  
  14.   Readlib "Kfzutl" EntryTable, KECheck, ToggleForm, 
  15.         EdFldView, HelpKey, EntryCancel, EntryDoIt, 
  16.         RenamePre, RenameSet, SaveList, CreateList, 
  17.         PrintList
  18.  
  19.   opResult = EntryTable("Auftrag", "", "1", TRUE)
  20.  
  21.   Release Procs EntryTable, KECheck, ToggleForm, 
  22.         EdFldView, HelpKey, EntryCancel, EntryDoIt, 
  23.         RenamePre, RenameSet, SaveList, CreateList, 
  24.         PrintList
  25.  
  26.   return opResult
  27. endproc
  28.  
  29. Writelib AppLib Kfz7S1
  30. Release Procs Kfz7S1
  31.  
  32. proc Kfz7S2()
  33. private opResult
  34.  
  35.   Readlib "Kfzutl" EditTable, ToggleForm, EdFldView, 
  36.         HelpKey, EditCancel, SEditDoIt, SEditDelIns
  37.  
  38.   opResult = EditTable("Auftrag", "Auftrag", "", "1", TRUE, 
  39.             "SEditDoIt", "SEditDelIns", 
  40.             "[Ins] - Einen Record einfügen, [Del] - Einen Record löschen",
  41.             FALSE, FALSE, FALSE)
  42.  
  43.   Release Procs EditTable, ToggleForm, EdFldView, 
  44.         HelpKey, EditCancel, SEditDoIt, SEditDelIns
  45.  
  46.  
  47.   return opResult
  48. endproc
  49.  
  50. Writelib AppLib Kfz7S2
  51. Release Procs Kfz7S2
  52.  
  53. proc Kfz7Menu()
  54. private x, escape
  55.  
  56.   x = "Kunden erfassen"
  57.   while (TRUE)
  58.     Clear
  59.  
  60.     ShowMenu
  61.         "Kunden erfassen": "Kunden erfassen und Auftragsnummer zuteilen",
  62.         "Kunden ändern": "Kundendaten ändern,löschen",
  63.         "Kunden suchen": "Suche nach einem bestimmten Kunden"
  64.       Default x
  65.       To x
  66.  
  67.     switch
  68.       case x = "Kunden erfassen":
  69.         ReadLib "Kfz3" Kfz7S1
  70.         escape = Kfz7S1()
  71.         escape = not escape
  72.         Release Procs Kfz7S1
  73.  
  74.       case x = "Kunden ändern":
  75.         ReadLib "Kfz3" Kfz7S2
  76.         escape = Kfz7S2()
  77.         escape = not escape
  78.         Release Procs Kfz7S2
  79.  
  80.       case x = "Kunden suchen":
  81.         Play "Addresu"
  82.         x = "Kunden suchen"
  83.         escape = FALSE
  84.  
  85.       case x = "Esc":
  86.         return FALSE
  87.     endswitch
  88.  
  89.     ; Wert von ErrorProc zurücksetzen 
  90.     ErrorProc = "ApplicErrorProc"
  91.     ApplicErrorRetVal = FALSE
  92.  
  93.     if (not escape) then
  94.       return TRUE
  95.     endif
  96.   endwhile
  97. endproc
  98.  
  99. Writelib AppLib Kfz7Menu
  100. Release Procs Kfz7Menu
  101.  
  102.