Validando entes de Importar

Discussão em 'Progress 4GL' iniciado por DFResmer, Junho 29, 2010.

  1. DFResmer

    DFResmer Membro Participativo

    Olá galera,
    Estou inportando alguns dados de uma tabela de fornecedores, mas está dando erros, duplicando fornecedores, então para isso não acontecer antes de importar eu queria verificar se o CNPJ já existe no meu cadastro, abaixo tem um exemplo de como estou fazendo as inportações hoje, mas não consigo validar o tabfor.cgccpf:
    Alguém tem alguma idéia para me ajudar.

    INPUT FROM 'C:\My Dropbox\Sistem_001\Servidor\Entradas\001\tabfor.d'.
    DISABLE TRIGGERS FOR LOAD OF tabfor.
    REPEAT:
    CREATE tabfor.
    IMPORT tabfor.
    END.
    INPUT CLOSE.


    Att,
    Diogo
  2. mcarril

    mcarril Membro Participativo

    Você teria que criar uma tabela temporária, armazenar os dados e validar se já existir não importar...
  3. LeandroSantos

    LeandroSantos Membro Participativo

    Código:
    def temp-table tt-tabfor like tabfor.
    
    INPUT FROM 'C:\My Dropbox\Sistem_001\Servidor\Entradas\001\tabfor.d'.
    DISABLE TRIGGERS FOR LOAD OF tabfor.
    REPEAT:
        create tt-tabfor.
        import tt-tabfor.
        find first tabfor no-lock
            where tabfor.cgccpf = tt-tabfor.cgcpcf
            no-error.
        if not available tabfor
        then do:
            CREATE tabfor.
            {C:\WRK\tabfor.i tabfor tt-tabfor}
        end.
    END.
    INPUT CLOSE.
    
    Para gerar o arquivo "tabfor.i" abra o Data Administration Utilities>Generate Include Files>ASSIGN Statement

Compartilhe esta Página