home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / LAAKTU.SC < prev    next >
Text File  |  1991-12-22  |  2KB  |  109 lines
  1. ;aktualisieren des Lagerbestandes mit den Rechnungspositionen
  2.  
  3.  
  4.  
  5.      clearall
  6.      clear
  7.  
  8. @1,0 ?? "Abbruch mit [ESC]!"
  9.  
  10.  
  11.  
  12.  
  13.  
  14. @2,0 ?? "Welcher Auftrag soll mit dem Lager verrechnet werden ? "
  15. cursor bar
  16.    accept "S" to akt
  17. if retval = "ESC" then
  18. return
  19. endif
  20.  
  21. ;testen ob auftrag schon aktualisiert wurde
  22.  view "status"
  23. moveto [aktualisiert?]
  24.   locate akt
  25.     if retval = true then
  26.        message "Auftrag ist schon mit dem Lager verrechnet !"
  27.        sleep 3000
  28.        clearall
  29.        return
  30.     endif
  31.  
  32. view "status"           ;eintragen in die status Tabelle
  33. editkey
  34. ins
  35. [aktualisiert?] = akt
  36. do_it!
  37.  
  38.  
  39.  
  40. @4,0 ?? "Lieferschein [L] oder Rechnung [R] ? "
  41.    accept "A1" to antw
  42.  
  43. view "Lager1"
  44. view "reart"
  45. moveto [Auftrag]
  46.  
  47. locate next akt, antw
  48.      if retval = false then
  49.         beep
  50.         message "falscher Status nochmal versuchen"
  51.         sleep 2000
  52.         clearall
  53.         return
  54.      endif
  55.  
  56.    while retval
  57.          editkey
  58.          verkauft = [Anzahl]
  59.  
  60.          nummer = [Art.Nr.]
  61.          upimage
  62.          ;view "lager1"
  63.           editkey
  64.           moveto [Art.Nr.]
  65.           locate nummer
  66.           moveto [Bestand]
  67.           [Bestand] = [Bestand] - verkauft  ;lagerbestand neu berechnen
  68.           do_it!
  69.  
  70.           downimage
  71.             if atlast () = true then
  72.             quitloop
  73.             endif
  74.  
  75.           down
  76.  
  77.           locate next akt, antw
  78.  
  79.           if retval = false then
  80.           quitloop
  81.           endif
  82.  
  83.    endwhile
  84.  
  85. ;eintrag in die status tabelle
  86. ;view "status"
  87. ;editkey
  88. ;ins
  89. ;akt = [aktualisiert?]
  90. ;do_it!
  91.  
  92.  
  93. clearall
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.