Виснет на MODIFY

[unalexia]

Всю голову уже сломал

В отчете в триггере OnAfterGetRecord()
.....
LedgerEntryDimMod.SETRANGE("Table ID",271);
LedgerEntryDimMod.SETRANGE("Entry No.",EntryNo);
LedgerEntryDimMod.SETRANGE("Dimension Code",DimensionCode);
IF LedgerEntryDimMod.FIND('-') THEN BEGIN
LedgerEntryDimMod.VALIDATE("Dimension Value Code",NewDimensionValueCode);
LedgerEntryDimMod.MODIFY; - > Зависает
END;
....

Плиз Хелп!

[Fordewind]

из-за приведенного кода не доложен виснуть
"Попробуйте перезгрузить комп" (с) Сис. Админ

З.Ы. Красивее 4 первые строки заменить на:
IF GET(271,EntryNo,DimensionCode) THEN BEGIN

[RedFox]

Цитата:

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

З.Ы. Красивее 4 первые строки заменить на:
IF GET(271,EntryNo,DimensionCode) THEN BEGIN

Тогда уж лучше использовать RecordID.TABLENO, чтобы на хадкодить ;-)
А MODIFY сообщениями обвесь до и после - самый простой сопоб определить оно или нет?

P.S. И кстати, табличка эта не блокорована?? Какая версия NAV?

[unalexia]

Цитата:

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

Тогда уж лучше использовать RecordID.TABLENO, чтобы на хадкодить ;-)
А MODIFY сообщениями обвесь до и после - самый простой сопоб определить оно или нет?

P.S. И кстати, табличка эта не блокорована?? Какая версия NAV?

Немоного продвинулся дальше.... Вроде как проблема в том, что указанный код на происваивание нового значения и Modify находится в триггере такой же таблицы... Как бы в этом случае и происходит зацикливание....

Смоделировал не на тригерах отчета...:


LedgerEntryDimension.SETRANGE("Table ID",271);
LedgerEntryDimension.SETRANGE("Entry No.",9578993);
IF LedgerEntryDimension.FIND('-') THEN BEGIN
IF LedgerEntryDimension."Dimension Code" = 'СТАТЬИ ДДС' THEN BEGIN
LedgerEntryDimension."Dimension Value Code" := 'Р3110';
LedgerEntryDimension.MODIFY; все ОК!!
END;

Но если (по аналогии с тригерром OnAfterGetRecord())

LedgerEntryDimension.SETRANGE("Table ID",271);
LedgerEntryDimension.SETRANGE("Entry No.",9578993);
IF LedgerEntryDimension.FIND('-') THEN REPEAT
IF LedgerEntryDimension."Dimension Code" = 'СТАТЬИ ДДС' THEN BEGIN
LedgerEntryDimension."Dimension Value Code" := 'Р3110';
LedgerEntryDimension.MODIFY; ЗАВИСАНИЕ!!!! ЗАЦИКЛИВАНИЕ!!!!
UNTIL LedgerEntryDimension.NEXT=0;

[RedFox]

Цитата:

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

Немоного продвинулся дальше.... Вроде как проблема в том, что указанный код на происваивание нового значения и Modify находится в триггере такой же таблицы... Как бы в этом случае и происходит зацикливание....

LedgerEntryDimension.SETRANGE("Table ID",271);
LedgerEntryDimension.SETRANGE("Entry No.",9578993);
IF LedgerEntryDimension.FIND('-') THEN REPEAT
IF LedgerEntryDimension."Dimension Code" = 'СТАТЬИ ДДС' THEN BEGIN
LedgerEntryDimension."Dimension Value Code" := 'Р3110';
LedgerEntryDimension.MODIFY; ЗАВИСАНИЕ!!!! ЗАЦИКЛИВАНИЕ!!!!
UNTIL LedgerEntryDimension.NEXT=0;

У Вас DataItem для этой линии = LedgerEntryDimension?
Если да, то переназовите переменную и добавте LedgerEntryDimension.RESET в начале

[Milk]

У вас после этого кода есть еще что-нибудь в триггере? Если нет, то скорее всего зависает не MODIFY, а переход к следующей строке отчета.

[unalexia]

Цитата:

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

У вас после этого кода есть еще что-нибудь в триггере? Если нет, то скорее всего зависает не MODIFY, а переход к следующей строке отчета.

Без Modify все работает. А в Debuger-е на этой строке!

Цитата:

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

из-за приведенного кода не доложен виснуть
"Попробуйте перезгрузить комп" (с) Сис. Админ

З.Ы. Красивее 4 первые строки заменить на:
IF GET(271,EntryNo,DimensionCode) THEN BEGIN

- это я для наглядности....

[Fordewind]

Цитата:

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

Без Modify все работает. А в Debuger-е на этой строке!

А без дебагера тоже виснет?