DEFINITION C_Article_800009042 "Tri2gTT"
REGISTRE ENTIER code_errone_800009042
REGISTRE ENTIER erreur_800009042
REGISTRE ENTIER DURCONV_800009042
REGISTRE ENTIER EFFICACE_800009042
################################################################################################
#	Article DC Tri2gTT  (Ticket Telephone )
#
#	Pcode de traitement
#
# Historique
#	20/07/2009	THE		Creation
#	16/02/2011	THE - DRE	G3R20  correction de l'AVP 535
#
################################################################################################

# DECLARATIONS


# G3R20


# INITIALISATIONS

code_errone_800009042 = 0
erreur_800009042 = 0
EFFICACE_800009042 = 0
DURCONV_800009042 = 0

trace (":__LINE__ #### DEBUT Pcode de Traitement <__FILE__> #### ")

################################################################################################
# Variables fonctionnelles globales
################################################################################################

####################################
# IDUS_N


####################################
# EFFICACE

# G3R20
SI (i_valid_field_n(g_iartin, $Tri2gTT::TREP_DURCONV) == 1)
ALORS
	DURCONV_800009042 = i_get_art_field(g_iartin, $Tri2gTT::TREP_DURCONV)
	SI DURCONV_800009042 != 0
	ALORS
		EFFICACE_800009042 = 1
	FINSI
FINSI


################################################################################################
#	Controles croises des champs
################################################################################################

SI ( i_valid_field_n(g_iartin, $Tri2gTT::GCOM_ICAR) == 0 )
ALORS
	SI EFFICACE_800009042
	ALORS
		code_errone_800009042 = 0x5040
		code_errone_800009042 = code_errone_800009042 + EFFICACE_800009042
		erreur_800009042 = i_PlvMessEmettre(8612, 2, g_iartin, " ", 3, code_errone_800009042, C_Article_800009042, " Le champ GCOM_ICAR est absent ")
		SAUT STOCKE_ERRONE
	SINON
		SAUT ELM_DIVERS
	FINSI
FINSI
#\G3R20

######################################
# Stockage OK
######################################

erreur_800009042 = i_stocke_art(g_iartin, 0, PT_OK, 0)
RETOUR TRAIT_OK

############################################
#  POINT de branchement : stockage ERRONE  #
############################################

POINT STOCKE_ERRONE

trace( "__LINE__ : Fin du Pcode de traitement <__FILE__>: Stockage en ERRONE " )

erreur_800009042 = i_make_art_rej(g_iartin,g_iartout,code_errone_800009042)
erreur_800009042 = i_stocke_art(g_iartout, 0, PT_ERRONE,0)

RETOUR TRAIT_OK

###########################################################################
# Stockage en elimine DIVERS
###########################################################################

POINT ELM_DIVERS

trace( "__LINE__ : Fin du Pcode de traitement <__FILE__>: Stockage en ELIMINE" )

erreur_800009042 = i_stocke_art( g_iartin, 0, PT_DIVERS, 0 )

RETOUR TRAIT_OK

