🚀 go-pugleaf

Hi,

> Somewhere in this newsgroup, a solution for merging two query's resulting
in
> one table (where the result of the queries is in different column of the
> table) was to use a FOR SELECT LOOP in a procedure.
>
> I tried this because it looked like it was the ideal solution for a
problem
> that I had.
>
<snip>

It seems that you forgot that every "sub-query" should be in the BEGIN - END
block.
Try :

CREATE PROCEDURE TESTFORLOOP
RETURNS (
    TOTAL3 NUMERIC(11,2),
    TOTAL2 NUMERIC(15,2),
    TOTAL1 NUMERIC(15,2),
    DAT DATE)
AS
begin
  /* Procedure Text */
  FOR SELECT DISTINCT Invoices.date
      FROM Invoices
      WHERE Invoices.month= '200209'
      INTO :DAT
  do
  begin

    /* First Total */
    select SUM(InvoiceD.total)
      from Invoices Join InvoiceD ON Invoices.invnum = InvoiceD.number
    where Invoices.date = :DAT and InvoiceD.returnc = 1
    GROUP BY Invoices.date
    INTO :TOTAL1;

    /* Second Total */
    select SUM(InvoiceD.total)
    from InvoicesJoin InvoiceD ON Invoices.invnum = InvoiceD.InvoiceD.number
    where Invoices.date = :DAT and InvoiceD.returnc = 2
    GROUP BY Invoices.date
    INTO :TOTAL2;

    /* Thirth Total */
    select SUM(InvoiceD.total)
    from Invoices Join InvoiceD ON Invoices.invnum =
    InvoiceD.InvoiceD.number
    where Invoices.date = :DAT and InvoiceD.returnc = 3
    GROUP BY Invoices.date
    INTO :TOTAL3;
  end
end



Regards,
Arno Brinkman