Voltar foco no arquivo anterior

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
matrix
Usuário Nível 3
Usuário Nível 3
Mensagens: 131
Registrado em: 06 Jul 2004 08:41
Localização: Paraná
Contato:

Voltar foco no arquivo anterior

Mensagem por matrix »

Pessoal é o seguinte:
Digamos que estou em determinado arquivo X (ponto inicial)...........
teclei uma funcão, e esta rotina vai fazer determinados calculos e tauls, até aí blz, aí terminei o resultado desta rotina, gravei onde eu queria, e quero retornar ao (ponto inicial), obtendo a mesma posição de arquivo e indice que ocupava antes, como faço, qual comando usar antes e depois ????

Valeu.
"Ter Problemas é Inevitável, ser derrotado por eles é opcional.!!"
Avatar do usuário
Zima
Usuário Nível 2
Usuário Nível 2
Mensagens: 87
Registrado em: 06 Jul 2004 19:39
Localização: Santo André

Mensagem por Zima »

Vou dizer como eu faço:

Digamos que estou trabalhando com o arquivo CLIENTES, INDEXADO PELO NOME:

- antes de abrir outro banco de dados:
regatual=RECNO()
.
.
.
outra rotina, cálculos, etc ...
.
.
.
- para voltar onde parei:
SELECT Clientes
SET ORDER TO 1 // Nome
GO regatual

Espero ter sido claro !

Sds
Zima
Dudu_XBase
Membro Master
Membro Master
Mensagens: 1071
Registrado em: 25 Ago 2003 16:55

Mensagem por Dudu_XBase »

// para pegar o dbf corrente , posição corrente e indice corrente...
cAlias := alias()
nRecno := recno()
nOrdem := indexord()

// Faço os processos devidos...

// Volto ao que era antes...
Dbselectarea(cAlias)
dbsetorder(nOrdem)
dbgoto(nRecno)


________________________________________________________________________________________________________
(Aow Saudade) Clipper 5.2e, Blinker 7, RDD SIXNSX, DBFCDX /Xharbour 1.0, Rdd Mediator (Mysql) Free , RDD Sqlrdd (Sql Server) Comercial
(Hoje) C# Python Sql Server e Oracle




Responder