DEFINITION C_Article_860026310 "Tsssas"
DEFINITION C_Tsympsssas_860026310 "Tsympsssas"
DEFINITION C_InstSYMP_860026310 "SYMP"
REGISTRE ENTIER erreur_860026310
REGISTRE ENTIER res_860026310
REGISTRE ENTIER code_errone_860026310
REGISTRE ENTIER b_EFFICACE_860026310
REGISTRE ENTIER instSYMPH_860026310
REGISTRE POINTEUR pt_SGTQS_860026310
REGISTRE POINTEUR pt_ECCFact_860026310
###################################################################################
#
# Fichier : DIS_Tsssas.src
#
# En sortie :
#	SYMPHONIE	- Tsympsssas	- g_iartout2
#
# Distrsbution : des DC ?mis par la plate-forme Stop Secret Service pour la VoIP.
# DC  efficaces et inefficaces transmises par la plate-forme SSSAS
# Les DC sont re?us en ? heure m?tropole ?
# Les DC  ne sont pas facturables
#
###################################################################################
#
# Historique:
#	22/12/2008 - THE - Creation
#	12/10/2011 - THE - VerifPcode
#	
###################################################################################

#----------------------------------------------------------------------------------
# Declarations
#----------------------------------------------------------------------------------

#	Constantes


#	Variables
#	Instances


#	Pointeurs

#----------------------------------------------------------------------------------
# Allocation  Pointeurs
#----------------------------------------------------------------------------------
pt_SGTQS_860026310	 = "CodeSGTQS"
pt_ECCFact_860026310	 = "NomECCFACT"

#----------------------------------------------------------------------------------
# INITIALISATION
#----------------------------------------------------------------------------------
#	Variables
b_EFFICACE_860026310 = 2

#	Instances
instSYMPH_860026310 = 0

#	Pointeurs
i_strcpy(pt_ECCFact_860026310, " ")
i_strcpy(pt_SGTQS_860026310,"")
###################################################################################
trace2("==== DISTRIBUTION - S. S. VOIP - Article : %s ",C_Article_860026310," ")

erreur_860026310 = i_dup_art_id(g_iartin, g_iartout)

###################################################################################
####        Creation article Conversion (utilise a plusieurs endroits)        #####
###################################################################################
#erreur = i_cree_art(C_Conversion,g_iartout10)

###################################################################################
#####################        Variables fonctionnelles        ######################
###################################################################################

###################################################################################
########################        ECC de facturation        #########################
###################################################################################
pt_SGTQS_860026310 =i_LireEECSGTQS(g_ieec)

#---------------------------------------------------------------------------------#
#				Symphonie					  #
#			Tous les DC sont envoyes a SYMPHONIE			  #
#---------------------------------------------------------------------------------#

instSYMPH_860026310=i_LireInstanceECC(C_InstSYMP_860026310)

SI (!instSYMPH_860026310)
ALORS
	code_errone_860026310 = 0xA0B2
	code_errone_860026310 = code_errone_860026310 + b_EFFICACE_860026310
	erreur_860026310 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026310,C_InstSYMP_860026310,C_Article_860026310)
	SAUT DISTRI_ERR
SINON
	erreur_860026310 =  i_AjouterCouranteECC(instSYMPH_860026310)
FINSI

###################################################################################
#######################        Duplication Symphonie        #######################
###################################################################################
SI (!i_ChercherCouranteECC(instSYMPH_860026310))
ALORS
	# Article fourni a Symphonie sous son format d'origine enrichi d'ajouts
	# => Duplication article en entree + renommage

	# Duplication article en entree
	#trace("__FILE__:__LINE__ #### Stockage vers Symphonie #### ")

	SI (i_dup_art(g_iartout,C_Tsympsssas_860026310,g_iartout2))
	ALORS
		code_errone_860026310 = 0xA0D2
		code_errone_860026310 = code_errone_860026310 + b_EFFICACE_860026310
		erreur_860026310 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026310,C_Tsympsssas_860026310,C_Article_860026310)
		SAUT DISTRI_ERR
	FINSI

	#trace("__FILE__:__LINE__ #### ajout des complements Symphonie #### ")
	# CCD
	erreur_860026310 = i_ajoutChampNum(g_iartout2,$Tsympsssas::T4_ccd,$Tsympsssas::CCD,2)
	erreur_860026310 = i_set_art_field(g_iartout2, $Tsympsssas::CCD, 0xFF)

	# Champ SGTQS
	#erreur = i_ajoutChampNum(g_iartout2,$Tsympsssas::T4_sgtqs,$Tsympsssas::SGTQS,0)
	erreur_860026310 = i_set_art_str(g_iartout2, $Tsympsssas::SGTQS, pt_SGTQS_860026310) 

	# Champ ECC_FACT
	#erreur = i_ajoutChampNum(g_iartout2,$Tsympsssas::T4_eccfact,$Tsympsssas::ECC_FACT,0)
	erreur_860026310 = i_set_art_str(g_iartout2,$Tsympsssas::ECC_FACT,pt_ECCFact_860026310)
FINSI

#----------------------------------------------------------------------------------
# SYMPHONIE
#----------------------------------------------------------------------------------

SI (! i_ChercherCouranteECC(instSYMPH_860026310) )
ALORS
	#trace("__FILE__:__LINE__ #### emission vers Symphonie #### ")
	erreur_860026310  = i_stocke_art_iecc(g_iartout2,instSYMPH_860026310)
FINSI

RETOUR TRAIT_OK

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

POINT DISTRI_ERR

trace( "Stockage en errone de distribution")
res_860026310 = i_make_art_rej(g_iartin, g_iartout8, code_errone_860026310)
res_860026310 = i_stocke_art( g_iartout8, 0, PT_ERRONE, 0)

RETOUR TRAIT_OK

###################################################################################
########     Stockage en ELIMINE EXPLICITE  (REJET3 = 1 ex: cas DC 119)    ########
###################################################################################

POINT ELIMINE_EXP

trace( "Stockage en elimine explicite")
res_860026310 = i_stocke_art( g_iartin, 0, PT_DIVERS, 0 )

RETOUR TRAIT_OK

###################################################################################
trace2("==== FIN DISTRIBUTION - S. S. VOIP - Article : %s ",C_Article_860026310," ")

