****************************************************
* Ce programme crit dans les absences existantes  *
* l'attribut 32 correspondant  la date de demande *
* de cong. Les absences concernes sont celles    *
* gres via l'option de congs prvisionnels. Ce  *
* programme est  excuter lors de l'installation  *
* de l'option.                                     *
*                                                  *
* 24/05/2007 -> Grgory                            *
****************************************************

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

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

ENR_ABSENCESAIDANT=""

W_ReqAbs=""

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

	EXECUTE 'SELECT ABSENCESAIDANT AVEC TypeAbs >= "07" AND <= "16" PAR DebAbsAidant'
	EXECUTE 'SAUVE-LISTE W_ReqAbs'
	EXECUTE "LISTE W_ReqAbs" RETURNING MSGCODE

	IF MSGCODE<1> # 209 THEN
		SELECT F.ABSENCESAIDANT TO W_ReqAbs
		
		W_Fin="FAUX"
		LOOP
			READNEXT W_CleAbs FROM W_ReqAbs ELSE W_Fin="VRAI"
		WHILE W_Fin="FAUX" DO
			READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT, W_CleAbs THEN
				ENR_ABSENCESAIDANT<32>=W_CleAbs[8,5]
				WRITE ENR_ABSENCESAIDANT ON F.ABSENCESAIDANT, W_CleAbs
			END
		REPEAT
	END	

STOP