inserir campo de tabela Y em tabela X

04/12/2003

1

Oi pessoal, estou trabalhando com tabelas paradox, no delphi 7...
Criei o seguinte banco de dados:

tabela produto
cod
produto
preco

tabela vendas
cod
produtos
qtd
total

O que eu gostaria de fazer é o seguinte no campo produtos da tabela vendas, inserir os produtos (com respectivos precos) q. a pessoa comprou q. estão cadastrados na tabela produto para no final dar o total da venda e imprimir/e/ou gravar para posterior consulta...
Como faço?

Atenciosamente,
Diana


Responder

Posts

04/12/2003

Jdasg

O mais fácil é vc fazer um relacionamento entre as duas tabelas via master source.
Porém vc pode pesquisar o produto na tabela de produtos e quando salvar salvar na tabela de vendas. Veja abaixo um modelo simples:
Codigo <Pesquisa em Produto>

Preço <no onenter deste campo > If <Nome da Tabela>.findkey([<codigo do produto> ]) Then
preco := ([<Nome da Tabela><Campo valor do produto>.value ])
.
.
.
Total := qtd*preco

Qq dúvida me mande um email.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira