home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / STATUSSW.SC < prev    next >
Text File  |  1991-12-22  |  1KB  |  61 lines
  1.   clear
  2.   clearall
  3.  
  4.   @1,0 ?? "Abbruch mit [ESC] !"
  5.  
  6.   @3,0 ?? "Wollen Sie: aus einem Kostenvoranschlag eine Rechnung machen [1] "
  7. ;  @4,0 ?? "            aus einem Angebot eine Rechnung machen      [2] "
  8. ;  @5,0 ?? "            aus einem Lieferschein eine Rechnung machen [3] "
  9.  
  10.   cursor bar
  11.  
  12.   @5,0 ?? "Treffen Sie Ihre Auswahl [1] oder [ESC]  :"
  13.  
  14.         Accept "A1" to swi
  15.  
  16.         If retval = "ESC" then return
  17.         endif
  18.  
  19.   clear
  20.   clearall
  21.  
  22.   view "reart"
  23.  
  24.  
  25. switch
  26.  
  27.  
  28.         case swi = "1" :
  29.  
  30.                 @2,0 ?? "Auftragnummer für  Kostenvoranschlag->Rechnung angeben :"
  31.                 accept "s" to al
  32.                  if retval = false then return
  33.                  endif
  34.                 moveto [auftrag]
  35.                 locate al
  36.  
  37.                 If [Art-Ko-Re] = "R" then
  38.                    beep
  39.                    message "Die Rechnung ist bereits erstellt worden !"
  40.                    sleep 3000
  41.                    return
  42.                    clearall
  43.                    clear
  44.                  endif
  45.  
  46.              While retval
  47.  
  48.                    editkey
  49.                    [Art-Ko-Re] = "R"
  50.                    down
  51.                    locate next al
  52.  
  53.              endwhile
  54.             do_it!
  55.  
  56.  
  57.     endswitch
  58.  
  59.  
  60. clear
  61.