# Fonction PCODE ID = 860026233
REGISTRE ENTIER date_pivot
REGISTRE POINTEUR Num
REGISTRE POINTEUR Service
############################################################################
#
# Nom du fichier: EfficaceIP.src
# 
# Fonction:
#    Recupere la valeur du champ Efficacite dans une table externe
#
# En entree :
#    Service    
#    Num        
#
# En sortie:
#    si OK      : EfficaceIP (1er caractere)
#    Erreur     : I
#
############################################################################

REGISTRE POINTEUR Cle
REGISTRE POINTEUR valeur
REGISTRE ENTIER   erreur
REGISTRE POINTEUR res


#
# Recuperation des arguments en entree
#

date_pivot = depilerENTIER()
Num = depilerPOINTEUR()
Service = depilerPOINTEUR()
Cle     = "123456789012345"
valeur  = "12305612345"
res     = "11111112345"


#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(Cle,"%s%s",Service,Num)
#trace2("Cle: <%s>", Cle,"")

#
# Recherche dans la table externe, de la valeur correspondante a la cle
#
valeur = i_get_tab_field( "Inter", date_pivot, Cle )
SI( valeur == g_inull )
ALORS
#	trace2( "ERREUR: cle <%s> non trouve dans la table externe InefInt", Cle,"" )
        res = "I" 
	RETOUR res
FINSI
#trace2("Valeur trouvee: <%s> : %s", valeur, "")

#
# Recuperation du 1er caractere de la valeur trouvee 
#
i_get_sub_str( valeur, 0, 0, res )
#trace2("EfficaceIP: <%s> : %s", res, "")

RETOUR res

