REGISTRE ENTIER erreur_800009852
REGISTRE POINTEUR pt_eec_name_800009852
# $Id: Txxhe.src.cpp,v 4.7.40.1 1999/12/06 13:12:39 hery Exp $
####################################################################
#       article DC telephone VN3 EEC
#
#	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
####################################################################



# FT5089 04/02/97
# SI (i_SaveSGTQS(g_iartin) != 0)
# ALORS
#	trace("PB memo code SGTQS")
# FINSI
# FT5089 fin

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

pt_eec_name_800009852 = "012345678912345"
i_strcpy(pt_eec_name_800009852,"")

erreur_800009852 = i_strcmp(g_idomain,"Dbmtl")
SI (erreur_800009852 == 0)
ALORS
	# VerifPcode - RHE # pt_eec_name = "012345678912345"
	erreur_800009852 = i_get_field_str(g_iartin, "idem", pt_eec_name_800009852)
#	erreur = i_PlvMessEmettre(6493,2,g_iartin,"",1,pt_eec_name,0,0)
	erreur_800009852 = i_PlvMessEmettre(DEST_JNL | DEST_BASE,2,g_iartin,"Bande Magnetique en provenance de l'EEC <%s> %s",2,pt_eec_name_800009852,"",0)
	g_ieec = i_get_eec_num(pt_eec_name_800009852)
FINSI

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

erreur_800009852 = i_test_date_bloc(g_iartin)
SI erreur_800009852
ALORS
	erreur_800009852 = 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

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

#DEBUT_DUMP#
i_strcpy(g_idomain, "Dt3dc")
#FIN_DUMP#

RETOUR TRAIT_OK




