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

W_RequeteMoul=""

EXECUTE 'SELECT DIFAIDANT AVEC 1 ="14000"'

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

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

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_DIFAIDANT FROM F.DIFAIDANT,W_Cle ELSE STOP
	  i=1
	  LOOP
	  WHILE ENR_DIFAIDANT<1,i> <> "14000" AND ENR_DIFAIDANT<1,i> <> ""
		i=i+1
	  REPEAT
	  IF ENR_DIFAIDANT<1,i> = "14000" THEN
		IF ENR_DIFAIDANT<2,i> <> 0 AND ENR_DIFAIDANT<2,i> <> "" THEN
			ENR_DIFAIDANT=DELETE(ENR_DIFAIDANT,1,i)
			ENR_DIFAIDANT=DELETE(ENR_DIFAIDANT,2,i)
			ENR_DIFAIDANT=DELETE(ENR_DIFAIDANT,3,i)
			ENR_DIFAIDANT=DELETE(ENR_DIFAIDANT,4,i)
			ENR_DIFAIDANT=DELETE(ENR_DIFAIDANT,5,i)
			ENR_DIFAIDANT=DELETE(ENR_DIFAIDANT,6,i)
			WRITE ENR_DIFAIDANT ON F.DIFAIDANT,W_Cle
		END
	  END

   REPEAT

END

EXECUTE 'EFFACER-LISTE W_RequeteMoul'

STOP
