| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
fabiosys
Novato
Registrado: Terça-Feira, 27 de Janeiro de 2009
Mensagens: 90
|
 Enviada: Qua Set 16, 2009 5:50 pm Assunto: Porcentagem no delphi |
 |
|
Boa tarde amigis.
Tenho um controle de stoque e preciso que ao cliente colocar o valor de custo no estoque ele terá tb um campo aonde poderá colocar o lucro em % ai apareça em Valor de Venda o preço final já com a porcentagem dada.
var
lucro:real;
Begin
lucro:=(datamodule1.estoque.vlcusto * datamodule1.qestoque.lucro / DBEdit11.value);
end;
end.
Só que não está dando certo |
|
| Voltar ao Topo |
|
 |
temuchin
Profissional
Registrado: Segunda-Feira, 12 de Dezembro de 2005
Mensagens: 584
Localização: Marte
|
| Enviada: Qua Set 16, 2009 6:06 pm Assunto: |
|
|
Oi
Uma forma correta de se calcular porcentagem é assim:
preço * porcentagem_lucro / 100
No seu caso ficaria:
| Código: |
lucro := datamodule1.estoque.vlcusto + ( datamodule1.estoque.vlcusto * dbEdit11.Value / 100 );
|
Testa aí pra ver se funciona...
Abraço
_________________
A santidade dos pobres é invenção dos ricos
if ( topico.resolvido = true ) then begin
titulo.caption := topico.titulo + ' [RESOLVIDO] ';
end; |
|
| Voltar ao Topo |
|
|
fabiosys
Novato
Registrado: Terça-Feira, 27 de Janeiro de 2009
Mensagens: 90
|
| Enviada: Qua Set 16, 2009 7:36 pm Assunto: |
|
|
| temuchin escreveu: | Oi
Uma forma correta de se calcular porcentagem é assim:
preço * porcentagem_lucro / 100
No seu caso ficaria:
| Código: |
lucro := datamodule1.estoque.vlcusto + ( datamodule1.estoque.vlcusto * dbEdit11.Value / 100 );
|
Testa aí pra ver se funciona...
Então não funcionou está dando "operator is not this type"
bd É O ACCESS COMADOQUERY
Abraço |
|
|
| Voltar ao Topo |
|
|
AlexSousa
Colaborador
Registrado: Sexta-Feira, 12 de Novembro de 2004
Mensagens: 1879
Localização: São luís - MA
|
| Enviada: Qui Set 17, 2009 8:48 am Assunto: |
|
|
blz fabiosys,
esta faltando um detalhe:
| Código: |
lucro := datamodule1.estoquevlcusto.VALUE + ( datamodule1.estoquevlcusto.VALUE * dbEdit11.Value / 100 );
|
veja se é isso...blz
abraços,
_________________
"Guarda com toda a diligência o teu coração, porque dele procedem as fontes da vida....Prov. 4:23" |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
