EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
 OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP
 EXECUTE 'SELECT FACTURAIDE AVEC 0 = "[M200201]" AND AVEC ... = "01"'
 W_Fini="FAUX"
 LOOP
    READNEXT W_Cle ELSE W_Fini="VRAI"
 WHILE W_Fini="FAUX" DO
    READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE STOP
    i=1
    LOOP
    WHILE ENR_FACTURAIDE<1,i> # "" DO
       W_Lib=ENR_FACTURAIDE<2,i>
       W_Lib=W_Lib[1,7]
       IF W_Lib="FRAIS DE GESTION" THEN
          ENR_FACTURAIDE<5,i>=INT((ENR_FACTURAIDE<5,i>/6.55957)+1/2)
          ENR_FACTURAIDE<11>="0"
       END
       i=i+1
    REPEAT
    WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_Cle
 REPEAT

STOP

