# Fonction PCODE ID = 660004265
REGISTRE POINTEUR pt_tableHoraire
REGISTRE ENTIER T
REGISTRE ENTIER K
REGISTRE ENTIER P
REGISTRE ENTIER duree
REGISTRE ENTIER date

REGISTRE ENTIER coutComm
REGISTRE ENTIER dureeF
REGISTRE POINTEUR pt_buffer
REGISTRE POINTEUR pt_buffer2
REGISTRE ENTIER erreur

pt_tableHoraire = depilerPOINTEUR()
T = depilerENTIER()
K = depilerENTIER()
P = depilerENTIER()
duree = depilerENTIER()
date = depilerENTIER()

trace3 ("appel de f_tax2 : <date %d> <duree %d> <K %d>", date, duree, K)

pt_buffer = "0987654321"
pt_buffer2 = "1234567890"
erreur = i_float_to_str ( P, pt_buffer )
erreur = i_float_to_str ( T , pt_buffer2)
trace2 ("<P %s> <T %s>" , pt_buffer, pt_buffer2)

trace2 ("<%s %s>", "pt_tableHoraire", pt_tableHoraire)


dureeF = i_entier_to_float(duree)
SI  ( i_float_cmp(dureeF, P) == 1 )
ALORS
  trace("utilisation de f_tax2")
  duree = duree-P
  coutComm = f_tax1_660004265(date,duree,0,T,pt_tableHoraire)
  coutComm = coutComm+K
SINON
  coutComm = K
FINSI

trace1("Nombre d'UT par la formule 2 : <%d>" , coutComm)

RETOUR coutComm

