ola amigos estou com um problema aqui , na hora que eu vou gravar uma baixa no
estoque esta somando ou subtraindo em todos os indices , segue o fonte
ADOTable1.Edit;
Resultado:=estoqueatual+quantidadeinformada; //SOMA AO ESTOQUE
ADOTable1.FieldByName('estoque_atual').AsString:=floattostr(Resultado);
ADOTable1.Post;
ADOTable1.Last;
ADOTable2.Last;
ADOTable2.Insert;
ADOTable2.FieldByName('data').AsString:=Edit1.Text;
ADOTable2.FieldByName('produto').AsString:=DBLookupComboBox1.Text;
ADOTable2.FieldByName('descisao').AsString:=DBEdit1.Text;
ADOTable2.FieldByName('entrada/saida').AsString:='E';
ADOTable2.FieldByName('quantidade').AsString:=edit4.Text;
ADOTable2.FieldByName('val_total').AsString:=edit5.Text;
//ADOTable2.FieldByName('fornecedores').AsString:=DBLookupComboBox2.Text;
//ADOTable2.FieldByName('departamento').AsString:=DBLookupComboBox3.Text;
ADOTable2.Post;
ADOTable2.Last;
end;
To: delphi-br@yahoogrupos.com.br
From: edre...@ig.com.br
Date: Fri, 17 Apr 2009 09:45:16 -0300
Subject: Re: [delphi-br] Calcular tempo restante
Eu resolvi da seguinte maneira:
diferenca := TempoAtual - TempoInicial;
TempoRestante := ((BarraProgresso.Max / BarraProgresso.Position) *
diferenca) - diferenca ;
Aí ficou certinho!
Abraços,
Edelson.
[As partes desta mensagem que não continham texto foram removidas]
_________________________________________________________________
Faça já uma busa e ganhe um wink do Messenger. Está esperando o que? É grátis!
http://www.ibud.com.br/
[As partes desta mensagem que não continham texto foram removidas]
