***************************
* LISTE DES AIDANTS ACTIF *
* ALAIN 18/10/2002        *
***************************

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

W_RESULTAT = ""
W_RESULTAT2 = ""

EXECUTE 'SSELECT CIVILAIDANT AVEC 36 = "" PAR 0 '

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

IF MSGCODE<1> # 209 THEN 

	W_FINI = "FAUX"

	SELECT F.CIVILAIDANT TO W_RESULTAT

	PRINTER ON

	LOOP
		READNEXT CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
	WHILE W_FINI = "FAUX"
		   READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE ELSE ENR_CIVILAIDANT = ""
		   
		   IF ENR_CIVILAIDANT<31> # "099" AND ENR_CIVILAIDANT<31> # "098" AND ENR_CIVILAIDANT<31> # "097" AND ENR_CIVILAIDANT<31> # "096" THEN
		   	EXECUTE 'SSELECT COMMUNES AVEC 1 = "':ENR_CIVILAIDANT<11>:'" PAR 0 '

		   	EXECUTE 'SAUVE-LISTE W_RESULTAT2'
		   	EXECUTE "LISTE W_RESULTAT2" RETURNING MSGCODE
	
		   	IF MSGCODE<1> # 209 THEN 
				W_FIN = "FAUX"

				SELECT F.COMMUNES TO W_RESULTAT2

				READNEXT CLECOM FROM W_RESULTAT2 ELSE W_FIN="VRAI"

		   		READ ENR_COMMUNES FROM F.COMMUNES,CLECOM ELSE ENR_COMMUNES = ""
		   		READ ENR_COMMUNES2 FROM F.COMMUNES2,CLECOM ELSE ENR_COMMUNES2 = ""

 	   	   		IF ENR_COMMUNES2<3> # ENR_COMMUNES<3> THEN
 	   	   			IF ENR_COMMUNES2<3> = ENR_CIVILAIDANT<31> THEN
						ENR_CIVILAIDANT<31> = ENR_COMMUNES<3>
						ENR_CIVILAIDANT<32> = ENR_COMMUNES<3>:'01'
						ENR_CIVILAIDANT<33> = ENR_COMMUNES<3>:'0101'
						WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT, CLE
					END
		   		END
		  	END
		   END
	REPEAT
	
END

STOP
