DEFINITION C_Article_800009813 "Tsssas"
REGISTRE ENTIER erreur_800009813
REGISTRE ENTIER code_rejet_800009813
############################################################################
#
# Fichier : Tsssas.src
#
# Traitement : 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
#	06/10/2011 RHE VerifPcode
#	
############################################################################
#
############################################################################
#			DEFINITIONS
############################################################################
#
#---------------------------------------------------------------------------
# Declarations
#---------------------------------------------------------------------------
#
#Constantes
#

#
#Variables
#

erreur_800009813 = 0
# VerifPcode - RHE # codeserv = 0
code_rejet_800009813 = 0


############################################################################
#			TRAITEMENTS
############################################################################
trace2("**** TRAITEMENT - S. S. VOIP - Article : %s ",C_Article_800009813," ")

erreur_800009813 = i_dup_art(g_iartin, C_Article_800009813, g_iartout)

# Controle champs

############################################################################
#			STOCKAGE
############################################################################

#---------------------------------------------------------------------------
#	STOCKAGE EN OK
#----------------------------------------------------------------------------

erreur_800009813 = i_stocke_art(g_iartin, 0, PT_OK, 0)

RETOUR TRAIT_OK

#---------------------------------------------------------------------------
#			STOCKAGE EN ERRONE
#----------------------------------------------------------------------------
POINT STOCKE_ERRONE

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

erreur_800009813 = i_make_art_rej( g_iartin, g_iartout, code_rejet_800009813)
erreur_800009813 = i_stocke_art( g_iartout,0,PT_ERRONE,0)

RETOUR TRAIT_OK

############################################################################
#			FIN
############################################################################
trace2("**** FIN TRAITEMENT - FLS - Article : %s ",C_Article_800009813," ")
