Olá,
Como posso obter a relação entre dois arquivos usando a classe tdatabase.
oCtoPar:CNPJ con oArqCli:CNPJ ?
Gracias.
FiveTech Software tech support forums
www.FiveTechSoft.com
Tdatabase e relation
5 posts • Page 1 of 1
Tdatabase e relation
by Wanderson » Sun Apr 20, 2008 1:43 am
- Wanderson
- Posts: 332
- Joined: Thu Nov 17, 2005 9:11 pm
by Antonio Linares » Thu Apr 24, 2008 9:35 am
oDbf:SetRelation( ncArea, cExpression )
ncArea es el número de área de trabajo ó el nombre del área de trabajo
ncArea es el número de área de trabajo ó el nombre del área de trabajo
-
Antonio Linares - Site Admin
- Posts: 42160
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
by karinha » Thu Apr 24, 2008 12:24 pm
[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
-
karinha - Posts: 7860
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
by Wanderson » Fri Apr 25, 2008 1:41 am
[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 //
- Wanderson
- Posts: 332
- Joined: Thu Nov 17, 2005 9:11 pm
5 posts • Page 1 of 1
Return to FiveWin para Harbour/xHarbour
Who is online
Users browsing this forum: Google [Bot] and 41 guests