Pre�o de venda acrescido da margem de lucro

Question

Ola pessoal , sou um estudante de informatica, estou fazendo um trabalho em delphi 7, gostaria de fazer uma opera��o na janela de cadastro de produto, quando digitar o valor de compra (Campo1), e marg...

Micheus · Answer

[b:3eb317f5f8]jmotec1[/b:3eb317f5f8], vc est� utilizando componentes DBEdit para informar os campos?
Se sim, e considerando que seu dataset chame-se TabProduto, uma alternativa seria criar um procedimento para realizar o c�lculo (CalculaCampo3) e no evento OnExit dos campos 1 e 2, ap�s verificar altera��o de seu valor, chamar o procedimento para calcular o campo3 (considerando que o usu�rio n�o poder� digit�-lo):

procedure FormCadastroProduto.CalculaCampo3;
begin
  TabProdutoCAMPO3.Value := TabProdutoCAMPO1.AsFloat +
                          (TabProdutoCAMPO1.AsFloat *TabProdutoCAMPO2.AsFloat/100);
end;

-> evento OnExit DBEdit Campo1
begin
  if TabProdutoCAMPO1.Value <> TabProdutoCAMPO1.OldValue then
    CalculaCampo3;
end;

-> evento OnExit DBEdit Campo2
begin
  if TabProdutoCAMPO2.Value <> TabProdutoCAMPO2.OldValue then
    CalculaCampo3;
end;

Marco Salles · Answer

gosto muito de fazer isto no evento onchange dos dois DbEdits , aonde esses dois DbEdits utilizem o mesmo manipulador de evento OnChange

� so no objecto inspectoro do primeiro , no evento onchange , alterar o nome e depois no evento onchange do segundo atribuir o mesmo evento

procedure TForm1.DBEditMesmoManipularorOnChange(Sender: TObject);
var
valor,lucro:Extended;
begin
if TryStrToFloat(DbEdit1.Text,valor) then
 begin
   if TryStrToFloat(DbEdit2.Text,Lucro) then
      dbedit3.Text:=formatFloat(�0.00�,valor*Lucro)
   else
      dbedit3.Text:=formatFloat(�0.00�,0);
 end
else
   dbedit3.Text:=formatFloat(�0.00�,0);
end;

Alexdetonator · Answer

Grande Marco Salles,sou iniciante no Delphi e sua dica me ajudou bastante nesse tipo de c�lculo.Tenho uma d�vida em rela��o a esse c�lculo quando uso um somat�rio num DBGrid e apresento num DBEdit. Como posso atualizar tambem essa soma no DBGrid e apresenta-la no DBEdit ?Obrigado...

Marco Salles · Answer

[quote:f997618f97]Tenho uma d�vida em rela��o a esse c�lculo quando uso um somat�rio num DBGrid e apresento num DBEdit. Como posso atualizar tambem essa soma no DBGrid e apresenta-la no DBEdit ? [/quote:f997618f97]o que seria este somatorio no DbGrid amigo alexdetonator , isto geralmente � feito usando um[b:f997618f97] campo calculado[/b:f997618f97]..seria este o seu caso ?????...

Alexdetonator · Answer

Grande Marco,Em uma tela do meu formulario �orcamento� tenho um dbgrid com mao de obra de servicos contendo �servico - qtde horas - val unitario - val total�j� consegui jogar para um edit5.text o valor total desses servicos, porem quando adiciono um item ao dbgrid s� estou conseguindo ver atualizado quando fecho e abro novamente o meu form orcamento (formshow).Obrigado...

Marco Salles · Answer

[quote:fa42c711b5]j� consegui jogar para um [b:fa42c711b5]edit5.text [/b:fa42c711b5]o valor total desses servicos, porem quando adiciono um item ao dbgrid s� estou conseguindo ver atualizado quando fecho e abro novamente o meu form orcamento (formshow). [/quote:fa42c711b5]na sua duvida inicial voce diz em : [quote:fa42c711b5]Como posso atualizar tambem essa soma no DBGrid e apresenta-la no [b:fa42c711b5]DBEdit[/b:fa42c711b5] ? [/quote:fa42c711b5]netes t�pico voce diz:[quote:fa42c711b5]j� consegui jogar para um [b:fa42c711b5]edit5.text [/b:fa42c711b5][/quote:fa42c711b5]estou meio confuso..mas vou arriscar um palpitevoce pode usar os evento onvalidade dos campos qtde horas e  val unitario Tipo isso:[quote:fa42c711b5]procedure TForm1.SeuDataSetGeralValidate(Sender: TField);beginSeuDataSetTotal.AsCurrency:=SeuDataSetValor_unitario.AsCurrency*                                              SeuDataSetQtde_horas.Asfloat;edit1.Text:=currencyString+formatFloat(�0.00�,cdsTotal.AsCurrency);end;[/quote:fa42c711b5]lo lugar do edit voce pode usar um DbEdit (Controle DataWare)usando esse modelo , voce deve definir o Tfield(Total) com readOnley=True e usando o edit voce deve usar o evento AfterScrool do seu SeuDataSet para atualizar o valor do edit sempre que voce rolar pela Grade[quote:fa42c711b5]procedure TForm1.SeuDataSetAfterScroll(DataSet: TDataSet);beginedit1.Text:=currencyString+formatFloat(�0.00�,cdsTotal.AsCurrency);end;[/quote:fa42c711b5]2) O outro modelo � usar um campo calculado...

F�rum Pre�o de venda acrescido da margem de lucro #328887