EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "BALANCEAUXARCHIVE" TO F.BALANCEAUXARCHIVE ELSE STOP
OPEN "", "DETAILECRITUREAUXARCHIVE" TO F.DETAILECRITUREAUXARCHIVE ELSE STOP
OPEN "", "LIENCOMPTA" TO F.LIENCOMPTA ELSE STOP

EXECUTE 'VIDER-FICHIER BALANCEAUXARCHIVE'
EXECUTE 'VIDER-FICHIER DETAILECRITUREAUXARCHIVE'

PROCREAD Parametres ELSE STOP
W_NomFic = FIELD(Parametres,"|",2)
ENR_BALANCE = ""
ENR_DETAIL = ""
READ ENR_LIENCOMPTA FROM F.LIENCOMPTA, W_NomFic THEN

	W_Annee = FIELD(ENR_LIENCOMPTA<1>,";",3)
	W_Asso = FIELD(ENR_LIENCOMPTA<1>,";",1)
	W_Count = DCOUNT(ENR_LIENCOMPTA,CHAR(254))
	FOR i = 1 TO W_Count

		W_Aide = FIELD(ENR_LIENCOMPTA<i>,";",2)
		W_NumOrdre = i"R%5"
		W_CleBalance = "N0":W_Asso:W_Aide
		W_CleDetail = W_Asso:"12N0":W_NumOrdre
		W_Mtnt = FIELD(ENR_LIENCOMPTA<i>,";",4)
		W_Mtnt = FIELD(W_Mtnt,".",1):FIELD(W_Mtnt,".",2)
		ENR_BALANCE<2> = W_Mtnt
		ENR_BALANCE<9> = W_CleDetail
		ENR_DETAIL<7> = W_Mtnt
		WRITE ENR_BALANCE ON F.BALANCEAUXARCHIVE, W_CleBalance
		WRITE ENR_DETAIL ON F.DETAILECRITUREAUXARCHIVE, W_CleDetail

	NEXT i

END ELSE
END
STOP
