salvar e restaurar dbf x cdx

[paiva_dbdc]

BOA.

alguém tem uma função que salve e restaures os arquivos e posicione onde estavam ?


ex:

vários arquivos abertos
salvar() --- aqui salva as bases


close databases
relatórios()

restaura() --- aqui restauraria as bases.... relacionamentos posição recno() etc

é pedir muito ? rs

parece que aqui no forun ou outro tinha uma função assim + já procurei e não acho


ob

Paiva

[HASA]

)
Paiva não sei de onde peguei a dica mais se melhorar posta ai ok.

Código: Selecionar todos

/*
*/
Function SvAmb()
	 Local Local1 := {}
	 Aadd(Local1,Alias())
	 Aadd(Local1,Indexord())
	 Aadd(Local1,Recno())
	 Return Local1
/*
*/
Function RtAmb(Arg1)

         If Arg1[1] != Nil .And. Select(Arg1[1]) != 0
	    Select(Arg1[1])
	    If Arg1[2] != 0
	       (Arg1[1])->(DBSetOrder(Arg1[2]))
	    Endif
	    If Arg1[3] != 0
	       (Arg1[1])->(DBGoTo(Arg1[3]))
	    Endif
	 Endif

Return Nil

:)Pos
HASA

[JoséQuintas]

É meio impossível a rotina que está querendo, pois o ALIAS não representa a localização do arquivo.

Altere o fonte chamado pra devolver tudo onde estava no caso do que ele mexer.

Acho muito esquisito precisar de uma rotina desse tipo, em todo caso, se executar a rotina em multithread (em outra thread), ela não mexe em nada com os arquivos atuais.

[HASA]

:-O
Bom dia, verdade se fechar os arquivos tem que abrir os arquivos novamente ai sim a rotina que passei da certo ela devolve o DBF com o alias que estava o indice no registro que estava ok.
:)Pos

forma de uso:

Código: Selecionar todos

aArea := svamb()
.
.
.
close database
.
.
.
RtAmb( aArea )

HASA