Виснет на MODIFY

[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 в начале