5 respuestas en este tema

[eduarcol]

Si quiero recuperar el valor de un campo aggregate con un .AsFloat me da un error que no me permite accesar el campo como un Float, esto debe ser realizado por .Value, el problema esta que si el campo en cuestion no tienen valores me da una Exception, lo resolvi de la siguiente manera,

   

delphi

if not Modulo.cdsPropinasTotal.IsNull then
        nPropina := Modulo.cdsPropinasTotal.Value
     else
          nPropina := 0;

El asunto esta que cuando hay mas de dos registros IsNull me lo devuelve verdadero, por los momentos lo solucione asi:

delphi

try
        nPropina := Modulo.cdsPropinasTotal.Value
     except
          nPropina := 0;
     end;

Quisiera saber si hay alguna otra manera o estoy obviando algo...

[Rolphy Reyes]

Saludos.

No he tenido ese problema con los aggregate, prueba utilizando VarIsNull.

[luisgutierrezb]

Porque no intentas ponerle el formato al campo de 0.00, y usas la propiedad DisplayValue en lugar de value solamente

[Wilson]

Se me ocurre que agregues al TClientDataset un campo calculado, que tome el valor del campo o la expresión  en cuestión, asignándole  cero cuando el valor del campo o expresión sea nulo, entonces luego le pasas al campo agregate la sumatoria del campo calculado.

delphi

procedure TDatos.TUClientDatasetCalcFields(DataSet: TDataSet);
begin
  if CapoEnCuestion.IsNull  then 
    CampoCalculado.AsFloat := 0 else
   CampoCalculado.AsFloat := CampoEnCuestion.AsFloat;
end;

Luego la propiedad expression del campo agregate sería: SUM(CampoCalculado);

Saludos

[Marc]

Si quiero recuperar el valor de un campo aggregate con un .AsFloat me da un error que no me permite accesar el campo como un Float, esto debe ser realizado por .Value, el problema esta que si el campo en cuestion no tienen valores me da una Exception, lo resolvi de la siguiente manera,

   

delphi

if not Modulo.cdsPropinasTotal.IsNull then
        nPropina := Modulo.cdsPropinasTotal.Value
     else
          nPropina := 0;

El asunto esta que cuando hay mas de dos registros IsNull me lo devuelve verdadero, por los momentos lo solucione asi:

delphi

try
        nPropina := Modulo.cdsPropinasTotal.Value
     except
          nPropina := 0;
     end;

Quisiera saber si hay alguna otra manera o estoy obviando algo...

Es un bug de Delphi que lleva muchísimos años (yo creo que es por culpa de las famosas interfaces, debe tener declarada una interface de tipo TFloatField, o similar, pero no debe estar totalmente implementada).

Personalmente me declaro una función genérica Num_NoNulo, y en lugar de recuperar el campo con MiCampo.AsFloat, lo hago con Num_NoNulo(MiCampo.Value).

La definición de esa función, es lo que ya has hecho :

delphi

function Num_NoNulo(Numero: Variant): Double;
begin
  try
    Result := Numero;
  except
    Result := 0;
  end;
end;

Así que tu código pasa a ser :

delphi

   nPropina := Rutinas.Num_NoNulo(Modulo.cdsPropinasTotal.Value);

Saludos.

[eduarcol]

Gracias a todos por responder, al final con VarIsNull y DisplayValue me seguia dando el mismo problema, y con respecto al campocalculado igual, ya que de los registros cuando sucede el problema ninguno es Null

Por los momentos entonces la solucion es esperar la excepcion para capturarla.