DEFINITION EFFICACE_660004595 2
DEFINITION C_Article_660004595 "Tdpvgsm"
DEFINITION DISTRIBUTION_INCONNU_660004595 1
DEFINITION Multidistribution_Non_660004595 0
DEFINITION TRAI_OK_660004595 0
DEFINITION TRAI_KO_660004595 -1
DEFINITION TRAI_REDISTRIBUTION_660004595 -2
REGISTRE ENTIER code_errone_660004595
REGISTRE ENTIER erreur_660004595
REGISTRE ENTIER type_660004595
REGISTRE ENTIER res_660004595
######################################################################
# DISTRIBUTION	: Tdpvgsm_dis.src
#	Article Tdpvgsm (article de rejeu)
#
# g_iartin	: DC d'entree
# g_iartout	: DC Tdpvgsm format pivot
# g_iartout8	: DC erronee
#
######################################################################
#	HISTORIQUE
# creation 14/02/2007
# Historique
#
#####################################################################



# erreur = i_fdump_art(g_iartin)

erreur_660004595 = i_dup_art_id(g_iartin, g_iartout)

SI (i_LireRedistCpt() == 0)
ALORS
	erreur_660004595 = i_add_opt( "E_Redistri2" )
FINSI
erreur_660004595 = i_set_attr_val_n( $E_Redistri2::EnvoiRedis, 0)

type_660004595=i_get_art_field(g_iartin, $Tdpvgsm::type)

erreur_660004595 = aiguillage2_660004590 (g_iartin, g_iartout, DISTRIBUTION_INCONNU_660004595, Multidistribution_Non_660004595)

SI erreur_660004595 == TRAI_REDISTRIBUTION_660004595
	ALORS
	trace(" Redistribution, retour de la fonction aiguillage2")
	SAUT FIN_RDT
FINSI

SI (erreur_660004595 == TRAI_KO_660004595)
ALORS
	trace( "Stockage en errone de distribution, retour de la fonction aiguillage2")
	code_errone_660004595 = 0xA0B0
	code_errone_660004595 = code_errone_660004595 + EFFICACE_660004595
	erreur_660004595 = i_PlvMessEmettre(7500,2,g_iartin,"",3,code_errone_660004595,C_Article_660004595,type_660004595)
	SAUT DISTRI_ERR
FINSI

SI erreur_660004595 == TRAI_OK_660004595
	ALORS

	RETOUR TRAIT_OK
FINSI

############################################################################
# Stockage en Errone 
############################################################################
POINT DISTRI_ERR
res_660004595 = i_make_art_rej(g_iartin, g_iartout8, 0)
res_660004595 = i_stocke_art( g_iartout8, 0, PT_ERRONE, 0)
RETOUR TRAIT_OK

############################################################################
# Fin P_CODE DISTRI si redistribution
############################################################################
POINT FIN_RDT
RETOUR TRAIT_OK

#---------------------------------------FIN Tdpvgsm_dist.src-------------------
