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

READ ENR_PERIODESPAIE FROM F.PERIODESPAIE,"1" ELSE ENR_PERIODESPAIE=""

W_DATEFIN="01/":ENR_PERIODESPAIE<1>[5,2]:"/":ENR_PERIODESPAIE<1>[1,4]
W_DATEFIN=ICONV(W_DATEFIN,"D4/")

EXECUTE 'SELECT CONTRAT AVEC 1 # "02" AND AVEC 8 = "" OR >= "':W_DATEFIN:'" AND AVEC 65 # "O"'

W_FIN=0
W_NBERR=0
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE ENR_CONTRAT=""

	W_NBATT15=DCOUNT(ENR_CONTRAT<15>,CHAR(253))
	W_NBATT68=DCOUNT(ENR_CONTRAT<68>,CHAR(253))

	IF ENR_CONTRAT<5>="H" THEN 
		W_AFFECT=0
	END ELSE
		W_AFFECT=1
	END

	IF W_NBATT15 # W_NBATT68 THEN 
		ENR_CONTRAT<68>=""

		FOR I=1 TO W_NBATT15
			ENR_CONTRAT<68,-1>=W_AFFECT
		NEXT I

		WRITE ENR_CONTRAT ON F.CONTRAT,CLE
	END

REPEAT

