Problema con DisplayFormat

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

To allow different formats for positive, negative, and zero values, the format string can contain between one and three sections separated by semicolons.

One section: The format string applies to all values.

Two sections: The first section applies to positive values and zeros, and the second section applies to negative values.

Three sections: The first section applies to positive values, the second applies to negative values, and the third applies to zeros.

If the section for negative values or the section for zero values is empty, that is, if there is nothing between the semicolons that delimit the section, the section for positive values is used instead.

A fin de permitir diferentes formatos para valores positivos, negativos y cero, la cadena de formato puede contener entre una y tres secciones separadas por punto y coma.

Una sección: La cadena de formato aplica a todos los valores.

Dos secciones: La primera sección aplica a valores positivos y ceros, y la segunda sección aplica a valores negativos.

Tres secciones: La primera sección aplica a valores positivos, la segunda sección aplica a valores negativos, y la tercera aplica a ceros.

Si la sección para valores negativos o la sección para valores ceros está vacía, es decir, si no hay nada entre los puntos y comas que delimitan la sección, en su lugar es utilizada la sección para valores positivos.

Saludos.

Al González.

[Efren2006]

Gracias por su tiempo


Amigo Oscarac, no es en reporte que tengo el problema es a nivel del Formularios. de todas maneras muchisimas gracias por el dato.


Efectivamente Amigo AL Gonzalez esa es la solución ... Infinitas Gracias,

Un aporte mas a mi conocimientos de Delphi

Saludos a todos y gracias por sus aportes

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