***********************************************
* Un bug a t trouv dans le PR CloturePaie. *
* Au moment de calculer le coef et le taux du *
* contrat, on utilise la subroutine ddie :  *
*     CALCCOEFFTXHOR                          *
* Parmis les paramtres envoys au PR, il y a *
* la priode de rfrence, celle sur laquelle *
* on doit effectuer le calcul. Le pb est que  *
* le calcul de cette priode n'tait pas bon. *
* ClotuePaie a t corrig, mais la cloture de*
* a dj t commence dans les assos. Donc il*
* faut un programme pour recalculer les coef  *
* les taux horaires de chaque contrats actifs.*
*                                             *
* Grgory - 12/01/10                          *
***********************************************
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","GRILLESCC" TO F.GRILLESCC ELSE STOP
***********************************************

ENR_CONTRAT=""

W_Req=""
W_DateRef=ICONV("01/01/2010","D4/")

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

EXECUTE 'SELECT CONTRAT AVEC 7 <= "':W_DateRef:'" AND AVEC 8 >= "':W_DateRef:'" OR = "" AND AVEC 65 # "O" AND AVEC 20 <> ""'
EXECUTE 'SAUVE-LISTE W_Req'
EXECUTE 'LISTE W_Req' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.CONTRAT TO W_Req

	W_Fin = "F"
	LOOP
		READNEXT W_Cle FROM W_Req ELSE W_Fin = "O"	
	WHILE W_Fin = "F"
		READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
			W_PARAMS=""
			W_SORTIE=""
			W_PARAMS<1>=W_Cle
			W_PARAMS<2>="0"
			W_PARAMS<3>="201001"

			CALL CALCCOEFFTXHOR("",W_PARAMS,W_SORTIE)
			
			IF ENR_CONTRAT<14,2> # "" THEN
				* RECHERCHE DE L'AVENANT EN COURS
				J=1
				LOOP
				UNTIL ENR_CONTRAT<15,J+1> > "31/01/2010" OR ENR_CONTRAT<15,J+1>="" DO
					J=J+1
				REPEAT
			END ELSE
				J=1
			END
			
			IF ENR_CONTRAT<20,J> # "" THEN
				READ ENR_GRILLESCC FROM F.GRILLESCC,ENR_CONTRAT<20,J> THEN
					IF W_SORTIE<2> # 0 THEN
						IF ENR_GRILLESCC<5>="C" THEN
							ENR_CONTRAT<22,J>=W_SORTIE<1>
							ENR_CONTRAT<23,J>=W_SORTIE<2>
						END ELSE
							ENR_CONTRAT<23,J>=W_SORTIE<2>
						END
					END
				END
			END
			
			WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle
		END
	REPEAT
END

STOP