// выдает отчет о динамике дохода: в зависимости от параметра GPeriod 
 // либо по неделям, либо по месяцам, по кварталам или по годам. 
Create PROCEDURE "RepDyn"
(
 in date_begin date,  // начало отчетного периода 
 in date_end date,  // конец отчетного периода 
 in GPeriod varchar( 10 )  // 'квант' отчета 
)
BEGIN
  declare v_ColCount integer;  // кол-во 'квантов' в отчете 
  declare i integer;  // циклическая переменная 
  declare iDate date;   // циклическая переменная для генерации имени столбца-'кванта' 
  declare v_ColName varchar( 30 );  // имя столбца-'кванта' 
  declare query long varchar;  // SQL-предложение для создания временной результирующей таблицы 
  declare v_ID integer;  // текущий ID временной таблицы 

 // вычисление количества 'квантов' (недель или месяцев или кварталов ...) 
 // Execute используется, т.к. GPeriod - строковый параметр. 
  Execute( 
    ' set v_ColCount = ( select 1 + 
                         ( case GPeriod 
                            when ''week'' 
                             then  DateDiff( week, date_begin - 1, date_end - 1 ) 
                             else  DateDiff( '+ GPeriod +', date_begin, date_end ) 
                           end 
                          )
                        ); 
                       ' );
 
  set i =  1 ;
  set iDate = date_begin;
  set query = '  Declare local temporary TABLE tmp_tbl (
                   ID unsigned int primary key, 
                    [Тип] varchar(100) ';

 // генерация скрипта на создание временной таблицы 
  while i <= v_ColCount loop
    case GPeriod
      when 'week'    then
                         set v_ColName = DateFormat( iDate, 'dd.mm.yy')|| '-';
                         set iDate = Lesser( date_end, DateAdd(day, (if DoW(iDate)= 1  then   0  else  8 -DoW(iDate) endif), iDate) );
                         set v_ColName = v_ColName || DateFormat( iDate, 'dd.mm.yy');
                         set iDate = iDate +  1 

      when 'month'   then
                         set v_ColName = MonthNameRus(iDate) ||' '|| year(iDate);
                         set iDate = dateadd( month,  1 , iDate )

      when 'quarter' then 
                         set v_ColName = quarter(iDate) ||' кв. '|| year(iDate);
                         set iDate = dateadd( quarter,  1 , iDate )

      when 'year'    then
                         set v_ColName = year(iDate);
                         set iDate = ymd(  1  + year(iDate),  1 ,  1  )
    end case;

    set query = query + ', ['+ v_ColName +'] money ';
    set i = i +  1 ;
  end loop;

  Execute( query +');' );

  set v_ID = null;
  For c1 as curs dynamic scroll cursor for
    select
        ID as ID_T,
        Name as Name_T,

       (case GPeriod
          when 'week'    then  1 + datediff(   week, date_begin- 1 , edate- 1 )
          when 'month'   then  1 + datediff(  month, date_begin,   edate)
          when 'quarter' then  1 + datediff(quarter, date_begin,   edate)
          when 'year'    then  1 + datediff(   year, date_begin,   edate)
        end          )  as GroupPeriod,   // номер 'кванта' 

 // edate - поле: дата прихода денег 


       (case GPeriod
          when 'week'    then 
                        DateFormat( Greater( date_begin, DateAdd(day, (if DoW(edate)= 1  then - 6  else  2 -DoW(edate) endif), edate) ), 'dd.mm.yy')
                        || '-' ||
                        DateFormat( Lesser (   date_end, DateAdd(day, (if DoW(edate)= 1  then   0  else  8 -DoW(edate) endif), edate) ), 'dd.mm.yy')
          when 'month'   then MonthNameRus(edate) ||' '|| year(edate)
          when 'quarter' then quarter(edate) ||' кв. '|| year(edate)
          when 'year'    then cast( year(edate) as varchar( 30 ) )
        end           )  as NameGroupPeriod,  // имя 'кванта' и соответствующего столбца в tmp_tbl 

       sum( Prib ) as Prib_T  // Prib - поле: сумма пришедших денег 

      from ...

      group by  ID_T,
	Name_T,
                GroupPeriod,
                NameGroupPeriod
      order by  1 , 2 , 3 
  Do
    if (v_ID <> ID_T) or (v_ID is null)  then
      set v_ID = ID_T;
      insert into tmp_tbl (ID, [Тип]) values (v_ID, Name_T);
    end if;

    Execute( 'update tmp_tbl set ['+ NameGroupPeriod +'] = Prib_Type where ID = v_ID;' );

  End For;
 
  select * from tmp_tbl;
END;

---
date_begin = 01.01.04
date_end =   01.02.04
GPeriod = 'week'
-
ID	Тип	01.01.04-04.01.04	05.01.04-11.01.04	12.01.04-18.01.04	19.01.04-25.01.04	26.01.04-01.02.04
-----------------------------------------------------------------------------------------------------------
1	A	3630.00		9720.00		12520.00		3080.00		4840.00
2	B	19570.00		51290.00		51510.00		55540.00		59540.00
3	C	127040.00		339800.00		363300.00		287350.00		331485.00
===
date_begin = 01.01.04
date_end =   01.04.04
GPeriod = 'month'
-
ID	Тип	Январь 2004	Февраль 2004	Март 2004		Апрель 2004
-----------------------------------------------------------------------------------------
1	A	33790.00		105500.00		292695.00		-5010.00
2	B	228360.00		274630.00		296120.00		6410.00
3	C	1369585.00	1366125.00	1675495.00	10575.00
5	E							20.00
===

SELECT * FROM <ХП>(...);

Declare local temporary table tmp_tbl

  set query = '  Declare local temporary TABLE tmp_tbl (
                   ID unsigned int primary key, 
                    [Тип] varchar(100) ';