DEFINITION ic_sgtqs_800009839 4
DEFINITION ic_ART_800009839 5
DEFINITION version_800009839 0x01
REGISTRE ENTIER erreur_800009839
REGISTRE ENTIER art_800009839
####################################################################
#
#	11/10/2011 RHE VerifPcode
####################################################################


# version = 1.0


####################################################################
####################################################################

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

erreur_800009839 = i_test_date_bloc(g_iartin)
SI erreur_800009839
ALORS
	erreur_800009839 = i_PlvMessEmettre(7000,1,g_iartin,"",0,0,0,0)
	RETOUR BAD_BLOC
FINSI

#####################################################################
#####################################################################

art_800009839 = i_get_art_field(g_iartin, ic_ART_800009839)
SI ((art_800009839 & 0xFF) != version_800009839)
ALORS
        erreur_800009839 = i_PlvMessEmettre(7016,1,g_iartin,"",0,0,0,0)
        RETOUR BAD_BLOC
FINSI

####################################################################
####################################################################

erreur_800009839 = i_SaveSGTQSNum(g_iartin, ic_sgtqs_800009839)
SI erreur_800009839
ALORS
	erreur_800009839 = i_PlvMessEmettre(7015,1,g_iartin,"",1,erreur_800009839,0,0)
	RETOUR BAD_BLOC
FINSI

####################################################################
####################################################################

#DEBUT_DUMP#
i_strcpy(g_idomain, "Dvxdce")
#FIN_DUMP#

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

RETOUR TRAIT_OK


