******************************************************
* VANESSA - 13/06/2012                               *
******************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "", "FUSION" TO F.FUSION ELSE STOP
OPEN "", "CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP

ENR_CONTRAT=""
ENR_FUSION=""
ENR_CIVILAIDANT=""

ENR_FUSION<1>="Code aidant;Nom prnom;Dbut;Fin;Num;Grille"

W_DateRef=ICONV("01/05/2012","D4/")

W_Contrats=""
EXECUTE 'SELECT CONTRAT AVEC 8 >= "':W_DateRef:'" OR = "" AND AVEC 1 = "05" AND AVEC 65 # "O" PAR 7 PAR 8'
EXECUTE 'SAUVE-LISTE W_Contrats'
EXECUTE 'LISTE W_Contrats' RETURNING MSGCODE

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

	W_Fin = "F"
	LOOP
		READNEXT W_Cle FROM W_Contrats ELSE W_Fin = "O"
	WHILE W_Fin = "F"		
		READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
			READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_Cle[1,5] ELSE ENR_CIVILAIDANT = ""
			ENR_CONTRAT<1>="01"				
			FOR I = 1 TO DCOUNT(ENR_CONTRAT<20>,CHAR(253))
				IF ENR_CONTRAT<20,I>[1,2]="05" THEN
					ENR_CONTRAT<20,I>="01":ENR_CONTRAT<20,I>[3,3]
				END
			NEXT I

			WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle

			ENR_FUSION<-1>=W_Cle[1,5]:';':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>:';':OCONV(ENR_CONTRAT<7>,"D4/"):';':OCONV(ENR_CONTRAT<8>,"D4/"):';':W_Cle[6,3]:';':ENR_CONTRAT<20>

		END
	REPEAT
END

IF ENR_FUSION<2><>"" THEN
	WRITE ENR_FUSION ON F.FUSION, "ListeAidantsCCN05.csv"
END

EXECUTE "EFFACER-LISTE W_Contrats"

STOP