DEFINITION CPT_1501_840000617 1501
DEFINITION TYPE_EDS_ZB_GPRS_840000617 0x90
DEFINITION MODULE_TRAIT_840000617 0x5000
DEFINITION ERR_SYNTAX_840000617 0x070
REGISTRE ENTIER erreur_840000617
REGISTRE ENTIER code_rejet_840000617
REGISTRE ENTIER EFFICACE_840000617
REGISTRE ENTIER MODULE_840000617
REGISTRE ENTIER ERREUR_840000617
REGISTRE POINTEUR pt_str_840000617
####################################################################
#	Traitement : Ttap310ZB_GPRS_trt.src
#	Article EDS Zones Blanches GPRS (TAP 3.10)
#
#	Creation : 25/06/08 Par : AM
#	09/07/2008 : R.ASOUI Correction globale
#	18/09/2008 : JLG QC210
#	19/01/11 - BEA - G3R1 lot4 Verification/Correction des variables (constantes, entiers, pointeurs)
# 	07/02/11 - QC821 : modifification pointeur (evolution spec)
####################################################################



trace("Ttap310ZB_GPRS : Debut Traitement")

# Initialisations
EFFICACE_840000617 = 1
MODULE_840000617 = MODULE_TRAIT_840000617
ERREUR_840000617 = 0
code_rejet_840000617 = 0

pt_str_840000617 = "pt_str7890123456789012345678901234567890123456789012345678901234"
i_strcpy(pt_str_840000617,"")

#####################################################################
# Controle syntaxique de l'article
#####################################################################
#
# Test de la validite du champ sender
# Si champ absent => errone

erreur_840000617 =  i_valid_field_n(g_iartin,$Ttap310ZB_GPRS::sender)
SI (!erreur_840000617)
ALORS
	trace("Ttap310ZB_GPRS :champ sender absent => ERRONE")
	ERREUR_840000617 = ERR_SYNTAX_840000617
	code_rejet_840000617 = MODULE_840000617 + ERREUR_840000617 + EFFICACE_840000617
	erreur_840000617=i_PlvMessEmettre(8900, 2 , g_iartin, "", 2, code_rejet_840000617, "sender", 0)
	trace( "Ttap310ZB_GPRS :Fin Traitement Stockage de l article en ERRONE" )
	erreur_840000617 = i_make_art_rej(g_iartin, g_iartout, code_rejet_840000617)
	erreur_840000617 = i_stocke_art(g_iartout, 0, PT_ERRONE, 0)
	RETOUR TRAIT_OK
FINSI

#####################################################################
# Controle semantique de l'article
#####################################################################
#
# Test semantique champ sender
# SI Sender different de FRAF2 et FRAF3 => ERRONE

erreur_840000617 = i_get_field_str(g_iartin,"sender",pt_str_840000617)
SI ( (i_strcmp(pt_str_840000617,"FRAF3")) && (i_strcmp(pt_str_840000617,"FRAF2")) )
ALORS
	trace("Ttap310ZB_GPRS : Mauvaise valeur champ sender")
	trace( "Ttap310ZB_GPRS :Fin Traitement Stockage de l article en ELIMINE" )
	erreur_840000617 = i_stocke_art(g_iartin, 0, PT_DIVERS, 0)
	RETOUR TRAIT_OK
FINSI

trace( "Ttap310ZB_GPRS :Fin Traitement Stockage de l article en OK" )
erreur_840000617 = i_stocke_art(g_iartin, 0, PT_OK, 0)
erreur_840000617=i_incr_cpt(CPT_1501_840000617, TYPE_EDS_ZB_GPRS_840000617, g_ieec, 0, i_DHgetLocalTime(4, 7, i_date_audit()), 1)
RETOUR TRAIT_OK
#------------------- Fin  Ttap310ZB_GPRS_trt.src ------------------------------------
