Page 1 of 1
Copiar objecto database a otro
Posted: Wed Oct 17, 2007 12:46 pm
by Wanderson
Olá,
Como copiar o conteudo del objecto database a otro?
Salu2.
Re: Copiar objecto database a otro
Posted: Wed Oct 17, 2007 12:50 pm
by karinha
Wanderson wrote:Olá,
Como copiar o conteudo del objecto database a otro?
Salu2.
se entendi...
Code: Select all
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
Re: Copiar objecto database a otro
Posted: Wed Oct 17, 2007 12:54 pm
by 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.
karinha wrote:Wanderson wrote:Olá,
Como copiar o conteudo del objecto database a otro?
Salu2.
se entendi...
Code: Select all
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
Posted: Wed Oct 17, 2007 1:17 pm
by 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.
Consegui
Posted: Wed Oct 17, 2007 4:05 pm
by Wanderson
Eis a solução.
...
oArqCli:Load()
oCli1:Blank()
For x=1 to oArqCli:FCount()
oCli1:aBuffer[x] := oArqCli:FieldGet(x)
Next x
Salu2
Re: Copiar objecto database a otro
Posted: Wed Oct 17, 2007 6:19 pm
by FiveWiDi
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 _:
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.