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