Transferencia de dados de dois ou mais dbf para um dbf

[JUDIVAN CONTABIL]

Caros colegas,

Gostaria de saber se alguem, tem um rotina que transfere os dados de dois ou mais dbf para um dbf, que tem a mesma estrutura dos demais dbfs.

Agradeço

Judivan

[Gilberto M Silva]

Olá Judivan, se os arquivos tem a mesma estrutura, acredito que seria assim:

Código: Selecionar todos

SELE A
use arq1
SELE B
use arq2
SELE C
use arq3
Sele b
GO TOP
DO WHILE .T.
     DO WHILE !EOF()
          aa:=campo1
          ab:=campo2
          //discrimina todos os campos
          SELE A
          append blank
          //grava os registros
          SELE B
          SKIP
      ENDDO
      SELE C
      GO TOP
     DO WHILE !EOF()
          aa:=campo1
          ab:=campo2
          //discrimina todos os campos
          SELE A
          append blank
          //grava os registros
          SELE C
          SKIP
      ENDDO
ENDDO
CLOS ALL
RETURN

[ANDRIL]

Tente assim:

Código: Selecionar todos

USE MEUARQUIVO

*--importa todos os registros de outro1.dbf
APPEND FROM outro1.dbf

*--importa todos os registros de outro2.dbf
APPEND FROM outro2.dbf

*--importa todos os registros de outro3.dbf
APPEND FROM outro3.dbf

close

Lembrando que todos os DBFs devem terCAMPOS com mesmo nome, tipo e tamanho.
Ate+