EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP

EXECUTE 'SELECT DETAILCALCUL AVEC 0 = "[200103" AND AVEC TypeActivite = "P" AND AVEC 8 = "901"'

W_FINI=0
LOOP
     READNEXT CLE ELSE W_FINI=1
     UNTIL W_FINI=1 DO

     READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE ELSE ENR_DETAILCALCUL=""
     IF ENR_DETAILCALCUL<8>="901" THEN 
	 DELETE F.DETAILCALCUL,CLE
	 DELETE F.ARCHIVEBULL,CLE:"001"
	 DELETE F.DETAILPREST,CLE
     END

REPEAT
