DEFINITION ic_bloc_880001639 2
DEFINITION ic_art_880001639 6
DEFINITION ic_art_bm_880001639 7
REGISTRE ENTIER erreur_880001639
REGISTRE POINTEUR eec_name_880001639
REGISTRE ENTIER bloc_880001639
REGISTRE ENTIER type_vn_880001639
REGISTRE ENTIER res_880001639
# $Id: Txx4he.src.cpp,v 4.10 1997/10/10 09:32:40 agd Exp $
####################################################################
#       article Entete telephone VN4 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)
#	DEX/RT/CEB      V5.0/3 - 0197	reprise des tests sur champs ART - def du domaine
#
#	DEX 08/08/97	V5.1/0
#				Modif commentaire pour VN6
#				Sortie bad_bloc si non identifie
#				Nettoyage
#
####################################################################





# FT5089 18/02/97
# SI (i_SaveSGTQS(g_iartin) != 0)
# ALORS
#	trace("PB memo code SGTQS")
# FINSI
# FT5089 fin

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

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

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

erreur_880001639 = i_test_date_bloc(g_iartin)
SI erreur_880001639
ALORS
	erreur_880001639 = i_PlvMessEmettre(6492,2,g_iartin,"",0,0,0,0)
#	erreur = i_PlvMessEmettre(DEST_JNL | DEST_TEEC | DEST_BASE,0,g_iartin,"ARTICLE Entete telephone VN4/VN5 : erreur date",0,0,0,0)
	RETOUR BAD_BLOC
FINSI

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


bloc_880001639 = i_get_art_field(g_iartin,ic_bloc_880001639)
trace1("ARTICLES bloc no= %06d",bloc_880001639)



type_vn_880001639 = i_get_art_field(g_iartin,ic_art_880001639)

# Modifie : May 26 1997 Par : Alain Guillard
# Le test de detection VN4/VN5/VN6 est dans "i12xx4he.cpp"
# $Id: i12xx4he.cpp,v 4.2.16.1.20.1 2000/01/24 18:45:47 drenaud Exp $
#####################################################################
#
#	DEX 08/08/97	V5.1/0
#				Ajout identification Bloc VN6
#				Retrait test VN4
#				RETOUR TRAIT_OK type_vn identifie
#
# DOROTECH(JPG) 04/08/98 - V6.4/0 - d'apres DE/DES/LCG/102/FB V5 (13/05/98)
#				Ajout identification Bloc VN7
#				Restrait test Renseignement RG
# DEX	13/10/99	V7.4/9 : VN8 ajour ART=04
# DEX	03/07/00	V8.4/5 : suppression de VN5
#####################################################################
# Changement domaine VN5 ou 12 ou VN6 suivant la valeur du champ ART
#####################################################################


        SI ( (type_vn_880001639 == 02) || (type_vn_880001639 == 03) || (type_vn_880001639 == 04))
        ALORS
                #DEBUT_DUMP#
		i_strcpy(g_idomain, "Dvn6dc")
		#FIN_DUMP#

		erreur_880001639 = i_bloc_V1V2_initialiserIdent(g_iartin, $Txx4he::ART)

                trace("ARTICLES VN6 ou VN7")
		erreur_880001639 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)

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

        FINSI





