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

 READ ENR_BAREMEPARTEMP FROM F.BAREMEPARTEMP,"01" ELSE ENR_BAREMEPARTEMP=""

 EXECUTE 'SELECT FACTURAIDE AVEC 0 = "[P200201]" AND AVEC 4 = "1245"'
 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<4,i>

       IF W_Lib="1223" THEN
	  ENR_FACTURAIDE<4,i>="1245"
          ENR_FACTURAIDE<5,i>=INT(((ENR_FACTURAIDE<3,i>*ENR_FACTURAIDE<4,i>)/100)+1/2)
       END
       i=i+1
    REPEAT
    WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_Cle
 REPEAT

STOP
