DEFINITION ic_cause_800000649 0
DEFINITION ic_ref_800000649 1
DEFINITION ic_eec_800000649 2
DEFINITION ic_date_800000649 3
DEFINITION ic_seuil_800000649 4
DEFINITION ic_ideb_800000649 5
DEFINITION ic_ifin_800000649 6
REGISTRE ENTIER erreur_800000649
############################################################################
#   Tgene.src
#
#   Article generique de la generation
#
############################################################################


#
# Declaration des variables
#


#
# Declaration des constantes
#


#
# Mise a jour de l'article
#
erreur_800000649 = i_set_art_field(g_iartin, ic_cause_800000649, i_getTabVal(ic_cause_800000649))
erreur_800000649 = i_set_art_field(g_iartin, ic_ref_800000649,   i_getTabVal(ic_ref_800000649))
erreur_800000649 = i_set_art_field(g_iartin, ic_eec_800000649,   i_getTabVal(ic_eec_800000649))
erreur_800000649 = i_set_art_field(g_iartin, ic_date_800000649,  i_getTabVal(ic_date_800000649))
erreur_800000649 = i_set_art_field(g_iartin, ic_seuil_800000649, i_getTabVal(ic_seuil_800000649))
erreur_800000649 = i_set_art_field(g_iartin, ic_ideb_800000649,  i_getTabVal(ic_ideb_800000649))
erreur_800000649 = i_set_art_field(g_iartin, ic_ifin_800000649,  i_getTabVal(ic_ifin_800000649))

#
# Conversion de ideb et ifin au format AAAAHHJJHHMMSS ascii (FO 925):
#
erreur_800000649=i_dup_art_dest(g_iartin, g_iartout, "TgeneConv")

#
# Ajout de l'enveloppe
#
#erreur = i_add_opt("Tdelp")
#erreur = i_set_attr_val("cause",i_getTabVal(ic_cause))

#
# Stockage de l'article
#
#erreur = i_stocke_art(g_iartin, 0, PT_OK, 0)

#erreur = i_fdump_art(g_iartin)

erreur_800000649 = i_stocke_art(g_iartout, 0, PT_OK, 0)
#erreur = i_fdump_art(g_iartout)

RETOUR TRAIT_OK


