Tabela Generica

Tabela Generica

Criando uma tabela com uma coluna, pode ser mostrada qualquer tabela com select
ele vai colocar as colunas automaticamente

dsQry is Data Source
sQl is string

sQl = "select id_empresa as Codigo,suporte as suporte,fantasia as Nome,id_Cadastro_geral as Id from empresa "


IF HExecuteSQLQuery(dsQry,hQueryDefault,sQl) THEN
    TABLE_generica..BrowsedFile = dsQry
END


BuildBrowsingTable(TABLE_generica,dsQry,taFillTable)
TableDisplay(TABLE_generica,taInit)