É importante testar erros, antes de executar uma query, para evitar erros de execução.
Uma boa maneira é testar o retorno da função TCSQLEXEC(). A query abaixo, tem um erro proposital, para que a janela com o erro apareça :
#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"
/*/{Protheus.doc} SPVALSQL
Função SPVALSQL
@param Não recebe parametros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Mar|2020
/*/
User Function SPVALSQL()
Local cSql as Character
Local lErro as Logical
Local nQueryRet as Numeric
cSql := ""
lErro := .F.
nQueryRet := 0
dbselectarea("SA1")
cSql := "SELECT * FROM "+RetSQLName('SB1')
nQueryRet := TCSQLEXEC(cSql)
If nQueryRet < 0
msgstop("ERRO NA QUERY: " + chr(10) + TCSQLError())
lErro := .T.
Endif
Return lErro
O código fonte desse e outros exemplos podem ser encontrados em nosso git.
Post interessantes:
Aprenda a instalar o Protheus aqui.
Retornar datas por extenso aqui.
Aprenda a diferença de path relativo e absoluto aqui.
Dúdivas e sugestões, entre em contato.
Obrigado e até a próxima!
0 comentário