DEFINITION ERR_SYNTAX_660003798 0x5040
DEFINITION INCREMENT_660003798 1
DEFINITION NUMTAB_660003798 4
DEFINITION CPT_660003798 1501
REGISTRE ENTIER erreur_660003798
REGISTRE ENTIER code_rejet_660003798
REGISTRE ENTIER EFFICACE_660003798
REGISTRE ENTIER date_audit_660003798
REGISTRE ENTIER date_plat_660003798
REGISTRE ENTIER X_660003798
REGISTRE ENTIER Y_660003798
REGISTRE ENTIER Z_660003798
REGISTRE ENTIER cpt_660003798
REGISTRE POINTEUR pt_CHAMP_ERRONE_660003798
REGISTRE POINTEUR pt_1_660003798
REGISTRE POINTEUR pt_2_660003798
############################################################################
# TRAITEMENT TtpepresV2_trt.src
#	Article DC Ttpe en entree de Platine
#	Pcode de traitement
#	Creation le 24/11/2006
# Historique
# 24/11/2006 - DRE - G3R0CdME 
# 20/01/11 - G3R1 lot4 Verification/Correction des variables (constantes, entiers, pointeurs) 
# 05/02/2015 - RHE - G5R4 lot1: controle unitaire pour TypeEditeur(ESPACE ou 0 ou 1 ou 2)
# 
############################################################################


# Compteurs



trace("[TtpepresV2_trt] =========== debut Pcode TRAITEMENT  =============")

# ALLOCATION DES POINTEURS
pt_CHAMP_ERRONE_660003798 = "01234567890123456789"
pt_1_660003798 = "22222222222222222222222222222222222222222222222222222222"
pt_2_660003798 = "33333333333333333333333333333333333333333333333333333333"

#erreur = i_fdump_art(g_iartin)
EFFICACE_660003798 = 2

################################################################
#       Test syntaxique
################################################################
# neant

################################################################
#       Tests semantiques
################################################################


####### NumDdr
erreur_660003798 = i_get_art_str(g_iartin, $TtpepresV2::NumDdr, pt_1_660003798)
i_get_sub_str(pt_1_660003798, 0, 0, pt_2_660003798)
SI (i_strcmp(" ", pt_2_660003798) == 0)
ALORS
#	trace("NumDdr incorrect")
	code_rejet_660003798 = ERR_SYNTAX_660003798 + EFFICACE_660003798
	i_strcpy(pt_CHAMP_ERRONE_660003798, "NumDdr")
	erreur_660003798 = i_PlvMessEmettre(6551,2,g_iartin,"",2,code_rejet_660003798, pt_CHAMP_ERRONE_660003798, 0)
	SAUT STOCKE_ERRONE
FINSI

####### TypPrest
erreur_660003798 = i_get_art_str(g_iartin, $TtpepresV2::TypPrest, pt_1_660003798)
i_get_sub_str(pt_1_660003798, 0, 0, pt_2_660003798)
SI (i_strcmp(" ", pt_2_660003798) == 0)
ALORS
#	trace("TypPrest incorrect")
	code_rejet_660003798 = ERR_SYNTAX_660003798 + EFFICACE_660003798
	i_strcpy(pt_CHAMP_ERRONE_660003798, "TypPrest")
	erreur_660003798 = i_PlvMessEmettre(6551,2,g_iartin,"",2,code_rejet_660003798, pt_CHAMP_ERRONE_660003798, 0)
	SAUT STOCKE_ERRONE
FINSI

####### DebCre   (0 :Debit - 1 :credit suivi dun blanc)
erreur_660003798 = i_get_art_str(g_iartin, $TtpepresV2::DebCre, pt_1_660003798)
SI (i_strcmp("0 ", pt_1_660003798) != 0) && (i_strcmp("1 ", pt_1_660003798) != 0)
ALORS
#	trace("DebCre incorrect")
	code_rejet_660003798 = ERR_SYNTAX_660003798 + EFFICACE_660003798
	i_strcpy(pt_CHAMP_ERRONE_660003798, "DebCre")
	erreur_660003798 = i_PlvMessEmettre(6554,2,g_iartin,"",3,code_rejet_660003798,pt_1_660003798,pt_CHAMP_ERRONE_660003798)
	SAUT STOCKE_ERRONE
FINSI

########CodOff non vide
i_strcpy(pt_1_660003798, " ")
erreur_660003798 = i_get_art_str(g_iartin, $TtpepresV2::CodOff, pt_1_660003798)
SI i_strplcmp (pt_1_660003798," ",0,1) == 0
ALORS
	code_rejet_660003798 = ERR_SYNTAX_660003798 + EFFICACE_660003798
	i_strcpy(pt_CHAMP_ERRONE_660003798, "CodOff")
	erreur_660003798 = i_PlvMessEmettre(6551,2,g_iartin,"",2,code_rejet_660003798, pt_CHAMP_ERRONE_660003798, 0)
	SAUT STOCKE_ERRONE
FINSI

# G5R4 lot1
########TypeEditeur(ESPACE ou 0 ou 1 ou 2)
erreur_660003798 = i_get_art_str(g_iartin, $TtpepresV2::TypeEditeur, pt_1_660003798)
SI !( (i_strplcmp (pt_1_660003798," ",0,1) == 0) || (i_strplcmp (pt_1_660003798,"0",0,1) == 0) || (i_strplcmp (pt_1_660003798,"1",0,1) == 0) || (i_strplcmp (pt_1_660003798,"2",0,1) == 0) )
ALORS
	code_rejet_660003798 = ERR_SYNTAX_660003798 + EFFICACE_660003798
	i_strcpy(pt_CHAMP_ERRONE_660003798, "TypeEditeur")
	erreur_660003798 = i_PlvMessEmettre(6554,2,g_iartin,"",3,code_rejet_660003798,pt_1_660003798,pt_CHAMP_ERRONE_660003798)
	SAUT STOCKE_ERRONE
FINSI


################################################################
#       Tests croises
################################################################
# neant

########################################################
# Cpt applicatifs
########################################################

########### Date_Audit
date_audit_660003798=i_date_audit()
#trace1("[TtpepresV2_tr] date_audit=%x",date_audit)
########### date_plat
date_plat_660003798 = i_DHgetLocalTime(NUMTAB_660003798, 7, date_audit_660003798)
#trace1("[TtpepresV2_tr] date_plat = %d ========",date_plat)

Y_660003798=g_ieec
X_660003798=0x46
Z_660003798=0
cpt_660003798 = CPT_660003798
erreur_660003798=i_incr_cpt(cpt_660003798,X_660003798,Y_660003798,Z_660003798,date_plat_660003798,INCREMENT_660003798)
#erreur = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)
erreur_660003798 = i_stocke_art(g_iartin, 0, PT_OK, 0)

RETOUR TRAIT_OK


########################################################
#       Stockage en errone
########################################################

POINT   STOCKE_ERRONE

trace2("[TtpepresV2_trt] Stockage en ERRONE %s", "", "")

erreur_660003798 = i_make_art_rej(g_iartin, g_iartout5, code_rejet_660003798)
erreur_660003798 = i_stocke_art(g_iartout5, 0, PT_ERRONE, 0)

RETOUR TRAIT_OK

########################################################
# Stockage en Elimine Divers
########################################################

POINT STOCKE_DIV

trace( "[TtpepresV2_trt] Pcode de traitement   Stockage en DIVERS" )

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


RETOUR TRAIT_OK

#___________________________ FIN TtpepresV2_trt.src_________________________________

