[Resolvido] o que tem de errado?

[Marostegan 0]

pessoal... bom dia!

 

to meio perdido aqui em 2 funções...

eu testei as duas separadas (cada uma em um buton)... e estão funcionando certinho...

 

porém...

 

quando eu coloco as duas em 1 mesmo button nenhuma delas funciona... o que eu esqueci ou montei errado?

 

brigadao...

 

var
soma : double;
quant : double;
begin
dm.q_orca_prod.Close;
dm.q_orca_prod.SQL.Clear;
dm.q_orca_prod.SQL.Add('Insert into tbl_orcamento_prod(codigo, valor_unit, quantidade, total, desconto, produto, codprod, data, vendedor) values ('''+edt_codigo.Text+''','''+edt_valor_uni.Text+''','''+dbe_quant.Text+''','''+dbe_valor_final.Text+''','''+dbe_desconto.Text+''','''+edt_produto.Text+''','''+edt_codprod.Text+''','''+edt_data.Text+''','''+dbe_vendedor.Text+''')');
dm.q_orca_prod.ExecSQL;
dm.t_orca_prod.Requery;
begin
soma := 0;
quant := 0;
dm.t_orca_prod.First;
while not dm.t_orca_prod.Eof do
begin
  soma := soma + dm.t_orca_prod.FieldByName('total').value;
  quant := quant + dm.t_orca_prod.FieldByName('quantidade').value;
  dm.t_orca_prod.next;
  l_valor.caption := floattostrF(soma,ffnumber,15,2);
  l_quant.caption := formatfloat('############',quant);
 end; end; end;

abraçoss

[Marostegan 0]

estranho....

 

eu deletei o button e coloquei dinovo... coloquei a msm programação oe tudo está funcionando normalmente... vai entender!!

 

=//

 

obrigado pessoal!! e desculpem postar aqui qq coisa

 

 

abraços....

[flavioavilela 0]

bom dia amigo, nao sei se entendi certo mas, quem sabe você colocar begin e end em cada função, ele passa em um begin e olha o conteudo dele e depois passa no outro...