REGISTRE ENTIER erreur_800009787
REGISTRE ENTIER hdfin_800009787
REGISTRE ENTIER hduree_800009787
REGISTRE ENTIER res_800009787
REGISTRE ENTIER erreur_syntaxique_800009787
################################################################################
#	Article convergent Libre Appel / AudiotelADC Nas Existant 
#       TRAITEMENT
################################################################################
#
#     HISTORIQUE
#	04/11/04 -PSA- Creation
#	03/08/05 -FAL- FO1404 correction taille enveloppe
#	03/10/2011 RHE VerifPcode
################################################################################
#
#	Variables intermediaires utilisees
#



#==============================================================================
#				CONTROLES SYNTAXIQUES
#==============================================================================

	erreur_syntaxique_800009787 = 0
	erreur_800009787 = i_test_art(g_iartin)
	SI (erreur_800009787)
	ALORS
# FO1126 : une erreur syntaxique ne provoque plus l'envoi en errone mais uniquement l'inhibiton de l'envoi a EVE.
# Pour transmettre l'info a la distri, on va utiliser un champ de l'enveloppe non significatif entre traitement et distri (UIFS)
# champ qu'on remettra a sa valeur initiale en distribution apres l'avoir exploite. 
#		code_rejet = CREJ_ERR04
#Article ADCNI LA: %04x erreur syntaxique
#		erreur = i_PlvMessEmettre(7712,2,g_iartin,"",1,code_rejet,0,0)
#		SAUT STOCKE_ERRONE

		erreur_syntaxique_800009787 = 1
	FINSI

#==============================================================================
#				STOCKAGE DANS VALIDE
#==============================================================================
POINT	STOCKE_OK

	hdfin_800009787 = i_concat_date(g_iartin, $TconvNI::DATE, $TconvNI::HFAPP, 0)
	hduree_800009787 = hdfin_800009787 - i_get_art_date(g_iartin)

	res_800009787 = g_iartin.IDUS_NUM[0]

	erreur_800009787 = i_add_opt ("Elibap")
	erreur_800009787 = i_set_attr_val_n($Elibap::T1,0x0B)
	#FO 1404 desormais automatique par ATP erreur = i_set_attr_val_n($Elibap::L1,0x0C)
	erreur_800009787 = i_set_attr_val_n($Elibap::Hdfin,hdfin_800009787)
	erreur_800009787 = i_set_attr_val_n($Elibap::Hduree,hduree_800009787)
	erreur_800009787 = i_set_attr_val_n($Elibap::CT2,0x00)
	erreur_800009787 = i_set_attr_val_n($Elibap::IDUS1,res_800009787)
	erreur_800009787 = i_set_attr_val_n($Elibap::UIFS,erreur_syntaxique_800009787)


	erreur_800009787 = i_stocke_art(g_iartin, 0,PT_OK, 0)

	RETOUR TRAIT_OK

#==============================================================================
#				STOCKAGE DANS ERRONE
#==============================================================================
POINT	STOCKE_ERRONE

	# VerifPcode - RHE # 	erreur = i_make_art_rej(g_iartin, g_iartout, code_rejet)
	erreur_800009787 = i_make_art_rej(g_iartin, g_iartout, 0)
	erreur_800009787 = i_stocke_art(g_iartout, 0, PT_ERRONE, 0)
	RETOUR TRAIT_OK
