DEFINITION C_Article_860026322 "TconvNI"
DEFINITION C_InstSYMP_860026322 "SYMP"
DEFINITION C_TsymTconvNI_860026322 "TsymTconvNI"
REGISTRE ENTIER erreur_860026322
REGISTRE ENTIER res_860026322
REGISTRE ENTIER code_errone_860026322
REGISTRE ENTIER instSYMPH_860026322
REGISTRE POINTEUR pt_nomECC_FACT_860026322
################################################################################
#	Article convergent Libre Appel / Audiotel
################################################################################
#
#     HISTORIQUE
#	04/11/04 -PSA- Creation
#	23/05/05 -PSA- FO1271 
#	09/10/07 -BEA- G3R3Cv Conv_AULA_S13F5.doc
#	29/11/07 -THE- G3R23C1 suppression variable "sportabilite_SRP" pour nouvelles tranches tarifaires SVA 089870 et 089871
#	19/01/2012 - THE - Verifpecode
#
################################################################################

############################################################################
# Declarations
############################################################################

#---------------------------------------------------------------------------
# VARIABLES LOCALES
#---------------------------------------------------------------------------
# Booleens


# Variables d instance
# Divers
# VerifPcode


# VerifPcode

#---------------------------------------------------------------------------
# CHAMPS DE L ARTICLE EN ENTREE
#---------------------------------------------------------------------------

#---------------------------------------------------------------------------
# INITIALISATION
#---------------------------------------------------------------------------
# Allocation
pt_nomECC_FACT_860026322	 ="67676767676767"
#pt_BUF		 = "12345678912345678912345612345"
#pt_NDE		 = "46137946134679467982458956455645122312345"
#pt_NDR		 = "12234556782817397845121313364487878912345"
#pt_INEF	 = "123412345"

# Initialisation
i_strcpy(pt_nomECC_FACT_860026322," ")

instSYMPH_860026322 = 0
#G3R23C1 sportabilite_SRP = 0
# VerifPcode IDSV = 0
trace("DISTRIBUTION - TconvNI - DC LIBRE APPEL ")

# cf traitement pour l'usage du champ UIFS de l'enveloppe
# VerifPcode 
#erreur_syntaxique = i_get_attr_val_n( $Elibap::UIFS)
erreur_860026322 = i_set_attr_val_n($Elibap::UIFS,0x00)

############################################################################
# Variables Fonctionnelles Globales
############################################################################

# G3R3Cv ajout de 0 et 19
#G3R23C1 IDSV = i_get_art_field(g_iartin, $TconvNI::IDSV)
#G3R23C1 SI ((IDSV == 0) || ((IDSV >= 11 ) && (IDSV <= 17 )) || (IDSV == 19))
#G3R23C1 ALORS
#G3R23C1 	sportabilite_SRP = 1
#G3R23C1 FINSI

############################################################################
# Recherche Instances des ECC
############################################################################

#trace("----------- Recherche des instances --------------")

#---------------------------------------------------------------------------
#  EVE
#---------------------------------------------------------------------------

#---------------------------------------------------------------------------
#  SYMPHONIE
#---------------------------------------------------------------------------
instSYMPH_860026322=i_LireInstanceECC(C_InstSYMP_860026322)
#trace1("instSYMPH=<%d>",instSYMPH)
SI (!instSYMPH_860026322 )
ALORS
	trace("instSYMPH nul !")
	code_errone_860026322 = 0xA0B0
	erreur_860026322 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026322,C_InstSYMP_860026322,C_Article_860026322)
	SAUT   DISTRI_ERR
FINSI

#---------------------------------------------------------------------------
#  Ajout de SYMPHONIE a la liste des ECCs (Aucun critere de distribution pour Symphonie)
#---------------------------------------------------------------------------
erreur_860026322 = i_AjouterCouranteECC(instSYMPH_860026322)


############################################################################
# Duplication Symphonie
############################################################################
#trace("Duplication vers SYMPHONIE")	
SI ( i_dup_art_id(g_iartin, g_iartout4) )
ALORS
	trace("ERREUR de duplication vers SYMPHONIE")
	code_errone_860026322 = 0xA0D0
	erreur_860026322 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026322,C_TsymTconvNI_860026322,C_Article_860026322)
	SAUT   DISTRI_ERR
FINSI

SI ( i_rename_art(g_iartout4, C_TsymTconvNI_860026322) )
ALORS
	trace1("ERREUR de renommage, erreur=<%d>",erreur_860026322)
	code_errone_860026322 = 0xA0D0
	erreur_860026322 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026322,C_TsymTconvNI_860026322,C_Article_860026322)
	SAUT   DISTRI_ERR
FINSI

############################################################################
# Attente requetes Table de Distribution
############################################################################


############################################################################
# Critere de distribution
############################################################################

#---------------------------------------------------------------------------
# Valeurs communes
#---------------------------------------------------------------------------

#---------------------------------------------------------------------------
# Ajout de EVE a la liste si non SPORTABILITE_SRPLA
#---------------------------------------------------------------------------

############################################################################
# Validation de la liste des ECCs destinatrices
############################################################################

erreur_860026322 =  i_ValiderListeECC( 0, 0, 0, 0)

############################################################################
# Mises au format
############################################################################

#---------------------------------------------------------------------------
# Valeurs communes
#---------------------------------------------------------------------------

#---------------------------------------------------------------------------
# EVE
#---------------------------------------------------------------------------

	# Duplication de l article
	#---------------------------

	# Mise au format
	#------------------------------

#---------------------------------------------------------------------------
# Complements Symphonie (SGTQS + CCD)
#---------------------------------------------------------------------------

erreur_860026322=i_ajoutChampNum(g_iartout4,$TsymTconvNI::T4sgtqs,$TsymTconvNI::SGTQS,0)
erreur_860026322=i_set_art_str( g_iartout4, $TsymTconvNI::SGTQS, i_LireEECSGTQS( g_ieec ) )

erreur_860026322=i_ajoutChampNum(g_iartout4,$TsymTconvNI::T4ccd,$TsymTconvNI::CCD,0)
erreur_860026322=i_set_art_field(g_iartout4, $TsymTconvNI::CCD, 255)

erreur_860026322=i_ajoutChampNum(g_iartout4,$TsymTconvNI::T4eccfact,$TsymTconvNI::ECCFACT,0)
erreur_860026322=i_set_art_str(g_iartout4, $TsymTconvNI::ECCFACT,  pt_nomECC_FACT_860026322)


############################################################################
# Envoi vers IECC
############################################################################

#---------------------------------------------------------------------------
# EVE
#---------------------------------------------------------------------------

#---------------------------------------------------------------------------
# Symphonie
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instSYMPH_860026322) )
ALORS
	res_860026322 = i_stocke_art_iecc(g_iartout4, instSYMPH_860026322)
	trace("Emission vers SYMPHONIE")
SINON
	SAUT DISTRI_ERR
FINSI

SAUT   DISTRI_FIN

############################################################################
# Envoi vers Recyclage
############################################################################


############################################################################
# Stockage en Errone
############################################################################

POINT DISTRI_ERR

trace("Stockage de l'article en ERRONE")

res_860026322=i_make_art_rej(g_iartin, g_iartout, code_errone_860026322)

erreur_860026322 = i_stocke_art(g_iartout,0,PT_ERRONE,0)

SAUT   DISTRI_FIN

POINT  DISTRI_FIN

RETOUR TRAIT_OK

