TL++ com Syntax Error no EmbededSQL

Gabriel,

Fiz um teste e funcionou perfeitamente, lembrando que quando a coluna é numérica, é necessário passar o tamanho e a precisão numérica, pois isso acaba virando a função TcSetField:


//-------------------------------------------------------------------
/*{Protheus.doc} u_SqlColumn
Teste de Embedded com coluna numérica

@author Daniel Mendes
@since 08/06/2020
@version 1.0
*/
//-------------------------------------------------------------------
function u_SqlColumn()

if TCLink() >= 0
    beginsql alias 'tmp_tbl'
        column qtd as numeric(16,0)
        select count(*) qtd
          from top_field
    endsql

    ConOut(">>", tmp_tbl->qtd)

    tmp_tbl->(DBCloseArea())

    TCUnlink()
endif

return nil

Obs.: As colunas date e logical possuem valor padrão, 8 e 1 respectivamente, por isso não é necessário informar o tamanho.


Documentação:

https://tdn.totvs.com/display/framework/Embedded+SQL

https://tdn.totvs.com/display/tec/TCSetField