DEFINITION C_Dtrtmcp_860000066 "Dtrtmcp"
REGISTRE ENTIER erreur_860000066
####################################################################
#
#	Trtmcphe.src Pcode TRAITEMENT
#	BEA	20/03/06	Creation pour Mes contacts (G2R2Ci)
#	RHE	19/05/06	modif Trtmcp_en en Trtmcphe (G2R2Cg)
#
####################################################################
# CONSTANTES



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

erreur_860000066 = i_test_date_bloc(g_iartin)
SI erreur_860000066
ALORS
	erreur_860000066=i_PlvMessEmettre(7290,2,g_iartin,"",0,0,0,0)
	RETOUR BAD_BLOC
FINSI

#	Recuperation de ART et MINE
	erreur_860000066 = i_bloc_V1V2_initialiserIdent(g_iartin, $Trtmcphe::MINE)
	erreur_860000066 = i_bloc_V1V2_initialiserIdent(g_iartin, $Trtmcphe::ART)


####################################################################
# Changement domaine : domaine en entree de PLV.
####################################################################

#DEBUT_DUMP#
i_strcpy(g_idomain, C_Dtrtmcp_860000066)
#FIN_DUMP#

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

RETOUR TRAIT_OK

