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

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

 EXECUTE 'SELECT FACTURAIDE AVEC 0 = "[M200201]" 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

    W_DIFF=0

    i=1
    LOOP
    WHILE ENR_FACTURAIDE<1,i> # "" DO
       W_Lib=ENR_FACTURAIDE<2,i>

       IF W_Lib="FRAIS DE GESTION" THEN
	  ENR_FACTURAIDE<3,i>=INT((ENR_FACTURAIDE<3,i>/(110/100)+1/2)+1/2)

	  GOSUB 10

	  W_DIFF=W_FRAISGESTION-ENR_FACTURAIDE<5,i>
       END
       i=i+1
    REPEAT

    READ ENR_COMPLFACT FROM F.COMPLFACT,W_Cle[1,5]:"002M" ELSE ENR_COMPLFACT=""
    ENR_COMPLFACT<1,-1>="REGUL. FRAIS DE GESTION JANV. 2002"
    ENR_COMPLFACT<2,-1>="0"
    ENR_COMPLFACT<3,-1>="0"
    ENR_COMPLFACT<4,-1>=W_DIFF
    ENR_COMPLFACT<5,-1>="0"
    ENR_COMPLFACT<6,-1>="0"
    ENR_COMPLFACT<7,-1>="0"
    WRITE ENR_COMPLFACT ON F.COMPLFACT,W_Cle[1,5]:"002M"
 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  
