Olá,
Como posso obter a relação entre dois arquivos usando a classe tdatabase.
oCtoPar:CNPJ con oArqCli:CNPJ ?
Gracias.
Board index FiveWin para Harbour/xHarbour Tdatabase e relation
oDbf:SetRelation( ncArea, cExpression )
ncArea es el número de área de trabajo ó el nombre del área de trabajo
[code]
DbSelectArea( ( oDbf3:cAlias ) )
OrdSetFocus( 1 )
DbGoTop()
SEEK cCod
IF !EOF()
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
IF lAtacado
oDbf2:Valor := oDbf3:Valor_Atac // Valor de Venda Para Atacado
ELSE
oDbf2:Valor := oDbf3:Valor // Valor de Venda Para Varejo
ENDIF
oDbf2:Prod_Servi := oDbf3:Prod_Servi //
DbSelectArea( ( oDbf3:cAlias ) )
OrdSetFocus( 1 )
DbGoTop()
SEEK cCod
IF !EOF()
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
IF lAtacado
oDbf2:Valor := oDbf3:Valor_Atac // Valor de Venda Para Atacado
ELSE
oDbf2:Valor := oDbf3:Valor // Valor de Venda Para Varejo
ENDIF
oDbf2:Prod_Servi := oDbf3:Prod_Servi //
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Antonio Linares wrote:oDbf:SetRelation( ncArea, cExpression )
ncArea es el número de área de trabajo ó el nombre del área de trabajo
Gracias Antonio.
karinha wrote:[code]
DbSelectArea( ( oDbf3:cAlias ) )
OrdSetFocus( 1 )
DbGoTop()
SEEK cCod
IF !EOF()
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
IF lAtacado
oDbf2:Valor := oDbf3:Valor_Atac // Valor de Venda Para Atacado
ELSE
oDbf2:Valor := oDbf3:Valor // Valor de Venda Para Varejo
ENDIF
oDbf2:Prod_Servi := oDbf3:Prod_Servi //