DEFINITION C_Article_860000039 "Tri2g118HP"
REGISTRE ENTIER code_errone_860000039
REGISTRE ENTIER erreur_860000039
REGISTRE ENTIER CATDC_860000039
REGISTRE ENTIER SCATDC_860000039
############################################################################
#	Article DC Tri2g118HP  (RI2G 118 FT)
#	Pcode de traitement
#
# Historique
# 14/08/2012 - THE - G4R1 Creation
#
############################################################################

# DECLARATIONS



# INITIALISATIONS

code_errone_860000039 = 0
erreur_860000039      = 0

CATDC_860000039       = 0
SCATDC_860000039      = 0

################################################################################################
#
#  Controle pour le metachamp Dduree et pour le metachamp Tax :
#    en cas d erreur sur l une des operandes (absence, mauvais format des champs concernes),
#    envoi de l article en errone.
#    Modifie suite FO : test de DCONV uniquement
################################################################################################
CATDC_860000039 = i_get_art_field(g_iartin, $Tri2g118HP::CATDC)
SCATDC_860000039 = i_get_art_field(g_iartin, $Tri2g118HP::SCATDC)

SI ((CATDC_860000039 == 1) && (SCATDC_860000039 == 2))
ALORS
	SI (! i_valid_field_n(g_iartin, $Tri2g118HP::TRAA_DCONV))
	ALORS
		code_errone_860000039 = 0x5082
		erreur_860000039 = i_PlvMessEmettre(7221, 2, g_iartin, "", 2, code_errone_860000039, C_Article_860000039, 0)
		SAUT STOCKE_ERRONE
	FINSI
FINSI

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

# [IDUS.NUM] ou [ICOM. LCNB]		Presence de l'un de ses 2 parametres au moins.

SI ( (i_valid_field_n(g_iartin, $Tri2g118HP::IDUS_NUM ) != 1 ) 
  && (i_valid_field_n(g_iartin, $Tri2g118HP::ICOM_LCNB) != 1 ) 
  && (i_valid_field_n(g_iartin, $Tri2g118HP::COM_INTGI) != 1 ) )
ALORS
	code_errone_860000039 = 0x50F2
	erreur_860000039 = i_PlvMessEmettre(7222, 2, g_iartin, "", 2, code_errone_860000039, C_Article_860000039, 0)
	SAUT STOCKE_ERRONE
FINSI

######################################
# Stockage OK
######################################

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

############################################
#  POINT de branchement : stockage ERRONE  #
############################################

POINT STOCKE_ERRONE

#trace("Stockage en ERRONE ")
erreur_860000039 = i_make_art_rej(g_iartin,g_iartout,code_errone_860000039)
erreur_860000039 = i_stocke_art(g_iartout, 0, PT_ERRONE,0)

RETOUR TRAIT_OK
