PROCEDURE PRSPEI
* prspei: speichern f�r Rechnung
LOCAL aData1[ Auftr->( FCount() ) ] , aDataD := {}
aufzei=0
do while .t.
   aufzei=aufzei+1
   if aufzei>9
      tabf="t"+str(aufzei,2,0)
   else
      tabf="t"+str(aufzei,1,0)
   endif
   if &tabf=space(120)
      exit
   endif
   select 3
   append blank
//*
   aData1 := SatzGet( Select(), RecNo() )
*//
   replace auftrnr with val(auf)
   replace kennz   with substr(&tabf,71,1)
   replace zeile   with str(aufzei,2,0)
   replace zugr_z_st with substr(&tabf,4,6)
   replace bezeich with substr(&tabf,16,45)
**   replace bezeichf2 with substr(&tabf,75,15)
anz_zeil=1
do eurospei
//   replace betrag   with val(substr(&tabf,62,8))
   replace mwst_schl with substr(&tabf,72,1)
   replace gebucht with " "
if zttmm<>"    "
   replace ttmm    with zttmm
else
   replace ttmm    with substr(&tabf,120,4)
endif
   replace rn      with nt
//**
   aDataZ := SatzGet( Select(), RecNo() )
   AAdd( aDataB, aDataZ )
**//
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
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
      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
   endif
satzentsperren()

endif

endif
enddo

//*
   nDiff := 0
   IF merkzei>1 .AND. aufzei = merkzei-1
   FOR i := 1 to aufzei
      aDataD := SatzDiff( aDataB[i], aDataB[i+aufzei] )
   NEXT i
   ELSE
      nDiff := 1
   ENDIF
   IF nDiff=0
   ELSE
      FIND &Auf
      DO WHILE .NOT. Eof()
         IF rn=nt
              trckng( 3, RecNo(), aData1 )
         ENDIF
         SKIP
      ENDDO
   ENDIF
*//

SELECT 1
return