Gracias por sus respuestas esta es la solucion q me ha funcionado gracias a su colaboracion
Código SQL
[-]
CREATE PROCEDURE ACTUALIZARFECHA
as
declare variable fecha date;
declare variable horita time;
declare variable fechita date;
declare variable id integer;
begin
FOR SELECT ID, Cast (FECHA as date), CAST (HORA AS DATE), CAST (HORA AS TIME)
FROM ITEMSERVICIO INTO :ID, :FECHA, :FECHITA, :HORITA do
BEGIN
if (:FECHA <> :FECHITA) then
BEGIN
UPDATE ITEMSERVICIO SET HORA = Cast(:FECHA as Date)+Cast(:HORITA as Time)
WHERE ID = :ID ;
END
END