*********************************
* 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

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

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

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

     i=1
     LOOP
	  UNTIL ENR_COMPLFACT<i>="" DO
	  IF ENR_COMPLFACT<1,i>="REGULARISATION CHARGES URSSAF" THEN
		ENR_COMPLFACT=DELETE(ENR_COMPLFACT,1,i)
		ENR_COMPLFACT=DELETE(ENR_COMPLFACT,2,i)
		ENR_COMPLFACT=DELETE(ENR_COMPLFACT,3,i)
		ENR_COMPLFACT=DELETE(ENR_COMPLFACT,4,i)
		ENR_COMPLFACT=DELETE(ENR_COMPLFACT,5,i)
		ENR_COMPLFACT=DELETE(ENR_COMPLFACT,6,i)
		i=i-1
	  END
	  i=i+1
     REPEAT
     IF ENR_COMPLFACT<1>="" THEN 
	DELETE F.COMPLFACT,CLE
     END ELSE
	WRITE ENR_COMPLFACT ON F.COMPLFACT,CLE
     END
REPEAT

STOP
