Página 1 de 1
salvar e restaurar dbf x cdx
Enviado: 27 Jan 2016 17:04
por 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
salvar e restaurar dbf x cdx
Enviado: 27 Jan 2016 17:59
por 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
salvar e restaurar dbf x cdx
Enviado: 27 Jan 2016 18:57
por 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.
salvar e restaurar dbf x cdx
Enviado: 28 Jan 2016 10:03
por 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