DEFINITION MODULE_TRAIT_780042402 0x5000
DEFINITION ERR_DATE_780042402 0x060
DEFINITION ERR_SYNTAX_780042402 0x070
REGISTRE ENTIER present_780042402
REGISTRE ENTIER erreur_780042402
REGISTRE ENTIER code_rejet_780042402
REGISTRE ENTIER EFFICACE_780042402
REGISTRE ENTIER MODULE_780042402
REGISTRE ENTIER ERREUR_780042402
# Traitement Tisdn_nss9.src
# 14/01/11 - BEA - G3R1 lot4 Verification/Correction des variables (constantes, entiers, pointeurs)

# FE 54 ##
# /FE 54 ##

# FE 54 ##
# /FE 54 ##


# Initialisations
# FE 54 ##
EFFICACE_780042402 = 1
MODULE_780042402 = MODULE_TRAIT_780042402
ERREUR_780042402 = 0
code_rejet_780042402 = 0
# /FE 54 ##


#
# Test de la presence du champ DATE
#
present_780042402 = i_valid_field_n( g_iartin, $Tisdn_nss9::DATE)
SI (present_780042402 == 0) 
ALORS
	trace("Tisdn_nss9 : Le champ DATE n'est pas present dans l'article")
# FE 54 ##
	ERREUR_780042402 = ERR_SYNTAX_780042402
	code_rejet_780042402 = MODULE_780042402 + ERREUR_780042402 + EFFICACE_780042402
# /FE 54 ##
	SAUT STOCKE_ERRONE
FINSI

erreur_780042402 = i_get_art_field(g_iartin,$Tisdn_nss9::DATE)
SI (erreur_780042402 == -1)
ALORS
	trace("Tisdn_nss9 : Le champ DATE n'a pas un bon format => ERRONE")
# FE 54 ##
	ERREUR_780042402 = ERR_DATE_780042402
	code_rejet_780042402 = MODULE_780042402 + ERREUR_780042402 + EFFICACE_780042402
# /FE 54 ##
	SAUT STOCKE_ERRONE
FINSI

#
# Test de la presence du champ heure
#
present_780042402 = i_valid_field_n( g_iartin, $Tisdn_nss9::heure)
SI (present_780042402 == 0) 
ALORS
	trace("Tisdn_nss9 : Le champ heure n'est pas present dans l'article")
# FE 54 ##
	ERREUR_780042402 = ERR_SYNTAX_780042402
	code_rejet_780042402 = MODULE_780042402 + ERREUR_780042402 + EFFICACE_780042402
# /FE 54 ##
	SAUT STOCKE_ERRONE
FINSI

#
# Test de la presence du champ DUREE
#
present_780042402 = i_valid_field_n( g_iartin, $Tisdn_nss9::DUREE)
SI (present_780042402 == 0) 
ALORS
	trace("Tisdn_nss9 : Le champ DUREE n'est pas present dans l'article")
# FE 54 ##
	ERREUR_780042402 = ERR_SYNTAX_780042402
	code_rejet_780042402 = MODULE_780042402 + ERREUR_780042402 + EFFICACE_780042402
# /FE 54 ##
	SAUT STOCKE_ERRONE
FINSI
#
# Mise a jour des compteurs
#

#erreur = i_inc_cpt_ioplv(g_ieec,TYPE_ISDN,nj,IN_PLV)

erreur_780042402 = i_stocke_art(g_iartin, 0, PT_DIVERS, 0)

# Fin du traitement
trace("")
trace("Tisdn_nss9 : Fin traitement Stockage en ELIMINE")
RETOUR TRAIT_OK


POINT STOCKE_ERRONE
# FE 54 ##
	erreur_780042402 = i_make_art_rej(g_iartin, g_iartout, code_rejet_780042402)
# /FE 54
	erreur_780042402 = i_stocke_art(g_iartout,0,PT_ERRONE,0)
	trace("Tisdn_nss9 : Article errone STOCKE EN ERRONE => Fin de traitement")
	
RETOUR TRAIT_OK	
#------------------------ Fin Tisdn_nss9.src ------------------------------------
