REGISTRE ENTIER erreur_800009793
REGISTRE POINTEUR pt_typenr_800009793
################################################################
#
# TdevilCS : DC efficace et inefficace pour service Call Server
#
# 11/03/05 - RBE - Creation
# 06/04/06 - FAL - G2R2Cg ECC SPOT plus de controle croise pour FSENT FSENT2 et FSSORT FSSORT2
# 25/07/06 - FAL - G2R2Cq allegement des controles sur IDUS_INF et DETR_INF
#	03/10/2011 RHE VerifPcode
################################################################



# VerifPcode - RHE # 
pt_typenr_800009793 = "pt_typenr5678901"
i_strcpy(pt_typenr_800009793,"")

#==============================================================================
# Test sur le champ TYPENR
# Stokage en DIVERS si TYPENR different de  C10
#==============================================================================
erreur_800009793 = i_get_art_str(g_iartin,$TdevilCS::TYPENR, pt_typenr_800009793)

SI (i_strcmp(pt_typenr_800009793,"C10") != 0)
ALORS
	trace("TYPENR different de C10 - stockage en divers")

        SAUT STOCKE_DIVERS
FINSI

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

POINT STOCKE_OK

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

RETOUR TRAIT_OK

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

POINT STOCKE_DIVERS

erreur_800009793 = i_stocke_art( g_iartin, 0, PT_DIVERS, 0)
RETOUR TRAIT_OK
