**************************************
* LISTE DES AIDANTS ACTIF SOUS EXCEL *
* STEPHANE 22/05/2003     	     *
**************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP

10
PRINT "CONTRATS ACTIFS AU : (FORMAT JJ/MM/AAAA ou JJMMAA)" 
INPUT W_DATE

W_DATE=ICONV(W_DATE,"D4/")
IF W_DATE="" OR W_DATE=0 THEN GOSUB 10

EXECUTE 'SSELECT CONTRAT AVEC 65 = "" AND AVEC 8 > "':W_DATE:'" OR = "" PAR NomPrenomAidantContrat PAR 0 '

EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
ENR_FUSION=""
ENR_FUSION<1>="Titre;Nom Prenom;Adresse 1;Adresse 2;Code postal + ville;Convention col"
I=2

IF MSGCODE<1> # 209 THEN 

	W_FINI = "FAUX"

	SELECT F.CONTRAT TO W_RESULTAT
	
	W_CODEAIDANT = ""
	W_CODEANC = ""

	LOOP
		READNEXT CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
		READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE ENR_CONTRAT=""
		W_CODEAIDANT = CLE[1,5]
	WHILE W_FINI = "FAUX"
		IF W_CODEAIDANT # W_CODEANC THEN
		   READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_CODEAIDANT ELSE ENR_CIVILAIDANT = ""
 	   	   IF ENR_CIVILAIDANT<36> = "" THEN
			ENR_FUSION<I>=ENR_CIVILAIDANT<1>:';':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>:";"
			ENR_FUSION<I>=ENR_FUSION<I>:ENR_CIVILAIDANT<5>:' ':ENR_CIVILAIDANT<6>:' ':ENR_CIVILAIDANT<7>:' ':ENR_CIVILAIDANT<8>:';':ENR_CIVILAIDANT<9>:';':ENR_CIVILAIDANT<10>:' ':ENR_CIVILAIDANT<11>:";":ENR_CONTRAT<1>
			I=I+1
			W_CODEANC = W_CODEAIDANT
		   END
		END
	REPEAT
	
END

WRITE ENR_FUSION ON F.FUSION,"LISTE AIDANT.CSV"
STOP
