rotina para calcular o valor unitario

Delphi

13/09/2012

gostaria de saber se alguem pode me ajudar nessa rotina de cacular o valor unitario, é o seguinte tenho um produto tipo flores com varios preços diferente, mais porem com um unico codigo para todos, queria que ao digita o codigo do produto ae eu possa aterar o valor unitario e ao digitar a quantidade ja der o valor caculado em valor total e que seja exibido na DBGrid tipo assim ITEM CODIGO MERCADORIA QUATIDADE UNITARIO TOTAL
1 295 Flores 3 5,00 15,00


Maxwell

Maxwell

Curtidas 0

Respostas

Guilherme Costa

Guilherme Costa

13/09/2012

Cara eu gosto de trabalhar com ClientDataSet, dar uma olhada nesse link.

https://www.devmedia.com.br/internalcalc-curso-trabalhando-com-clientdataset-parte-9/5734
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

13/09/2012

Qual é exatamente sua dúvida? O que tem pronto, como está fazendo?
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

13/09/2012

e ai, como ficou? Obteve algum avanço?
GOSTEI 0
Claudia Nogueira

Claudia Nogueira

13/09/2012

Eu colocaria na query que está ligada ao DataSource do DBGrid uma sentença SQL que traria o resultado do cálculo.
Mais ou menos da seguinte forma:

  IBQuery1.Close;
  IBQuery1.SQL.Text := 'SELECT CODIGO, NOME, QUANTIDADE, VALOR_UNITARIO, ' +
                       '       CAST(QUANTIDADE * VALOR_UNITARIO AS DOUBLE PRECISION) AS TOTAL ' +
                       '  FROM ITEM_ENTRADA_SAIDA ' +
                       ' WHERE (ID_ES =:ID_ES) ';
  IBQuery1.ParamByName('ID_ES').AsInteger := id_es;
  IBQuery1.Open;
GOSTEI 0
Maxwell

Maxwell

13/09/2012

cmpanheiro é o seguinte estou usando o Rdprint pra imprimir minha nota de venda mais uso o papel Razão o micro cerrilhado, so que consigo inserir apenas 17 intens em uma folha e tenho qe fechar a nota e abrir outra nota para colocar os intens restantes, gostaria de saber se o amigo tem ideia de como posso abrir outro cabelaho e continuar na pagina seguinte,
GOSTEI 0
POSTAR