REGISTRE ENTIER erreur_800009833
REGISTRE POINTEUR pt_typenr_800009833
################################################################
#
# Pcode de traitement TvoipGS
#
# 10/06/2008 - RHE - Creation
# 10/10/2011 RHE VerifPcode
################################################################


pt_typenr_800009833 = "4567890145678901"
i_strcpy(pt_typenr_800009833,"")

#==============================================================================
# Test sur le champ TYPENR
#==============================================================================
erreur_800009833 = i_get_art_str(g_iartin,$TdevilCS::TYPENR, pt_typenr_800009833)

SI (i_strcmp(pt_typenr_800009833,"C10") != 0)
ALORS
	trace("typenr different de C10 - stockage en ELIMINE")

        SAUT STOCKE_ELIMINE
FINSI

#	Envoi en distribution
#==============================================================================

POINT STOCKE_OK

erreur_800009833 = i_stocke_art(g_iartin, 0, PT_OK, 0)

RETOUR TRAIT_OK


#==============================================================================
# Stockage en DIVERS
#==============================================================================

POINT STOCKE_ELIMINE

erreur_800009833 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)
RETOUR TRAIT_OK
