DEFINITION ARTICLE_860026620 "TorcaDLV"
REGISTRE ENTIER erreur_860026620
REGISTRE ENTIER code_rejet_860026620
REGISTRE POINTEUR pt_champ1_860026620
REGISTRE POINTEUR pt_IDUS_NUM_860026620
############################################################################
#	Pcode de Traitement TorcaDLV.src
#
#	Article DC TorcaDLV DC ISSU DE LA PFS NEWTV ORCA DE TYPE ORD 
#
# Historique
#	27/10/2010 - DRE - G3R19 : Creation pour NewTV
#	20/12/2010 - DRE - G3R19 : QC 441 point 4
#	27/04/2011 - THE - G3R20 : QC 471 Suppression du contr?le crois? (E.TORCADLV.TC21 ELM) 
#	07/01/2015 - DRE - G4R9 QC857 Envoi en ELM les DC dont IDUS_NUM commence par X ou x
#
############################################################################

# Constantes

# Variables fonctionnelles globales

# Pointeurs




############################
# Initialisation Entiers   #
############################
code_rejet_860026620 = 0


############################
# Affectation Pointeurs    #
############################
pt_champ1_860026620	 = "223456789022345678902234567890223456789022345678902234567890223456789022345678902234567890223422345678902234567"
pt_IDUS_NUM_860026620	 = "pt_IDUS_NUMpt_IDUS_NUMpt_IDUS_NUMpt_IDUS_NUMpt_IDUS_NUMpt_IDUS_NUMpt_IDUS_NUMpt_IDUS_NUMpt_IDUS_NUMpt_IDUS_NUMpt"



############################
# Initialisation Pointeurs #
############################
i_strcpy(pt_champ1_860026620,"")
i_strcpy(pt_IDUS_NUM_860026620,"")


############################
# Debut Traitement         #
############################

# Duplication article entree pour retaillage des longueurs
erreur_860026620 = i_dup_art_id(g_iartin, g_iartout)


##################################################################
# Controles croises des champs : SERVICE_TYPE et SVOD_PACKAGE_ID #
##################################################################

erreur_860026620 = i_get_art_str(g_iartout, $TorcaDLV::SERVICE_TYPE, pt_champ1_860026620)
SI ( (i_strcmp(pt_champ1_860026620, "2") == 0) || (i_strcmp(pt_champ1_860026620, "4") == 0) )
ALORS
	SI ( i_valid_field_n(g_iartout, $TorcaDLV::SVOD_PACKAGE_ID) == 0 )
	ALORS
		#E.TorcaDLV.TC20
		trace("E.TorcaDLV.TC20 : stockage en elimine, TorcaDLV::Service_type = 2 ou 4 et TorcaDLV::SVOD_Package_Id absent")
		SAUT STOCKE_ELM
	FINSI
FINSI

# DRE - G4R9 QC857
##################################################################
# Controle sur IDUS_NUM commence par X ou x			 #
##################################################################
erreur_860026620 = i_get_art_str(g_iartout, $TorcaDLV::IDUS_NUM, pt_IDUS_NUM_860026620)

i_replace_str(pt_IDUS_NUM_860026620,"x","X",pt_IDUS_NUM_860026620)

SI ( i_strplcmp (pt_IDUS_NUM_860026620,"X",0,1) == 0 )
ALORS
	#E.TorcaDLV.TC21
	trace("E.TorcaDLV.TC21 : stockage en elimine, Demandeur (IDUS_NUM) commence par X... ou x... ")
	SAUT STOCKE_ELM
FINSI

# \DRE - G4R9 QC857

#####################################################################
# POINT de branchement : stockage PT_OK
#####################################################################

POINT STOCKE_OK

#IFDEF trace_niv1 = 1
trace2( "Stockage de l'article %s en OK",ARTICLE_860026620,"" )
#ENDIF

erreur_860026620 = i_stocke_art(g_iartout,0,PT_OK,0)

RETOUR TRAIT_OK


#####################################################################
# POINT de branchement : stockage PT_ERRONE
#####################################################################

POINT STOCKE_ERR

#IFDEF trace_niv1 = 1
trace2( "Stockage de l'article %s en ERRONE",ARTICLE_860026620,"" )
#ENDIF

erreur_860026620 = i_make_art_rej(g_iartin, g_iartout7, code_rejet_860026620)
erreur_860026620 = i_stocke_art(g_iartout7,0,PT_ERRONE,0)

RETOUR TRAIT_OK

###########################################################################
# POINT de branchement : stockage PT_ELIMINE
###########################################################################
POINT STOCKE_ELM

#IFDEF trace_niv1 = 1
trace2( "Stockage de l'article %s en ELIMINE",ARTICLE_860026620,"" )
#ENDIF
erreur_860026620 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0 )

RETOUR TRAIT_OK
