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

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

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

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

[Fordewind]

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

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

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

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

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

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

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

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

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

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

[Yoil]

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

[Fordewind]

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

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

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

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

Цитата:

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

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

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

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

у таблицы 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]

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

[Yoil]

Цитата:

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

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

[.Quattro.]

Цитата:

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

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

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

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

[Sancho]

Цитата:

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

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

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

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

при открытии 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);

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

Цитата:

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

Цитата:

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

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

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

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

[Sancho]

ERROR('') - моветон

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

Цитата:

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

ERROR('') - моветон

Это было написано до меня... зачем именно так, не знаю...

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

Цитата:

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

Цитата:

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

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

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

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