Copiar objecto database a otro

[Wanderson]

Olá,

Como copiar o conteudo del objecto database a otro?


Salu2.

[karinha]

Olá,

Como copiar o conteudo del objecto database a otro?


Salu2.

se entendi...

Code: Select all  Expand view  RUN

        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


[Wanderson]

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.

Olá,

Como copiar o conteudo del objecto database a otro?


Salu2.

se entendi...

Code: Select all  Expand view  RUN

        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]

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.

[Wanderson]

Eis a solução.

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

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

Salu2

[FiveWiDi]

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.