PROCEDURE PRRVOR
* prrvor: eingabe rechnung
sch1=1
schdat="1110010"
do datei
select 3
set delete on
do while .T.
 auf="      "
 clear
do bild
if prog="3"
    @ 2,2 say "1.3  "
    @ 2,9 say "Rechnung-Eigenleistungen-1"
endif
if prog="4"
    @ 2,2 say "1.4  "
    @ 2,9 say "Rechnung-Eigenleistungen-2"
endif
 @ 3,50 say date()
 @ 3,65 say time()
do while val(auf)<1 .or. val(auf)>999999
zei=6
do while .t.
@ zei,1 say space(70)
zei=zei+1
if zei>23
   exit
endif
enddo
 @ 6,19 say "Bitte Auftr-Nr eingeben : " get auf
 @12,15 say "���������������������������������������Ŀ"
 @13,15 say "�   F10-Taste = zur�ck zur �bersicht    �"
 @14,15 say "�����������������������������������������"
 read
select 1
nr="      "
nr=auf
if nr="h10" .or. nr="H10"
   @ 5,0 clear
@ 4,0 say "�"
@ 4,79 say "�"
   do h10
   wait "     Weiter mit ENTER ..."
endif
if nr="h    " .or. nr="H    "
   @ 5,0 clear
@ 4,0 say "�"
@ 4,79 say "�"
   do h
   wait "     Weiter mit ENTER ..."
endif
    if auf="!"
       return
    endif
enddo
 select 1
 find &auf
 if eof()
    @ 8,19 say "Auftrags-Nr nicht vorhanden"
    wait "                   Weiter mit ENTER ..."
    auf="      "
    loop
 endif
zkzoffge=kzoffge

@ 7,19 say "Bestattung:  "+trim(anrede)+" "+trim(vorname)+" "+name
@ 8,19 say "gestorben:  "
@ 8,32 say gestorben

if prog="4"
   nt="2"
endif

zvorname=vorname
zname=name
zansp_name=ansp_name
zansp_vname=ansp_vname
**zbeerd_dat=beerd_dat
antw=" "
do while antw<>"j" .and. antw<>"n"
 @ 10,19 say "Alle Eingaben O.K. ? ( j / n )" get antw
 read
enddo
 if antw="n"
    auf="      "
    loop
 endif
 exit
enddo
*************************************************
select 3
go top
find &auf
aufzei=0
do while auftrnr=val(auf) .and. .not. eof()
if rn=nt
   aufzei=aufzei+1
   if aufzei>9
      tabf="t"+str(aufzei,2,0)
   else
      tabf="t"+str(aufzei,1,0)
   endif

pr_og="prrvor"
anz_zeil=1
do eurotabf

//   &tabf=str(aufzei,2,0)+" "+zugr_z_st+" "+"   "+"  "+bezeich;
// +" "+str(betrag,8,2)+" "+kennz+mwst_schl+"  "+space(45)+ttmm

      schl=zugr_z_st
if kennz="1"
   zbetrag=betrag
   zbetrag2=betrageu
   select 6
   find &schl
satzsperren()
   repl bestand with bestand+1,mgjahr with mgjahr-1
   repl umsatz with umsatz-zbetrag
   repl umsatzeu with umsatz-zbetrag2
satzentsperren()

if prdecke<>"      ".and.zkzoffge<>"OA"
   if zkzoffge="GE"
      schl=prdecke
      find &schl
      if .not. eof()
satzsperren()
      repl bestand with bestand+1,mgjahr with mgjahr-1
satzentsperren()
      endif
   else
      schl1=prdecke
      schl2=prkleid
      schl3=prstrumpfe

      find &schl1
      if .not. eof()
satzsperren()
      repl bestand with bestand+1,mgjahr with mgjahr-1
      endif
      find &schl2
      if .not. eof()
satzsperren()
      repl bestand with bestand+1,mgjahr with mgjahr-1
      endif
      find &schl3
      if .not. eof()
satzsperren()
      repl bestand with bestand+1,mgjahr with mgjahr-1
      endif
satzentsperren()

   endif
endif
endif
select 3
delete
endif
   skip
enddo
merkzei=aufzei+1
return