# Fonction PCODE ID = 860026233
REGISTRE ENTIER date_pivot
REGISTRE POINTEUR Num
REGISTRE POINTEUR Service
############################################################################
#
# Nom du fichier: CodeEffIP.src
# 
# Fonction:
#    Recupere la valeur associee (a partir du second caractere) a la clef dans une table externe
#
# En entree :
#    Service    
#    Num        
#
# En sortie:
#    si OK      : CodeEffIP (tous les carateres a partir du second)
#    Erreur     : 0
#
#    Historique : NSA 22/01/04  Normalisation pointeurs
############################################################################

REGISTRE POINTEUR pt_Cle
REGISTRE POINTEUR pt_valeur
REGISTRE ENTIER   erreur
REGISTRE POINTEUR pt_res


#
# Recuperation des arguments en entree
#

date_pivot = depilerENTIER()
Num = depilerPOINTEUR()
Service = depilerPOINTEUR()
pt_Cle     = "aaaaaaaaaaaaaaa"
pt_valeur  = "bbbbbbbbbbb"
pt_res     = "ccccccccccc"



#trace1("date_pivot: <%u>", date_pivot)  
#trace2("Service:    <%s>", Service,"")
#trace2("Num:        <%s>", Num,"")

#
# Concatenation de Service et Num pour former la cle
#
erreur = i_format_str2(pt_Cle,"%s%s",Service,Num)
#trace2("pt_Cle: <%s>", pt_Cle,"")

#
# Recherche dans la table externe, de la valeur correspondante a la cle
#
	i_strcpy(pt_valeur,i_get_tab_field( "Inter", date_pivot, pt_Cle ))

SI(!i_strcmp(pt_valeur,g_inull))
ALORS
#	trace2( "ERREUR: pt_Cle <%s> non trouvee dans la table externe InefInt", pt_Cle,"" )
	i_strcpy(pt_res,"00")
	RETOUR pt_res
FINSI
#trace2("Valeur trouvee: <%s> : %s", pt_valeur, "")

#
# Recuperation du 2ieme et 3ieme caractere 
#
i_get_sub_str( pt_valeur, 1, 2, pt_res )
#trace2("CodeEffIP: <%s> : %s", pt_res, "")

RETOUR pt_res

