PROCEDURE KINEU
*kineu
set date format to "dd.mm.yyyy"
clear
antw=" "
@ 5,5 say "Achtung, alle Index-Bereiche werden neu gesetzt !!!"
@ 7,5 say "W„hrend dieser Zeit darf nicht in der Bestattungs-"
@ 8,5 say "Verwaltung gearbeitet werden."
@10,5 say "Programm starten ? (j/n/a)" get antw
read
if antw<>"j"
   clear
   clear all
   return
endif
@ 15,5 say "Bitte warten ..... ich arbeite ......"
set exclusive on

use kbbuch
pack
***index on datum to ikbbuch
index on str(year(datum),4)+str(month(datum),2)+str(day(datum),2) to xkbbuch
use kbtext
pack
index on txnr to xkbtext
use kbbetrag
pack
***index on datum to ikbbetr
index on str(year(datum),4)+str(month(datum),2)+str(day(datum),2) to xkbbetr

set exclusive off
clear
clear all
return