ActiveDelphi

[luispatm]

Amigos como posso calcular dois valores em toda minha tabela:

Tenho o Valor do produto (VALOR)
Tenho o lucro (LUCRO)
Tenho o preço final (PRECOFINAL)

O que preciso e dar o valor do lucro em um edit ex. 30
E o sistema atualizar toda a tabela de produtos com 30% que seria o preço final.

Valeu...

[Sufolk]

Amigo, você pode percorrer a query de produtos item por item atualizando os precos ou pode utilizar um scrip sql para atualizar.

qryProduto.First;
while not qryProduto.Eof do begin
qryProduto.Edit;
qryProduto.FieldByName(\'PRECOFINAL\').Value := qryProduto.FieldByName(\'VALOR\').asFloat + ((qryProduto.FieldByName(\'VALOR\').asFloat * StrToFloat(editLucro.Text))/100);
qryProduto.Post;
qryProduto.Next;
end;

por sql
query.sql.text := \'update produto set precofinal = valor + (valor * \'+editLucro.Text+\'/100)\';
query.ExecSQL;

Acho que seria isso!

[luispatm]

Amigo o problema é que minha tabela fica num datamodule fiz a funçã assim mas nada acontece

DM_Main.Q_Bases.First;
while not DM_Main.Q_Bases.Eof do begin
DM_Main.Q_Bases.Edit;
DM_Main.Q_Bases.FieldByName(\'PRICEDISCOUNT\').Value := bases.FieldByName(\'BASEPRICE\').asFloat - ((Bases.FieldByName(\'BASEPRICE\').asFloat * StrToFloat(ED_Desconto.Text))/100);
DM_Main.Q_Bases.Post;
DM_Main.Q_Bases.Next;
end;

se puder me ajudar!!!

Valeu

[adriano_servitec]

Amigo acho que vc tem que fazer esse comando ai nao no datamodule mais num form, nao testei ele aqui mais parece que um bitbtn faz a fuçao que o Sufolk lhe passou.


Desculpe se eu estiver errado, mais para melhor vc visualizar isso seria interessante um dbgrid e um bitbtn para vc ver as atualizaèoes sendo feita. Pelo codigo que vc passou faz a atualizaçao na tabela toda utilizando o EOF nao eh?

Flw
T+

_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[luispatm]

beleza amigo, então to fazendo num form, inseri um grid, e um button, mas quando do um click no botão, ao chegar na linha do Edit.

Ele finaliza a plicação sem nenhuma razão.

[adriano_servitec]

Pelo que estou vendo as linhas do Q_Base

Primeiro ele aponta para o primeiro registro com o fist
depois faz um eof usando o edit para fazer a correçao e depois um post para gravar o valor corrigido.

Ele esta parando nessa linha ao compilar?

_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[luispatm]

nao quando vai entrar em modo de edição, na linha do edit , a a aplicação é finalizada

Que zica

Valeu

[adriano_servitec]

O valor da porcentagem que vc quer fazer a correçao eh digitado tipo assim 5 ou 15 para fazer o calculo se vor vc pode incluir um edit para usar o valor ai sim pedir conforme o valor do desconto dado poder atualizar sua tabela
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[luispatm]

e assim que uso tenho um edit onde digito o valor a ser calculado

[adriano_servitec]

Ve se funciona dessa maneira amigo

procedure Tform1.BitBtn1Click(Sender: TObject);
begin
DM_Main.Q_Bases.first;
repeat
DM_Main.Q_Bases.edit;
DM_Main.Q_Bases.FieldByName(\'PRICEDISCOUNT\').Value := bases.FieldByName(\'BASEPRICE\').asFloat - ((Bases.FieldByName(\'BASEPRICE\').asFloat * StrToFloat(ED_Desconto.Text))/100);
DM_Main.Q_Bases.next;;
until DM_Main.Q_Base.eof;
DM_Main.Q_Base.refresh;
DM_Main.Q_Base.first;
end;
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[adriano_servitec]

Olha amigo vamos fazer o seguinte se nao funcionar ai vc me passa seu e-mail que ti mando um exemplo como corrigir a tabela toda dando o valor do desconto ok


_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[luispatm]

nada amigão na relidade o problema esta quando ele vai calcular ai sim ele ta saindo do sistema primeiro ele edita na boa depois quando tem a formula o sistema e finalizzado

Valeu mesmo pela ajuda

[luispatm]

anota ai luispalladino@bol.com.br

Valeu pela força hem

[adriano_servitec]

Flw...Ja anotei seu e-mail vou elaborar um exemplo aki e ti amndo talvez ti ajude ai ok

Flw
T+
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[luispatm]

valeu cara brigadão