Inclusão em massa de Informação em narrativa tabela ITEM

Salve salve galera...

Bom, vamos ver se alguem pode me ajudar com o seguinte:

Tenho uma lista em txt de itens que eu preciso INCLUIR na narrativa de todos os itens alguma informação.

Exemplo, preciso incluir essa narrativa em uma grande quantidade de itens:

AQUI VAI A NARRATIVA JA EXISTENTE ***ATENCAO FORA DE USO***A PARTIR DE 03/02/2011 P/ NOVAS ENCOMENDAS PASSAR A CHAMAR AS CONCHAS NOVA xxxx.xxxx.xxx E ENCOSTOS NOVOS SE NECESSARIO****

Obrigado!

Joga esses item tudo em formato csv (separado por .

daria pra vc usa o código parecido com o de baixo dai

Código:

def temp-table tt-imp NO-UNDO
    field it-codigo  like item.it-codigo.

input from P:\Miguel\lote-arq.txt no-echo.
repeat:
    create tt-imp.
    import delimiter ";" tt-imp.

end.
input close.

FOR EACH tt-imp NO-LOCK
    WHERE tt-imp.it-codigo <> "".
    FIND FIRST item no-lock
    where item.it-codigo = tt-imp.it-codigo no-error.
    if avail item then do:
    assign item.narrativa = /*mensagem que voce ira colocar*/.
    end.
END.

Boa tarde, Fera.

Blz. Qual narrativa você quer mesmo?

Olá Miguel, isso é pra eu alterar toda a narrativa né?

Mas eu preciso apenas incluir mais informações depois da narrativa existente...

Fiz assim, caso alguem precise:

Código:

DEFINE TEMP-TABLE tt-imp NO-UNDO
    FIELD it-codigo LIKE item.it-codigo.

INPUT FROM c:\itens.csv NO-ECHO.
REPEAT:
    CREATE tt-imp.
    IMPORT DELIMITER ";" tt-imp.

END.
INPUT CLOSE.

DEFINE STREAM saida.
OUTPUT STREAM saida TO c:\itens-alterados.txt.

FOR EACH tt-imp WHERE tt-imp.it-codigo <> "".

    FIND FIRST item WHERE item.it-codigo = tt-imp.it-codigo NO-ERROR.
    IF AVAIL item THEN DO:

        ASSIGN ITEM.narrativa = ITEM.narrativa + CHR(10) + "<<AFERIDO ESTRUTURA - 01/02/2011 - ANDRE PAES EP>>".

        PUT STREAM saida
            ITEM.it-codigo
            ITEM.desc-item SKIP
            ITEM.narrativa SKIP.
        
    END.
END.