DEFINITION TYPE_TRANSIT_840006876 8
DEFINITION MODULE_TRAIT_840006876 0x5000
DEFINITION ERR_DATE_840006876 0x060
DEFINITION ERR_SYNTAX_840006876 0x070
REGISTRE ENTIER erreur_840006876
REGISTRE ENTIER present_840006876
REGISTRE ENTIER NumCpt_840006876
REGISTRE ENTIER code_rejet_840006876
REGISTRE ENTIER EFFICACE_840006876
REGISTRE ENTIER MODULE_840006876
REGISTRE ENTIER ERREUR_840006876
####################################################################
#	article Ttrans_nss9
#	Ttrans_nss9_tr.src
#	AE 24/08/200	Creation
# 20/01/11 - G3R1 lot4 Verification/Correction des variables (constantes, entiers, pointeurs) 
# 20/02/13 - G3R9 lot2 modification des tests syntaxiques  * et # pour le champ T3t6/calledNumber
####################################################################






trace("Ttrans_nss9 : Debut Traitement")

#
# Test de la prisence du champ DATE
#

# Initialisations

EFFICACE_840006876 = 1
MODULE_840006876 = MODULE_TRAIT_840006876
ERREUR_840006876 = 0
code_rejet_840006876 = 0

NumCpt_840006876 = 1501

present_840006876 = i_valid_field_n( g_iartin, $Ttrans_nss9::DATE)
SI (present_840006876 == 0) 
ALORS
	trace("Ttrans_nss9 : Le champ DATE n'est pas present dans l'article")

	ERREUR_840006876 = ERR_SYNTAX_840006876
	code_rejet_840006876 = MODULE_840006876 + ERREUR_840006876 + EFFICACE_840006876

	erreur_840006876 = i_PlvMessEmettre(8330,2,g_iartin,"",2, code_rejet_840006876,"DATE",0)
	SAUT STOCKE_ERRONE
FINSI

erreur_840006876 = i_get_art_field(g_iartin,$Ttrans_nss9::DATE)
SI (erreur_840006876 == -1)
ALORS
	trace("Ttrans_nss9 : Le champ DATE n'a pas un bon format => ERRONE")

	ERREUR_840006876 = ERR_DATE_840006876
	code_rejet_840006876 = MODULE_840006876 + ERREUR_840006876 + EFFICACE_840006876

	erreur_840006876 = i_PlvMessEmettre(8331,2,g_iartin,"",2, code_rejet_840006876,"DATE",0)
	SAUT STOCKE_ERRONE
FINSI

#
# Test de la prisence du champ heure
#
present_840006876 = i_valid_field_n( g_iartin, $Ttrans_nss9::heure)
SI (present_840006876 == 0) 
ALORS
	trace("Ttrans_nss9 : Le champ heure n'est pas present dans l'article")

	ERREUR_840006876 = ERR_SYNTAX_840006876
	code_rejet_840006876 = MODULE_840006876 + ERREUR_840006876 + EFFICACE_840006876

	erreur_840006876 = i_PlvMessEmettre(8330,2,g_iartin,"",2, code_rejet_840006876,"heure",0)
	SAUT STOCKE_ERRONE
FINSI

#
# Test de la prience du champ DUREE
#
present_840006876 = i_valid_field_n( g_iartin, $Ttrans_nss9::DUREE)
SI (present_840006876 == 0) 
ALORS
	trace("Ttrans_nss9 : Le champ DUREE n'est pas present dans l'article")

	ERREUR_840006876 = ERR_SYNTAX_840006876
	code_rejet_840006876 = MODULE_840006876 + ERREUR_840006876 + EFFICACE_840006876

	erreur_840006876 = i_PlvMessEmettre(8330,2,g_iartin,"",2, code_rejet_840006876,"DUREE",0)
	SAUT STOCKE_ERRONE
FINSI

#
# Test de la prisence du champ calledNumber
#
present_840006876 = i_valid_field_n( g_iartin, $Ttrans_nss9::calledNumber)
SI (present_840006876 == 0) 
ALORS
	trace("Ttrans_nss9 : Le champ calledNumber n'est pas present dans l'article")

	ERREUR_840006876 = ERR_SYNTAX_840006876
	code_rejet_840006876 = MODULE_840006876 + ERREUR_840006876 + EFFICACE_840006876

	erreur_840006876 = i_PlvMessEmettre(8330,2,g_iartin,"",2, code_rejet_840006876,"calledNumber",0)
	SAUT STOCKE_ERRONE
FINSI

#
# Test de la validite du champ calledNumber
#
#erreur = i_test_field_ila_off_n(g_iartin, $Ttrans_nss9::calledNumber, "Lrnis", 1)
erreur_840006876 = i_test_field_ila_off_n(g_iartin, $Ttrans_nss9::calledNumber, "Lidpart", 1)
SI erreur_840006876
ALORS
	trace("Ttrans_nss9 : Le champ calledNb presente une syntaxe erronee")

	ERREUR_840006876 = ERR_SYNTAX_840006876
	code_rejet_840006876 = MODULE_840006876 + ERREUR_840006876 + EFFICACE_840006876

	erreur_840006876 = i_PlvMessEmettre(8332,2,g_iartin,"",3, code_rejet_840006876,"calledNumber","Lrnis")
	SAUT STOCKE_ERRONE
FINSI

#
# Test de la prisence du champ exchangeIdentity
#
present_840006876 = i_valid_field_n( g_iartin, $Ttrans_nss9::exchangeIdent)
SI (present_840006876 == 0) 
ALORS
	trace("Ttrans_nss9 : Le champ exchangeIdentity n'est pas present dans l'article")

	ERREUR_840006876 = ERR_SYNTAX_840006876
	code_rejet_840006876 = MODULE_840006876 + ERREUR_840006876 + EFFICACE_840006876

	erreur_840006876 = i_PlvMessEmettre(8330,2,g_iartin,"",2, code_rejet_840006876,"exchangeIdent",0)
	SAUT STOCKE_ERRONE
FINSI

#
# Test de la prisence du champ outgoingRoute
#
present_840006876 = i_valid_field_n( g_iartin, $Ttrans_nss9::outgoingRoute)
SI (present_840006876 == 0) 
ALORS
	trace("Ttrans_nss9 : Le champ outgoingRoute n'est pas present dans l'article")

	ERREUR_840006876 = ERR_SYNTAX_840006876
	code_rejet_840006876 = MODULE_840006876 + ERREUR_840006876 + EFFICACE_840006876

	erreur_840006876 = i_PlvMessEmettre(8330,2,g_iartin,"",2, code_rejet_840006876,"outgoingRoute",0)
	SAUT STOCKE_ERRONE
FINSI

#
# Test de la prisence du champ incomingRoute
#
present_840006876 = i_valid_field_n( g_iartin, $Ttrans_nss9::incomingRoute)
SI (present_840006876 == 0) 
ALORS
	trace("Ttrans_nss9 : Le champ incomingRoute n'est pas present dans l'article")

	ERREUR_840006876 = ERR_SYNTAX_840006876
	code_rejet_840006876 = MODULE_840006876 + ERREUR_840006876 + EFFICACE_840006876

	erreur_840006876 = i_PlvMessEmettre(8330,2,g_iartin,"",2, code_rejet_840006876,"incomingRoute",0)
	SAUT STOCKE_ERRONE
FINSI

#
# Fin de traitement OK
#
erreur_840006876 = i_incr_cpt(NumCpt_840006876, TYPE_TRANSIT_840006876, g_ieec, 0, i_DHgetLocalTime(4, 7, i_date_audit()), 1)

erreur_840006876 = i_stocke_art(g_iartin, 0, PT_OK, 0)
trace("Ttrans_nss9 : Fin traitement OK ")
RETOUR TRAIT_OK

#
# Stockage en Errone
#
POINT STOCKE_ERRONE
	trace( "trans_nss9 : Stockage de l'article en ERRONE" )

	erreur_840006876 = i_make_art_rej(g_iartin, g_iartout, code_rejet_840006876)
# /FE 54
	erreur_840006876 = i_stocke_art(g_iartout, 0, PT_ERRONE, 0)
	RETOUR TRAIT_OK
#------------------------------- Fin Ttrans_nss9_tr.src ------------------------
