*************************************
* Suite  une dfacturation, les aids facturs
* au trimestre ont vu le mois d'aout doubl.

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "", "FUSION" TO F.FUSION ELSE STOP
OPEN "", "FACTURAIDETRIM" TO F.FACTURAIDETRIM ELSE STOP
OPEN "", "ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE STOP

ENR_CIVILAIDE=""
ENR_FUSION=""
ENR_FACTURAIDETRIM=""
ENR_ELTSFACTAIDE=""

ENR_FUSION<-1>="Code;Nom prenom;Libell facturation;Base;Taux 1;Taux 2;Montant 1;Montant 2;Plvt"

W_ReqAideTrim=""
EXECUTE 'SELECT FACTURAIDETRIM AVEC 1 = "201008" AND AVEC 0 = "[P" PAR 0 '
EXECUTE 'SAUVE-LISTE W_ReqAideTrim'
EXECUTE 'LISTE W_ReqAideTrim' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.FACTURAIDETRIM TO W_ReqAideTrim

	W_Fin = "F"
	LOOP
		READNEXT W_Cle FROM W_ReqAideTrim ELSE W_Fin = "O"
	WHILE W_Fin = "F"
		READ ENR_FACTURAIDETRIM FROM F.FACTURAIDETRIM, W_Cle THEN
			READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_Cle[1,5] THEN
				READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE, W_Cle[1,5] ELSE ENR_ELTSFACTAIDE=""
				
				IF ENR_ELTSFACTAIDE<18><>"" AND ENR_ELTSFACTAIDE<19><>"" AND ENR_ELTSFACTAIDE<20><>"" AND ENR_ELTSFACTAIDE<21><>"" THEN
					IF ENR_ELTSFACTAIDE<25>="1" THEN
						W_Plvt="Non"
					END ELSE
						W_Plvt="Oui"
					END
				END ELSE
					W_Plvt="Non"
				END
				
				FOR I = 1 TO DCOUNT(ENR_FACTURAIDETRIM<1>,CHAR(253))
					IF ENR_FACTURAIDETRIM<1,I>="201008" THEN
						FOR J = I+1 TO DCOUNT(ENR_FACTURAIDETRIM<1>,CHAR(253))
							IF ENR_FACTURAIDETRIM<1,I>=ENR_FACTURAIDETRIM<1,J> AND ENR_FACTURAIDETRIM<2,I>=ENR_FACTURAIDETRIM<2,J> AND ENR_FACTURAIDETRIM<3,I>=ENR_FACTURAIDETRIM<3,J> THEN
								ENR_FUSION<-1>=W_Cle[1,5]:";":ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>:';':ENR_FACTURAIDETRIM<2,I>:';':ENR_FACTURAIDETRIM<3,I>/100:';':ENR_FACTURAIDETRIM<4,I>/100:';':ENR_FACTURAIDETRIM<4,J>/100:';':ENR_FACTURAIDETRIM<5,I>/100:';':ENR_FACTURAIDETRIM<5,J>/100:';':W_Plvt
								EXIT
							END
						NEXT J
					END
				NEXT I
			END
		END
	REPEAT
END

IF ENR_FUSION<2><>"" THEN
	WRITE ENR_FUSION ON F.FUSION, "Aids au trimestre - Aout en double.csv"
END

STOP