Tdatabase e relation

Tdatabase e relation

Postby Wanderson » Sun Apr 20, 2008 1:43 am

Olá,

Como posso obter a relação entre dois arquivos usando a classe tdatabase.

oCtoPar:CNPJ con oArqCli:CNPJ ?

Gracias.
Wanderson
 
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Postby 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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby 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 //
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7860
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Wanderson » Fri Apr 25, 2008 1:39 am

Antonio Linares wrote:oDbf:SetRelation( ncArea, cExpression )

ncArea es el número de área de trabajo ó el nombre del área de trabajo


Gracias Antonio.
Wanderson
 
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Postby 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 //
Wanderson
 
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 50 guests