create or alter procedure ZM_PROCEDURE (
    TIME_2 date,
    TIME_1 date)
returns (
    COUNT_1 integer)
as
begin
  while (TIME_2 < '2017.05.17 00:00') do begin
    --
    select count(LG.KEYS)
      from log LG
        join DOCHEAD DH on cast(LG.KEYS as integer) = DH.ID_DOCHEAD
        join CLIENTS CL on CL.ID_CLIENTS = DH.CLIENT2_INDEX
      where (LG.MANAGER = 1874)
        and (LG.ACT = 'ACCEPT')
        and (LG.MODDATE between :TIME_1 and :TIME_2)
        and (LG.OBJECT = 'DOCHEAD')
        and (DH.DOCTYPE in (1267, 1269))
        and (DH.DOCHEAD_FILIALINDEX = 141)
      into :COUNT_1;
    --
    TIME_1 = dateadd ( 1 hour  to TIME_1);
    TIME_2 = dateadd  (1 hour  to TIME_2);
    suspend;
  end -- while
end

create or alter procedure ZM_PROCEDURE (
    TIME_2 date,
    TIME_1 date)
returns (
    COUNT_1 integer)
as
begin
  while (TIME_2 < '2017.05.17 00:00') do begin
    --
    TIME_2 = dateadd  (1 hour  to TIME_2);
    suspend;
  end -- while
end

((data >= :data1) and (data < :data2))

create or alter procedure ZM_PROCEDURE (
    TIME_2 date,
    TIME_1 date)
returns (
    COUNT_1 integer,
    DATA1 date,
    DATA2 date
)
as
begin
  while (TIME_2 < '2017.05.17 00:00') do begin
    --
...
    --
    DATA1 = TIME_1;
    DATA2 = TIME_2;
    suspend;
    TIME_1 = dateadd ( 1 hour  to TIME_1);
    TIME_2 = dateadd  (1 hour  to TIME_2);
  end -- while
end

create or alter procedure ZM_PROCEDURE (
    DATE_START date,
    DATE_END   date
    )
returns (
    COUNT_1 integer,
    DATE1   date,
    DATE2   date
    )
as
begin
  DATE1 = TIME_START;
  while (DATE1 < TIME_END) do begin
    --
    DATE2 = dateadd (1 hour to DATE1); -- единственное место где задается шаг окна
    --
    select count(LG.KEYS)
      from log LG
        join DOCHEAD DH on cast(LG.KEYS as integer) = DH.ID_DOCHEAD
        join CLIENTS CL on CL.ID_CLIENTS = DH.CLIENT2_INDEX
      where (LG.MANAGER = 1874)
        and (LG.ACT = 'ACCEPT')
        and (LG.MODDATE >= :DATE1)
        and (LG.MODDATE <  :DATE2)
        and (LG.OBJECT = 'DOCHEAD')
        and (DH.DOCTYPE in (1267, 1269))
        and (DH.DOCHEAD_FILIALINDEX = 141)
      into :COUNT_1;
    --
    suspend;
    --
    DATE1 = DATE2;
  end -- while
end