# Fonction PCODE ID = 660004265
REGISTRE ENTIER res
REGISTRE ENTIER Index

REGISTRE  ENTIER    erreur

res = depilerENTIER()
Index = depilerENTIER()

erreur = i_set_art_fieldtab(g_iartout, Index ,0,0x00)
erreur = i_set_art_fieldtab(g_iartout, Index,1,0x00)
erreur = i_set_art_fieldtab(g_iartout, Index,2,res>>3*8)
erreur = i_set_art_fieldtab(g_iartout, Index,3,res>>2*8 & 0xFF)
erreur = i_set_art_fieldtab(g_iartout, Index,4,res>>8 & 0xFF)
erreur = i_set_art_fieldtab(g_iartout, Index,5,res& 0xFF)

RETOUR erreur

