REGISTRE ENTIER erreur_800009849
REGISTRE POINTEUR pt_eec_name_800009849
# $Id: Txxbm.src.cpp,v 4.5 1997/04/18 13:12:27 jpierre Exp $
####################################################################
#       article header FT VN3 (Bande Magnetique)
#
#	EH 17/10/91	creation
#	FD 17/12/91	MAJ
#
#	CNET DF 18/04/96		VERSION 4.0/3
#				- Les MESSALA remplacent les MESSTRAD
#				- Ajout d'un parametre pour dump dans les messala
#				et modification de la valeur du dump : 1 (i_PlvMessEmettre(,2,g_iartin,"",0,0,0,0)),
#				 2 (i_PlvMessEmettre(,2,g_iartin,"",1,,0,0)), 3 (i_PlvMessEmettre(,2,g_iartin,"",2,,,0) et 3D) pour dump seu
#				et 4 (i_PlvMessEmettre(,2,g_iartin,"",0,0,0,0)), 5 (i_PlvMessEmettre(,2,g_iartin,"",1,,0,0)), 6 (i_PlvMessEmettre(,2,g_iartin,"",2,,,0) et 3D)
#				pour dump avec traduction
#				- Remise du MESSTARD a la place de i_PlvMessEmettre(,2,g_iartin,"",1,,0,0) car
#				celui ci n'accepte pas de pointeur (nom EEC)
#	12/10/2011 RHE VerifPcode
####################################################################





# Initialisation du parametre pour dump des messala
# VerifPcode - RHE # dump = 0
#

# VerifPcode - RHE #
pt_eec_name_800009849 = "012345678912345"
i_strcpy(pt_eec_name_800009849,"")

####################################################################
# Teste de la date: dans le calendrier courant
####################################################################

erreur_800009849 = i_test_date_bloc(g_iartin)
SI erreur_800009849
ALORS
	erreur_800009849 = i_PlvMessEmettre(6494,2,g_iartin,"",0,0,0,0)
#	erreur = i_PlvMessEmettre(DEST_JNL | DEST_TEEC | DEST_BASE,0,g_iartin,"ARTICLE Entete telephone VN3 : erreur date",0,0,0,0)
	RETOUR BAD_BLOC
FINSI

####################################################################
# Numero EEC (g_ieec)
####################################################################

erreur_800009849 = i_get_field_str(g_iartin, "idEET", pt_eec_name_800009849)
# erreur = i_PlvMessEmettre(6493,2,g_iartin,"",1,pt_eec_name,0,0)
erreur_800009849 = i_PlvMessEmettre(DEST_JNL | DEST_BASE,2,g_iartin,"Bande Magnetique en provenance de l'EEC <%s> %s",2,pt_eec_name_800009849,"",0)
g_ieec = i_get_eec_num(pt_eec_name_800009849)

####################################################################
# Changement domaine
####################################################################

i_strcpy(g_idomain, "Dt3dc")

RETOUR TRAIT_OK





