Eliminando valores repetidos de uma tabela

[rafael]

É tão simples mas funcional:

Código Selecionar Expandir


/***********************************************************************
*
* Trecho que elimia valores repetidos da tabela
*
* ********************************************************************/
local json = inclua'json'
para i,v em ipares(TBTemp) inicio        //TBTemp é uma tabela temporária já alimentada
    se nao Etiqueta[json.cod(v)] entao    //Etiqueta será marcada uma etiqueta para cada valor de cada índice da tabela
    tabela.insira(TBFinal,1,v)           // Inserindo os dados na tabela definitiva
    Etiqueta[json.cod(v)] = verdadeiro  // Marcando o índice com a Etiqueta
    fim
fim
                       // usei json.cod para o caso da tabela conter sub tabelas