home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / LARE1.SC < prev    next >
Text File  |  1991-12-22  |  5KB  |  242 lines
  1. While (true);Schleife um mehrere Artikel einzugeben
  2.  
  3.       clear
  4.       @1,0 ?? "Abbruch mit [ESC]!"
  5.       @3,0 ?? "Soll eine Rechnung [R] oder ein Kostenvoranschlag [K]"
  6.       @4,0 ?? "erstellt werden: "
  7.       cursor bar
  8.       accept "a1" to Antw
  9.       clearall
  10.  
  11.       If retval = false then
  12.       quitloop
  13.       return
  14.       endif
  15.  
  16.   switch
  17.    ;While (true);schleife um mehrere artikel einzugeben
  18.     case Antw = "R" or Antw = "r" :
  19.  
  20.  
  21.  
  22.  
  23.       @4,0 ?? "Welche Rechnung soll erstellt werden (Auftragsnummer):"
  24.       accept "s" to re
  25.  
  26.       view "Auftrag"
  27.       moveto [Auftrag]
  28.       locate re
  29.  
  30.       if retval = false then
  31.        beep
  32.        message "Kein Kunde für diese Auftragsnummer vorhanden !"
  33.        sleep 3000
  34.        quitloop
  35.       endif
  36.  
  37.  
  38.  
  39.  
  40.        @6,0 ?? "Welcher Artikel soll in die Rechnung übernommen werden?"
  41.        @7,0 ?? "Für Direkteingabe [1] eingeben!"
  42.        @8,0 ?? "Artikelnummer eingeben:"
  43.       clear eol
  44.       cursor bar
  45.  
  46.       Accept "A15" to ar     ;eingabe des Artikels
  47.  
  48.       if retval = false then quitloop
  49.       endif
  50.  
  51.       array transfer[3]
  52.  
  53.  
  54.       view "Lager1"
  55.  
  56.  
  57.       moveto [Art.Nr.]
  58.       locate pattern ar
  59.  
  60.       if retval = false then
  61.       message "Dieser Artikel existiert nicht !"
  62.       beep
  63.       sleep 3000
  64.       quitloop
  65.       endif
  66.  
  67.  
  68.      transfer [1] = [Art.Nr.]
  69.      transfer [2] = [Artikel]
  70.      transfer [3] = [VK-netto]
  71.  
  72.  
  73.       view "Reart"
  74.       moveto [Art.Nr.]
  75.  
  76.      if retval then
  77.                 ;end
  78.                  editkey
  79.                  ins
  80.                 [Art.Nr.] = transfer [1]
  81.                 [Artikel] = transfer [2]
  82.                 [Einzelpr.] = transfer [3]
  83.                 [Auftrag] = re
  84.                 do_it!
  85.     else beep
  86.         message ar, "nicht vorhanden"
  87.     endif
  88.  
  89.  
  90.    clearall
  91.  
  92.    view "reart"
  93.    Pickform 1 ;Tabelle im Formularmodus betrachten
  94.  
  95.    moveto [Anzahl]
  96.    editkey
  97.    Wait record
  98.        prompt "Stückzahl des Artikels eintragen!",
  99.               "Eingabe mit [F2] beenden!"
  100.    until "F2"
  101.  
  102.    if retval = false then quitloop
  103.    endif
  104.  
  105.    do_it!
  106.  
  107.   wait table
  108.  
  109.           prompt "Drücken Sie [F2] um die Eingabe zu beenden",
  110.                  "Drücken Sie [F5] um eine weitere Eingabe zu machen"
  111.  
  112.   until "F2" , "F5"
  113.  
  114.  
  115.   If retval = "F2" then quitloop
  116.   endif
  117.  
  118. do_it!
  119. clear
  120. clearall
  121.  
  122. ;endwhile
  123. clear
  124. do_it!
  125. clearall
  126.  
  127.  
  128.  
  129.  
  130.  
  131.       case antw = "K" or Antw = "k" :
  132.      ;while (true)
  133.  
  134.       @4,0 ?? "Welcher Kostenvoranschlag soll erstellt werden (Auftragsnummer):"
  135.       accept "s" to re
  136.  
  137.       view "Auftrag"
  138.       moveto [Auftrag]
  139.       locate re
  140.  
  141.       if retval = false then
  142.        beep
  143.        message "Kein Kunde für diese Auftragsnummer vorhanden !"
  144.        sleep 3000
  145.        quitloop
  146.       endif
  147.  
  148.  
  149.  
  150.  
  151.        @6,0 ?? "Welcher Artikel soll in den Kostenvoransch. übernommen werden?"
  152.        @7,0 ?? "Für Direkteingabe [1] eingeben!"
  153.        @8,0 ?? "Artikelnummer eingeben:"
  154.       clear eol
  155.       cursor bar
  156.  
  157.       Accept "A15" to ar     ;eingabe des Artikels
  158.  
  159.       if retval = false then quitloop
  160.       endif
  161.  
  162.       array transfer[3]
  163.  
  164.  
  165.       view "Lager1"
  166.  
  167.  
  168.       moveto [Art.Nr.]
  169.       locate pattern ar
  170.  
  171.       if retval = false then
  172.       message "Dieser Artikel existiert nicht !"
  173.       beep
  174.       sleep 3000
  175.       quitloop
  176.       endif
  177.  
  178.  
  179.      transfer [1] = [Art.Nr.]
  180.      transfer [2] = [Artikel]
  181.      transfer [3] = [VK-netto]
  182.  
  183.  
  184.       view "Reart"
  185.       moveto [Art.Nr.]
  186.  
  187.      if retval then
  188.                 ;end
  189.                  editkey
  190.                  ins
  191.                 [Art.Nr.] = transfer [1]
  192.                 [Artikel] = transfer [2]
  193.                 [Einzelpr.] = transfer [3]
  194.                 [Auftrag] = re
  195.                 do_it!
  196.     else beep
  197.         message ar, "nicht vorhanden"
  198.     endif
  199.  
  200.  
  201.    clearall
  202.  
  203.    view "reart"
  204.    Pickform 1 ;Tabelle im Formularmodus betrachten
  205.  
  206.    moveto [Anzahl]
  207.    editkey
  208.    Wait record
  209.        prompt "Stückzahl des Artikels eintragen!",
  210.               "Eingabe mit [F2] beenden!"
  211.    until "F2"
  212.  
  213.    if retval = false then quitloop
  214.    endif
  215.  
  216.    do_it!
  217.  
  218.   wait table
  219.  
  220.           prompt "Drücken Sie [F2] um die Eingabe zu beenden",
  221.                  "Drücken Sie [F5] um eine weitere Eingabe zu machen"
  222.  
  223.   until "F2" , "F5"
  224.  
  225.  
  226.   If retval = "F2" then quitloop
  227.   endif
  228.  
  229. do_it!
  230. clear
  231. clearall
  232.  
  233. ;endwhile
  234. clear
  235. do_it!
  236. clearall
  237.  
  238.  
  239. endswitch
  240.  
  241. endwhile
  242.