FVERS = 2
REFOBJET : ID = 800009768 ; ID_INIT = 880001632 ; NOM = INETTxxhe ; VERSION = P27 ; DATE = 13/08/12-13:16:50 ( 1344863810 ) ; CAT = 7 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 800000466
COMMENT = "generation automatique"
CREATEUR = teguire
# DEBUT_CORPS
PCODE_PERE=
# $Id: INETTxxhe.src.cpp,v 4.7.38.1 1999/11/10 09:27:43 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)
#	30/11/2011 RHE VerifPcode
####################################################################

REGISTRE   ENTIER   erreur
# VerifPcode - RHE #
REGISTRE   POINTEUR pt_eec_name

# VerifPcode - RHE # REGISTRE   ENTIER   dump
REGISTRE   ENTIER   appli
DEFINITION  ic_appli     9

# Initialisation du parametre pour dump des messala

# VerifPcode - RHE
# dump = 0
pt_eec_name = "pt_eec_name0123456789"
i_strcpy(pt_eec_name,"")	

erreur = i_strcmp(g_idomain,"Dbmtl")
SI (erreur == 0)
ALORS
	erreur = i_get_field_str(g_iartin, "idem", pt_eec_name)
	erreur = i_PlvMessEmettre(6493,2,g_iartin,"",1,pt_eec_name,0,0)
	g_ieec = i_get_eec_num(pt_eec_name)
FINSI

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

# controle metachamp
SI (i_get_art_field(g_iartin,$ddebut) == -1)
ALORS
	erreur=i_PlvMessEmettre(8500,2,g_iartin,"",2,"INETTxxhe","i_date_platine",0)
	erreur = i_stocke_art( g_iartin, 0, PT_ERRONE, 0)
	RETOUR TRAIT_OK
FINSI

erreur = i_test_date_bloc(g_iartin)
SI erreur
ALORS
	erreur = i_PlvMessEmettre(6494,2,g_iartin,"",0,0,0,0)
	RETOUR BAD_BLOC
FINSI

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

appli = i_get_art_field(g_iartin,ic_appli)

SI(appli == 0x23)
ALORS
	#DEBUT_DUMP#
	i_strcpy(g_idomain, "Dindcr")
	#FIN_DUMP#

	erreur = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)

	RETOUR TRAIT_OK
FINSI

RETOUR BAD_BLOC



# FIN_CORPS