***************************************************************
* CONVERTI LES FICHIERS DE VIREMENT ET DE PRELEVEMENT EN EURO *
***************************************************************

LOOP
	PRINT "Saisissez le nom du repertoire o se trouve le fichier  convertir en Euro :"
	INPUT NomRep

	W_VIRPREVAbsent = "Faux"
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
	OPEN "", NomRep TO F.VIRPREV ELSE W_VIRPREVAbsent = "Vrai"

IF W_VIRPREVAbsent = "Vrai" THEN
	PRINT "Le rpertoire que vous avez saisi est introuvable dans la base."
END ELSE

	PRINT "Saisissez le nom du fichier  l'intrieur de ce rpertoire"
	INPUT NomFichier

	W_FichierAbsent = "Faux"
	READ ENR_VIRPREV FROM F.VIRPREV, NomFichier ELSE W_FichierAbsent = "Vrai"

	IF W_FichierAbsent = "Vrai" THEN
		PRINT "Le fichier ":NomFichier:" est introuvable dans ":NomRep
	END 

END

WHILE W_VIRPREVAbsent = "Vrai" OR W_FichierAbsent = "Vrai"
REPEAT

ENR_VIRPREVEURO = ""
I = 1

ENR_VIRPREVEURO<I> = ENR_VIRPREV<I>[1,80]:'E':ENR_VIRPREV<I>[82,160]

TOTAL = 0

LOOP
	I = I + 1
WHILE ENR_VIRPREV<I>[1,2] <> "08"
	MONTANT = ENR_VIRPREV<I>[103,16]
	MONTANT = INT((MONTANT / 6.55957) + (1/2))
	TOTAL = TOTAL + MONTANT
	MONTANT = MONTANT "R(%16)"
	ENR_VIRPREVEURO<I> = ENR_VIRPREV<I>[1,102]:MONTANT:ENR_VIRPREV<I>[119,160]
REPEAT

MONTEURO = (TOTAL / 100) "R2"

TOTAL = TOTAL "R(%16)"

ENR_VIRPREVEURO<I> = ENR_VIRPREV<I>[1,102]:TOTAL:ENR_VIRPREV<I>[119,160]

CLEEURO = NomFichier:'E'

WRITE ENR_VIRPREVEURO TO F.VIRPREV,CLEEURO

PRINT 'LE MONTANT DE L OPERATION EST DE : ':MONTEURO:' Euros'

STOP
