home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / AKTUA1.SC < prev    next >
Text File  |  1993-12-01  |  2KB  |  41 lines
  1.  
  2.  
  3. ? "Welche Rechnung soll mit dem Lager verrechnet werden ?"
  4. Cursor Bar
  5. @3,0
  6. ? "Rechnungsnummer:"
  7. ACCEPT "N" TO Auft
  8.  
  9. if retval
  10. then
  11.  
  12. {Zeige} {reart} Menu {Abfrage} {Reart} Right  "~Auft" Right Check
  13. Right Check Do_It! ClearAll {Zeige} {Antwort} Menu {Zeige} {lager1}
  14. Menu {Abfrage} {lager1} Right Check Example  "x" Right Check
  15. Right Check Right Check Right Check Right Check Menu {Abfrage}
  16. {antwort} Right Check Right Example  "x" Do_It! Menu {Tools}
  17. {Umbenenne} {Tabelle} {Antwort} {lagerein} ClearAll {Zeige}
  18. {lagerein} Menu {Abfrage} {Lagerein} Right Check Right Example
  19.  "be,rechne " Example  "be-" Example  "an als Bestand" Right
  20. Check Right Check Right Check Right Check Right Example  "an"
  21. Do_It! ClearAll {Zeige} {antwort} Menu {Zeige} {lager1} Menu
  22. {Abfrage} {antwort} Right Example  "artnr" Menu {Abfrage} {lager1}
  23.  "loeschen" Right Example  "artnr" Do_It! ClearAll {Zeige} {antwort}
  24. Menu {Zeige} {lager1} Menu {Abfrage} {antwort} Right Example
  25.  "artnr" Enter Example  "art" Enter Example  "ek" Enter Example
  26.  "vk" Enter Example  "min" Enter Example  "be" Menu {Abfrage}
  27. {lager1}  "einfuegen" Right Example  "artnr" Enter Example  "b"
  28.  "e" Enter Example  "art" Enter Example  "ek" Enter Example
  29.  "vk" Enter Example  "min" Do_It! Menu {Makros} {EndeAufzeichnung}
  30.  
  31.  
  32.  
  33. {Tools} {Löschen} {Tabelle} {lagerein} {Ok} {Dienste} {Sort}
  34. {lager1} {Intern} Enter Enter Enter Enter Enter Enter Esc Menu
  35. {Ok!} Menu {Makros} {EndeAufzeichnung}
  36.  
  37. else
  38. clear
  39. esc
  40. endif
  41.