************************************************
* permet de mettre a zro l'attribut 12
* du fichier absencesaidant
* 16/11/2010 par mikael
************************************************

OPEN "","ABSENCESAIDANT" TO F.ABSENCESAIDANT ELSE STOP
ENR_ABSENCESAIDANT=""
W_Requete=""
W_Req=""
W_Requete='SELECT ABSENCESAIDANT AVEC 12="1" AND AVEC DebAbsAidant<="15645" AND AVEC 2>="15615" AND AVEC ConvColContrat17="02"'

EXECUTE W_Requete
EXECUTE 'SAUVE-LISTE W_Req' 
EXECUTE "LISTE W_Req" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
    SELECT F.ABSENCESAIDANT TO W_Req
	W_Fin = "FAUX"
	LOOP
		READNEXT W_Cle FROM W_Req ELSE W_Fin = "VRAI"
	WHILE W_Fin = "FAUX" DO
		READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT, W_Cle THEN
			ENR_ABSENCESAIDANT<12>="0"
			WRITE ENR_ABSENCESAIDANT ON F.ABSENCESAIDANT, W_Cle
		END
	REPEAT
END ELSE
	PRINT "Aucun enregistrement pour la selection"
END
EXECUTE 'EFFACER-LISTE W_Req' 
STOP