        W_MODULE="PAIEAM"
	* CREATION VOC
	GOSUB 800
	OPEN "","COMMUNE" TO F.COMMUNE ELSE STOP
	OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP

	EXECUTE 'TSELECT CIVILAIDE'
        W_REQVIDE="FAUX"
	LOOP
		READNEXT CLEAIDE ELSE
			W_REQVIDE="VRAI"
		END
		UNTIL W_REQVIDE="VRAI" DO

                READ ENR_CIVILAIDE FROM F.CIVILAIDE,CLEAIDE ELSE PRINT "ERREUR CIVILAIDE"
                VILLE=EXTRACT(ENR_CIVILAIDE,11)
                READ ENR_COMMUNE FROM F.COMMUNE,VILLE ELSE ENR_COMMUNE=""
                CODERESP=EXTRACT(ENR_COMMUNE,4)
                IF CODERESP#"" THEN
                   ENR_CIVILAIDE=REPLACE(ENR_CIVILAIDE,39;CODERESP)
                   WRITE ENR_CIVILAIDE ON F.CIVILAIDE,CLEAIDE
                END

	REPEAT	
		
 	GOSUB 900

	STOP

800 *
	OPEN "","VOC" TO F.VOC ELSE STOP
	ENR_VOC=""
	ENR_VOC=REPLACE(ENR_VOC,1;"F")
        ENR_VOC=REPLACE(ENR_VOC,2;"D:\TRANSFERT\":W_MODULE:"\COMMUNE")
        ENR_VOC=REPLACE(ENR_VOC,3;"D:\TRANSFERT\":W_MODULE:"\D_COMMUNE")
        WRITE ENR_VOC ON F.VOC,"COMMUNE"
RETURN

900 *
	DELETE F.VOC,"COMMUNE"
RETURN