Problema con DisplayFormat

[[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.

[[oscarac]]

Empezado por Al González

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:

Pues ya hice la Prueba y el valor es 0

[[Al González]]

Que bueno que ahora sí la hiciste, gracias.

Ahora, por favor, a manera de prueba, reduce tu evento OnCalcFields a una sóla sentencia:

Código Delphi [-]
qryBalanceComprobacionMensualSD.Value := 0;

(o como se llame el campo que esté dando el problema)

¿Sigue presentándose la misma situación?

Y otra pregunta que quizá debí hacerte antes: ¿En qué tipo de objeto estás presentando el valor del campo? Hay componentes que priorizan su propio formato antes que el indicado por la propiedad DisplayFormat de los objetos campos. Tal vez esta sea la razón del problema.

Saludos atentos.

Al González.