Fórum como unir 02 bancos .dbf e copiar para um 3º os dados #193383

Olá
Moleza...

:D

Use NTF_ITEM.DBF new alias Item
index on nota to It_01 // para conseguirmos buscar
set index to It_01 // ativar o indice

Use NTF.DBF new alias Notas

Use NTF_TUDO.DBF new alias Tudo
Zap // para ter certeza que estará vazio a fim de receber os dados

Select Notas // apelido dado para este banco de dados...
do while ! eof()

mNOTA = Nota // Variaveis recebem dados do Nota.dbf
mFILIAL = Filial
mCOD_CLI = Cod_Cli
mNOME = Nome
mTOTAL_NF = Total_Nf

Select Item
seek mNOTA // nao vou testar se encontrou, presumindo que sim...
do while Nota = Mnota .and. ! eof()
mCOD_PROD = COD_PROD
mQUANT = QUANT
mVALOR_UNIT = VALOR_UNIT

Select Tudo // Recebe os dados
dbappend() // cria registro em branco
replace NOTA with mNOTA
replace FILIAL with mFILIAL
replace COD_CLI with mCOD_CLI
replace COD_PROD with mCOD_PROD
replace QUANT with mQUANT
replace VALOR_UNIT with mVALOR_UNIT
Select Item
skip
enddo
Select Notas
skip
enddo

// Fim

Emerson Krinski
Brasília-DF

O banco de dados e em DBf, creio que vc utiliza um gerenciador do tipo DB4 ou Mfox se vc nao tiver entre encontato

use (o nome do 3º arquivo)
ai vc vai colocar
append from (o endereço que ter o 1º arquivo)
append from (o endereço que ter o 2º arquivo)

EX: use clifor
append from f:\banco\cliforF.dbf
append from F:\banco\cliforJ.dbf
inde on nota to x