*****************************************************************
* Mise  jour fichier PARAMBORDORGCHG                           *
* Suppression des () dans les libells                          *
*****************************************************************

************
* FICHIERS *
************
* OUVERTURE DES FICHIERS UTILISES
*DEBUG
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","BUDGETFICHPERSO" TO F.BUDGETFICHPERSO ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP

W_FINI=0 
W_CSV = ""

EXECUTE 'SELECT BUDGETFICHPERSO'
LOOP
	READNEXT CLE ELSE W_FINI=1
WHILE W_FINI = 0
	READ ENR_BUDGETFICHPERSO FROM F.BUDGETFICHPERSO,CLE ELSE PRINT "Cle ":CLE:" introuvable dans le fichier BUDGETFICHPERSO"
    W_count = DCOUNT(ENR_BUDGETFICHPERSO,CHAR(254))
	IF W_count > 39 THEN
		W1 = CLE[1,5]
		W2 = CLE[6,3]
		W3 = CLE[9,4]
		W_CSV = W_CSV:CLE:";":W1:";":W2:";":W3:";":ENR_BUDGETFICHPERSO<1>:CHAR(13)
	END
REPEAT
IF W_CSV#"" THEN
	WRITE W_CSV ON F.FUSION, "LngBudgetFichPerso.csv"
END	
RETURN


