Testar erro na execução de uma query

É importante testar erros, antes de executar uma query, para evitar erros de execução. Uma boa maneira é testar o retorno da função TCSQLEXEC().

user function fTestaQry()
   dbselectarea("SA1")
   cSql := "SELECT * FROM SA1010"

   nQueryRet := TCSQLEXEC(cSql)

   if nQueryRet < 0
      return msgstop("ERRO NA QUERY: " + chr(10) + TCSQLError())
   endif
return