EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ANNOTFACT" TO F.ANNOTFACT ELSE PRINT "OUVERTURE ANNOTFACT" ;* en lecture
OPEN "","COMPLFACT" TO F.COMPLFACT ELSE PRINT "OUVERTURE COMPLFACT" ;* en lecture criture
OPEN "","FUSION" TO F.FUSION ELSE PRINT "OUVERTURE FUSION" ;* en lecture

PRINT "Code entit (3N)"
INPUT W_Entite

PRINT "Nom du fichier dans le rpertoire FUSION"
INPUT W_NomFich

	READ ENR_FUSION FROM F.FUSION,W_NomFich ELSE ENR_FUSION=""

	W_Count=DCOUNT(ENR_FUSION,CHAR(254))
	FOR i = 2 TO W_Count

		W_Temp=ENR_FUSION<i>

		W_Aide=FIELD(W_Temp,";",1) "R%5"
		W_Periode=FIELD(W_Temp,";",2)
		W_Libelle=FIELD(W_Temp,";",3)
		W_Base=FIELD(W_Temp,";",4)
		W_Taux=FIELD(W_Temp,";",5)
		W_Montant=FIELD(W_Temp,";",6)
                W_Compte=FIELD(W_Temp,";",7)
		W_Annot1=FIELD(W_Temp,";",8)
		W_Annot2=FIELD(W_Temp,";",9)
		W_Annot3=FIELD(W_Temp,";",10)

		W_CleComplFact=W_Aide:W_Entite:"P"

		READ ENR_COMPLFACT FROM F.COMPLFACT,W_CleComplFact THEN
			W_CountMv=DCOUNT(ENR_COMPLFACT<1>,CHAR(253))
			W_Mv=W_CountMv+1
		END ELSE
			ENR_COMPLFACT=""
			W_Mv=1
		END

		ENR_COMPLFACT<1,W_Mv>=W_Libelle
		ENR_COMPLFACT<2,W_Mv>=W_Base*100
		ENR_COMPLFACT<3,W_Mv>=W_Taux*100
		ENR_COMPLFACT<4,W_Mv>=W_Montant*100
                IF W_Compte="" THEN
		   ENR_COMPLFACT<5,W_Mv>=""
		   ENR_COMPLFACT<6,W_Mv>=""
                END ELSE
                   FOR L=LEN(W_Compte)+1 TO 10
                      W_Compte=W_Compte:"0"
                   NEXT L
		   ENR_COMPLFACT<5,W_Mv>=W_Compte
		   ENR_COMPLFACT<6,W_Mv>="100"
                END
		ENR_COMPLFACT<7,W_Mv>="0"
		ENR_COMPLFACT<8,W_Mv>=""
		ENR_COMPLFACT<9,W_Mv>=W_Periode

      		WRITE ENR_COMPLFACT ON F.COMPLFACT,W_CleComplFact

		IF W_Annot1 # "" THEN
			READ ENR_ANNOTFACT FROM F.ANNOTFACT,W_CleComplFact THEN
				IF ENR_ANNOTFACT<1> # "" THEN
					IF ENR_ANNOTFACT<2> # "" THEN
						IF ENR_ANNOTFACT<3> = "" THEN
							W_Att=3
						END ELSE
							W_Att=0
						END
					END ELSE
						W_Att=2
					END
				END ELSE
					W_Att=1
				END
			END ELSE
				ENR_ANNOTFACT=""
				W_Att=1
			END

			IF W_Att # 0 THEN
				ENR_ANNOTFACT<W_Att>=W_Annot1
				FOR j=1 TO 2
					W_Att=W_Att+1
					IF W_Att <= 3 THEN
						IF j=1 THEN
							ENR_ANNOTFACT<W_Att>=W_Annot2
						END ELSE
							ENR_ANNOTFACT<W_Att>=W_Annot3
						END
					END
				NEXT j

				ENR_ANNOTFACT<4>="14610"

      				WRITE ENR_ANNOTFACT ON F.ANNOTFACT,W_CleComplFact
			END
		END

	NEXT i

STOP
