DEFINE TEMP-TABLE tt-item LIKE ITEM.
DEFINE VARIABLE linhaCsv AS CHARACTER EXTENT 3 NO-UNDO.



DEFINE BUFFER bf-item FOR ITEM.

FUNCTION fnGetDescricao RETURNS CHARACTER (pItCodigo AS CHARACTER, ncm AS CHARACTER):
FIND FIRST bf-item
    WHERE bf-item.it-codigo = pItCodigo NO-ERROR.

DO ON ERROR UNDO, LEAVE:
    ASSIGN bf-item.class-fiscal = ncm.
    IF AVAILABLE (bf-item)  THEN
    RETURN bf-item.it-codigo.
END.

    RETURN "".

END FUNCTION.



INPUT FROM "c:\dev-tests\ncm_test.txt".

REPEAT:
    IMPORT DELIMITER ';' linhaCsv.
    fnGetDescricao(linhaCsv[2], linhaCsv[3])NO-ERROR.
END.