REGISTRE ENTIER res_800009844
REGISTRE ENTIER erreur_800009844
REGISTRE POINTEUR pt_eec_name_800009844
REGISTRE ENTIER bloc_800009844
REGISTRE ENTIER type_vn_800009844
# 
####################################################################
#       article Entete telephone VN8 EEC
#	DEX 02/11/99	V7.4/8		Creation
#	URS/RBE 19/09/02 	Recuperation des champs ART, MINE et APPLI
#	11/10/2011 RHE VerifPcode
####################################################################



# VerifPcode - RHE # 
pt_eec_name_800009844 = "012345678912345"
i_strcpy(pt_eec_name_800009844,"")

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

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

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

erreur_800009844 = i_test_date_bloc(g_iartin)
SI erreur_800009844
ALORS
	trace("Erreur sur i_test_date_bloc")
	erreur_800009844 = i_PlvMessEmettre(DEST_JNL | DEST_TEEC | DEST_BASE,0,g_iartin,"ARTICLE Entete telephone VN8 : erreur date",0,0,0,0)
	RETOUR BAD_BLOC
FINSI

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

bloc_800009844 = i_get_art_field(g_iartin,$Txx8he::BLOC)
trace1("ARTICLES bloc no= %06d",bloc_800009844)



type_vn_800009844 = i_get_art_field(g_iartin,$Txx8he::ART)

        SI  (type_vn_800009844 == 04) 
        ALORS
                #DEBUT_DUMP#
		i_strcpy(g_idomain, "Dvn6dc")
                #FIN_DUMP#

#		Recuperation de ART, APPLI et MINE
 		erreur_800009844 = i_bloc_V1V2_initialiserIdent(g_iartin, $Txx8he::MINE)
 		erreur_800009844 = i_bloc_V1V2_initialiserIdent(g_iartin, $Txx8he::ART)
 		erreur_800009844 = i_bloc_V1V2_initialiserIdent(g_iartin, $Txx8he::APPLI)	

		trace("ARTICLES VN8")
		erreur_800009844 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)

		RETOUR TRAIT_OK
	SINON
		trace("Article non identifie,stockage en ERRONE")
		res_800009844 = i_stocke_art( g_iartin, 0, PT_ERRONE, 0)
		RETOUR TRAIT_OK
        FINSI

        #RETOUR BAD_BLOC



