*******************************************
* Objectif :                              *
*        rectifier les clotures de juin   *
*        qui ont t effectues avant la  *
*        mise en place de la CCU          *
*                                         * 
* Grgory -> 11/07/03 -> Cration du prog *
*******************************************

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

*******************************************

W_Entite = ""
W_Conv = ""
W_Requete = ""
W_Params = ""
w_Sortie = ""

EXECUTE 'CREER-FICHIER RATTSALANTBIS 1,1'
OPEN "","RATTSALANTBIS" TO F.RATTSALANTBIS ELSE STOP

EXECUTE 'SSELECT CONTRAT AVEC 1 = "02" AND AVEC 65 # "O" AND AVEC 81 = "200307" AND AVEC DernCodGrilleWContrat = "02003" AND AVEC 7 < "12997" AND AVEC 8 => "12997" OR = ""'
EXECUTE 'SAUVE-LISTE W_RESULTAT' 
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN

	W_FINI = "FAUX"	
	CLE.CONTRAT=""

	SELECT F.CONTRAT TO W_RESULTAT

	LOOP
		READNEXT CLE.CONTRAT FROM W_RESULTAT ELSE W_FINI="VRAI"
	WHILE W_FINI = "FAUX" DO

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

		W_AVENANT = DCOUNT(EXTRACT(ENR_CONTRAT,14),CHAR(253))

		W_Params<1> = CLE.CONTRAT
		W_Params<2> = W_AVENANT
		W_Params<3> = "200307"

		CALL CALCCOEFFTXHOR("",W_Params,W_Sortie)

		IF ENR_CONTRAT<23,W_AVENANT> # W_Sortie<2> AND W_Sortie<2> > "7190" THEN
			POURCRECUP = INT((((W_Sortie<2>/ENR_CONTRAT<23,W_AVENANT>)-1)*10000)+(1/2))
			READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE.CONTRAT:"200307" ELSE ENR_DETAILCALCUL = ""
			MONTRAT = ((ENR_DETAILCALCUL<7>/100)*(POURCRECUP/100))
			IF MONTRAT < "0" THEN
				MONTRAT = INT(MONTRAT-(1/2))
			END ELSE
				MONTRAT = INT(MONTRAT+(1/2))
			END
			ENR_RATT<1>= MONTRAT
			WRITE ENR_RATT TO F.RATTSALANTBIS,CLE.CONTRAT
		END
	REPEAT

END
STOP
