create or alter procedure ZM_LOG_ACCEPT (
N integer,
I integer)
returns (
D_DATE date,
COUNT_DOC integer)
as
declare variable DATE_START date;
declare variable DATE_END date;
begin
I = 0;
DATE_START = cast('today' as timestamp);
DATE_END = dateadd(1439 minute to cast('today' as timestamp));
while (I < N) do
begin
for select count(LG.KEYS),
lpad(extract(day from :DATE_START), 2, '0') || '.' || lpad(extract(month from :DATE_START), 2, '0') || '.' || cast(extract(year from :DATE_START) as char(4))
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

into :COUNT_DOC, D_DATE
do
suspend;
begin
I = I + 1;
DATE_START = dateadd(-1 day to :DATE_START);
DATE_END = dateadd(-1 day to :DATE_END);
end
end
end