DEFINITION CREJ_ERR01_780042411 0x5072
REGISTRE ENTIER erreur_780042411
REGISTRE ENTIER code_rejet_780042411
REGISTRE POINTEUR pt_Conv_780042411
# ---------------------------------------------------------------------------
#
# FICHIER     : Tconv_erreur.src
#
# 
# DESCRIPTION : Article des erreurs de conversion
#
# HISTORIQUE  : 
#	30/04/07 - PSA - creation FO495 : reprise FTSA + changement alarme 
# 11/01/11 - BEA - G3R1 lot4 Verification/Correction des variables (constantes, entiers, pointeurs)
#		
# ---------------------------------------------------------------------------

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

#	Initialisation des variables
pt_Conv_780042411 = "1111111111111111111111111111111111111111"
i_strcpy(pt_Conv_780042411,"")


# ---------------------------------------------------
# TRAITEMENT
# ---------------------------------------------------
code_rejet_780042411 = CREJ_ERR01_780042411
erreur_780042411 = i_get_art_str(g_iartin, $Tconv_erreur::ConvName, pt_Conv_780042411)
erreur_780042411 = i_PlvMessEmettre(7125,2,g_iartin,"",2,code_rejet_780042411,pt_Conv_780042411,0)

SAUT STOCKE_ERRONE

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

RETOUR TRAIT_OK

#----------------------------------- fin de fichier Tconv_erreur.src -----------------------------------------------
