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" THEN
	W_DebPeriode = ICONV("01/":ENR_PERIODESPAIE<1>[5,2]:"/":ENR_PERIODESPAIE<1>[1,4],"D4/")
	IF ENR_PERIODESPAIE<1>[5,2] = "12" THEN
		W_FinPeriode = ICONV("31/12/":ENR_PERIODESPAIE<1>[1,4],"D4/")
	END ELSE
		W_FinPeriode = ENR_PERIODESPAIE<1>[5,2] + 1
		IF LEN(W_FinPeriode) < 2 THEN W_FinPeriode = "0":W_FinPeriode
		W_FinPeriode = ICONV("01/":W_FinPeriode:"/":ENR_PERIODESPAIE<1>[1,4],"D4/") - 1
	END
END ELSE
	PRINT "Anomalie grave - Impossible de poursuivre le traitement"
	STOP
END

EXECUTE 'SELECT CONTRAT AVEC 1 = "02" AND AVEC 7 <= "':W_FinPeriode:'" AND AVEC 8 = "" OR = "" AND AVEC 65 = "" AND AVEC 28 = "0" AND AVEC 4 = "I"' 

W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin # "V"
   READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
	IF INT(ENR_CONTRAT<85>) # 0 OR INT(ENR_CONTRAT<86>) # 0 THEN
		
		ENR_CONTRAT<8> = W_FinPeriode
		ENR_CONTRAT<49> = "32"
		ENR_CONTRAT<50> = W_FinPeriode
		ENR_CONTRAT<51> = W_FinPeriode
		ENR_CONTRAT<52> = "0"
		ENR_CONTRAT<58> = ENR_PERIODESPAIE<1>
		ENR_CONTRAT<59> = CHAR(253)
		WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle	
	
	END
   END
REPEAT
PRINT "Traitement termin."
STOP
