*****************************************
* REPREND LES DROITS DIF AVEC VIRGULE	*
*****************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DIFAIDANT" TO F.DIFAIDANT ELSE PRINT "OUVERTURE DIFAIDANT" ;* en lecture criture

   	EXECUTE 'SELECT DIFAIDANT AVEC 2 = "[,]" OR = "[.]"'

   	W_End="FAUX"

   	LOOP
      		READNEXT W_Cle ELSE W_End = "VRAI"
   	WHILE W_End = "FAUX" DO
      	READ ENR_DIFAIDANT FROM F.DIFAIDANT,W_Cle ELSE ENR_DIFAIDANT=""
     
		W_Count=DCOUNT(ENR_DIFAIDANT<1>,CHAR(253))
		FOR i = 1 TO W_Count
			IF INDEX(ENR_DIFAIDANT<2,i>,".",1) # 0 THEN
				ENR_DIFAIDANT<2,i> = CONVERT(".",",",ENR_DIFAIDANT<2,i>)
			END
			IF INDEX(ENR_DIFAIDANT<2,i>,",",1) # 0 THEN
				ENR_DIFAIDANT<2,i>=INT(ENR_DIFAIDANT<2,i>+(1/2))
			END
		NEXT i

		FOR i = 1 TO W_Count
			IF i=1 THEN
				ENR_DIFAIDANT<4,i>=ENR_DIFAIDANT<2,i>
			END ELSE
				IF ENR_DIFAIDANT<2,i> # "" THEN
					W_HreAcq=ENR_DIFAIDANT<2,i>
				END ELSE
					W_HreAcq=0
				END
				IF ENR_DIFAIDANT<3,i> # "" THEN
					W_HreConso=ENR_DIFAIDANT<3,i>
				END ELSE
					W_HreConso=0
				END

				ENR_DIFAIDANT<4,i>=ENR_DIFAIDANT<4,i-1>+W_HreAcq-W_HreConso

			END
		NEXT i

      	WRITE ENR_DIFAIDANT ON F.DIFAIDANT,W_Cle

   	REPEAT



STOP
