Separar campos quando utilizar UNION no FIREBIRD

select
	'RECEBER' Tipo,
	sum(case when extract(month from cr.data_emissao) = 1 then cr.valor_aberto else 0 end) Janeiro,
	sum(case when extract(month from cr.data_emissao) = 2 then cr.valor_aberto else 0 end) Fevereiro,
	sum(case when extract(month from cr.data_emissao) = 3 then cr.valor_aberto else 0 end) Marco,
	sum(case when extract(month from cr.data_emissao) = 4 then cr.valor_aberto else 0 end) Abril,
	sum(case when extract(month from cr.data_emissao) = 5 then cr.valor_aberto else 0 end) Maio,
	sum(case when extract(month from cr.data_emissao) = 6 then cr.valor_aberto else 0 end) Junho,
	sum(case when extract(month from cr.data_emissao) = 7 then cr.valor_aberto else 0 end) Julho,
	sum(case when extract(month from cr.data_emissao) = 8 then cr.valor_aberto else 0 end) Agosto,
	sum(case when extract(month from cr.data_emissao) = 9 then cr.valor_aberto else 0 end) Setembro,
	sum(case when extract(month from cr.data_emissao) = 10 then cr.valor_aberto else 0 end) Outubro,
	sum(case when extract(month from cr.data_emissao) = 11 then cr.valor_aberto else 0 end) Novembro,
	sum(case when extract(month from cr.data_emissao) = 12 then cr.valor_aberto else 0 end) Dezembro
from
	contas_receber cr
where
	cr.status = 'A'
 
union
 
select
	'PAGAR' Tipo,
	sum(case when extract(month from cp.data_emissao) = 1 then cp.valor_aberto else 0 end) Janeiro,
	sum(case when extract(month from cp.data_emissao) = 2 then cp.valor_aberto else 0 end) Fevereiro,
	sum(case when extract(month from cp.data_emissao) = 3 then cp.valor_aberto else 0 end) Marco,
	sum(case when extract(month from cp.data_emissao) = 4 then cp.valor_aberto else 0 end) Abril,
	sum(case when extract(month from cp.data_emissao) = 5 then cp.valor_aberto else 0 end) Maio,
	sum(case when extract(month from cp.data_emissao) = 6 then cp.valor_aberto else 0 end) Junho,
	sum(case when extract(month from cp.data_emissao) = 7 then cp.valor_aberto else 0 end) Julho,
	sum(case when extract(month from cp.data_emissao) = 8 then cp.valor_aberto else 0 end) Agosto,
	sum(case when extract(month from cp.data_emissao) = 9 then cp.valor_aberto else 0 end) Setembro,
	sum(case when extract(month from cp.data_emissao) = 10 then cp.valor_aberto else 0 end) Outubro,
	sum(case when extract(month from cp.data_emissao) = 11 then cp.valor_aberto else 0 end) Novembro,
	sum(case when extract(month from cp.data_emissao) = 12 then cp.valor_aberto else 0 end) Dezembro
from
	contas_pagar cp
where
	cp.status = 'A'

select
	mes "Mês",
	sum(receber) "Total a Receber",
	sum(pagar) "Total a Pagar"
from (
	select
		case extract (month from cr.data_emissao)
			when 1 then 'Janeiro'
			when 2 then 'Fevereiro'
			when 3 then 'Março'
			when 4 then 'Abril'
			when 5 then 'Maio'
			when 6 then 'Junho'
			when 7 then 'Julho'
			when 8 then 'Agosto'
			when 9 then 'Setembro'
			when 10 then 'Outubro'
			when 11 then 'Novembro'
			when 12 then 'Dezembro'
		end mes,
		sum(cr.valor_aberto) receber, -- aqui acumula o valor a receber
		0.0 pagar -- valor a pagar deve ser zero porque aqui usamos a tabela de contas a receber
	from
		contas_receber cr
	where
		cr.status = 'A'
	group by
		extract (month from cr.data_emissao)

	union

	select
		case extract (month from cp.data_emissao)
			when 1 then 'Janeiro'
			when 2 then 'Fevereiro'
			when 3 then 'Março'
			when 4 then 'Abril'
			when 5 then 'Maio'
			when 6 then 'Junho'
			when 7 then 'Julho'
			when 8 then 'Agosto'
			when 9 then 'Setembro'
			when 10 then 'Outubro'
			when 11 then 'Novembro'
			when 12 then 'Dezembro'
		end mes,
		0.0 receber -- valor a receber deve ser zero porque aqui usamos a tabela de contas a pagar
		sum(cp.valor_aberto) pagar -- aqui acumula o valor a pagar
	from
		contas_pagar cp
	where
		cp.status = 'A'
	group by
		extract (month from cp.data_emissao)
) t
group by
	t.mes

select
    mes "Mês",
    sum(receber) "Total a Receber",
    sum(pagar) "Total a Pagar"
from (
    select
        extract (month from cr.data_emissao) ordem,
        case extract (month from cr.data_emissao)
            when 1 then 'Janeiro'
            when 2 then 'Fevereiro'
            when 3 then 'Março'
            when 4 then 'Abril'
            when 5 then 'Maio'
            when 6 then 'Junho'
            when 7 then 'Julho'
            when 8 then 'Agosto'
            when 9 then 'Setembro'
            when 10 then 'Outubro'
            when 11 then 'Novembro'
            when 12 then 'Dezembro'
        end mes,
        sum(cr.valor_aberto) receber, -- aqui acumula o valor a receber
        0.0 pagar -- valor a pagar deve ser zero porque aqui usamos a tabela de contas a receber
    from
        contas_receber cr
    where
        cr.status = 'A'
    group by
        extract (month from cr.data_emissao)
 
    union
 
    select
        extract (month from cp.data_emissao) ordem,
        case extract (month from cp.data_emissao)
            when 1 then 'Janeiro'
            when 2 then 'Fevereiro'
            when 3 then 'Março'
            when 4 then 'Abril'
            when 5 then 'Maio'
            when 6 then 'Junho'
            when 7 then 'Julho'
            when 8 then 'Agosto'
            when 9 then 'Setembro'
            when 10 then 'Outubro'
            when 11 then 'Novembro'
            when 12 then 'Dezembro'
        end mes,
        0.0 receber -- valor a receber deve ser zero porque aqui usamos a tabela de contas a pagar
        sum(cp.valor_aberto) pagar -- aqui acumula o valor a pagar
    from
        contas_pagar cp
    where
        cp.status = 'A'
    group by
        extract (month from cp.data_emissao)
) t
group by
    t.ordem, t.mes
order by
    t.ordem

execute block
 
returns ("Mês" varchar(15), r_valorCR numeric(15,2), r_valorCP numeric(15,2), r_saldo numeric (15,2))
as
declare numeromes int = 1;
declare total_cr numeric(15,2) = 0;
declare total_cp numeric(15,2) = 0;
declare total_sld numeric(15,2) = 0;
begin

	while (numeromes <= 12)	do
	begin
		"Mês" = case numeromes
					when 01 then 'Janeiro'
					when 02 then 'Fevereiro'
					when 03 then 'Março'
					when 04 then 'Abril'
					when 05 then 'Maio'
					when 06 then 'Junho'
					when 07 then 'Julho'
					when 08 then 'Agosto'
					when 09 then 'Setembro'
					when 10 then 'Outubro'
					when 11 then 'Novembro'
					when 12 then 'Dezembro'
				end;

		-- estude a possibilidade de criar um campo pra guardar o mes
		-- e criar um indice por esse campo.
		-- assim a condicao seria "cr.status = 'A' and mes = :numeromes"
		-- desta forma de pesquisa seria mais rapida por que o indice
		-- seria usado na pesquisa (com o extract() nao ha uso de indice)
		select coalesce(sum(cr.valor_aberto),0)
		from contas_receber cr
		where cr.status = 'A' and extract(month from cr.data_emissao) = :numeromes
		into r_valorCR;
 
		-- estude a possibilidade de criar um campo pra guardar o mes
		-- e criar um indice por esse campo.
		-- assim a condicao seria "cp.status = 'A' and mes = :numeromes"
		-- desta forma de pesquisa seria muito mais rapida por que o indice
		-- seria usado na pesquisa (com o extract() nao ha uso de indice)
		select colaesce(sum(cp.valor_aberto),0)
		from contas_pagar cp
		where cp.status = 'A' and extract(month from cp.data_emissao) = :numeromes
		into r_valorCP;

		if (r_valorCR is null) then
			r_valorCR = 0;

		if (r_valorCP is null) then
			r_valorCP = 0;
 
		r_saldo := (r_valorCR - r_valorCP);

		-- totalizadores
		total_cr = total_cr + r_valorCR;
		total_cp = total_cp + r_valorCP;
		total_sld = total_sld + r_saldo;

		numeromes = numeromes + 1;

	    suspend;
 
    end

	-- apresenta os totais
	"Mês" = 'Totais';
	r_valorCR = total_cr;
	r_valorCP = total_cp;
	r_saldo = total_sld;

    suspend;

end