3 em 1 com alias

[Itamar M. Lins Jr.]

Olá!

Código: Selecionar todos

clientes->(dbSetOrder(1), dbGoTop(), dbSeek(cChave))

Saudações,
Itamar M. Lins Jr.

[alxsts]

Olá!

É um recurso bem antigo (vem desde o Clipper 5) e bem útil (para quem usa DBF (especialmente dentro de code blocks). Mas é bom divulgar pois muitos o desconhecem. Lembro-me de ter usado isto em 2006...

No tópico Coluna RowVersion em Tabela DBF, onde nós dois interagimos, tem um exemplo:

Código: Selecionar todos

135	   tbState->( DbGoTop(), ;
136	              Browse(), ;
137	              DbEval( { || tbState->nmEstado := Upper( tbState->nmEstado ) } ), ;
138	              DbGoTop(), ;
139	              Browse(), ;
140	              DbCloseArea() ;
141	            )

O valor da última expressão é retornado. Por exemplo:

Código: Selecionar todos

LOCAL cCustName, nCust := 1024

   cCustName := Cust->( DbSetOrder( 2 ), DbSeek( nCust ), CustName ) --> retorna o nome do cliente

[JoséQuintas]

E isso também pode ser usado em classes, pra facilitar o INLINE, uma vez que é codeblock.

Código: Selecionar todos

METHOD Soma( nValue ) INLINE ::nSoma += nValue, ::nSoma

[JoséQuintas]

Ou num VALID:

Código: Selecionar todos

.... GET nAliIcms picture "999" VALID nValIcms := nValor * nAliIcms / 100, .T.

[JoséQuintas]

Mas ainda prefiro minha função, fica mais claro do que se trata, e desfaz as mudanças.
Mais ou menos isto, como resumo:

Código: Selecionar todos

Encontra( nCodigo, "clientes", "nome" )
...

FUNCTION Encontra( xChave, cAlias, cOrder )
LOCAL nSelect, xOrder, lEof
nSelect := Select()
SELECT   ( Select( cAlias ) )
xOrder := OrdSetFocus( cOrder )
SEEK xChave
lEof := Eof()
OrdSetFocus( xOrder )
SELECT ( nSelect )
RETURN lEof

[Itamar M. Lins Jr.]

Olá!

prefiro minha função,

Com uso do alias, select é redundância.
Toda vez que uso DbSeek() eu coloco (MeuAlias)->(OrderSetFocus() ), (MeuAlias)->(DbSeek("xyz")).

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Com uso do alias, select é redundância.
Toda vez que uso DbSeek() eu coloco (MeuAlias)->(OrderSetFocus() ), (MeuAlias)->(DbSeek("xyz")).

Dependendo da situação, isso pode significar mudar o índice original e possibilidade de problemas.
Aliás.... tá aí uma boa aplicação de multithread.