home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / KFZ8.SC < prev    next >
Text File  |  1993-12-01  |  2KB  |  96 lines
  1. ; Kfz8
  2.  
  3.  
  4.  
  5. AppLib = "Kfz3"
  6. if (not isfile(AppLib + ".lib")) then
  7.   Createlib AppLib
  8. endif
  9.  
  10.  
  11. proc Kfz8S1()
  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("Reart", "", "", 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 Kfz8S1
  30. Release Procs Kfz8S1
  31.  
  32. proc Kfz8S2()
  33. private opResult
  34.  
  35.   Readlib "Kfzutl" EditTable, ToggleForm, EdFldView, 
  36.         HelpKey, EditCancel, SEditDoIt, SEditDelIns
  37.  
  38.   opResult = EditTable("Reart", "Reart", "", "", 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 Kfz8S2
  51. Release Procs Kfz8S2
  52.  
  53. proc Kfz8Menu()
  54. private x, escape
  55.  
  56.   x = "Rechnungsp. eingeben"
  57.   while (TRUE)
  58.     Clear
  59.  
  60.     ShowMenu
  61.         "Rechnungsp. eingeben": "Rechnungspositionen nach Auftragsnummern eingeben",
  62.         "Rechnungsp. ändern": "Rechnungspositionen ändern,löschen"
  63.       Default x
  64.       To x
  65.  
  66.     switch
  67.       case x = "Rechnungsp. eingeben":
  68.         ReadLib "Kfz3" Kfz8S1
  69.         escape = Kfz8S1()
  70.         escape = not escape
  71.         Release Procs Kfz8S1
  72.  
  73.       case x = "Rechnungsp. ändern":
  74.         ReadLib "Kfz3" Kfz8S2
  75.         escape = Kfz8S2()
  76.         escape = not escape
  77.         Release Procs Kfz8S2
  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 Kfz8Menu
  94. Release Procs Kfz8Menu
  95.  
  96.