DUVIDA: Juntar dados identicos em pastas separadas.

[rochinha]

Amiguinhos,

Se tem eu não lembro, se existe nunca usei.

Nestes trocentos anos de luta, sinceramente nunca usei alguns comandos do xBase como JOIN e SET RELATION.

Não me eram interessantes mesmo porque enfrentava a lentidão causadas por maquinas muito modestas, que na época eram "quaseTOP".

Mas dias atrás coloquei na minha pauta a idéia de juntar duas tabelas de campos idênticos, mas que repousam em pastas separadas e gostaria de visualizar os conteúdos numa unica visão, ou seja, ao puxar um browse ou um relatório gostaria de ver os conteúdos como um só, inclusive usando um mesmo indice.

As tabelas estão no padrão .DBF.

Se alguém já passou por isto e teve uma grande idéia faça uma benfvolência a este pobre velhinho.

[Itamar M. Lins Jr.]

Não entendi direito.
Tem a mesma estrutura os DBF´s ?
Você pode unir em um terceiro DBF, que pode ser temporário ou não.
Eu faço uso sempre do ordscope()

Saudações,
Itamar M. Lins Jr.

[rochinha]

Amiguinho,

Sim, as tabelas tem a mesma estrutura.

Voce teria um exemplo de como faz usando o OrdScope()?

[Itamar M. Lins Jr.]

Vamos supor que existe um campo "numero da nota fiscal eletrônica" tipo caractere, nome=nfe, tamanho 9.

Então, indexando os dois dbf's:

index on nfe ... //primeiro indice na tag

Function Filtrar
cNFE := dbfpai->nfe

dbffilho->(OdSetFocus(1))
dbffilho->(OrdScope(0,cNFE)) //Inicio do critério
dbffilho->(OrdScope(1,cNFE)) //fim do critério


Você criará uma função para chamar esse filtro do dbf filho.

A cada skip no dbf pai, chame a função p/ achar todos os registros.
É super rápido.

Saudações,
Itamar M. Lins Jr.