DEFINITION C_Article_860026270 "Tcp4inefOSA"
DEFINITION C_InstSYMP_860026270 "SYMP"
DEFINITION C_TsymTcp4inefOSA_860026270 "TsymTcp4inefOSA"
REGISTRE ENTIER instSYMPH_860026270
REGISTRE ENTIER erreur_860026270
REGISTRE ENTIER res_860026270
REGISTRE ENTIER code_errone_860026270
REGISTRE POINTEUR pt_SGTQS_860026270
# ---------------------------------------------------------------------------
#
# FICHIER     : Tcp4inefOSA.src
#
# Distribution
#
# AUTEUR      :DRE
#
# CREE le     : 23/02/07
#
# MODIFIE le  : 
#
# DESCRIPTION : Communications  inefficaces transmises par le RI OSA-PARLAY Carte FT 
#
#	
#		 
# EN ENTREE :
#    Article : Tcp4inefOSA (domaine )
#
# EN SORTIE:
#   
#    SYMPHONIE
# HISTORIQUE  : 
#		23/02/07 - DRE - G3R0Cv Migration RI CARTE vers RI OSA-PARLAY
#
# ---------------------------------------------------------------------------

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

# Numeros instances

#divers



trace( "__FILE__:__LINE__ : *** Debut du pcode de distribution ***" )


###########################################
# Allocation de memoire

# Initialisations

instSYMPH_860026270=0
pt_SGTQS_860026270 = "222222222222222222"

############################################################################
#       Envoi en Recyclage
############################################################################
SI (g_ipt==PT_RECYCLE)
ALORS
	trace("==== Envoi en recyclage ====")
	res_860026270 = i_stocke_art( g_iartin, 0, PT_RECYCLE, 0 )
	RETOUR TRAIT_OK
FINSI


############################################################################
# Recherche Instances des ECC et Critere de distribution
############################################################################
#Tous les DC sont envoyes a SYMPHONIE

#---------------------------------------------------------------------------
# Symphonie 
#---------------------------------------------------------------------------
instSYMPH_860026270=i_LireInstanceECC(C_InstSYMP_860026270)
SI (!instSYMPH_860026270)
ALORS
	code_errone_860026270 = 0xA0B0
	erreur_860026270 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026270,C_InstSYMP_860026270,C_Article_860026270)
	SAUT DISTRI_ERR
SINON
	trace( "SYMPH repond aux criteres de distribution")
	erreur_860026270 =  i_AjouterCouranteECC(instSYMPH_860026270)
FINSI



############################################################################
# Duplication Symphonie
############################################################################

# Article fourni a Symphonie sous son format d'origine enrichi d'ajouts
# => Duplication article en entree + renommage

# Duplication article en entree
trace("Stockage vers SYMPHONIE")

SI (i_dup_art(g_iartin,C_TsymTcp4inefOSA_860026270,g_iartout))
ALORS
	code_errone_860026270 = 0xA0D0
	erreur_860026270 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026270,C_TsymTcp4inefOSA_860026270,C_Article_860026270)
	SAUT DISTRI_ERR
FINSI

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

#---------------------------------------------------------------------------
# Complements Symphonie 
#---------------------------------------------------------------------------
SI (!i_ChercherCouranteECC(instSYMPH_860026270))
ALORS
 	trace("ajout des complements Symphonie")
	# Champ SGTQS
	erreur_860026270 = i_ajoutChampNum(g_iartout,$TsymTcp4inefOSA::T4sgtqs,$TsymTcp4inefOSA::SGTQS,0)
        i_strcpy(pt_SGTQS_860026270,i_LireEECSGTQS( g_ieec ))
        trace2("SGTQS=<%s>",pt_SGTQS_860026270,"")
        erreur_860026270 = i_set_art_str(g_iartout, $TsymTcp4inefOSA::SGTQS, pt_SGTQS_860026270) 

   
        # Champ ECC_FACT
	erreur_860026270=i_ajoutChampNum( g_iartout, $TsymTcp4inefOSA::T4eccfact, $TsymTcp4inefOSA::ECC_FACT, 0 )
        erreur_860026270 = i_set_art_str(g_iartout, $TsymTcp4inefOSA::ECC_FACT," " )
        
FINSI


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

SI (!i_ChercherCouranteECC(instSYMPH_860026270))
ALORS
	res_860026270 = i_stocke_art_iecc(g_iartout, instSYMPH_860026270)
	trace("Emission vers SYMPHONIE")
FINSI

trace( "____ : Fin du Pcode de distribution" )



RETOUR TRAIT_OK

############################################################################
# Stockage en Errone
############################################################################
POINT DISTRI_ERR


trace( "Tcp4inefOSA: Anomalie de distribution ==> ERRONE" )
erreur_860026270 = i_make_art_rej(g_iartin, g_iartout, code_errone_860026270)
res_860026270 = i_stocke_art( g_iartout, 0, PT_ERRONE, 0 )

RETOUR TRAIT_OK

# fin de fichier









