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

 EXECUTE 'SELECT FACTURAIDE AVEC 0 = "[M200208]" AND AVEC BaremeAide = "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
    READ ENR_ELTSPARTEMP FROM F.ELTSPARTEMP,W_Cle[1,5] ELSE ENR_ELTSPARTEMP=""
    READ ENR_BAREMEPARTEMP FROM F.BAREMEPARTEMP,ENR_ELTSPARTEMP<13> ELSE ENR_BAREMEPARTEMP=""
    i=1
    LOOP
    WHILE ENR_FACTURAIDE<1,i> # "" DO
       W_Lib=ENR_FACTURAIDE<2,i>

       IF W_Lib="FRAIS DE GESTION" THEN
	  GOSUB 10

          ENR_FACTURAIDE<5,i>=W_FRAISGESTION
          ENR_FACTURAIDE<11>="0"
       END
       i=i+1
    REPEAT
    WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_Cle
 REPEAT

STOP

10 *
     W_FRAISGESTION=0

     W_BASEFRAISGESTION=ENR_FACTURAIDE<3,i>
     W_CUMULFRAISGESTION=ENR_FACTURAIDE<3,i>

     * RECHERCHE RANG DANS BAREME
     I=1
     LOOP 
          UNTIL ENR_BAREMEPARTEMP<4,I>>W_CUMULFRAISGESTION AND ENR_BAREMEPARTEMP<3,I><=W_CUMULFRAISGESTION OR ENR_BAREMEPARTEMP<3,I>="" DO
          I=I+1
     REPEAT

     IF ENR_BAREMEPARTEMP<3,I><>"" THEN
       W_FRAISGESTION=ENR_BAREMEPARTEMP<5,I>+((W_CUMULFRAISGESTION-ENR_BAREMEPARTEMP<3,I>)*(ENR_BAREMEPARTEMP<6,I>/100))
       W_FRAISGESTION=INT((W_FRAISGESTION)+1/2)
     END ELSE
       W_FRAISGESTION=0
     END
RETURN  
