# Fonction PCODE ID = 660004265
REGISTRE ENTIER ic_champ

REGISTRE    ENTIER   indice
REGISTRE    ENTIER   digit
REGISTRE    ENTIER   erreur
REGISTRE    ENTIER   length_idpart

ic_champ = depilerENTIER()

indice=2
length_idpart = i_get_art_fieldlength(g_iartin, ic_champ)

POINT  CHERCHE_NON_NUM
digit =i_get_art_fieldtab(g_iartin, ic_champ, indice)

SI (digit < 0xA && indice <length_idpart )
ALORS
  indice=indice+1
  SAUT  CHERCHE_NON_NUM
FINSI

SI (indice<length_idpart )
ALORS
  POINT TRUNC_NUM
  erreur=i_set_art_fieldtab(g_iartin,ic_champ, indice, 0xF)
  indice=indice+1

  SI (indice<=length_idpart)
  ALORS
    SAUT TRUNC_NUM
  FINSI

  RETOUR 1
FINSI

RETOUR 0

