Ayuda con QuickReport y campo Time FireBird

[[enecumene]]

Saludos compañeros, estoy teniendo problemas para mostrar una condición en el evento OnPrint de los QRDBText con los campos Time de Firebird, tengo lo siguiente:

Código Delphi [-]
procedure TFInformeDiario.QRDBText4Print(sender: TObject;
  var Value: String);
begin
if (Value = '00:00:00') or (Value = NULL) or (Value = '') then
  begin
    Value := 'Sin Ponchar';
  end;
end;

En el campo time hay registros nulos y registros con valor '00:00:00', con ambos me los ignora, me sigue saliendo normal como 00:00:00 en vez de 'Sin ponchar'. ¿Qué está pasando aquí? .

Saludos.

[[coso]]

prueba de poner un ShowMessage(Value) para mirar cual es el valor real...a veces hay #0 o otros caracteres

[*Caro*]

Hola enecumene, también puedes hacer la prueba de utilizar un QrExpr y preguntar ahí.

Saluditos

[[enecumene]]

Empezado por Caro

Hola enecumene, también puedes hacer la prueba de utilizar un QrExpr y preguntar ahí.

Saluditos

Gracias Caro, disculpa mi ignorancia, pero...¿Cual es esa prueba, no la conozco?

Saludos.

[*Caro*]

Hola de nuevo, el QrExpr es un componeente del QuickReport, te sirve para armar formulas que se aplican a tus campos, tiene varias funciones ahí mismo en el editor te indica los parametros que se necesita y pequeña descripción, en tu caso mas o menos sería así tu formula para preguntar por lo nulos.

Código Delphi [-]
 if (Query1.CampoHora=NULL,'Sin Ponchar',Query1.CampoHora)

Esa formula lo que hace es preguntar si lo que tienes en tu campo es nulo y te devuelve sin ponchar sino el valor que tienes en tu campo, esa formula la colocas en la propiedad Expresion de tu QrExpr y también desde ahí entras al editor y armas tu formula.

Saluditos

[[enecumene]]

Muchas gracias Caro, lamento decir que no me funcionó, me sale Wrong como resultado.

Saludos.

[[enecumene]]

Empezado por coso

prueba de poner un ShowMessage(Value) para mirar cual es el valor real...a veces hay #0 o otros caracteres

Amigo Coso acabo de probar tu propuesta, no me salen los valores nulos solo toma los que tienen valores.

Saludos.

[[coso]]

no no, me referia fuera del 'if', para conocer realmente el valor de value...quizas este en algun formato diferente de '00:00:00'...

[[coso]]

Y haciendo

Código Delphi [-]
 if Pos(Value,'00:00:00') <> 0 then ...

?

[[coso]]

no recuerdo en que componente del quick report existia la propiedad printifempty := true;

[*Caro*]

Empezado por coso

no recuerdo en que componente del quick report existia la propiedad printifempty := true;

Coso esa propiedad la tiene el QuickReport.

Enecumene te sale Wrong porque tu formula no esta bien hecha, hay un boton "validate" para verificar si tu formula esta bien.

Saluditos

[ContraVeneno]

Coincido con Caro, lo mejor es usar un TQRExpr.

[[enecumene]]

Hola de nuevo, Caro, tenías razón, la fórmula estaba mal, asi es como quedó:

Código Delphi [-]
IF(ZInforme.SALIDA  = '','Sin Ponchar',ZInforme.SALIDA)

Muchas gracias a los dos por su ayuda ,

Saludos.

[[coso]]

si, la verdad es que yo tambien hubiese usado un qrexpr saludos