topic-8533

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Copiar objecto database a otro
Posted: Wed Oct 17, 2007 12:46 PM

Olá,

Como copiar o conteudo del objecto database a otro?

Salu2.

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Copiar objecto database a otro
Posted: Wed Oct 17, 2007 12:50 PM

Wanderson wrote:Olá,

Como copiar o conteudo del objecto database a otro?

Salu2.

se entendi...

Code: Select all Collapse

        oDbf3:Load()

        //--- Carrega os Dados do Produto
        oDbf2:Matricula  := oDbf1:Raz_Matric   // Matricula
        oDbf2:Nome_Cli   := oDbf1:Dest_Nome    // Nome do Cliente
        oDbf2:Telefone   := oDbf1:Tel          // 1º Telefone
        oDbf2:Tel2       := oDbf1:Tel2         // 2º Telefone
        oDbf2:Nome_func  := cNome_Func         // Nome do Funcionario
        oDbf2:DinCheq    := cDinCheq           // Forma de Pagamento
        oDbf2:MesAno     := Date()             // Data do Or‡amento
        oDbf2:Codigo     := oDbf3:Codigo       // Codigo do produto
        oDbf2:Descricao  := oDbf3:Descricao    // Descricao do produto
        oDbf2:Marca      := oDbf3:Marca        // Marca do Produto
        oDbf2:PrCusto    := 0.00               // oDbf3:PrCusto // Preco de Custo

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Re: Copiar objecto database a otro
Posted: Wed Oct 17, 2007 12:54 PM

queria evitar atribuir um por um entende? A tabela tem mais de 50 campos e são iguais. Algo como um laço para atribuição. Valeu.

karinha wrote:

Wanderson wrote:Olá,

Como copiar o conteudo del objecto database a otro?

Salu2.

se entendi...

Code: Select all Collapse

        oDbf3:Load()

        //--- Carrega os Dados do Produto
        oDbf2:Matricula  := oDbf1:Raz_Matric   // Matricula
        oDbf2:Nome_Cli   := oDbf1:Dest_Nome    // Nome do Cliente
        oDbf2:Telefone   := oDbf1:Tel          // 1º Telefone
        oDbf2:Tel2       := oDbf1:Tel2         // 2º Telefone
        oDbf2:Nome_func  := cNome_Func         // Nome do Funcionario
        oDbf2:DinCheq    := cDinCheq           // Forma de Pagamento
        oDbf2:MesAno     := Date()             // Data do Or‡amento
        oDbf2:Codigo     := oDbf3:Codigo       // Codigo do produto
        oDbf2:Descricao  := oDbf3:Descricao    // Descricao do produto
        oDbf2:Marca      := oDbf3:Marca        // Marca do Produto
        oDbf2:PrCusto    := 0.00               // oDbf3:PrCusto // Preco de Custo

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Copiar objecto database a otro
Posted: Wed Oct 17, 2007 01:17 PM

Bem, somente vendo. Mas, para agilizar, a pessoa mais indicada para te ajudar com objeto database que eu conheço, é :

EDNALDO ALVES ROLIM, que inclusive, estará nos PRESTIGIANDO COM SUA HONROSA PRESENÇA, no QUINTO ENCONTRO DE FIVEWINNERS em 24/11/2007, à realizar-se em GUARULHOS-SP.

Envie um email ao mesmo: ednaldorolim@uol.com.br

Abraços.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Consegui
Posted: Wed Oct 17, 2007 04:05 PM

Eis a solução.

...
oArqCli:Load()
oCli1:Blank()

For x=1 to oArqCli:FCount()
oCli1:aBuffer[x] := oArqCli:FieldGet(x)
Next x

Salu2

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Copiar objecto database a otro
Posted: Wed Oct 17, 2007 06:19 PM

Wanderson wrote:Olá,

Como copiar o conteudo del objecto database a otro?

Salu2.

Tdbf es similar a TDataBase pero más potente.

En Tdbf se haría:

oTDbfexDomi := oTDbfDomici:Clone( lNewArea, cComment )

y para copiar los valores de los campos:

For nContador := 1 To Len( oTDbfDomici:aTField )
AEVAL( oTDbfexDomi:aTField, { |oCampo| If( oCampo:cName == oTDbfDomici:aTField[nContador]:cName, oCampo:Val := oTDbfDomici:aTField[nContador]:Val, Nil ) } )
EndFor

Saludos
Carlos G.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion