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

PROCREAD PARAMETRES ELSE STOP
W_PERIODEFACT = FIELD(PARAMETRES," ",2)
W_CodeAidant = FIELD(PARAMETRES," ",3)

W_DateLimite = "01/":W_PERIODEFACT[5,2]:"/":W_PERIODEFACT[1,4]
W_DateLimite = ICONV(W_DateLimite,"D4/") + 32
W_DateLimite = ICONV("01":OCONV(W_DateLimite,"D4/")[3,8],"D4/")
W_Temp = 'SELECT ABSENCESAIDANT'
IF W_CodeAidant # "" THEN
	W_Temp = W_Temp:' = "':W_CodeAidant:']"'
END
W_Temp = W_Temp:' AVEC 20 = "0" AND AVEC DebAbsAidant >= "':W_DateLimite:'"'

EXECUTE W_Temp
EXECUTE 'SAUVE-LISTE W_ReqAbsMajSalRefIjss'
EXECUTE 'LISTE W_ReqAbsMajSalRefIjss' RETURNING MSGCODE
IF MSGCODE<1> # "209" THEN
SELECT F.ABSENCESAIDANT TO W_ReqAbsMajSalRefIjss
W_Fin = "F"
LOOP
	READNEXT W_Cle FROM W_ReqAbsMajSalRefIjss ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT, W_Cle THEN
		W_Param = ""
		W_Count = DCOUNT(ENR_ABSENCESAIDANT<13>,CHAR(253))

		W_Param<1> = W_Count
		W_Param<2> = "V"
		W_Param<3> = ""
		W_Param<4> = W_Cle[8,5]
		W_Param<5> = W_Cle[6,2]
		W_Param<6> = W_Cle[1,5]
		W_Param<7> = "Liste contrats : "
		FOR i = 1 TO W_Count
			W_Param<7+i> = ENR_ABSENCESAIDANT<17,i>
		NEXT i
		CALL CALCSALREFIJSS("",W_Param,W_Sortie)

		W_Count = DCOUNT(W_Sortie,CHAR(254))
		i = 0
		LOOP
		i = i + 1
		WHILE i < W_Count
			k = 0
			LOOP
			k = k + 1
			WHILE TRIM(ENR_ABSENCESAIDANT<13,k>) # TRIM(W_Sortie<i,1>) AND ENR_ABSENCESAIDANT<13,k> # ""
			REPEAT
			IF ENR_ABSENCESAIDANT<20,k> = "" OR ENR_ABSENCESAIDANT<20,k> = "0" THEN

				ENR_ABSENCESAIDANT<13,k> = TRIM(W_Sortie<i,1>)
				ENR_ABSENCESAIDANT<14,k> = W_Sortie<i,3>*100
				ENR_ABSENCESAIDANT<15,k> = W_Sortie<i,4>*100
				IF ENR_ABSENCESAIDANT<16,k> = "" THEN
				   ENR_ABSENCESAIDANT<16,k> = W_Sortie<i,5>
				END
				ENR_ABSENCESAIDANT<17,k> = W_Sortie<i,6>
				ENR_ABSENCESAIDANT<20,k> = W_Sortie<i,7>*100
				ENR_ABSENCESAIDANT<27,k> = W_Sortie<i,8>
			END
		REPEAT
		i = 0
		LOOP
		i = i + 1
		WHILE W_Sortie<W_Count,i> # ""
			ENR_ABSENCESAIDANT<18,i> = W_Sortie<W_Count,i>
		REPEAT

		WRITE ENR_ABSENCESAIDANT ON F.ABSENCESAIDANT, W_Cle
	END
REPEAT
END
STOP
