EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP
EXECUTE 'SELECT FACTURAIDE AVEC PeriodeCleFactAide = "':"200008":'" AND AVEC ActiviteFact = "':"M":'" PAR-DECR @ID'
W_Fini="FAUX"
W_ANCIENCODE=""

LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO

	IF W_ANCIENCODE # W_Cle[1,25] THEN
		GOSUB 100
		W_ANCIENCODE=W_Cle[1,25]
	END
 
REPEAT

STOP


100
   READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE STOP

   W_COMPTEUR=DCOUNT(ENR_FACTURAIDE<1>,CHAR(253))

   FOR I=1 TO W_COMPTEUR
	IF ENR_FACTURAIDE<2,I>="PRISE EN CHARGE MSA AIDE AU MENAGE" THEN
		ENR_FACTURAIDE<14,I>="0"
		WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_Cle
	END
   NEXT I

RETURN
