CREATE PROCEDURE PROC_HORAS (
    D2 DATE,
    D1 DATE,
    COD_FUNC INTEGER)
RETURNS (
    FUNC INTEGER,
    DATA DATE,
    ENT_M DATE,
    SAI_M DATE,
    ENT_T DATE,
    SAI_T DATE,
    DF INTEGER,
    HORAS_TRAB INTEGER)
AS
DECLARE VARIABLE EM INTEGER;
DECLARE VARIABLE SM INTEGER;
DECLARE VARIABLE ET INTEGER;
DECLARE VARIABLE ST INTEGER;
DECLARE VARIABLE HT INTEGER;
begin
  FOR SELECT FUNCIONARIO, DATA, ENT_MANHA, SAI_MANHA, ENT_TARDE, SAI_TARDE
  DOM_FER FROM tb_horas
  WHERE (tb_horas.Funcionario =:COD_FUNC)
  AND (data between :d1 and :d2)
   INTO :FUNC, :DATA, :ENT_M, :SAI_M, :ENT_T, :SAI_T, :DF
DO BEGIN
   EM = ENT_M;
   SM = SAI_M;
   ET = ENT_T;
   ST = SAI_T;
   HT = (SM-EM)+(ST-ET);
   HORAS_TRAB = HT;
   end
   SUSPEND;
  end;