Valores x %

[phfmiranda 0]

Boa noite pessoal

 

Estou utilizando um DBEdit para gravar valores no bd, tenho o campo Valor R$ e o campo Lucro, preciso quando o campo lucro estiver preenchido ele pegue o valor de custo + o campo lucro e grave este valor no preço do produto.

 

Obrigado

[wllf 2]

Colega esse campo (Valor R$) seria o preço de custo + o valor do campo (lucro em %);

 

Você cria 2 variáveis (Valor e perc) : Real.

 

Nesse exemplo usei um botão para disparar o calculo.

 

procedure TForm1.Button1Click(Sender: TObject);

begin

valor := StrToFloat(edtvalor.Text) * StrToFloat(edtlucro.Text);

perc := (StrToFloat(edtvalor.Text) +(valor / 100));

lblresultado.Caption := FormatFloat('R$ #00.00', perc);

end;

 

Teste assim, qualquer dúvida posta aí ...

[phfmiranda 0]

Funcionou, porem se não tiver valor no DbEdit % da erro como eu posso fazer um tramento neste caso?

[wllf 2]

Bom dia,

 

edtperc = Campo que recebe o valor do lucro.

 

if edtperc.text <> '' then

begin

(Comando)

end

else

begin

(Comando)

end;

 

Qualquer dúvida posta aí ....

[phfmiranda 0]

Onde eu colocaria este codigo?

[wllf 2]

Bom dia esse código é colocado no componente que dispara o cálculo, pode ser um botão ou no evento OnKeyPress da caixa de texto, ou seja, você escolhe em qual evento quer disparar o cálculo.