EXECUTE "SET-THOUS ."
EXECUTE "DATE.FORMAT"
OPEN "", "PLANCOMPTABLE" TO F.PLANCOMPTABLE ELSE STOP
OPEN "", "IMMO" TO F.IMMO ELSE STOP
OPEN "", "LIENCOMPTA" TO F.LIENCOMPTA ELSE STOP
OPEN "", "ASSOCIATION" TO F.ASSOCIATION ELSE STOP

LOOP
PRINT "Code entit juridique ?"
INPUT W_CodeAsso 
READ ENR_ASSOCIATION FROM F.ASSOCIATION,W_CodeAsso ELSE W_CodeAsso = ""
WHILE W_CodeAsso = ""
REPEAT

LOOP
PRINT "Nom du fichier  gnrer ?"
INPUT W_NomFic
READ ENR_LIENCOMPTA FROM F.LIENCOMPTA, W_NomFic THEN
	PRINT "Ce fichier existe dj. Voulez vous le remplacer ?"
	INPUT W_Rep
	IF W_Rep # "o" AND W_Rep # "O" THEN
		W_NomFic = ""
	END  
END
WHILE W_NomFic = ""
REPEAT

EXECUTE 'SET-DEC .'

EXECUTE 'SELECT IMMO AVEC 0 = "':W_CodeAsso:']" AND AVEC 8 = "" PAR 6'

W_Fin = "F"
ENR_LIENCOMPTA = ""
W_IndLienCompta = 1
W_CumulAmort = "0.00"
W_Quantite = "1"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_IMMO FROM F.IMMO, W_Cle THEN
		W_CodeCpte = ENR_IMMO<6>[4,10]
		W_CodeCpte = W_CodeCpte[1,1]:W_CodeCpte[3,8]
		READ ENR_PLANCOMPTABLE FROM F.PLANCOMPTABLE, W_CodeAsso:W_CodeCpte:"0" THEN
			W_Err = "F"
			W_DateAchat = OCONV(ENR_IMMO<2>,"D4/")
			W_DateAchat = W_DateAchat[1,2]:W_DateAchat[4,2]:W_DateAchat[7,4]
			W_DateMiseService = W_DateAchat
			W_Amort = ""
			IF ENR_IMMO<4> = "D" THEN W_Amort = "04"
			IF ENR_IMMO<4> = "L" THEN W_Amort = "10"
			IF W_Amort = "" THEN
				PRINT "Erreur : le type d'amortissement de l'immo ":W_Cle:" est incorrect !"
				PRINT "Cette immo ne sera pas ajoute au fichier."
				W_Err = "V"
			END
			W_Libelle = ENR_IMMO<1>[1,50]
			W_Libelle = TRIM(W_Libelle)
			W_DureeAmort = ENR_IMMO<5>
			W_ValAchat = ENR_IMMO<3>/100
			W_ValAchat = W_ValAchat"R2"
*			W_PosVirgule = INDEX(W_ValAchat,",",1)
*			W_ValAchat = W_ValAchat[1,W_PosVirgule-1]:".":W_ValAchat[W_PosVirgule+1,2] 
			ENR_LIENCOMPTA<W_IndLienCompta> = W_CodeCpte:";":W_DateAchat:";":W_DateMiseService:";":W_Amort:";":W_CumulAmort:";":W_Libelle:";":W_Quantite:";":W_DureeAmort:";":W_ValAchat
			IF W_Err # "V" THEN
				W_IndLienCompta = W_IndLienCompta + 1
			END
		END
	END
REPEAT

IF W_Err = "V" THEN
	ENR_LIENCOMPTA<W_IndLienCompta> = ""
END

WRITE ENR_LIENCOMPTA ON F.LIENCOMPTA, W_NomFic

EXECUTE 'SET-DEC ,'
