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

PRINT "Saisissez le nom du fichier  modifier"
INPUT W_Cle

PRINT "Quel code voulez vous modifier ?"
INPUT W_AncienCode

PRINT "Par quel code voulez-vous le remplacer ?"
INPUT W_NouveauCode

READ ENR_PRELEV FROM F.PRELEVEMENT, W_Cle ELSE ENR_PRELEV = ""

IF ENR_PRELEV = "" THEN
	PRINT "Le fichier ":W_Cle:" n'a pas t trouv dans le rpertoire PRELEVEMENT"
	STOP
END ELSE
	W_Trouve = "F"
	W_Count = DCOUNT(ENR_PRELEV, CHAR(254))
	FOR i = 1 TO W_Count
		IF ENR_PRELEV<i>[3,2] = W_AncienCode THEN
			ENR_PRELEV<i>=ENR_PRELEV<i>[1,2]:W_NouveauCode:ENR_PRELEV<i>[5,LEN(ENR_PRELEV<i>)]
			W_Trouve = "V"
		END
	NEXT i
END
IF W_Trouve = "F" THEN
	PRINT "Aucun code ":W_AncienCode:" n'a t trouv dans le fichier ":W_Cle
END ELSE
	WRITE ENR_PRELEV ON F.PRELEVEMENT, W_Cle
END
STOP
