# Fonction PCODE ID = 860026233
REGISTRE ENTIER date_pivot
REGISTRE POINTEUR code_inef_spec
REGISTRE POINTEUR commut
REGISTRE POINTEUR Service
#
# Nom du fichier: inef_std.src
#
# Fonction:
#    Recupere la valeur code inefficacite standard dans la table externe
#    inef en fonction du type de commut et du code ineff. specifique
#
# En entree :
#    Service
#    commut
#    code_inef_spec
#    date_pivot
#
# En sortie:
#    si OK      : INEF_STD (sous forme de chaine de caracteres)
#    Erreur     : g_inull
#
############################################################################

REGISTRE POINTEUR Cle1
REGISTRE POINTEUR Cle2
REGISTRE POINTEUR valeur
REGISTRE ENTIER   erreur
REGISTRE POINTEUR  res

date_pivot = depilerENTIER()
code_inef_spec = depilerPOINTEUR()
commut = depilerPOINTEUR()
Service = depilerPOINTEUR()
#
# Recuperation des arguments en entree
#
Cle2    = "444444444412345"
Cle1    = "333333333312345"
valeur  = "22222212345"
res     = "11111112345"

trace1("date_pivot: %u>", date_pivot)
trace2("type_commut:%s>", commut,"")
trace2("code_inef_spec:%s>", code_inef_spec,"")
trace2("Service:%s>", Service,"")

#
# Concatenation de type_commut et code_inef_spec pour former la cle1
#
erreur = i_format_str2(Cle1,"%s%s",commut,code_inef_spec)
trace2("Cle1: %s>", Cle1,"")

#
# Concatenation de Service avec Cle1 pour former la cle2
erreur = i_format_str2(Cle2,"%s%s",Service,Cle1)
trace2("Cle2: %s>", Cle2,"")

#
# Recherche dans la table externe, de la valeur correspondante a la cle
#
valeur = i_get_tab_field( "inef_std", date_pivot, Cle2 )
SI( valeur == g_inull )
ALORS
      trace2( "ERREUR: Code_SGTQS %s> non trouve dans la table externe inef",Cle2, "" )
      RETOUR 0
FINSI
trace2("Valeur trouvee: %s> : %s", valeur, "")
 
RETOUR valeur
