Duvida Ler o código dos itens da planilha (Excel.csv) e comparar com a tabel

Discussão em 'Outros/Diversos' iniciado por Alexandre_fg, Setembro 30, 2014.

  1. Alexandre_fg

    Alexandre_fg Sem Pontuação

    Boa tarde pessoa , sou iniciante em Progress e gostaria de tirar algumas duvidas , eu preciso gerar um programa sem interface, ou seja, apenas no editor. E ele deve fazer o seguinte , deve ler o código dos itens da planilha em excel (Telefones.csv) e comparar com a tabel item-ean.it-codigo, e depois gerar outra planilha com duas colunas: item-ean.it-codigo e item-ean.fone.

    As duvidas seriam as seguintes , primeiro como faço a referencia dos itens desta planilha que devo fazer a leitura ? depois como poderei criar outra planilha com as colunas?

    ex de como está a planilha do excel :
    "4030005; SAC: 08007042767
    4030017; SAC: 08007042767
    4030018; SAC: 08007042767
    4030025; SAC: 08007042767.."

    até agora oque fiz foi :

    ASSIGN c-arquivo = "C:\temp\Telefones.csv".
    INPUT FROM value(c-arquivo) CONVERT SOURCE "iso8859-1".
    REPEAT:
    IMPORT UNFORMATTED c-linha.

    Agreço a atenção e desde já paciencia , pois sou iniciante XD.
  2. Alexandre_fg

    Alexandre_fg Sem Pontuação

    Boa tarde pessoal já matei a charada !!

    valeu

    DEF VAR c-arquivoE AS CHAR NO-UNDO.
    DEF VAR c-arquivoS AS CHAR NO-UNDO.
    DEF VAR c-linha AS CHAR NO-UNDO.
    DEF VAR c-lina2 AS CHAR NO-UNDO.

    ASSIGN c-arquivoE = "C:\temp\Telefones.csv".
    INPUT FROM value(c-arquivoE) CONVERT SOURCE "iso8859-1".

    ASSIGN c-arquivoS = "C:\temp\Telefones-b.csv".
    OUTPUT TO VALUE (c-arquivoS) CONVERT TARGET "iso8859-1".

    REPEAT:
    IMPORT UNFORMATTED c-linha.

    FOR EACH item-ean WHERE item-ean.it-codigo = ENTRY(1, c-linha, ";") NO-LOCK:


    PUT UNFORMATTED item-ean.it-codigo ";"
    item-ean.fone SKIP.

    END.
    END.

    INPUT CLOSE.
    OUTPUT CLOSE.

Compartilhe esta Página