*******************************************************
* PREPARATION DU PASSAGE DE PARAMETRES ETAT-VENTILPAIE
*
* MARS 1999                            STEPHANE HERVET
*******************************************************
* OUVERTURE DES FICHIERS
*******************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TEMPETATVENTIL" TO F.TEMP ELSE STOP
*******************************************************
* LECTURE ARTICLE 1
*******************************************************
READ ENR_TEMP FROM F.TEMP,"1" ELSE STOP
*******************************************************
* PREPARATION VARIABLES 
*******************************************************
W_PERIODE=ENR_TEMP(1)
W_ENTITE=ENR_TEMP(2)
W_TYPEACTIVITE=ENR_TEMP(3)
W_TRI=ENR_TEMP(4)
*******************************************************
* APPEL DE LA PROCEDURE ETAT-VENTILPAIE
*******************************************************
CHAIN "ETAT-VENTILPAIE ":W_PERIODE:" ":W_ENTITE:" ":W_TYPEACTIVITE:" ":W_TRI
END
