HourGlass()
HExecuteQuery(QRY_update_contatos)
HourGlass(False)
ELSE
Info("informe senha")
ReturnToCapture(EDT_senha)
END
IF EDT_senha="xxxxxx" THEN
HourGlass()
gdsQry is Data Source
gsSQL is string
gsSQL = [
UPDATE contatos set contatos.observacao=' '
WHERE
contatos.observacao<>'VENDAS'
]
IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
HourGlass(False)
Info("Executado com sucesso!")
ELSE
HourGlass(False)
Info("Verificar com o suporte")
END
ELSE
Info("informe senha")
ReturnToCapture(EDT_senha)
END
