# Fonction PCODE ID = 660004265
REGISTRE ARTOBJ artobjSource

DEFINITION INDTAX "indtax"
DEFINITION MSGITX "msgITX"

REGISTRE ENTIER indTax
REGISTRE ENTIER nombreUT

artobjSource = depilerARTOBJ()

trace ("appel a tax_fil")
#####################################################################################
# Analyse de l indicateur de taxabilite
#####################################################################################

indTax = i_get_art_field(artobjSource,i_get_field_num(artobjSource,INDTAX) )
trace1 ("indTax %d ", indTax)
nombreUT = -1

# Si indicateur de taxabilite = 2 : pas de calcul d UT
SI (indTax == 2)
ALORS
  trace ("pas de prevalorisation")
  nombreUT = -2
SINON
  trace ("prevalorisation")
  SI (indTax == 1)
  ALORS
    SI (i_get_field_num(artobjSource, MSGITX)!= -1)
    ALORS
      nombreUT = i_get_art_field( artobjSource, i_get_field_num(artobjSource, MSGITX))
      trace1 ("recuperation du DIT <%d>", nombreUT)
    SINON
      trace ("Champs msgITX absent : pas de prevalorisation")
      nombreUT = -2
    FINSI
  FINSI
FINSI

RETOUR nombreUT

