DEFINITION MODULE_TRAIT_780042448 0x5000
DEFINITION ERR_DATE_780042448 0x060
REGISTRE ENTIER present_780042448
REGISTRE ENTIER erreur_780042448
REGISTRE ENTIER code_rejet_780042448
REGISTRE ENTIER EFFICACE_780042448
REGISTRE ENTIER MODULE_780042448
REGISTRE ENTIER ERREUR_780042448
# P-code de traitement Tsspro_nss9_tr.src
#
# 18/01/11 - BEA - G3R1 lot4 Verification/Correction des variables (constantes, entiers, pointeurs)
#---------------------------------------
# FE 54 ##
# /FE 54 ##

# FE 54 ##
# /FE 54 ##


# Initialisations
# FE 54 ##
EFFICACE_780042448 = 1
MODULE_780042448 = MODULE_TRAIT_780042448
ERREUR_780042448 = 0
code_rejet_780042448 = 0
# /FE 54 ##


trace("")
trace("**** TssProc : Debut de traitement ****")
#
# Test de la presence du champ DATE
#
present_780042448 = i_valid_field_n( g_iartin, $Tsspro_nss9::DATE)
erreur_780042448 = i_get_art_field(g_iartin,$Tsspro_nss9::DATE)
SI ((present_780042448 != 0) && (erreur_780042448 == -1))
ALORS
	trace("Tsspro_nss9 : Le champ DATE n'a pas un bon format => ERRONE")
# FE 54 ##
	ERREUR_780042448 = ERR_DATE_780042448
	code_rejet_780042448 = MODULE_780042448 + ERREUR_780042448 + EFFICACE_780042448
# /FE 54 ##
	SAUT STOCKE_ERRONE
FINSI

# Mise a jour des compteurs
#

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

# Fin du traitement
erreur_780042448 = i_stocke_art(g_iartin,0,PT_DIVERS,0)
trace("Tsspro_nss9 : Fin traitement Stockage en ELIMINE")
RETOUR TRAIT_OK


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