# Fonction PCODE ID = 780042429
REGISTRE ENTIER index
REGISTRE ENTIER champ
REGISTRE ARTOBJ artobj

REGISTRE	POINTEUR	pt_str
REGISTRE	ENTIER		caract


index = depilerENTIER()
champ = depilerENTIER()
artobj = depilerARTOBJ()
#ASOUI
pt_str="0123456789"
pt_str=i_get_art_fieldptr(artobj,champ)
caract=i_strtab(pt_str,index)
RETOUR caract
