*****************************************************
* SUPPRESSION DETAILCALCUL POUR CONTRAT NON LISSAGE *
*                                                   *
* 02/04/01                                 STEPHANE *
*****************************************************

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

EXECUTE 'SSELECT DETAILCALCUL AVEC @ID = "[200103" AND AVEC TypeHeure = "H" AND AVEC TypeLissage = "1"'

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

     READ ENR_CONTRAT FROM F.CONTRAT,CLE[1,8] THEN
	 ENR_CONTRAT<68>=0
	 WRITE ENR_CONTRAT ON F.CONTRAT,CLE[1,8]
     END
     DELETE F.DETAILCALCUL,CLE

REPEAT

STOP
