GARANTIR DESCONTO

Fórum Puxar o preco de acordo com o posto #264233

05/01/2005

0

Bom dia a todos..
estou com um problema e queria pedir a ajuda dos senhores...
tenho as seguintes tabelas

[b:bca1790994]notafiscal[/b:bca1790994]
Codnota
data
Codlocal
texto

[b:bca1790994]Posto[/b:bca1790994]
CodPosto
NomePosto
Endereco ...

[b:bca1790994]ItensPosto[/b:bca1790994]
CoditensPosto
CodProduto
Preco
CodPosto

[b:bca1790994]Combustivel[/b:bca1790994](que seriam os produtos)
CodCombustivel
Descricao

[b:bca1790994]CupomFiscal[/b:bca1790994]
Codigo
Dtcupomfiscal
horaemissao
Kmanterior
kmfinal
Codcondutor
CodVeiculo
CodCentroCusto
Notafiscal

[b:bca1790994]Itens[/b:bca1790994] (que são os itens do cupom fiscal)
Cod
NumCupom
CodProduto
Qtdade
Preco

estas são quase todas minhas tabelas..
o que queria fazer é o seguinte..

Nos itens do cupom fiscal eu uso um dbgrid para incluir os produtos do cupom fiscal.. num mesmo cupom ele pode ter gasolina, oleo,etc..
esse cupom é linkado a nota fiscal.. até aí tudo beleza..
o que quero fazer é o seguinte..
Como uso um campo lookup queria que qdo eu selecionasse o campo aparecesse o preco dele de acordo com o posto da nota..

ex..
Notafiscal Posto
001 Shell

neste posto Shell tem cadastrado gasolina a R$2,150

então no cupom fiscal qdo eu selecionar
gasolina aparecesse o valor de 2,150..

e assim sucetivamente para os outros postos..

Como fazer isso??
Valeu
Eric


Eric.miranda

Eric.miranda

Responder

Posts

06/01/2005

Eric.miranda

sobe


Responder

Gostei + 0

06/01/2005

Scandolara

amigo,

faz um select de acordo com o codigo de posto e retorne o preco.

espero ter ajudado

[]s

marcel


Responder

Gostei + 0

06/01/2005

Eric.miranda

Valeu amigo..
mas vc pode me dar uma dica de como fazer esse select..


Responder

Gostei + 0

06/01/2005

Emerson Nascimento

no seu campo lookup você precisa listar os valores da tabela ItensPosto. assim já seria exibido o valor correto.

por exemplo:
qryProdutos.Close;
qryProdutos.SQL.Text :=
    ´select IPosto.CodProduto, IPosto.CodItensPosto, IPosto.Preco, Comb.Descricao ´+
    ´from ItensPosto IPosto ´+
    ´left join Combustivel Comb on (Comb.CodCombustivel=IPosto.CodProduto) ´+
    ´where IPosto.CodPosto = :CodPosto ´;
qryProdutos.DataSource := DataSourceQueEstiverLigadoATabelaPOSTO;
qryProdutos.Open; // é necessário fazer essa abertura apenas uma vez.

A propriedade DataSource foi utilizada para que o preenchimento do parâmetro CodPosto seja feito automaticamente, em função da seleção feita na query ligada à tabela Posto.
Se for selecionado o Posto BR, automatimente serão listados os produtos do Posto BR com seus respectivos preços e assim por diante.

Aí, basta que seu campo lookup seja ligado à essa qryProdutos, para que mostre somente os produtos do posto selecionado e exiba o preço correto do produto.

Ajudei ou compliquei?....

outra coisa: tente especificar ao máximo as tecnologias utilizadas, tais como banco de dados, componentes de acesso, versão do delphi, etc... porque eu fiz o exemplo assumindo que você utiliza BDE, mas poderia ser dbExpress, ADO...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar