mostrar sobre

IF EDT_senha="xxxx" THEN
    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