Erro na execução de Update ou Delete via TCSQLEXEC

pessoALL,

as vezes, erros na sintaxe do Update ou Delete não geram erros fatais na execução, e o sistema simplesmente não avisa do erro, e continua normalmente ...

descobri isto da pior maneira ... em uma rotina onde eu precisava eliminar dados de calculos anteriores, e errei na sintaxe do Delete, a cada execução, gerava mais um registro para cada calculo ...

como resolver:

atribua a uma variavel o comando TCSQLEXEC() e verifique se houve erro!

DbSelectArea("SRC")
cStrSql := "DELETE FROM "+ RETSQLNAME("SRC")
cStrSql += " WHERE RC_PD IN ('111','222') AND "
cStrSql += " RC_FILIAL = '"+xFilial("SRC")+"'"
            
lResult := TCSQLEXEC(cStrSql)
If lResult < 0
   Return MsgStop("Erro durante a exclusao: " + TCSQLError())
EndIf



By Balboena (www.lbeb.com.br)