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

W_RequeteMoul=""

ENR_FICHEMEDAIDE=""
ENR_FICHEMEDAIDE2=""

EXECUTE 'SELECT FICHEMEDAIDE PAR @ID'

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

IF MSGCODE<1> # 209 THEN
	SELECT F.FICHEMEDAIDE TO W_RequeteMoul

	W_Fini="FAUX"
	LOOP
		READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
	WHILE W_Fini="FAUX" DO
		READ ENR_FICHEMEDAIDE FROM F.FICHEMEDAIDE,W_Cle ELSE PRINT "FICHEMEDAIDE :":W_Cle
		   ENR_FICHEMEDAIDE2=""
		   IF ENR_FICHEMEDAIDE<1> # "" THEN
			ENR_FICHEMEDAIDE2<1,1>=DATE()
			ENR_FICHEMEDAIDE2<2,1>=ENR_FICHEMEDAIDE<1>
		   END
		   IF ENR_FICHEMEDAIDE<2> # "" THEN
			ENR_FICHEMEDAIDE2<3,1>=DATE()
			ENR_FICHEMEDAIDE2<4,1>=ENR_FICHEMEDAIDE<2>
		   END
		   IF ENR_FICHEMEDAIDE<3> # "" THEN
			ENR_FICHEMEDAIDE2<5,1>=DATE()
			ENR_FICHEMEDAIDE2<6,1>=ENR_FICHEMEDAIDE<3>
		   END
		WRITE ENR_FICHEMEDAIDE2 ON F.FICHEMEDAIDE,W_Cle
	REPEAT
END

STOP
