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

PROCREAD PARAMETRES ELSE STOP
W_ASSO = FIELD(PARAMETRES,"|",2)
W_TYPE = FIELD(PARAMETRES,"|",3)
W_CCN = FIELD(PARAMETRES,"|",4)


EXECUTE 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 2 = "':W_ASSO:'" AND AVEC 6 = "':W_TYPE:'" AND AVEC 1 = "':W_CCN:'" AND AVEC 7 <= "12966" AND AVEC 8 => "12966" OR = "" PAR @ID'


W_Fini="FAUX"

LOOP
	READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO

	ENR_CONTRAT = ""
	READ ENR_CONTRAT FROM F.CONTRAT,W_Cle THEN

	  W_AVENANT = DCOUNT(EXTRACT(ENR_CONTRAT,14),CHAR(253))
	  IF INT(ENR_CONTRAT<15,W_AVENANT>) < 12966 THEN
	  	W_NOAVENANT = ENR_CONTRAT<14,W_AVENANT>
		W_NOAVENANT = W_NOAVENANT + 1
		W_NOAVENANT = W_NOAVENANT "R(%2)"
		W_AVENANT = W_AVENANT + 1

		ENR_CONTRAT<14,W_AVENANT> = W_NOAVENANT
		ENR_CONTRAT<15,W_AVENANT> = "12966"
		ENR_CONTRAT<16,W_AVENANT> = ENR_CONTRAT<16,(W_AVENANT-1)>
		ENR_CONTRAT<17,W_AVENANT> = ENR_CONTRAT<17,(W_AVENANT-1)>
		ENR_CONTRAT<18,W_AVENANT> = ENR_CONTRAT<18,(W_AVENANT-1)>
		ENR_CONTRAT<19,W_AVENANT> = ENR_CONTRAT<19,(W_AVENANT-1)>
		ENR_CONTRAT<21,W_AVENANT> = ENR_CONTRAT<21,(W_AVENANT-1)> + INT(ENR_CONTRAT<70>/100)
		ENR_CONTRAT<22,W_AVENANT> = ENR_CONTRAT<22,(W_AVENANT-1)>
		ENR_CONTRAT<23,W_AVENANT> = ENR_CONTRAT<23,(W_AVENANT-1)>
		ENR_CONTRAT<24,W_AVENANT> = ENR_CONTRAT<24,(W_AVENANT-1)>
		ENR_CONTRAT<25,W_AVENANT> = ENR_CONTRAT<25,(W_AVENANT-1)>
		ENR_CONTRAT<68,W_AVENANT> = ENR_CONTRAT<68,(W_AVENANT-1)>
		ENR_CONTRAT<69,W_AVENANT> = ENR_CONTRAT<69,(W_AVENANT-1)>

		IF ENR_CONTRAT<20,(W_AVENANT-1)> = "01002" OR ENR_CONTRAT<20,(W_AVENANT-1)> = "03002" OR ENR_CONTRAT<20,(W_AVENANT-1)> = "08002" OR ENR_CONTRAT<20,(W_AVENANT-1)> = "04017" OR ENR_CONTRAT<20,(W_AVENANT-1)> = "04016" THEN
			ENR_CONTRAT<20,W_AVENANT> = ENR_CONTRAT<1>:"102"
		END ELSE
			ENR_CONTRAT<20,W_AVENANT> = ENR_CONTRAT<1>:"100"
		END

		IF ENR_CONTRAT<1> = "06" THEN
			ENR_CONTRAT<20,W_AVENANT> = ENR_CONTRAT<1>:"103"
		END

		ENR_CONTRAT<70> = 0

		WRITE ENR_CONTRAT TO F.CONTRAT,W_Cle
	  END
	END
	
REPEAT

END
