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

REGISTRE POINTEUR    pt_str
REGISTRE ENTIER     caract

ic_champ = depilerENTIER()
artobj = depilerARTOBJ()
pt_str="01"
pt_str=i_get_art_fieldptr(artobj,ic_champ)
caract=i_strtab(pt_str,0)
RETOUR caract
