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 65 = "" AND AVEC 1 = "02" AND AVEC 8 = "':W_FinPeriode:'" AND AVEC 28 = "0" AND AVEC 49 = "32" AND AVEC 4 = "I"'

W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"	
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
		ENR_CONTRAT<8> = ""
		ENR_CONTRAT<49> = ""
		ENR_CONTRAT<50> = ""
		ENR_CONTRAT<51> = ""
		ENR_CONTRAT<52> = ""
		ENR_CONTRAT<58> = ""
		ENR_CONTRAT<59> = ""
		ENR_CONTRAT<31> = "1"
		ENR_CONTRAT<94> = "0"
		ENR_CONTRAT<85> = "0"
		ENR_CONTRAT<86> = "0"
		ENR_CONTRAT<38> = "0"
		ENR_CONTRAT<39> = "0"
		ENR_CONTRAT<40> = "0"
		ENR_CONTRAT<41> = "0"
		ENR_CONTRAT<42> = "0"
		ENR_CONTRAT<43> = "0"
		ENR_CONTRAT<44> = "0"
		ENR_CONTRAT<45> = "0"
		ENR_CONTRAT<46> = "0"
		ENR_CONTRAT<47> = "0"
		ENR_CONTRAT<48> = "0"
		WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle
	END
REPEAT

STOP
