DEFINITION ic_appli_800009768 9
REGISTRE ENTIER erreur_800009768
REGISTRE POINTEUR pt_eec_name_800009768
REGISTRE ENTIER appli_800009768
# $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
####################################################################

# VerifPcode - RHE #


# Initialisation du parametre pour dump des messala

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

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

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

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

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

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

appli_800009768 = i_get_art_field(g_iartin,ic_appli_800009768)

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

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

	RETOUR TRAIT_OK
FINSI

RETOUR BAD_BLOC



