Problemas com campos que n�o calculam

Question

Ol� pessoal tudo bem?Estou com um problema com dbedits que n�o fazem os c�lculos; resumidamente explicando � assim:quantidade x valor unit�rio = valor totalImplementei esse c�digo logo abaixo, compila...

Massuda · Answer

Voc� devia usar o OnCalcFields para calcular os valores dos campos calculados do dataset... assim, ao inv�s de atualizar o DBEdit, voc� devia atualizar o [b:686dd0806a]campo calculado[/b:686dd0806a] que est� ligado ao DBEdit.

Edibertoalves · Answer

Eu joguei todo esse c�digo no evento OnCalcFields do ClientDataSet dos Pedidos. E mesmo assim n�o estou conseguindo!!!O que tenho de codificar mais ??Obrigado[]�s...

Martins · Answer

[quote:13ff53a5c9=�Massuda�]Voc� devia usar o OnCalcFields para calcular os valores dos campos calculados do dataset... assim, ao inv�s de atualizar o DBEdit, voc� devia atualizar o [b:13ff53a5c9]campo calculado[/b:13ff53a5c9] que est� ligado ao DBEdit.[/quote:13ff53a5c9]A pratica correta � a descrita aqui pelo amigo [b:13ff53a5c9]Massuda[/b:13ff53a5c9], uma vez q vc j� est� utilizando os DBEdit�s e eles est�o linkados a seu DataSet, utilize um campo calculado, assim vc evitar� dor de cabe�a no futuro....

Rjun · Answer

Acho que para o evento OnCalcFields seja disparado � necess�rio voc� ter campos calculados no seu dataset. Voc� tem?...

Edibertoalves · Answer

Usei a seguinte implementa��o:

DataSet[�PPED_VLRTOTAL�] := DataSet[�PPED_QTDE�] * DataSet[�PPED_VLRUNI�];
frmpedidos.dbeValorTotalProd.Text := FormatFloat(�#,0.00�, DataSet[�pped_vlrtotal�]);

e essa aqui tb:

frmpedidos.dbeValorTotalProd.Text := formatfloat(�,0.00�, (cdsProdPedidosPPED_QTDE.Value * cdsProdPedidosPPED_VLRUNI.Value));

E n�o deu certo nas ambas
O que estou fazendo de errado?

Abra�os! : :wink:

Edibertoalves · Answer

Rjun,E aonde eu vejo isso ?Quando eu clico duas vezes no ClientDatSet dos Pedidos e aparece os campos e quando clico em cada um do campo e tem uma propriedade chamada �FieldKind� no Object Inspector.� essa op��o que vc est� falando??????Obrigado []�s...

Rjun · Answer

Clique com o bot�o direito no seu dataset. Clique em New Field e crie o seu campo calculado(Calculate)....

Edibertoalves · Answer

Rjun,Est� acontecendo o seguinte erro:Project PEDIDOS.exe raised exception class EConvertError with message ���is not a valid integer value. Process stopped. Use Step or Run to continue.Fiz conforme vc disse, criei um novo field atrav�s do Fields Editor. Compila de boa mas na hora que seleciono o produto para aparecer as informa��es dele juntamente com o pre�o � que est� dando erro.No New Field, em Field Type j� deixei como Calculated e em Type em coloco qual tipo????Obrigado[]�s...

Rjun · Answer

Voc� pode usar esse campo que voc� criou(vou chama-lo de total) para calcular a informa��o que voc� quer exibir no seu edit. Crie ele como Float. No evento OnCalcFields, substitua a linha do seu DbEdit para o seguinte:

total := cdsProdPedidos.FieldByName(�Quantidade�).Value * cdsProdPedidos.FieldByName(�Valor�).Value *

Depois, basta ligar esse campo ao seu dbedit. Eu n�o sei se os nomes dos campos no seu dataset s�o esses, mas acho que d� pra voc� entender o que eu quis fazer.

Edibertoalves · Answer

Rjun, Martins e Massuda.Gostaria de agradecer a vcs pela ajuda.Consegui implementar o c�digo e os c�lculos est�o indo blz. A� embaixo est� o procedimento:procedure TdtmEstoque.cdsProdPedidosCalcFields(DataSet: TDataSet);begin  cdsProdPedidos.FieldByName(�PPED_VlRTOTAL�).AsFloat :=    cdsProdPedidos.FieldByName(�PPED_QTDE�).AsInteger *    cdsProdPedidos.Fieldbyname(�PPED_VLRUNI�).AsFloat;end;Valew mesmo. ObrigadoAgra�os :lol:...

F�rum Problemas com campos que n�o calculam #293726