columna calculada

[gianfranco_tont]

tengo dos columnas autocalculada en un dbgrid pero tengo un problema con la sentencia de calculos:

Código Delphi [-]
  CDSDATA.FieldByName('Totaliva').AsFloat:= // campo calculado
  CDSDATA.FieldByName('total_art').AsInteger *
  CDSDATA.FieldByName('PREC_VTA').asinteger  *
  CDSDATA.FieldByName('tipo_imp').AsFloat / 100; //Aquí es donde me da el error
  CDSDATA.FieldByName('Totalrenglon').AsFloat:= //campo calculado
  CDSDATA.FieldByName('PREC_VTA').AsFloat *
  CDSDATA.FieldByName('total_art').AsInteger +
  CDSDATA.FieldByName('totaliva').AsFloat;

tengo un campo (tipo_imp) donde me muestra el porcentaje de iva '12'

[ecfisa]

Hola.

Siempre es conveniente poner literalmente el error que recibes ya que nos ayuda orientarnos sobre el problema.

Una pregunta: ¿ De que tipo es el campo tipo_imp ?

Saludos.

[gianfranco_tont]

decimal(10, 3)
el error es is not valid floating point value

[kapcomx]

amigo gianfranco_tont y que tal si ese error es por que tu campo tiene un valor nulo, lo tienes restringido para que no acepte nulos???

Saludos...

[ecfisa]

Hola.

Por el tipo de error sospecho que el tema viene por el lado de configuración regional. Vamos a probar agregando estas líneas a tu código a ver si es eso:

Código Delphi [-]
var
  dsep: Char;
begin
  dsep:= DecimalSeparator;
  DecimalSeparator:= '.';   
  //------
  CDSDATA.FieldByName('Totaliva').AsFloat:= // campo calculado
  CDSDATA.FieldByName('total_art').AsInteger *
  CDSDATA.FieldByName('PREC_VTA').asinteger  *
  CDSDATA.FieldByName('tipo_imp').AsFloat / 100; //Aquí es donde me da el error
  CDSDATA.FieldByName('Totalrenglon').AsFloat:= //campo calculado
  CDSDATA.FieldByName('PREC_VTA').AsFloat *
  CDSDATA.FieldByName('total_art').AsInteger +
  CDSDATA.FieldByName('totaliva').AsFloat;
  //-----
  DecimalSeparator:= dsep;
  ...
end;

Si así continua el error proba asignando el valor ',' a DecimalSeparator.

Saludos.