# Fonction PCODE ID = 660004265
REGISTRE ENTIER date_fin

DEFINITION CPT_Redist 1509

REGISTRE  ENTIER   erreur
REGISTRE  ENTIER   Redist_X
REGISTRE  ENTIER   Redist_Y
REGISTRE  ENTIER   Redist_Z

date_fin = depilerENTIER()
Redist_Z=0
erreur=i_LireRedistCpt()
SI (erreur != 0 )
ALORS
  Redist_X=g_ieec
  Redist_Y=i_getArtDescNumCas(g_iartin)
  erreur=i_incr_cpt(CPT_Redist,Redist_X,Redist_Y,Redist_Z,date_fin,1)
  SI (erreur != 0)
  ALORS
    trace("Erreur de mise a jour du compteur 1509")
    RETOUR -1
  FINSI
  RETOUR 1
FINSI

