Fórum Grouby by com duas tabelas ? #59722

CREATE PROCEDURE RELATORIO_TITULOS
returns (
    data date,
    valorpagar double precision,
    valorreceber double precision)
as
declare variable datafinal date;
declare variable dataaux date;
begin
  /* procuro pela menor e pela maior data de vencimento.
     note que aqui está simplesmente verificando a menor
     e a menor data, sem avaliar se o título ainda está
     em aberto.
     creio que para um melhor resultado, deveria listar
     somente os títulos em aberto
  */
  -- obtenho data inicial
  select min(datavenc) from pagar into :dataaux;
  select min(datavenc) from receber into :data;

  if (dataaux < data) then
    data = dataaux;

  -- obtenho data final
  select max(datavenc) from pagar into :dataaux;
  select max(datavenc) from receber into :datafinal;

  if (dataaux > datafinal) then
    datafinal = dataaux;

  /* com as datas "em mãos", vamos ao relatório */
  while (data <= datafinal) do
  begin
    -- valor a pagar na data
    select coalesce(sum(valordup),0) from pagar
    where datavenc = :data into :valorpagar;

    -- valor a receber na data
    select coalesce(sum(valordup),0) from receber
    where datavenc = :data into :valorreceber;

    if ((valorpagar > 0) or (valorreceber > 0)) then
      suspend;

    data = data + 1;
  end
end

CREATE PROCEDURE RELATORIO_TITULOS
returns (
    data date,
    valorpagar double precision,
    valorreceber double precision)
as
declare variable datafinal date;
declare variable dataauxini date;
declare variable dataauxfim date;
begin
  /* procuro pela menor e pela maior data de vencimento.
     note que aqui está simplesmente verificando a menor
     e a menor data, sem avaliar se o título ainda está
     em aberto.
     creio que para um melhor resultado, deveria listar
     somente os títulos em aberto
  */
  -- obtenho as datas inicial e final
  select min(datavenc), max(datavenc) from pagar
  where [emaberto] into :dataauxini, :dataauxfim;

  select min(datavenc), max(datavenc) from receber
  where [emaberto] into :data, datafinal;

  if (dataauxini < data) then
    data = dataauxini;

  if (dataauxfim > datafinal) then
    datafinal = dataauxfim;

  /* com as datas "em mãos", vamos ao relatório */
  while (data <= datafinal) do
  begin
    -- valor a pagar na data
    select coalesce(sum(valordup),0) from pagar
    where datavenc = :data and [emaberto] into :valorpagar;

    -- valor a receber na data
    select coalesce(sum(valordup),0) from receber
    where datavenc = :data and [emaberto] into :valorreceber;

    if ((valorpagar > 0) or (valorreceber > 0)) then
      suspend;

    data = data + 1;
  end
end