CftClub.ru

[Volod]

[Volod]

[Volod]

Опять же кучу всего вычисляете, что касается клиента, до оборотов, но вывод в Excel зависит от оборота. Зря получается, да еще и на каждый счет?

[Alkov]

[mmm_kazan]

Здравствуйте.
Согласен, что тормоза получаются при выводе оборотов.

Вот и хочу расставить метки, чтобы понять на каком селекте

Извините - в программировании в ЦФТ опыт действительно небольшой.

А по поводу оборотов обошел галочками разными на форме.

Если кому не нужно - не указывают.

[mmm_kazan]

[mmm_kazan]

Бывают конечно ситуации, когда порядка 200 клиентов выходят. Вот тогда и начинаются проблемы.

[Volod]

Опять же код трудночитаемый.
Параметры операции (закладка Параметры) должны начинаться с P_, а переменные (закладка Переменные) с V_. Соответственно у локальных переменных д.б. другие префиксы.

[mmm_kazan]

В общем осовная беда код 6 сек. выполняется по одному клиенту.

for
(select l1(l1 : l1_id)
in ::[LEGAL_161P]
where l1.vo=1984365)
loop
if ::[LEGAL_161P].[Z134021099].get_payer_inn(l1.l1_id)=c.[c_inn] or ::[LEGAL_161P].[Z134021099].get_recip_inn(l1.l1_id)=c.[c_inn] then
c_Number_Doc_Ostanov_str := '6001. Код подозрительных операций.';
exit;
end if;
end loop;

[mmm_kazan]

И вот этот код по 2 сек каждый
Выбираются в общем наиболее крупные проводки с контрагентами

debug_pipe('11Время - '||(utils.get_time),0);
for(select md1 (md1.[SUM] : m_sum,
(case when md1.[KL_DT].[0]=1 then md1.[KL_DT].[1].[1].[NAME]
else md1.[KL_DT].[2].[2]
end) :contragent,
md1.[NAZN] : m_nazn)
in ::[MAIN_DOCUM] all
where md1.[ACC_KT]=c.[af_id]
and (md1.[DATE_PROV]>=DATE_BEGIN)
and (md1.[DATE_PROV]<=DATE_END)
and md1%state='PROV'
order by 1 desc)
loop
if i >= 10 then
exit;
end if;
real_doc_cred:=real_doc_cred||md1.contragent||' '||to_char(md1.m_sum,'999999999999999.99')||' '||md1.m_nazn||chr(10);
i := i + 1;
end loop;

i := 1;
debug_pipe('12Время - '||(utils.get_time),0);
for(select md1 (md1.[SUM] : m_sum,
(case when md1.[KL_KT].[0]=1 then md1.[KL_KT].[1].[1].[NAME]
else md1.[KL_KT].[2].[2]
end) :contragent,
md1.[NAZN] : m_nazn)
in ::[MAIN_DOCUM] all
where md1.[ACC_DT]=c.[af_id]
and (md1.[DATE_PROV]>=DATE_BEGIN)
and (md1.[DATE_PROV]<=DATE_END)
and md1%state='PROV'
order by 1 desc)
loop
if i >= 10 then
exit;
end if;
real_doc_deb:=real_doc_deb||md1.contragent||' '||to_char(md1.m_sum,'999999999999999.99')||' '||md1.m_nazn||chr(10);
i := i + 1;
end loop;

[Alkov]

[Volod]

[mmm_kazan]

[Volod]

см. например операцию FTS_ACC_MOVE
type Q_DOC is

[mmm_kazan]