CREATE PROCEDURE PPeriod (DateFrom date, DateTo date,
Param02 varchar(38),
--0 - 0001 выводить параметр Param02
--1 - 0002 по период
Flags integer)
returns
(num integer,
DMin DATE,
DMax DATE,
Caption varchar(100))
AS
  DECLARE VARIABLE iPeriod INTEGER;
  DECLARE VARIABLE NumPlus INTEGER;
BEGIN
  num = 0;   
  NumPlus = 0;  
  iPeriod = case b_upper(Param02) 
    when b_upper('День') then 1000   
    when b_upper('Неделя') then 5   
    when b_upper('Месяц') then 2   
    when b_upper('Квартал') then 3   
    when b_upper('Полугодие') then 6   
    when b_upper('Год') then 4
    when b_upper('Период') then 0
    else -1
  end;
  
  if (iPeriod >= 0) then begin    
    DateFrom = StartOfThe(DateFrom, iPeriod);
    DateTo = EndOfThe(DateTo, iPeriod);
  end else begin
    NumPlus = B_XNum(Param02);
    if (NumPlus = 0) then NumPlus = 1;
  end
  
  DMin = DateFrom;
  DMax = DateTo;
  if (iPeriod >= 0) then begin  
    if (iPeriod <> 0)
      then DMax = EndOfThe(DMin, iPeriod);
  end else begin
    DMax = DMin+NumPlus-1;
    if (DMax > DateTo) then DateTo = DMax; 
  end
  
  WHILE (DMax <= DateTo) DO BEGIN
    IF (iPeriod = 2) 
      THEN Caption = B_FormatDate('mmm yyyy', DMin);
      ELSE IF (iPeriod = 4) 
      THEN Caption = B_FormatDate('yyyy', DMin);
      ELSE IF (iPeriod = 0) 
      THEN Caption = B_FormatDate('dd.mm.yyyy-', DMin) || B_FormatDate('dd.mm.yyyy', DMax);
      ELSE begin
        Caption = B_FormatDate('dd.mm.yyyy', DMin);
        IF ((b_isbit(Flags, 1) = 1))
           then Caption = Caption || B_FormatDate('-dd.mm.yyyy', DMax);  
      end      
    IF ((iPeriod > 0) and (b_isbit(Flags, 0) = 1))
      then Caption = Caption || coalesce(' (' || Param02 || ')', '');  
    SUSPEND;

    DMin = DMax + 1;
    if (iPeriod >= 0) then begin    
      if (iPeriod = 1000)
        then DMax = EndOfThe(DMin, 0);
        else DMax = EndOfThe(DMin, iPeriod);
    end else begin
      DMax = DMin+NumPlus-1;
    end   
    num = num + 1; 
  END
END