create or alter procedure ZM_LOG_ACCEPT (
    N integer,
    I integer,
    DATE_END date,
    DATE_START date)
returns (
    COUNT_DOC integer)
as
begin
  I = 0;
  while (I < N) do
  begin
    for select count(LG.KEYS)
        from log LG
        left join DOCHEAD DH on cast(LG.KEYS as integer) = DH.ID_DOCHEAD
        where LG.OBJECT = 'DOCHEAD' and
              LG.MANAGER = 1874 and
              LG.ACT = 'ACCEPT' and
              LG.MODDATE between :DATE_START and :DATE_END and
              DH.DOCHEAD_FILIALINDEX = 141
        [color=red]into :COUNT_DOC;[/color]
        suspend;
  I = I + 1;
  DATE_START = dateadd(1 day to :DATE_START);
  DATE_END = dateadd(1 day to :DATE_END);
end
end