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

**************************************************************
*                                                            *
*     Mise a jour de l'enregistrement 38 de CIVIULAIDANT     *
*       qui doit correspondre  la cl de la dernire        *
*          visite mdicale dans ABSENCESAIDANT               *
*                                                            *
**************************************************************

EXECUTE 'SELECT CIVILAIDANT'
EXECUTE 'SAUVE-LISTE W_Aidants' 
EXECUTE 'LISTE W_Aidants' RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN

	SELECT F.AIDANT TO W_Aidants	

	W_Fini = "Faux"

	LOOP
	
		READNEXT W_CleAidant FROM W_Aidants ELSE W_Fini = "Vrai"

	WHILE W_Fini = "Faux"
	
		READ ENR_AIDANT FROM F.AIDANT, W_CleAidant ELSE STOP
	
		IF ENR_AIDANT<38> # "" THEN 
			
			W_ExistVMAidant = "Vrai"
			READ ENR_ABS FROM F.ABS, ENR_AIDANT<38> ELSE W_ExistVMAidant = "Faux"
			IF W_ExistVMAidant = "Faux" THEN
			
				PRINT W_CleAidant
				
				*Recherche derniere VM	
				EXECUTE 'SELECT ABSENCESAIDANT = "':W_CleAidant:']" AVEC NumMotifAidant >= "18" AND AVEC NumMotifAidant <= "21" PAR-DECR DebAbsAidant' 
				W_ExistVM = "Vrai"
				READNEXT W_CleAbs ELSE W_ExistVM = "Faux"
			
				IF W_ExistVM = "Faux" THEN
			
					*Pas de VM passe !
					ENR_AIDANT<38> = ""
			
				END ELSE
		 	
					*W_CleAbs = derniere VM
					ENR_AIDANT<38> = W_CleAbs
			
				END

				WRITE ENR_AIDANT ON F.AIDANT, W_CleAidant

			END	

		END ELSE

			*Verif pas de VM
			EXECUTE 'SELECT ABSENCESAIDANT = "':W_CleAidant:']" AVEC NumMotifAidant >= "18" AND AVEC NumMotifAidant <= "21" PAR-DECR DebAbsAidant' 
			W_ExistVM = "Vrai"
			READNEXT W_CleAbs ELSE W_ExistVM = "Faux"
			IF W_ExistVM = "Vrai" THEN

				ENR_AIDANT<38> = W_CleAbs
				WRITE ENR_AIDANT ON F.AIDANT, W_CleAidant
			END
		END	
	
	REPEAT

END

STOP	
