#include "Directry.ch"

PROCEDURE ineuxc
* index neu vergeben
LOCAL aDry
set date format to "dd.mm.yyyy"
clear
antw=" "
@ 5,5 say "Pr�flauf / Indizierung der Dateien,"
@ 6,5 say "die sich nur auf diesem Arbeitsplatz befinden."
@ 7,5 say "Achtung, alle Index-Bereiche werden neu gesetzt !!!"
@ 8,5 say "W�hrend dieser Zeit darf auf den anderen Pl�tzen"
@ 9,5 say "in der Bestattungs-Verwaltung gearbeitet werden."
//@11,5 say "Programm starten ? (j/n/a)" get antw
//read
//if antw<>"j"
//   clear
//   return
//endif
@ 15,5 say "Bitte warten ..... ich arbeite ......"
set exclusive on
   aDry := Directory(cDatver+"Auf3*.dbf")
   AEval( aDry, {|a| FErase( a[F_NAME] ) } )
   aDry := Directory(cDatver+"Auf5*.dbf")
   AEval( aDry, {|a| FErase( a[F_NAME] ) } )
   aDry := Directory(cDatver+"Ver2*.dbf")
   AEval( aDry, {|a| FErase( a[F_NAME] ) } )
   aDry := Directory(cDatver+"Se8*.*")
   AEval( aDry, {|a| FErase( a[F_NAME] ) } )

use C:\HDBE\best
pack
use C:\HDBE\vv
pack
use C:\HDBE\auftr
pack
use C:\HDBE\arb
pack
use C:\HDBE\art
pack
use C:\HDBE\vers
pack
use C:\HDBE\lzu
pack
use C:\HDBE\txdat
pack
use C:\HDBE\abest
pack
use C:\HDBE\avv
pack
use C:\HDBE\aauftr
pack
use C:\HDBE\aarb
pack
use C:\HDBE\gesamt
pack
********
use C:\HDBE\best
index on str(auftrnr,6,0) to C:\HDBE\xauftrnr
use C:\HDBE\best
index on name to C:\HDBE\xname
use C:\HDBE\vv
index on str(auftrnr,6,0) + bb to C:\HDBE\xvvauf        // bb = Zeile (27.9.01)
use C:\HDBE\auftr
index on str(auftrnr,6,0) + kennz + zeile to C:\HDBE\xaufauf
use C:\HDBE\arb
index on str(auftrnr,6,0)+str(year(datum),4,0)+str(month(datum),2,0);
+str(day(datum),2,0)+str(zeit,5,2) to C:\HDBE\xarbauf
use C:\HDBE\art
index on art_lei to C:\HDBE\xart_lei
use C:\HDBE\vers
index on verskz to C:\HDBE\xverskz
use C:\HDBE\lzu
index on art_lei to C:\HDBE\xlzu
use C:\HDBE\txdat
index on txname to C:\HDBE\xtx
use C:\HDBE\abest
index on str(auftrnr,6,0) to C:\HDBE\xaauftrn
use C:\HDBE\avv
index on str(auftrnr,6,0) to C:\HDBE\xavvauf
use C:\HDBE\aauftr
index on str(auftrnr,6,0) + kennz to C:\HDBE\xaaufauf
use C:\HDBE\aarb
index on auftrnr to C:\HDBE\xaarbauf
use C:\HDBE\gesamt
index on gname to C:\HDBE\xgesamt

use C:\HDBE\serie
index on str(zeile,4,0) to C:\HDBE\xserie
use C:\HDBE\folge
index on txname to C:\HDBE\xfolge
use C:\HDBE\term
index on str(year(datum))+str(month(datum))+str(day(datum))+berater ;
                to C:\HDBE\xterm

use C:\HDBE\vbest
pack
use C:\HDBE\vvv
pack
use C:\HDBE\vauftr
pack
use C:\HDBE\varb
pack
********
use C:\HDBE\vbest
index on str(auftrnr,6,0) to C:\HDBE\xvauftrn
use C:\HDBE\vvv
index on str(auftrnr,6,0) to C:\HDBE\xvvvauf
use C:\HDBE\vauftr
index on str(auftrnr,6,0) + kennz + zeile to C:\HDBE\xvaufauf
use C:\HDBE\varb
index on str(auftrnr,6,0)+str(year(datum),4,0)+str(month(datum),2,0);
+str(day(datum),2,0)+str(zeit,5,2)to C:\HDBE\xvarbauf
use C:\HDBE\adran
index on auftrnr to C:\HDBE\xadran
use C:\HDBE\plzan
index on plz to C:\HDBE\xplzan

use C:\HDBE\kbbuch
pack
index on str(year(datum),4)+str(month(datum),2)+str(day(datum),2) ;
                to C:\HDBE\xkbbuch
use C:\HDBE\kbtext
pack
index on txnr to C:\HDBE\xkbtext
use C:\HDBE\kbbetrag
pack
index on str(year(datum),4)+str(month(datum),2)+str(day(datum),2) ;
                to C:\HDBE\xkbbetr


set exclusive off
clear
return