EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "TPSDETAILSINTERV" TO F.TPSDETAILSINTERV ELSE STOP
OPEN "", "ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
EXECUTE 'SELECT TPSDETAILSINTERV PAR CodeAide PAR DateDebInterv'
EXECUTE 'SAUVE-LISTE W_ReqIntervAide'
EXECUTE 'LISTE W_ReqIntervAide' RETURNING MSGCODE
IF MSGCODE<1> # "209" THEN
	SELECT F.TPSDETAILSINTERV TO W_ReqIntervAide
END
PRINT "Debut"
EXECUTE 'COMO ON VerifAidesSuppr.txt'
W_Fin = "F"
LOOP
READNEXT W_Cle FROM W_ReqIntervAide ELSE W_Fin = "V"
WHILE W_Fin = "F"
	GOSUB 200
REPEAT
EXECUTE 'COMO OFF'
EXECUTE 'EFFACER-LISTE W_ReqIntervAide'
STOP
200
READ ENR_TPSDETAILSINTERV FROM F.TPSDETAILSINTERV, W_Cle THEN
READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE, W_Cle[6,5] THEN
	CodeAct = W_Cle[16,6]
	DateDeb = W_Cle[11,5]
	DateFin = ENR_TPSDETAILSINTERV<1>
	W_Trouve = "F"
	W_IndiceAct = 0
	i = 0
	LOOP
	i = i + 1
	WHILE ENR_ACTIVITESAIDE<1,i> # "" AND W_Trouve = "F"
	   IF ENR_ACTIVITESAIDE<1,i> = CodeAct THEN
		IF ENR_ACTIVITESAIDE<2,i> <= DateDeb AND (ENR_ACTIVITESAIDE<3,i> >= DateFin OR ENR_ACTIVITESAIDE<3,i> = "") THEN
			W_Trouve = "V"
		END ELSE
			IF ENR_ACTIVITESAIDE<3,i> >= DateDeb AND (ENR_ACTIVITESAIDE<3,i> <= DateFin OR DateFin = "")  AND ENR_ACTIVITESAIDE<3,i> # "" AND W_IndiceAct = 0 THEN
				W_IndiceAct = i
			END
		END 
	   END
	REPEAT
	IF W_Trouve = "F" THEN
		PRINT W_Cle[6,5]:" pas d'act., interv au ":OCONV(DateDeb,"D4/"):", le ":W_Cle[22,1] 
		IF W_IndiceAct # 0 THEN
		   IF ENR_ACTIVITESAIDE<3,W_IndiceAct> >= DateDeb THEN
			ENR_TPSDETAILSINTERV<1> = ENR_ACTIVITESAIDE<3,W_IndiceAct>
			WRITE ENR_TPSDETAILSINTERV ON F.TPSDETAILSINTERV, W_Cle
		   END ELSE
			DELETE F.TPSDETAILSINTERV, W_Cle
		   END
		END ELSE
			PRINT "Pas modifi"
		END
	END
END ELSE
	PRINT W_Cle[6,5]:" n'a pas d'ACTIVITESAIDE"
END
END
RETURN
