PC Toledo

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

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