DEFINITION ARTICLE_800010585 "Twha"
REGISTRE ENTIER erreur_800010585
REGISTRE ENTIER code_rejet_800010585
############################################################################
#	Pcode de Traitement TwhaORD.src
#
#	Article DC TwhaORD : DC DE TYPE COMMANDE (ORDER) ISSUS DE LA PFS TV WHA
#
# Historique
#	08/03/2012 - THE - G3R24 : Creation
#
############################################################################

# Constantes

# Variables fonctionnelles globales

# Pointeurs


############################
# Initialisation Entiers   #
############################
code_rejet_800010585 = 0


############################
# Affectation Pointeurs    #
############################


############################
# Initialisation Pointeurs #
############################


############################
# Debut Traitement         #
############################

trace ("__LINE__ #### Debut Traitement #### :__FILE__ #### ")

# Duplication article entree pour retaillage des longueurs
erreur_800010585 = i_dup_art_id(g_iartin, g_iartout)


##################################################################
# Controles Presence champ DATE_ASCII : 
##################################################################
SI ( i_valid_field_n(g_iartout,$TwhaORD::DATE_ASCII) == 0 )
ALORS
	SAUT STOCKE_ERR
FINSI


##################################################################
# Controles croises des champs : 
##################################################################


#####################################################################
# POINT de branchement : stockage PT_OK
#####################################################################

POINT STOCKE_OK

#IFDEF trace_niv1 = 1
trace2( "Stockage de l'article %s en OK",ARTICLE_800010585,"" )
#ENDIF

erreur_800010585 = i_stocke_art(g_iartout,0,PT_OK,0)

RETOUR TRAIT_OK


#####################################################################
# POINT de branchement : stockage PT_ERRONE
#####################################################################

POINT STOCKE_ERR

#IFDEF trace_niv1 = 1
trace2( "Stockage de l'article %s en ERRONE",ARTICLE_800010585,"" )
#ENDIF

erreur_800010585 = i_make_art_rej(g_iartin, g_iartout7, code_rejet_800010585)
erreur_800010585 = i_stocke_art(g_iartout7,0,PT_ERRONE,0)

RETOUR TRAIT_OK

###########################################################################
# POINT de branchement : stockage PT_ELIMINE
###########################################################################
POINT STOCKE_ELM

#IFDEF trace_niv1 = 1
trace2( "Stockage de l'article %s en ELIMINE",ARTICLE_800010585,"" )
#ENDIF
erreur_800010585 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0 )

RETOUR TRAIT_OK

