***************************
* LISTE DES AIDANTS ACTIF *
* ALAIN 11/09/2002        *
***************************

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

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

EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	

IF MSGCODE<1> # 209 THEN 

	W_FINI = "FAUX"

	SELECT F.CONTRAT TO W_RESULTAT

	PRINTER ON

	W_CODEAIDANT = ""
	W_CODEANC = ""

	LOOP
		READNEXT CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
		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
			PRINT W_CODEAIDANT:' ':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>
			PRINT '      ':ENR_CIVILAIDANT<5>:' ':ENR_CIVILAIDANT<6>:' ':ENR_CIVILAIDANT<7>:' ':ENR_CIVILAIDANT<8>:' ':ENR_CIVILAIDANT<9>:' ':ENR_CIVILAIDANT<10>:' ':ENR_CIVILAIDANT<11>
			PRINT ' '
			W_CODEANC = W_CODEAIDANT
		   END
		END
	REPEAT
	
END

STOP
