home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / KFZ10.SC < prev    next >
Text File  |  1993-12-01  |  2KB  |  96 lines
  1. ; Kfz10
  2.  
  3.  
  4.  
  5. AppLib = "Kfz4"
  6. if (not isfile(AppLib + ".lib")) then
  7.   Createlib AppLib
  8. endif
  9.  
  10.  
  11. proc Kfz10S1()
  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("Kovoart", "", "", FALSE)
  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 Kfz10S1
  30. Release Procs Kfz10S1
  31.  
  32. proc Kfz10S2()
  33. private opResult
  34.  
  35.   Readlib "Kfzutl" EditTable, ToggleForm, EdFldView, 
  36.         HelpKey, EditCancel, SEditDoIt, SEditDelIns
  37.  
  38.   opResult = EditTable("Kovoart", "Kovoart", "", "", FALSE, 
  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 Kfz10S2
  51. Release Procs Kfz10S2
  52.  
  53. proc Kfz10Menu()
  54. private x, escape
  55.  
  56.   x = "Positionen erfassen"
  57.   while (TRUE)
  58.     Clear
  59.  
  60.     ShowMenu
  61.         "Positionen erfassen": "Positionen für Kostenvoranschläge eingeben",
  62.         "Positionen ändern": "Positionen für Kostenvoranschläge ändern"
  63.       Default x
  64.       To x
  65.  
  66.     switch
  67.       case x = "Positionen erfassen":
  68.         ReadLib "Kfz4" Kfz10S1
  69.         escape = Kfz10S1()
  70.         escape = not escape
  71.         Release Procs Kfz10S1
  72.  
  73.       case x = "Positionen ändern":
  74.         ReadLib "Kfz4" Kfz10S2
  75.         escape = Kfz10S2()
  76.         escape = not escape
  77.         Release Procs Kfz10S2
  78.  
  79.       case x = "Esc":
  80.         return FALSE
  81.     endswitch
  82.  
  83.     ; Wert von ErrorProc zurücksetzen 
  84.     ErrorProc = "ApplicErrorProc"
  85.     ApplicErrorRetVal = FALSE
  86.  
  87.     if (not escape) then
  88.       return TRUE
  89.     endif
  90.   endwhile
  91. endproc
  92.  
  93. Writelib AppLib Kfz10Menu
  94. Release Procs Kfz10Menu
  95.  
  96.