Тормозит Оборотная ведомость

[Гонков Владислав]

Находясь в Оборотной Ведомости Клиента ("Клиент Фин. Оборот. Ведомость") и проваливаясь по Drill-Down (поля Дебет, Кредит, Сальдо) в "Фин. Книгу Операций", получаем такие жуткие "тормоза", что терпение пользователей порой заканчивается... но это происходит не всегда: у кого-то чаще, у кого-то реже.
На SQL-сервере назначены и выполняются задания по Обновлению статистики, Перестроение индексов...
Подскажите, пожалуйста, как бороться с данной проблемой? Что может улучшить нашу ситуацию?
Буду благодарен за любые советы, т.к. не хотелось бы в определённый момент времени получить коллапс в системе

С уважением, Владислав.

[Fordewind]

Ну тут много всего может быть...

Есть ли тяжелые вычисляемые поля на списке операций? Какой период открывается с тормозмами (может с начала времен)?

[Гонков Владислав]

В том-то и дело, что строю, допустим, за месяц по счёту 62-100, зависание на 10-15 секунд, потом на экране две операции...

[Гонков Владислав]

период - январь 2011

[Гонков Владислав]

увеличение периода на 1 год, т.е. с 01.01.10 по 31.01.11 ничего координально не изменило...

[Гонков Владислав]

также пользователи говорят о том, что в "оборотке", при "проваливании" в операции, часты случаи зависания Navision, поэтому они его закрывают принудительно что делать???

[Yoil]

а в формочке "Фин. книга операций", которая открывается по дрилл-дауну, в коде, на OnAfterGetRecord, ничего лишнего-тяжелого не навешано?

[Гонков Владислав]

Цитата:

Сообщение от Дуд

а в формочке "Фин. книга операций", которая открывается по дрилл-дауну, в коде, на OnAfterGetRecord, ничего лишнего-тяжелого не навешано?

Нет, там только простенькая функция, выводящая в поля формы наши внутренние номера учтенных документов: Сч.фактуры и Накладной

[.Quattro.]

Цитата:

Сообщение от Гонков Владислав

Нет, там только простенькая функция, выводящая в поля формы наши внутренние номера учтенных документов: Сч.фактуры и Накладной

Код функции в студию, пожалуйста.

А создание нового ключа вряд ли поможет.
Когда открывается форма с операциями - какой ключ используется?

[Fordewind]

Короче, что б не гадать. Есть старый добрый метод: запустите Выполнение Кода, и посмотрите, что ест больше всего времени

[Гонков Владислав]

Сегодня буду пробовать...

[Гонков Владислав]

у таблицы GL Entry хочу создать ключ: Posting Date,G/L Account No.,Source No.
Также хочу для своего нового ключа заполнить поле SumIndexFields: Amount,Debit Amount,Credit Amount,Additional-Currency Amount,Add.-Currency Debit Amount,Add.-Currency Credit Amount
Потом на сервере запущу мененджмент студио и в ней для GL Entry создам новую статистику, используя поля созданного ключа в той же последовательности
Может сработать/помочь???

[Fordewind]

Что дало Выполнение Кода?

[Sancho]

Цитата:

Сообщение от Fordewind

Что дало Выполнение Кода?

+1
автор! Сервис - Монитор клиента - Старт!
формочку - запустить!
Монитор клиента - стоп!
и зырим, зырим, анализируем...

[Гонков Владислав]

Цитата:

Сообщение от Sancho

Цитата:

Сообщение от Fordewind

Что дало Выполнение Кода?

+1
автор! Сервис - Монитор клиента - Старт!
формочку - запустить!
Монитор клиента - стоп!
и зырим, зырим, анализируем...

запустил, выполнил, стараюсь разобраться...

[Гонков Владислав]

Цитата:

Сообщение от Sancho

Цитата:

Сообщение от Fordewind

Что дало Выполнение Кода?

+1
автор! Сервис - Монитор клиента - Старт!
формочку - запустить!
Монитор клиента - стоп!
и зырим, зырим, анализируем...

помеченный цветом код - тот, который был выполнен, т.е. 100% отработал?

[Гонков Владислав]

Цитата:

Сообщение от Гонков Владислав

Цитата:

Сообщение от Sancho

Цитата:

Сообщение от Fordewind

Что дало Выполнение Кода?

+1
автор! Сервис - Монитор клиента - Старт!
формочку - запустить!
Монитор клиента - стоп!
и зырим, зырим, анализируем...

помеченный цветом код - тот, который был выполнен, т.е. 100% отработал?

видимо, красным цветом помечен код, который не был выполнен...

[Sancho]

Цитата:

Сообщение от Гонков Владислав

видимо, красным цветом помечен код, который не был выполнен...

хм..
анализируем, прежде всего, на предмет времени старта той или иной строчки.
цвет не важен.
если строка 85 запустилась на 20 секунд позже строки 84, то в 84-й строке какая-то фигня, которая выполняется 20 секунд.
если на форме 30 строчек, то эти 20 секунд * 30 строчек и вот ваши ожидания открытия формочки.

[Yoil]

Цитата:

Нет, там только простенькая функция, выводящая в поля формы наши внутренние номера учтенных документов: Сч.фактуры и Накладной

точно простенькая?

[Гонков Владислав]

при открытии form 20 выполняется следующий код:

Form - OnOpenForm()
IF RunOnTempRec THEN
RESET;

Form - OnFindRecord(Which : Text[1024]) : Boolean
IF RunOnTempRec THEN BEGIN
TempGLEntry.COPY(Rec);
Found := TempGLEntry.FIND(Which);
IF Found THEN
Rec := TempGLEntry;
EXIT(Found);
END ELSE
EXIT(FIND(Which));

Form - OnNextRecord(Steps : Integer) : Integer
IF RunOnTempRec THEN BEGIN
TempGLEntry.COPY(Rec);
ResultSteps := TempGLEntry.NEXT(Steps);
IF ResultSteps <> 0 THEN
Rec := TempGLEntry;
EXIT(ResultSteps);
END ELSE
EXIT(NEXT(Steps));

Form - OnAfterGetRecord()
fn_LegCompNo; // $94 >>

Form - OnAfterGetCurrRecord()
// RA20 >>
fn_ViewTotals;
// RA20 <<


fn_ViewTotals()
// RA20
IF RunOnTempRec THEN
CurrForm.TotalAmount.VISIBLE := g_cduOtherFunctions.fn_ViewTotalGLEntryAmount(TempGLEntry)
ELSE
CurrForm.TotalAmount.VISIBLE := g_cduOtherFunctions.fn_ViewTotalGLEntryAmount(Rec);
CurrForm.TotalDebitAmount.VISIBLE := CurrForm.TotalAmount.VISIBLE;
CurrForm.TotalCreditAmount.VISIBLE := CurrForm.TotalAmount.VISIBLE;

fn_LegCompNo()
// $94 >>
IF "Document Type" = "Document Type"::Invoice THEN BEGIN
//fn_LegCompNo
l_SalesInvoiceHeader.SETRANGE("No.", "Document No.");
IF l_SalesInvoiceHeader.FIND('-') THEN BEGIN
"Leg. Comp. Posting No." := l_SalesInvoiceHeader."Leg. Comp. Posting No.";
l_SalesShptHeader.SETCURRENTKEY("Order No.");
l_SalesShptHeader.SETRANGE("Order No.", l_SalesInvoiceHeader."Order No.");
IF l_SalesShptHeader.FIND('-') THEN
"Leg. Comp. Shipping No." := l_SalesShptHeader."Leg. Comp. Shipping No."
ELSE
CLEAR("Leg. Comp. Shipping No.");
END ELSE BEGIN
CLEAR("Leg. Comp. Posting No.");
CLEAR("Leg. Comp. Shipping No.")
END
END ELSE BEGIN
CLEAR("Leg. Comp. Posting No.");
CLEAR("Leg. Comp. Shipping No.")
END
// $94 <<

, но до запуска form 20 выполняется следующая функция, которая и открывает эту форму; она запускается с определённым параметром на соответствующем дрилдауне субформы Оборотной ведомости (form 12406):

DrillDownGLEntry(Show : 'StartBalance,Debit,Credit,EndBalance,NetChange')
GLEntry.RESET;
// $45 >>
//GLEntry.SETCURRENTKEY("Source Type","Source No.","G/L Account No.","Global Dimension 1 Code","Global Dimension 2 Code");
GLEntry.SETCURRENTKEY("Source Type","Source No.","G/L Account No.","Global Dimension 1 Code","Global Dimension 2 Code",
"Business Unit Code","Posting Date");
// $45 <<
GLEntry.SETRANGE("Source Type",GLEntry."Source Type"::Customer);
GLEntry.SETRANGE("Source No.","No.");
GLEntry.SETFILTER("G/L Account No.",GETFILTER("G/L Account Filter"));
GLEntry.SETFILTER("Global Dimension 1 Code",GETFILTER("Global Dimension 1 Filter"));
GLEntry.SETFILTER("Global Dimension 2 Code",GETFILTER("Global Dimension 2 Filter"));
GLEntry.SETFILTER("Posting Date",GETFILTER("Date Filter"));

CASE Show OF
Show::StartBalance:
IF COPYSTR(GETFILTER("Date Filter"),1,2) <> '..' THEN BEGIN
IF GETRANGEMIN("Date Filter") <> 0D THEN
GLEntry.SETRANGE("Posting Date",0D,GETRANGEMIN("Date Filter") - 1);
END ELSE
EXIT;
Show:ebit: GLEntry.SETFILTER("Debit Amount",'<>%1',0);
Show::Credit: GLEntry.SETFILTER("Credit Amount",'<>%1',0);
Show::EndBalance:
IF GETRANGEMAX("Date Filter") <> 0D THEN

// RA26 MBS ERROR >>
// GLEntry.SETRANGE("Posting Date",0D,GETRANGEMAX("Date Filter") - 1)
GLEntry.SETRANGE("Posting Date",0D,GETRANGEMAX("Date Filter"))
// RA26 MBS ERROR <<

ELSE
EXIT;
Show::NetChange: GLEntry.SETFILTER(Amount,'<>%1',0);
ELSE
ERROR('');
END;
//GLEntry.SETCURRENTKEY("Posting Date"); // $45
FORM.RUN(0,GLEntry);