DEFINITION C_Article_860026317 "Ttp3dc"
DEFINITION C_InstSYMP_860026317 "SYMP"
DEFINITION C_Tsymtp3dc_860026317 "Tsymtp3dc"
REGISTRE ENTIER instSYMPH_860026317
REGISTRE ENTIER date_860026317
REGISTRE ENTIER erreur_860026317
REGISTRE ENTIER res_860026317
REGISTRE ENTIER code_errone_860026317
REGISTRE ENTIER EFFICACE_860026317
REGISTRE POINTEUR pt_SGTQS_860026317
# ---------------------------------------------------------------------------
#
# FICHIER     : Ttp3dc.src
#
# DESCRIPTION : DC RDV Telephone
#
# EN SORTIE: 
#	SYMPHONIE - Tous DC - Tsymtp3dc - g_iartout
#
# 	14/11/2003 - RBE - Creation
# 	02/06/2004 - NSA - G2R0Cl: integration des codes d erreurs
# 	13/10/2011 - DRE - VerifPcode
# ---------------------------------------------------------------------------

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


#Constantes pour message d alarme



# Initialisations
instSYMPH_860026317=0
EFFICACE_860026317=2
#VerifPcode
erreur_860026317 = 0
res_860026317 = 0
code_errone_860026317 = 0
EFFICACE_860026317 = 0

#Allocation initialisation Pointeurs
pt_SGTQS_860026317 = "1234567890123456"
i_strcpy(pt_SGTQS_860026317,"")
#\VerifPcode

#---------------------------------------------------------------------------
# Symphonie 
# Tous les DC sont envoyes a SYMPHONIE
#---------------------------------------------------------------------------
instSYMPH_860026317=i_LireInstanceECC(C_InstSYMP_860026317)
SI (!instSYMPH_860026317)
ALORS
	code_errone_860026317 = 0xA0B2
	code_errone_860026317 = code_errone_860026317 + EFFICACE_860026317
	erreur_860026317 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026317,C_InstSYMP_860026317,C_Article_860026317)
	SAUT DISTRI_ERR
SINON
	erreur_860026317 =  i_AjouterCouranteECC(instSYMPH_860026317)
FINSI

############################################################################
# Duplication Symphonie
############################################################################
SI (!i_ChercherCouranteECC(instSYMPH_860026317))
ALORS

	# 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_Tsymtp3dc_860026317,g_iartout))
	ALORS
		code_errone_860026317 = 0xA0D2
		code_errone_860026317 = code_errone_860026317 + EFFICACE_860026317
		erreur_860026317 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026317,C_Tsymtp3dc_860026317,C_Article_860026317)
		SAUT DISTRI_ERR
	FINSI


#	trace("ajout des complements Symphonie")

	# Champ SGTQS
	erreur_860026317 = i_ajoutChampNum(g_iartout,$Tsymtp3dc::T4sgtqs,$Tsymtp3dc::SGTQS,0)
        i_strcpy(pt_SGTQS_860026317,i_LireEECSGTQS( g_ieec ))
#        trace2("SGTQS=<%s>",pt_SGTQS,"")
        erreur_860026317 = i_set_art_str(g_iartout, $Tsymtp3dc::SGTQS, pt_SGTQS_860026317) 

   
        # Champ ECC_FACT
	erreur_860026317=i_ajoutChampNum(g_iartout,$Tsymtp3dc::T4eccfact,$Tsymtp3dc::ECC_FACT,0)
        erreur_860026317 = i_set_art_str(g_iartout,$Tsymtp3dc::ECC_FACT," ")
	
	# CCD
	erreur_860026317=i_ajoutChampNum(g_iartout,$Tsymtp3dc::T4ccd,$Tsymtp3dc::CCD,0)
	erreur_860026317 = i_set_art_field(g_iartout, $Tsymtp3dc::CCD, 0x14 )
	
	# HLAHM1 : date_locale
	date_860026317 = i_get_art_field(g_iartin, $Tp3dc::DATE)
	erreur_860026317=i_ajoutChampNum(g_iartout,$Tsymtp3dc::T4hlahm1,$Tsymtp3dc::HLAHM1,0)
	erreur_860026317 = i_set_art_field(g_iartout, $Tsymtp3dc::HLAHM1, date_860026317 )

FINSI


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

SI (!i_ChercherCouranteECC(instSYMPH_860026317))
ALORS
	res_860026317 = i_stocke_art_iecc(g_iartout, instSYMPH_860026317)
#	trace("Emission vers SYMPHONIE")
FINSI

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



RETOUR TRAIT_OK



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


#trace( "Ttp3dc: stockage en ERRONE" )
res_860026317=i_make_art_rej(g_iartin, g_iartout, code_errone_860026317)
res_860026317 = i_stocke_art( g_iartout, 0, PT_ERRONE, 0 )

RETOUR TRAIT_OK

# fin de fichier










