Problema con DisplayFormat

[[oscarac]]

Empezado por Al González

Esta sería la cadena de formato que necesitas:

,0.00;;#

La ayuda de Delphi sobre la propiedad TNumericField.DisplayFormat dice esto:

Aplica tambien para campos calculados?
estoy colocando este formato en un campo calculado.. pero me muestra 0.00

[[Al González]]

Empezado por oscarac

Aplica tambien para campos calculados?
estoy colocando este formato en un campo calculado.. pero me muestra 0.00

No veo por qué no habría de aplicar. ¿Qué valor tiene el campo?

Un saludo.

Al.

[[oscarac]]

pues el campo tiene valor 0.0

[[Al González]]

Empezado por oscarac

pues el campo tiene valor 0.0

Ah, bueno, entonces aparentemente el campo tiene un valor de 0. Necesitaría más información para tratar de ayudarte.

Haz la prueba de compararlo contra cero (If Campo.Value = 0 Then); puede que tenga una pequeña fracción no perceptible cuando se aplica el formato de dos decimales.

¿De qué clase es el objeto campo (TCurrencyField, TFloatField,...) y qué componentes de acceso a datos estás utilizando?

[[oscarac]]

respondiendo.....

aqui Uso Access - ADO, el campo es TFloatField y lo que esta mas abajo son las operaciones que hago en el OnCalcFields

Código Delphi [-]
 if qryBalanceComprobacionMensualDEBE.Value > qryBalanceComprobacionMensualHABER.Value then
    qryBalanceComprobacionMensualSD.Value := qryBalanceComprobacionMensualDEBE.Value - qryBalanceComprobacionMensualHABER.Value;
  if qryBalanceComprobacionMensualDEBE.Value < qryBalanceComprobacionMensualHABER.Value then
    qryBalanceComprobacionMensualSA.Value := qryBalanceComprobacionMensualHABER.Value - qryBalanceComprobacionMensualDEBE.Value;
  if Copy(qryBalanceComprobacionMensualcuenta.AsString,1,2) < '60' then
  Begin
    if qryBalanceComprobacionMensualDEBE.Value > qryBalanceComprobacionMensualHABER.Value then
      qryBalanceComprobacionMensualID.Value := qryBalanceComprobacionMensualDEBE.Value - qryBalanceComprobacionMensualHABER.Value;
    if qryBalanceComprobacionMensualDEBE.Value < qryBalanceComprobacionMensualHABER.Value then
      qryBalanceComprobacionMensualIA.Value := qryBalanceComprobacionMensualHABER.Value - qryBalanceComprobacionMensualDEBE.Value;
  End;
  if Copy(qryBalanceComprobacionMensualcuenta.AsString,1,2) >= '60' then
  Begin
    if qryBalanceComprobacionMensualDEBE.Value > qryBalanceComprobacionMensualHABER.Value then
      qryBalanceComprobacionMensualRD.Value := qryBalanceComprobacionMensualDEBE.Value - qryBalanceComprobacionMensualHABER.Value;
    if qryBalanceComprobacionMensualDEBE.Value < qryBalanceComprobacionMensualHABER.Value then
      qryBalanceComprobacionMensualRA.Value := qryBalanceComprobacionMensualHABER.Value - qryBalanceComprobacionMensualDEBE.Value;
  End;

los Campo SD, SA, ID, IA, RD, RA tienen en el Displayformat ,0.00;;#

[[Al González]]

No sé si ya has verificado que el campo sea realmente 0 o algo como 0.0000000000021, poniendo un If de prueba como el que te comenté:

Empezado por Al González

Haz la prueba de compararlo contra cero (If Campo.Value = 0 Then); puede que tenga una pequeña fracción no perceptible cuando se aplica el formato de dos decimales.

Ahora, al ver que utilizas TFloatField, casi no hay duda de que esa es la razón del problema.

Para valores monetarios usa mejor TCurrencyField, TFmtBCDField o TBCDField, ya que estos guardan el dato en formato de punto fijo (siempre la misma cantidad de decimales), a diferencia de la clase TFloatField que lo hace en formato de punto flotante (cantidad de decimales variable).

Saludos.

Al González.

[[oscarac]]

ya coloque el campo en los formatos mecionados TCurrencyField, TFmtBCDField o TBCDField y sigue saliendo 0.00 a pesar que en el formatdispay coloco ,0.00;;#

q sera?

[[Al González]]

Empezado por oscarac

ya coloque el campo en los formatos mecionados TCurrencyField, TFmtBCDField o TBCDField y sigue saliendo 0.00 a pesar que en el formatdispay coloco ,0.00;;#

q sera?

Como ya comenté antes, es posible que el valor del campo NO sea 0, tal como tú crees. Insisto en que deberías hacer una prueba como la siguiente para cerciorarnos:

Código Delphi [-]
If CampoCalculado.Value <> 0 Then
  ShowMessage (FloatToStr (CampoCalculado.Value));

Puedes usar para ello algún evento, como el OnClick de un botón.