EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP
W_SaveCode =""
Ligne=""
Ligne<1>="Code;Nom Aide;Prenom Aide;Numero Voie;Complement Voie;Nature Voie;Nom Voie;Complement Adresse;Code Postal;Commune;Type Contrat;Rib Aide"
EXECUTE 'SSELECT ELTSFACTAIDE AVEC 17 = "[HSBC]" OR AVEC 17 = "[HERVET]" AND AVEC DateSuppr = "" AND AVEC DatSortiEltsFactAide = ""'

W_FIN=0
LOOP
	READNEXT CLE ELSE W_FIN=1
	W_Banque = ""
	i=1
UNTIL W_FIN=1 DO
	IF W_SaveCode # CLE THEN
		W_SaveCode = ""
		READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE, CLE THEN
			W_Banque = ENR_ELTSFACTAIDE<17>
		END
		
		READ ENR_CIVILAIDE FROM F.CIVILAIDE,CLE THEN
			W_Code = CLE
			W_NomAide = ENR_CIVILAIDE<2>
			W_PrenomAide = ENR_CIVILAIDE<3>
			W_NumVoie = ENR_CIVILAIDE<5>
			W_ComplVoie = ENR_CIVILAIDE<6>
			W_NatVoie = ENR_CIVILAIDE<7>
			W_NomVoie = ENR_CIVILAIDE<8>
			W_ComplAdrAide = ENR_CIVILAIDE<9>
			W_CodPostAide = ENR_CIVILAIDE<10>
			W_CommuneAide = ENR_CIVILAIDE<11>
			W_SaveCode = W_Code
		END
				Ligne<-1>=W_Code:";":W_NomAide:";":W_PrenomAide:";":W_NumVoie:";":W_ComplVoie:";":W_NatVoie:";":W_NomVoie:";":W_ComplAdrAide:";":W_CodPostAide:";":W_CommuneAide:";":W_Banque
	END
REPEAT
WRITE Ligne ON F.FUSION, "InformationRibAide.csv"
STOP