OPEN "", "BALANCEAUXARCHIVE" TO F.BALANCEAUXARCHIVE ELSE STOP
OPEN "", "DETAILECRITUREAUXARCHIVE" TO F.DETAILECRITUREAUXARCHIVE ELSE STOP
OPEN "", "LIENCOMPTA" TO F.LIENCOMPTA ELSE STOP

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

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
*DEBUG
	W_Annee = FIELD(ENR_LIENCOMPTA<1>,";",3)
	W_Asso = FIELD(ENR_LIENCOMPTA<1>,";",1)
	W_Count = DCOUNT(ENR_LIENCOMPTA,CHAR(254))
	*PRINT W_Count
	*DEBUG
	
	FOR i = 1 TO W_Count
		W_MtntCesu = 0
		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)
	* modif priscilla : 11/01/2008
		W_MtntCesu = FIELD(ENR_LIENCOMPTA<i>,";",5)
		W_MtntCesu = FIELD(W_MtntCesu,".",1):FIELD(W_MtntCesu,".",2)
		ENR_BALANCE<1> = ""
		ENR_DETAIL<6> = ""
		IF W_MtntCesu # "" THEN
			ENR_BALANCE<1> = W_MtntCesu
			ENR_DETAIL<6> = W_MtntCesu
		END
		*PRINT W_Aide : W_MtntCesu
		*DEBUG
	* fin modif
		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