Unir tabelas

create or alter procedure SP_COMPARATIVO_HORAS (
DIA_I date,
DIA_F date)
returns (
CRACHA integer,
DATA date,
NOME varchar(50),
HORAET_01 integer,
HORAST_01 integer,
HORAED_01 integer,
HORASD_01 integer,
HORAET_02 integer,
HORAST_02 integer,
HORAED_02 integer,
HORASD_02 integer,
EVENTO_01 VARCHAR_20,
EVENTO_02 VARCHAR_20)
as
declare variable VDATA date;
declare variable ACHOUT INTEIRO;
declare variable ACHOUB INTEIRO;
declare variable VCRACHA INTEIRO;
declare variable VNOME varchar(50);
begin
-- Tabela de funcionarios
For Select cracha, nome
from funcionarios d
Where demitido = 'N'
Order by cracha
Into :vcracha, :vnome
Do Begin

-- Verifico se existe registro na tabela 1
select count(*) from Tabela1 d
Where d.data between :dia_i and :dia_f and d.cracha = :vcracha
into :achoub;

--Verifico se existe registro na tabela 2
select count(*) from Tabela2 d
Where d.data between :dia_i and :dia_f and d.cracha = :vcracha
into :achout;

--Se Processar somente se exister na tabela 1 e 2
if (achoub+achout > 0 ) then
Begin
cracha = vcracha;
nome = vnome;
vdata = dia_i;
While (vdata <= dia_f) do
Begin
HORAET_01 = 0; HORAST_01 = 0;
HORAED_01 = 0; HORASD_01 = 0;
HORAET_02 = 0; HORAST_02 = 0;
HORAED_02 = 0; HORASD_02 = 0;
evento_01 = Null;
evento_02 = Null;

data = vdata;
-- Se existir na tabela 1
if (achoub > 0) then
Begin
For select d.horae_01, d.horas_01, d.horae_02, d.horas_02
from Tabela1 d
Where d.data = :Vdata and d.cracha = :cracha
into :horaed_01, :horasd_01, :horaed_02, :horasd_02
do begin
if (horaed_01 > 2359) then
Begin
select e.descricao from eventos e
Where e.codigo = :horaed_01
Into :evento_01;
end
if (horaed_02 > 2359) then
Begin
select e.descricao from eventos e
Where e.codigo = :horaed_02
Into :evento_02;
end
end
end

--Se existir na tabela 2
if (achout > 0) then
Begin
Select t.horae_01, t.horas_01, t.horae_02, t.horas_02
from Tabela2 t
Where t.data = :Vdata and t.cracha = :cracha
Into :horaet_01, :horast_01, :horaet_02, :horast_02;
end
vData = vData + 1;
suspend;
end
end
Else
Suspend;
end
end