# Fonction PCODE ID = 660004265
REGISTRE ENTIER Index
REGISTRE ARTOBJ artobj

REGISTRE ENTIER indice
REGISTRE ENTIER taille
REGISTRE ENTIER val
REGISTRE ENTIER erreur

Index = depilerENTIER()
artobj = depilerARTOBJ()
indice = 2
erreur = 0

taille = i_get_art_field(g_iartin, Index -1)
#les champs sont en DCB (2 digit par octet)
taille = taille*2
POINT BOUCLE_RM_ESCAPE
SI (indice < taille)
ALORS
  val = i_get_art_fieldtab(g_iartin, Index, indice)
  SI (val > 9)
  ALORS
    erreur = i_set_art_fieldtab(g_iartin, Index, indice, 15)
  FINSI
  indice = indice + 1
  SAUT  BOUCLE_RM_ESCAPE
FINSI
RETOUR erreur
