erro no campo calculado

03/02/2016

1

Está ocorrendo o erro no campo calculo no seguinte momento

---------------------------
Monitor
---------------------------
Floating point division by zero.
---------------------------
OK
---------------------------

se houver uma divisão por um valor igual ele ocorre esse erro,

procedure TDMmonitora.QueryPedidosCalcFields(DataSet: TDataSet);
begin
DMmonitora.QueryPedidos.FieldByName('totalcalcdesconto').Value := ( (1-(DMmonitora.QueryPedidos.FieldByName('desconto_real').Value)/100))*(DMmonitora.QueryPedidos.FieldByName('total_produtos').Value );
DMmonitora.QueryPedidos.FieldByName('margem').Value := (((DMmonitora.QueryPedidos.FieldByName('totalcalcdesconto').Value - DMmonitora.QueryPedidos.FieldByName('total_liquido').Value) / DMmonitora.QueryPedidos.FieldByName('total_liquido').Value)*100 );
end;
Responder

Posts

Este erro é referente a uma regra básica de matemática, "Nunca dividiras por 0".

Em algum momento, um valor está sendo dividido por zero, e por isso aparece essa mensagem. Verifique os valores, revise-os, você vai encontrar um zero por ae!
Responder