FVERS = 2
REFOBJET : ID = 800009852 ; ID_INIT = 880001642 ; NOM = Txxhe ; VERSION = P25 ; DATE = 13/08/12-13:16:49 ( 1344863809 ) ; CAT = 7 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 800000466
COMMENT = "generation automatique"
CREATEUR = teguire
# DEBUT_CORPS
PCODE_PERE=
# $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
####################################################################

REGISTRE   ENTIER   erreur
REGISTRE   POINTEUR pt_eec_name

# VerifPcode - RHE # REGISTRE   ENTIER   dump

# 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 = "012345678912345"
i_strcpy(pt_eec_name,"")

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

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

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




# FIN_CORPS