DEFINITION CREJ_ERR01_800009784 0x5072
REGISTRE ENTIER erreur_800009784
REGISTRE ENTIER code_rejet_800009784
REGISTRE POINTEUR pt_Conv_800009784
# ---------------------------------------------------------------------------
#
# FICHIER     : Tconv_erreur.src
#
# VERSION     : TRAITEMENT
#
# AUTEUR      : D. REY
#
# CREE le     : 17/01/2006
#
# DESCRIPTION : Article des erreurs de conversion
#
# HISTORIQUE  : 
#	17/01/06 - DRE - creation FO1689
#		Stockage en errone
#	03/10/2011 RHE VerifPcode
# ---------------------------------------------------------------------------

# ---------------------------------------------------
# VARIABLES
# ---------------------------------------------------

#	Initialisation des variables
# VerifPcode - RHE # 
pt_Conv_800009784 = "pt_Conv111111111111111111111111111111111"
i_strcpy(pt_Conv_800009784,"")

# ---------------------------------------------------
# TRAITEMENT
# ---------------------------------------------------
code_rejet_800009784 = CREJ_ERR01_800009784
erreur_800009784 = i_get_art_str(g_iartin, $Tconv_erreur::ConvName, pt_Conv_800009784)
erreur_800009784 = i_PlvMessEmettre(7125,2,g_iartin,"",2,code_rejet_800009784,pt_Conv_800009784,0)

SAUT STOCKE_ERRONE

###########################################################################
#
# stockage en errone
#
###########################################################################
POINT STOCKE_ERRONE
erreur_800009784 = i_make_art_rej(g_iartin, g_iartout, code_rejet_800009784)
erreur_800009784 = i_stocke_art(g_iartout,0, PT_ERRONE, 0)

RETOUR TRAIT_OK

# fin de fichier
