*Permet d'extraire les demandes d'accord
*pour les beneficaires qui ont une participation
*mikael 01/09/2010

OPEN "","DEMANDACC" TO F.DEMANDACC ELSE STOP
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

ENR_ACCORD =""
ENR_DEMANDACC =""
ENR_CIVILAIDE =""


W_CodeOrg=""
W_Requete=""
W_Tab=""
W_Ligne=""
MSGCODE =""
W_Tx=""

EXECUTE 'SELECT DEMANDACC AVEC 1="001" OR ="205" PAR @ID '
EXECUTE 'SAUVE-LISTE W_Requete'
EXECUTE "LISTE W_Requete" RETURNING MSGCODE

IF MSGCODE<1>#209 THEN
	SELECT F.DEMANDACC TO W_Requete
	W_Tab<-1>="Code Aide;Nom;Prenom;Organisme;Date de demande accord;date debut accord;date fin accord;Nb hres alloue;Participation Beneficiaire"
	W_Fini="FAUX"
    LOOP
		READNEXT W_CleAcc FROM W_Requete ELSE W_Fini="VRAI"
    WHILE W_Fini="FAUX" DO
		W_Ligne=""
    READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_CleAcc ELSE ENR_CIVILAIDE=""
		
		W_Ligne=W_CleAcc:";":ENR_CIVILAIDE<2>:";":ENR_CIVILAIDE<3>

		READ ENR_DEMANDACC FROM F.DEMANDACC,W_CleAcc THEN	
			FOR IAcc= 1 TO DCOUNT(ENR_DEMANDACC<1>,CHAR(253))
				READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,ENR_DEMANDACC<1,IAcc> THEN	
				       	W_Ligne=W_Ligne:";":ENR_ORGPRISECHARGE<1>
				END
        W_Ligne=W_Ligne:";":OCONV(ENR_DEMANDACC<2,IAcc>,"D4/"):";":OCONV(ENR_DEMANDACC<3,IAcc>,"D4/"):";":OCONV(ENR_DEMANDACC<4,IAcc>,"D4/")
				W_Ligne=W_Ligne:";":OCONV(ENR_DEMANDACC<5,IAcc>,"MR2")
				W_Ligne=W_Ligne:";":OCONV(ENR_DEMANDACC<6,IAcc>,"MR2")  
			NEXT 
		W_Tab<-1>=W_Ligne
		
		END

	REPEAT
	WRITE W_Tab ON F.FUSION, "ListeDemandAcc.csv"
  PRINT "Traitment Termin, le fichier est gener dans le repertoire fusion : ListeDemandAcc.csv "	
END
EXECUTE 'EFFACER-LISTE W_Requete'

STOP