Obtener Fecha y Hora de Servidor Firebird

Para obtener la fecha del servidor Firebird creamos una función (Function Object):

$PBExportHeader$f_fecha_servidor.srf
global type f_fecha_servidor from function_object
end type

forward prototypes
global function datetime f_fecha_servidor ()
end prototypes

global function datetime f_fecha_servidor ();

// -------------------------------------------------------------------------------------
// Funcion : f_fecha_servidor
// Proposito: Devuelve la fecha y hora del servidor Firebird
// Creador : Jorge A. Barzola Rosadio
// Fecha : 16/07/2015
// -------------------------------------------------------------------------------------
 DateTime ldt_DateTime

SetNull(ldt_DateTime)

SELECT CURRENT_TIMESTAMP
    INTO :ldt_DateTime
  FROM RDB$DATABASE;

RETURN ldt_DateTime

end function

Utilizando PowerFilter

Hola a todos, he implementado el componente PowerFilter en mi aplicación que trabaja con los componentes de PB Ultimate Suite.

Con solo darle clic al botón Filtro, se activara el filtro similar a Excel en el DataWindow:

Este filtro es un muy potente y tiene las mismas opciones que el filtro de Excel:

En el menú manejo las opciones las cuales se activan o desactivan según la ventana, en la siguiente imagen la ventana activa es de consulta:

En la siguiente ventana podrán ver que utilizo el componente Tab Control de PB Ultimate Suite

Hasta la próxima.