*******************************************************
* Ce programme permet d'extraire les beneficiaires    *
*******************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","ACCORD" TO F.ACCORD ELSE STOP
OPEN "","AGGIRAIDE" TO F.AGGIRAIDE ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP
OPEN "","RESSOURCESAIDE" TO F.RESSOURCESAIDE ELSE STOP
OPEN "","AGGIRAIDE" TO F.AGGIRAIDE ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP
W_Req = ""
ENR_ACCORD = ""
ENR_AGGIRAIDE  = ""
ENR_CIVILAIDE  = ""
ENR_RESSOURCESAIDE  = ""
ENR_AGGIRAIDE  = ""
ENR_FUSION  = ""
W_CUMUL = "" 
W_PERIODEDEB = ICONV("01/01/2007","D4/")
W_PERIODEFIN = ICONV("31/10/2007","D4/")
I = 1

EXECUTE 'SELECT ACCORD AVEC DateSortieAideAccord # "" AND AVEC 5 <= "':W_PERIODEFIN:'" AND AVEC 6 >= "':W_PERIODEDEB:'" AND AVEC 18 = "" PAR LibOrgAccord PAR NomPrenomAide PAR CodAideAccord'
EXECUTE 'SAUVE-LISTE W_Req'
EXECUTE "LISTE W_Req" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
	ENR_TEMPO<1>="Code Aide;Nom prnom aid;Commune;Debut accord;Fin accord;Organisme prise en charge;Heures alloues;Revenue;G.I.R.;Date de naissance"
	I = I + 1
	SELECT F.ACCORD TO W_Req

	W_Fini="FAUX"
	LOOP
		READNEXT W_Cle FROM W_Req ELSE W_Fini="VRAI"
	WHILE W_Fini="FAUX" DO
		READ ENR_ACCORD FROM F.ACCORD,W_Cle ELSE ENR_ACCORD = ""
		
		ENR_TEMPO<I>=W_Cle[1,5]:";"
		
		READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle[1,5] ELSE ENR_CIVILAIDE = ""
		
		ENR_TEMPO<I>=ENR_TEMPO<I>:ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>:";":ENR_CIVILAIDE<11>:";"
		ENR_TEMPO<I>=ENR_TEMPO<I>:OCONV(ENR_ACCORD<5>,"D4/"):";":OCONV(ENR_ACCORD<6>,"D4/"):";"
		
		READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,ENR_ACCORD<1> ELSE ENR_ORGPRISECHARGE = ""
		ENR_TEMPO<I>=ENR_TEMPO<I>:ENR_ORGPRISECHARGE<2>:";":ENR_ACCORD<9> "MR2":";"

		READ ENR_RESSOURCESAIDE FROM F.RESSOURCESAIDE,W_Cle[1,5] ELSE ENR_RESSOURCESAIDE = ""
		
		FOR J = 1 TO DCOUNT(ENR_RESSOURCESAIDE<5>,CHAR(253))
			W_CUMUL = W_CUMUL + ENR_RESSOURCESAIDE<5,J>
		NEXT J
		
		ENR_TEMPO<I>=ENR_TEMPO<I>:W_CUMUL "MR2":";"
		
		W_CUMUL = ""
		
		READ ENR_AGGIRAIDE FROM F.AGGIRAIDE,W_Cle[1,5] ELSE ENR_AGGIRAIDE = ""
		
		ENR_TEMPO<I>=ENR_TEMPO<I>:ENR_AGGIRAIDE<19>:";":OCONV(ENR_CIVILAIDE<20>,"D4/")
		
		I = I + 1
	REPEAT
END
	WRITE ENR_TEMPO ON F.FUSION,"ExtractionBeneficiaires.csv"
STOP