***********************************
*
* MODIF FACTURAIDE ASMAD
*
***********************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP

W_FINACCORD="FAUX"
LOOP 
     READNEXT CLE ELSE
	  W_FINACCORD="VRAI"
     END
     UNTIL W_FINACCORD="VRAI" DO
     
     * LECTURE ACCORD
     READ ENR_FACTURAIDE FROM F.FACTURAIDE,CLE ELSE 
	PRINT "ERREUR ACCORD"
     END

     ENR_FACTURAIDE<11>="1"

     WRITE ENR_FACTURAIDE TO F.FACTURAIDE,CLE
REPEAT
