Fórum Puxar o preco de acordo com o posto #264233
05/01/2005
0
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
Curtir tópico
+ 0Posts
06/01/2005
Eric.miranda
Gostei + 0
06/01/2005
Scandolara
faz um select de acordo com o codigo de posto e retorne o preco.
espero ter ajudado
[]s
marcel
Gostei + 0
06/01/2005
Eric.miranda
mas vc pode me dar uma dica de como fazer esse select..
Gostei + 0
06/01/2005
Emerson Nascimento
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...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)