
LOOP

	PRINT "Saisissez le nom du repertoire ou se trouve le fichier JemploiePro"
	INPUT NomRep
	PRINT "Saisissez le nom du fichier  l'intrieur de ce rpertoire"
	INPUT NomFichier	

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

IF W_DNTAbsente = "Vrai" THEN
	PRINT "Le rpertoire que vous avez saisi est introuvable dans la base : "
END ELSE
	W_FichierAbsent = "Faux"
	READ ENR_DNT FROM F.DNT, NomFichier ELSE W_FichierAbsent = "Vrai"

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

END

WHILE W_DNTAbsente = "Vrai" OR W_FichierAbsent = "Vrai"
REPEAT

W_CumulCot = 0
W_CumulTEP = 0
i=0
LOOP
i=i+1
WHILE ENR_DNT<i> # ""

	BEGIN CASE
		CASE ENR_DNT<i>[63,3] = "G10"
			GOSUB 100
		CASE ENR_DNT<i>[63,3] = "M30"
			GOSUB 200
		CASE ENR_DNT<i>[63,3] = "Z10"
			GOSUB 300
	END CASE
		
REPEAT

WRITE ENR_DNT ON F.DNT, NomFichier:"E"

STOP

100
* traitement enregistrement type G10
W_MontantFr = ENR_DNT<i>[279,10]
W_MontantFr = INT(W_MontantFr/655957*100000 + 1/2)
W_CumulCot = W_CumulCot + W_MontantFr
W_MontantFr = W_MontantFr"R%10"
ENR_DNT<i> = ENR_DNT<i>[1,278]:W_MontantFr:ENR_DNT<i>[289,87]:"EUREUR":ENR_DNT<i>[382,83]

IF ENR_DNT<i>[347,6] # "000000" THEN
	W_MontantFr = ENR_DNT<i>[347,6]
	W_MontantFr = INT(W_MontantFr/655957*100000 + 1/2)
	W_CumulTEP = W_CumulTEP + W_MontantFr
	W_MontantFr = W_MontantFr"R%6"
	ENR_DNT<i> = ENR_DNT<i>[1,346]:W_MontantFr:ENR_DNT<i>[353,26]:"EUR":ENR_DNT<i>[382,83]
END
RETURN

200
*traitement enregistrement type M30
W_MontantFr = ENR_DNT<i>[365,5]
W_MontantFr = INT(W_MontantFr/655957*100000 + 1/2)
W_MontantFr = W_MontantFr"R%5"
ENR_DNT<i> = ENR_DNT<i>[1,364]:W_MontantFr:ENR_DNT<i>[370,32]:"EUR":ENR_DNT<i>[405,60]
RETURN

300
*traitement enregistrement type Z10
W_TotalFranc = INT(ENR_DNT<i>[74,10])
W_TotalFranc = INT(W_TotalFranc/655957*100000 + 1/2)
W_TotalFranc = W_TotalFranc"R2"
PRINT "Total des cotisations : "
PRINT "       Converties : ":W_TotalFranc:" euros"
PRINT "       Calcules   : ":W_CumulCot"R2":" euros"
ENR_DNT<i> = ENR_DNT<i>[1,73]:W_CumulCot"R%10":ENR_DNT<i>[84,34]:"EUR":ENR_DNT<i>[121,344]
IF ENR_DNT<i>[84,11] # "00000000000" THEN
	W_TotalFranc = INT(ENR_DNT<i>[84,11])
	W_TotalFranc = INT(W_TotalFranc/655957*100000 + 1/2)
	W_TotalFranc = W_TotalFranc"R2"
	PRINT "Total des TEP : "
	PRINT "       Convertis : ":W_TotalFranc:" euros"
	PRINT "       Calculs   : ":W_CumulTEP"R2":" euros"

	ENR_DNT<i> = ENR_DNT<i>[1,83]:W_CumulTEP"R%11":ENR_DNT<i>[95,26]:"EUR":ENR_DNT<i>[124,341]
END
RETURN
