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

W_FINCONTRAT="FAUX"

LOOP 
     READNEXT CLE ELSE
	  W_FINCONTRAT="VRAI"
     END
     UNTIL W_FINCONTRAT="VRAI" DO
     
     DELETE F.DETAILCALCUL,CLE
REPEAT
