В чем фокус? - NAV: Программирование

VProk · 13.10.2011, 13:55

Цитата:

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

Цитата:

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

Это сервер "разгоняется", оптимизирует работу запросов. Возможно какой - нибудь ключ у вас в отчете не удачно выбран, ковыряйте в эту сторону.

Допустим сервер "разгоняется. Но тогда почему то же самое порисходит и на ЛОКАЛЬНОЙ базе? ... даже после того, как окно НАВа закрываю (т.е. я исходу из предположения, что в этот момент всё, что касается Навижн из памяти компа удаляется) все равно наблюдается этот эффект "ускорения"

Все-таки обратите внимание в первую очередь на ключи. Возможно, фильтруются какие-то поля, которые в ключе отсутствуют.
Порядок фильтрации не важен. Посмотрите, что стоит в настойках Кэш объектов (KB) в филиале. Мож там 0?

Kadawrik · 13.10.2011, 14:07

Цитата:

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

Все-таки обратите внимание в первую очередь на ключи. Возможно, фильтруются какие-то поля, которые в ключе отсутствуют.
Порядок фильтрации не важен. Посмотрите, что стоит в настойках Кэш объектов (KB) в филиале. Мож там 0?

Вот франиент кода, на котором наблюдаются основные "тормоза":

Код:

SalesInvoiceHeader.SETCURRENTKEY("Order No.");
SalesInvoiceHeader.SETRANGE("Order No.","Sales Invoice Header"."Order No.");
SalesInvoiceHeader.SETFILTER("No.",'..%1',"Sales Invoice Header"."No.");
IF SalesInvoiceHeader.FIND('-') THEN
  REPEAT
    SalesInvoiceLine2.SETRANGE("Document No.",SalesInvoiceHeader."No.");
    SalesInvoiceLine2.SETRANGE("Line No.",SalesInvoiceLine."Line No.");
    SalesInvoiceLine2.SETRANGE(Type,SalesInvoiceLine.Type);
    SalesInvoiceLine2.SETRANGE("No.",SalesInvoiceLine."No.");
    SalesInvoiceLine2.SETRANGE("Unit of Measure Code",SalesInvoiceLine."Unit of Measure Code");
    IF SalesInvoiceLine2.FIND('-') THEN
      REPEAT
        TotalQuantity := TotalQuantity + SalesInvoiceLine2.Quantity;
      UNTIL SalesInvoiceLine2.NEXT = 0;
  UNTIL SalesInvoiceHeader.NEXT = 0;



SalesShipmentLine.SETCURRENTKEY("Order No.","Order Line No.");
SalesShipmentLine.SETRANGE("Order No.","Sales Invoice Header"."Order No.");
SalesShipmentLine.SETRANGE("Order Line No.",SalesInvoiceLine."Line No.");
SalesShipmentLine.SETRANGE("Line No.",SalesInvoiceLine."Line No.");
SalesShipmentLine.SETRANGE(Type,SalesInvoiceLine.Type);
SalesShipmentLine.SETRANGE("No.",SalesInvoiceLine."No.");
SalesShipmentLine.SETRANGE("Unit of Measure Code",SalesInvoiceLine."Unit of Measure Code");
SalesShipmentLine.SETFILTER(Quantity,'<>%1',0);

IF SalesShipmentLine.FIND('-') THEN
  REPEAT
и т.д.

Тормозит на первой части (от "IF SalesInvoiceHeader.FIND('-') THEN" до UNTIL SalesInvoiceHeader.NEXT = 0").
Что здесь можно бы ло бы оптимизировать?

Fly · 13.10.2011, 14:18

Цитата:

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

Цитата:

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

Все-таки обратите внимание в первую очередь на ключи. Возможно, фильтруются какие-то поля, которые в ключе отсутствуют.
Порядок фильтрации не важен. Посмотрите, что стоит в настойках Кэш объектов (KB) в филиале. Мож там 0?

Вот франиент кода, на котором наблюдаются основные "тормоза":

Код:

SalesInvoiceHeader.SETCURRENTKEY("Order No.");
SalesInvoiceHeader.SETRANGE("Order No.","Sales Invoice Header"."Order No.");
SalesInvoiceHeader.SETFILTER("No.",'..%1',"Sales Invoice Header"."No.");
IF SalesInvoiceHeader.FIND('-') THEN
  REPEAT
    SalesInvoiceLine2.SETRANGE("Document No.",SalesInvoiceHeader."No.");
    SalesInvoiceLine2.SETRANGE("Line No.",SalesInvoiceLine."Line No.");
    SalesInvoiceLine2.SETRANGE(Type,SalesInvoiceLine.Type);
    SalesInvoiceLine2.SETRANGE("No.",SalesInvoiceLine."No.");
    SalesInvoiceLine2.SETRANGE("Unit of Measure Code",SalesInvoiceLine."Unit of Measure Code");
    IF SalesInvoiceLine2.FIND('-') THEN
      REPEAT
        TotalQuantity := TotalQuantity + SalesInvoiceLine2.Quantity;
      UNTIL SalesInvoiceLine2.NEXT = 0;
  UNTIL SalesInvoiceHeader.NEXT = 0;



SalesShipmentLine.SETCURRENTKEY("Order No.","Order Line No.");
SalesShipmentLine.SETRANGE("Order No.","Sales Invoice Header"."Order No.");
SalesShipmentLine.SETRANGE("Order Line No.",SalesInvoiceLine."Line No.");
SalesShipmentLine.SETRANGE("Line No.",SalesInvoiceLine."Line No.");
SalesShipmentLine.SETRANGE(Type,SalesInvoiceLine.Type);
SalesShipmentLine.SETRANGE("No.",SalesInvoiceLine."No.");
SalesShipmentLine.SETRANGE("Unit of Measure Code",SalesInvoiceLine."Unit of Measure Code");
SalesShipmentLine.SETFILTER(Quantity,'<>%1',0);

IF SalesShipmentLine.FIND('-') THEN
  REPEAT
и т.д.

Тормозит на первой части (от "IF SalesInvoiceHeader.FIND('-') THEN" до UNTIL SalesInvoiceHeader.NEXT = 0").
Что здесь можно бы ло бы оптимизировать?

Ну конечно. Поменяйте на FINDSET. FIND('-') - это во-первых устаревшая команда, а во-вторых аналогична FINDFIRST, что вообще неправильно для циклов.

VProk · 13.10.2011, 15:18

Цитата:

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

Цитата:

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

Все-таки обратите внимание в первую очередь на ключи. Возможно, фильтруются какие-то поля, которые в ключе отсутствуют.
Порядок фильтрации не важен. Посмотрите, что стоит в настойках Кэш объектов (KB) в филиале. Мож там 0?

Вот франиент кода, на котором наблюдаются основные "тормоза":

Код:

SalesInvoiceHeader.SETCURRENTKEY("Order No.");
SalesInvoiceHeader.SETRANGE("Order No.","Sales Invoice Header"."Order No.");
SalesInvoiceHeader.SETFILTER("No.",'..%1',"Sales Invoice Header"."No.");
IF SalesInvoiceHeader.FIND('-') THEN
  REPEAT
    SalesInvoiceLine2.SETRANGE("Document No.",SalesInvoiceHeader."No.");
    SalesInvoiceLine2.SETRANGE("Line No.",SalesInvoiceLine."Line No.");
    SalesInvoiceLine2.SETRANGE(Type,SalesInvoiceLine.Type);
    SalesInvoiceLine2.SETRANGE("No.",SalesInvoiceLine."No.");
    SalesInvoiceLine2.SETRANGE("Unit of Measure Code",SalesInvoiceLine."Unit of Measure Code");
    IF SalesInvoiceLine2.FIND('-') THEN
      REPEAT
        TotalQuantity := TotalQuantity + SalesInvoiceLine2.Quantity;
      UNTIL SalesInvoiceLine2.NEXT = 0;
  UNTIL SalesInvoiceHeader.NEXT = 0;



SalesShipmentLine.SETCURRENTKEY("Order No.","Order Line No.");
SalesShipmentLine.SETRANGE("Order No.","Sales Invoice Header"."Order No.");
SalesShipmentLine.SETRANGE("Order Line No.",SalesInvoiceLine."Line No.");
SalesShipmentLine.SETRANGE("Line No.",SalesInvoiceLine."Line No.");
SalesShipmentLine.SETRANGE(Type,SalesInvoiceLine.Type);
SalesShipmentLine.SETRANGE("No.",SalesInvoiceLine."No.");
SalesShipmentLine.SETRANGE("Unit of Measure Code",SalesInvoiceLine."Unit of Measure Code");
SalesShipmentLine.SETFILTER(Quantity,'<>%1',0);

IF SalesShipmentLine.FIND('-') THEN
  REPEAT
и т.д.

Тормозит на первой части (от "IF SalesInvoiceHeader.FIND('-') THEN" до UNTIL SalesInvoiceHeader.NEXT = 0").
Что здесь можно бы ло бы оптимизировать?

SalesInvoiceHeader.SETFILTER("No.",'..%1',"Sales Invoice Header"."No.");
Т.е. просматриваете все счета начиная с царя-гороха.
Вообще с помощью создания ключей можно это дело ускорить все ж.
Первичный ключ для строк инвойса, это <Document No.,Line No.>, если я не ошибаюсь. Остальные фильтруемые поля остаются за бортом.
Лучше добавить ключ, где все фильтруемые поля входят в него. От цикла лучше избавиться, прописав в этом ключе SumIndexField = Quantity и потом его просто CalsSum-ить.
Со строками отгрузки аналогично..

Kadawrik · 14.10.2011, 13:58

Цитата:

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

Первичный ключ для строк инвойса, это <Document No.,Line No.>, если я не ошибаюсь. Остальные фильтруемые поля остаются за бортом.
Лучше добавить ключ, где все фильтруемые поля входят в него. От цикла лучше избавиться, прописав в этом ключе SumIndexField = Quantity и потом его просто CalsSum-ить.
Со строками отгрузки аналогично..

А стОит ли овчинка выделки? Ради одного отчета создавать такой длинный ключ... ... в свете нашего скорого перехода на SQL, наверное, это все-таки нецелессообразно будет

.Quattro. · 13.10.2011, 22:50

Цитата:

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

Вот франиент кода, на котором наблюдаются основные "тормоза":

Код:

SalesInvoiceHeader.SETCURRENTKEY("Order No.");
SalesInvoiceHeader.SETRANGE("Order No.","Sales Invoice Header"."Order No.");
SalesInvoiceHeader.SETFILTER("No.",'..%1',"Sales Invoice Header"."No.");
IF SalesInvoiceHeader.FIND('-') THEN
  REPEAT
    SalesInvoiceLine2.SETRANGE("Document No.",SalesInvoiceHeader."No.");
    SalesInvoiceLine2.SETRANGE("Line No.",SalesInvoiceLine."Line No.");
    SalesInvoiceLine2.SETRANGE(Type,SalesInvoiceLine.Type);
    SalesInvoiceLine2.SETRANGE("No.",SalesInvoiceLine."No.");
    SalesInvoiceLine2.SETRANGE("Unit of Measure Code",SalesInvoiceLine."Unit of Measure Code");
    IF SalesInvoiceLine2.FIND('-') THEN
      REPEAT
        TotalQuantity := TotalQuantity + SalesInvoiceLine2.Quantity;
      UNTIL SalesInvoiceLine2.NEXT = 0;
  UNTIL SalesInvoiceHeader.NEXT = 0;

Тормозит на первой части (от "IF SalesInvoiceHeader.FIND('-') THEN" до UNTIL SalesInvoiceHeader.NEXT = 0").
Что здесь можно бы ло бы оптимизировать?

Посоветовал бы вам перед наложением фильтров ставить RESET - неизвестно, какие до этого фильтры накладывались на записи.
Не исключаю, что можно код перестроить, в результате чего заработает быстрее. Что за переменная SalesInvoiceLine? Может можно найти строки без поиска заголовков?

Т.к. вы используете Native базу, то порядок наложения фильтров важен - он должен быть таким же, как и в ключе.
FINDSET работает только в SQL-версии быстрее.
Попробуйте не накладывать фильтр SalesInvoiceHeader.SETFILTER("No.",'..%1',"Sales Invoice Header"."No.");
а измените цикл на
(SalesInvoiceHeader."No." = "Sales Invoice Header"."No.") OR (SalesInvoiceHeader.NEXT = 0);

**Sancho** · 14.10.2011, 00:57

Цитата:

Сообщение от .Quattro.

Попробуйте не накладывать фильтр SalesInvoiceHeader.SETFILTER("No.",'..%1',"Sales Invoice Header"."No.");
а измените цикл на
(SalesInvoiceHeader."No." = "Sales Invoice Header"."No.") OR (SalesInvoiceHeader.NEXT = 0);

потом расскажешь

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид