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

W_Date=DATE()

EXECUTE 'SELECT FORMEXPAIDANT PAR @ID'
W_Fini="FAUX"
LOOP
	READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
	READ ENR_FORMEXPAIDANT FROM F.FORMEXPAIDANT,W_Cle THEN
		W_Count=DCOUNT(ENR_FORMEXPAIDANT<5>,CHAR(253))
		I=0
		LOOP
			I=I+1
		WHILE I<=W_Count DO
			IF ENR_FORMEXPAIDANT<5,I><0 OR ENR_FORMEXPAIDANT<5,I>>W_Date THEN
				ENR_FORMEXPAIDANT<5,I>=""
				WRITE ENR_FORMEXPAIDANT ON F.FORMEXPAIDANT, W_Cle
			END
		REPEAT
	END
REPEAT

STOP
