inserir campo de tabela Y em tabela X
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
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
Diana
Curtidas 0
Respostas
Jdasg
04/12/2003
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.
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.
GOSTEI 0