REGISTRE ENTIER res_860026117
REGISTRE ENTIER cpt_860026117
REGISTRE ENTIER erreur_860026117
REGISTRE POINTEUR pt_SGTQS_860026117
# ---------------------------------------------------------------------------
#
# FICHIER	: Tftld_redis.src
#
# 23/04/2014 THE Creation
#
# ---------------------------------------------------------------------------


# Initialisation des Entiers
erreur_860026117 = 0
res_860026117    = 0


pt_SGTQS_860026117="12345678901212345"

# Initialisation des Pointeurs
i_strcpy(pt_SGTQS_860026117,"")


cpt_860026117 = i_LireRedistCpt()

#trace1(" [Tftld_Redist]  Nombre de passage en redistribution : %d ", cpt )

SI ( cpt_860026117 < 3 )
ALORS
	res_860026117 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
	res_860026117 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
	i_strcpy(pt_SGTQS_860026117, i_LireEECSGTQS(g_ieec) )
	erreur_860026117= i_PlvMessEmettre(8504, 1, g_iartin, "", 2, "Tftld_Redis", pt_SGTQS_860026117, 0 )
	#trace("[Tbivsip_Redist] stockage en anomalie de redistribution")
FINSI

#trace (" ## Fin Pcode Redistribution <__LINE__> ## ")

RETOUR TRAIT_OK

# fin de fichier
