DEFINITION ic_cause_860000354 0
DEFINITION ic_ref_860000354 1
DEFINITION ic_eec_860000354 2
DEFINITION ic_date_860000354 3
DEFINITION ic_seuil_860000354 4
DEFINITION ic_ideb_860000354 5
DEFINITION ic_ifin_860000354 6
REGISTRE ENTIER erreur_860000354
############################################################################
#   Tgene.src
#
#   Article generique de la generation
#
#	Creation pour meteor le 14/09/2005
#
############################################################################

#
# Declaration des variables
#

#
# Declaration des constantes
#

#
# Mise a jour de l'article
#
erreur_860000354 = i_set_art_field(g_iartin, ic_cause_860000354, i_getTabVal(ic_cause_860000354))
erreur_860000354 = i_set_art_field(g_iartin, ic_ref_860000354,   i_getTabVal(ic_ref_860000354))
erreur_860000354 = i_set_art_field(g_iartin, ic_eec_860000354,   i_getTabVal(ic_eec_860000354))
erreur_860000354 = i_set_art_field(g_iartin, ic_date_860000354,  i_getTabVal(ic_date_860000354))
erreur_860000354 = i_set_art_field(g_iartin, ic_seuil_860000354, i_getTabVal(ic_seuil_860000354))
erreur_860000354 = i_set_art_field(g_iartin, ic_ideb_860000354,  i_getTabVal(ic_ideb_860000354))
erreur_860000354 = i_set_art_field(g_iartin, ic_ifin_860000354,  i_getTabVal(ic_ifin_860000354))
#
# Conversion de ideb et ifin au format AAAAHHJJHHMMSS ascii (FO 925):
#
erreur_860000354 = i_dup_art_dest(g_iartin, g_iartout, "TgeneConv")

# Ajout de l'enveloppe
#
# Stockage de l'article
#
erreur_860000354 = i_stocke_art(g_iartout, 0, PT_OK, 0)
#erreur = i_fdump_art(g_iartout)
RETOUR TRAIT_OK

