Problema con DisplayFormat

[Efren2006]

Tengo un Pequeño problema,

Yo tengo en mi projecto una rutina que le coloca automaticamente a todos los campos numericos su DisplayFormat segun se requiera, ahora el problemas es que tengo unos campos numericos que necesito que cuando el Valor sea CERO (0) no aparesca el Valor ni siquiera '0.00', pero SI tiene debe salir de la siguiente manera '#,##0.00', por mi desconocimiento en la parte de las mascaras de Delphi no he encontrado una mascara que pueda hacerlo... existe alguna ??

Saludos

[[oscarac]]

lo estas mostrando en un reporte?

si es asi en el onPrint podrias escribir mas o menos esto

Código SQL [-]
 
if CampoQuery.Value = 0 then
    value := ''

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

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

[[oscarac]]

estoy usando un TqrExpr...

y ya di con la solucion....
en Expression debi haber colocado asi desde un principio

FORMATNUMERIC(',0.00;;#',RA)

gracias por la paciencia Al González

[[Al González]]

Me alegro por el feliz resultado, más paciencia has tenido tú.