CAST en sentencia CASE

[mRoman]

Hola que tal...

Pues puse en práctica sus propuestas:

la de TOPX

Código SQL [-]
SELECT CURRENT_TIME,
       a.fecha_hora_registro,
       cast( a.fecha_hora_registro as date) as fecha2,
       CASE when EXTRACT(HOUR FROM CURRENT_TIME) >=13
            then a.fecha_hora_registro
       ELSE EXTRACT(day FROM a.fecha_hora_registro)||'/'||EXTRACT(month from a.fecha_hora_registro)||'/'||EXTRACT(year from a.fecha_hora_registro)
       END
from comanda_maestro a

Este QUERY funcionó, descomponiendo la fecha usando EXTRACT y concatenandola despues....

La propuesta de manelb

Código SQL [-]
SELECT CURRENT_TIME,
       a.fecha_hora_registro,
       cast( a.fecha_hora_registro as date) as fecha2,
       CASE
            when CAST(A.fecha_hora_registro AS CHAR(13)) >=13
            then a.fecha_hora_registro
       ELSE CURRENT_TIME
       END
from comanda_maestro a

No me fucionó marcó este error:

Código SQL [-]
Dynamic SQL Error.
SQL error code = -104.
Datatypes are not comparable in expression CASE.

De todas formas les agradezco su apoyo y orientación....

Muchas gracias...todavía estoy valorando mas opciones. Luego les comentaré como lo resolví.

[mRoman]

Pues quedó asi:

Código SQL [-]
select LPAD(a.registro_id,6,'0') as registro_id,
       LPAD(a.folio_ticket_comanda,6,'0') as ticket,
       a.registro_id as registro_id2,
       current_date  as fecha_hora_impresion,
       a.mesa_num||COALESCE(a.literal,'') as mesa,
       CASE
           when EXTRACT(HOUR from current_time) >=13 then SUBSTR(a.fecha_hora_registro,1,19)
       ELSE EXTRACT(year FROM a.fecha_hora_registro)||'/'||
            LPAD(EXTRACT(month from a.fecha_hora_registro),2,0)||'/'||
            LPAD(EXTRACT(day from a.fecha_hora_registro),2,0)
       END as fecha_comanda,
       b.cantidad,
       b.consec,
       case b.cortesia
           when 'S' then b.precio*-1
           when 'N' then b.precio
       end as precio,
       b.comentario,
       CASE b.cortesia
          when 'S' then RTRIM( UPPER(c.prod_descripcion_corta) )||'-[CORTESIA]'
          when 'N' then RTRIM(UPPER(c.prod_descripcion_corta))
       end||' '||COALESCE(b.comentario,'') as prod_descripcion_corta,
       b.descripcion_producto,
       b.cortesia,
       UPPER((select d.alias_nombre
        from empleado d, asignacion_mesa e
        where d.empleado_id=e.empleado_id
          and e.mesa_num=a.mesa_num)) as mesero,
       f.um_descripcion_corta,
       h.descripcion as clasificacion
from comanda_maestro a,
     comanda_detalle b,
     producto c,
     unidad_medida f,
     categoria_producto g,
     clasif_categoria_producto h
where a.registro_id=b.registro_id
  and a.registro_id=:registro_id
  and b.producto_id=c.producto_id
  and c.um_id=f.um_id
  and c.categoria_id=g.categoria_id
  and g.id_clasificacion=h.id_clasificacion
order by h.descripcion

La parte azul es como quedó la consulta. Gracias a todos por su tiempo y sus aportaciones.