*********************************
* CORRECTION BUG SUR REGUL. ASF *
*                               *
* 04/04/01             STEPHANE *
*********************************

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

EXECUTE 'SSELECT COMPLFACT AVEC @ID = "[M]"'

W_FINI=0
LOOP
     READNEXT CLE ELSE W_FINI=1
     UNTIL W_FINI=1 DO

     READ ENR_COMPLFACT3 FROM F.COMPLFACT3,CLE ELSE ENR_COMPLFACT3=""
     READ ENR_COMPLFACT FROM F.COMPLFACT,CLE ELSE ENR_COMPLFACT=""

     IF ENR_COMPLFACT<>"" THEN
       ENR_COMPLFACT<1,-1>=ENR_COMPLFACT3<1,1>
       ENR_COMPLFACT<2,-1>=ENR_COMPLFACT3<2,1>
       ENR_COMPLFACT<3,-1>=ENR_COMPLFACT3<3,1>
       ENR_COMPLFACT<4,-1>=ENR_COMPLFACT3<4,1>
       ENR_COMPLFACT<5,-1>=ENR_COMPLFACT3<5,1>
       ENR_COMPLFACT<6,-1>=ENR_COMPLFACT3<6,1> 
     END ELSE
       ENR_COMPLFACT<1,1>=ENR_COMPLFACT3<1,1>
       ENR_COMPLFACT<2,1>=ENR_COMPLFACT3<2,1>
       ENR_COMPLFACT<3,1>=ENR_COMPLFACT3<3,1>
       ENR_COMPLFACT<4,1>=ENR_COMPLFACT3<4,1>
       ENR_COMPLFACT<5,1>=ENR_COMPLFACT3<5,1>
       ENR_COMPLFACT<6,1>=ENR_COMPLFACT3<6,1> 
     END
     WRITE ENR_COMPLFACT ON F.COMPLFACT,CLE
REPEAT

STOP
