terça-feira, 31 de março de 2015

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)


Tabela Visao

Tabela Visao


MyView is Data Source

IF HCreateView(MyView,cliente,"id_cliente,nome_fantasia,valor_contrato ","valor_contrato","id_empresa=1",hViewDefault) THEN
    IF HReadSeekFirst(MyView,id_cliente,3) THEN
        MyView.nome_fantasia = "teste"
        HModify(MyView)           
    END
    BuildBrowsingTable(TABLE_visao,MyView,taByLogicalOrder+taFillTable)
END


Teste

Teste
teste