Boa tarde,

Quero compartilhar um detalhe, relacionado ao RUSHMORE, que me roubou alguns minutos aqui.


Cuidado! O RushMore, se estiver com EXACT OFF e DELETED OFF, pode simplesmente dar um USE AGAIN e estabelecer um filtro.

Vejam o exemplo onde o RUSHMORE dá um USE AGIN e estabelece um filtro:

Set Exact off
Set Deleted off
Create TABLE Test_SQL (Codigo C(1), Nome C(10))
Index On Codigo tag Codigo
***
Insert into Test_SQL (Codigo, Nome) values ("1", "Geraldo F. Barbosa - 1")
Insert into Test_SQL (Codigo, Nome) values ("2", "Geraldo F. Barbosa - 2")
Insert into Test_SQL (Codigo, Nome) values ("3", "Geraldo F. Barbosa - 3")
Insert into Test_SQL (Codigo, Nome) values ("4", "Geraldo F. Barbosa - 4")
Insert into Test_SQL (Codigo, Nome) values ("5", "Geraldo F. Barbosa - 5")
Insert into Test_SQL (Codigo, Nome) values ("6", "Geraldo F. Barbosa - 6")
Insert into Test_SQL (Codigo, Nome) values ("7", "Geraldo F. Barbosa - 7")
Insert into Test_SQL (Codigo, Nome) values ("8", "Geraldo F. Barbosa - 8")
Insert into Test_SQL (Codigo, Nome) values ("9", "Geraldo F. Barbosa - 9")
***
Select * from Test_SQL where Codigo = "3" into cursor curTest_SQL
?"Filtro " + Set("Filter")

*---

Neste outro exemplo, realmente, é executado um SELECT-SQL:

Set Exact on    && se EXACT ou DELETED estiver ON é executado um SELECT-SQL verdadeiro
Set Deleted off && se EXACT ou DELETED estiver ON é executado um SELECT-SQL verdadeiro
Create TABLE Test_SQL (Codigo C(1), Nome C(10))
Index On Codigo tag Codigo
***
Insert into Test_SQL (Codigo, Nome) values ("1", "Geraldo F. Barbosa - 1")
Insert into Test_SQL (Codigo, Nome) values ("2", "Geraldo F. Barbosa - 2")
Insert into Test_SQL (Codigo, Nome) values ("3", "Geraldo F. Barbosa - 3")
Insert into Test_SQL (Codigo, Nome) values ("4", "Geraldo F. Barbosa - 4")
Insert into Test_SQL (Codigo, Nome) values ("5", "Geraldo F. Barbosa - 5")
Insert into Test_SQL (Codigo, Nome) values ("6", "Geraldo F. Barbosa - 6")
Insert into Test_SQL (Codigo, Nome) values ("7", "Geraldo F. Barbosa - 7")
Insert into Test_SQL (Codigo, Nome) values ("8", "Geraldo F. Barbosa - 8")
Insert into Test_SQL (Codigo, Nome) values ("9", "Geraldo F. Barbosa - 9")
***
Select * from Test_SQL where Codigo = "3" into cursor curTest_SQL
?"Filtro " + Set("Filter")