Olá,
Como posso obter a relação entre dois arquivos usando a classe tdatabase.
oCtoPar:CNPJ con oArqCli:CNPJ ?
Gracias.
Tdatabase e relation
-
Antonio Linares
- Site Admin
- Posts: 42655
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 67 times
- Been thanked: 96 times
- Contact:
-
karinha
- Posts: 7963
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 5 times
- Contact:
[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
[quote="karinha"][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 //