DEFINITION INCREMENT_780042463 1
DEFINITION CPT_780042463 1501
DEFINITION ERR_SYNTAX_780042463 0x5041
DEFINITION NUMTAB_780042463 4
REGISTRE ENTIER date_plat_780042463
REGISTRE ENTIER erreur_780042463
REGISTRE ENTIER X_780042463
REGISTRE ENTIER Y_780042463
REGISTRE ENTIER Z_780042463
REGISTRE ENTIER cpt_780042463
REGISTRE ENTIER date_audit_780042463
REGISTRE ENTIER code_rejet_780042463
############################################################################
# TRAITEMENT Tussd_trt.src
#	Article DC Tussd en entree de Platine
#	Pcode de traitement
#	- Creation
# Historique
# 19/04/06 FO 180 dump article
# 20/01/11 - BEA - G3R1 lot4 Verification/Correction des variables (constantes, entiers, pointeurs)
# 
############################################################################



cpt_780042463=0

trace("=========== debut Pcode TRAITEMENT  =============")

# ALLOCATION DES POINTEURS

#erreur = i_fdump_art(g_iartin)

################################################################
#	Test syntaxique
################################################################
erreur_780042463=i_test_art(g_iartin)
SI erreur_780042463
ALORS
#	trace("test_art en erreur")
	code_rejet_780042463 = ERR_SYNTAX_780042463 
	erreur_780042463 = i_PlvMessEmettre(6206,2,g_iartin,"",1,code_rejet_780042463,0,0)
	SAUT STOCKE_ERRONE
FINSI

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

################################################################
#	Tests croises
################################################################

########################################################
# Cpt applicatifs
########################################################
########################################################
########### Date_Audit
date_audit_780042463=i_date_audit()
#trace1("[Tussd_tr] date_audit=%x",date_audit)
########### date_plat
date_plat_780042463 = i_DHgetLocalTime(NUMTAB_780042463, 7, date_audit_780042463)
#trace1("======== date_plat = %d ========",date_plat)

Y_780042463=g_ieec
X_780042463=0x70
Z_780042463=0
cpt_780042463 = CPT_780042463
erreur_780042463=i_incr_cpt(cpt_780042463,X_780042463,Y_780042463,Z_780042463,date_plat_780042463,INCREMENT_780042463)

erreur_780042463 = i_stocke_art(g_iartin, 0, PT_OK, 0)
RETOUR TRAIT_OK

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

POINT   STOCKE_ERRONE

trace2("Stockage en ERRONE %s", "", "")

erreur_780042463 = i_make_art_rej(g_iartin, g_iartout5, code_rejet_780042463)
erreur_780042463 = i_stocke_art(g_iartout5, 0, PT_ERRONE, 0)

RETOUR TRAIT_OK

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

POINT STOCKE_DIV

trace( "Pcode de traitement   Stockage en DIVERS" )
erreur_780042463 = i_stocke_art( g_iartin, 0, PT_DIVERS, 0 )


RETOUR TRAIT_OK

#___________________________ FIN Tussd_tr.src_________________________________
