*****************************************************************
*
* MOULINETTE PERMETTANT D'AJOUTER L'ANNEE BUDGETAIRE DANS LA CLE
* 
* Mikael                             Aout 2006
*****************************************************************

*Ouverture du fichier

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

OPEN "","BUDGETFICHPERSO" TO F.BUDGETFICHPERSO ELSE STOP
OPEN "","BUDGETPARAM" TO F.BUDGETPARAM ELSE STOP

**************************************************************************
*Initialisation des variables
**************************************************************************
	W_Fini = ""
	W_Req = ""
	W_Annee = ""
	ENR_BUDGETFICHEPERSO=""
	ENR_BUDGETPARAM=""
	W_RESULTAT=""
**************************************************************************
* PROGRAMME
**************************************************************************
	W_Cle= "1"
	READ ENR_BUDGETPARAM FROM F.BUDGETPARAM,W_Cle ELSE ENR_BUDGETPARAM = ""

	W_COUNT = DCOUNT(ENR_BUDGETPARAM<1>,CHAR(253))
	W_Annee = OCONV(ENR_BUDGETPARAM<1,W_COUNT>,"D4/")
	W_Annee = W_Annee[7,4]

	W_Req = 'SELECT BUDGETFICHPERSO'
	EXECUTE W_Req

	EXECUTE 'SAUVE-LISTE W_RESULTAT' 
	EXECUTE "LISTE W_RESULTAT" RETURNING W_MSG

	IF W_MSG<1>#"209" THEN
		SELECT F.BUDGETFICHPERSO TO W_RESULTAT
		W_Fini="FAUX"
		LOOP
			READNEXT W_Cle FROM W_RESULTAT ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_BUDGETFICHPERSO FROM F.BUDGETFICHPERSO,W_Cle THEN
				WRITE ENR_BUDGETFICHPERSO ON F.BUDGETFICHPERSO,W_Cle:W_Annee
				DELETE F.BUDGETFICHPERSO, W_Cle
			END 

		REPEAT
	END