Новая строка в перемещении (всегда последняя)

[Mary]

Добрый день.
Подскажите, пожалуйста, почему при добавлении новой строки в перемещение, она всегда становится последней?

TransferLine::OnInsert()

TestStatusOpen;

TransLine2.RESET;
TransLine2.SETFILTER("Document No.",TransHeader."No.");
IF TransLine2.FIND('+') THEN
  "Line No." := TransLine2."Line No." + 10000;

ReserveTransferLine.VerifyQuantity(Rec,xRec);
DimMgt.InsertDocDim(
  DATABASE::"Transfer Line",DocDim."Document Type"::" ","Document No.","Line No.",
  "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");

Спасибо.

[Fordewind]

А почему бы и нет? Что вас в таком алгоритме не устраивает?

[Mary]

Непонятно с точки зрения пользовтеля.
Если я завожу новую строку между 10 и 11ой, например, значит, есть у меня на это причины; будь добра встать между 10ой и 11ой. В конце-концов, так необходимо видеть их в накладной.
Для строк продажи такого не сделали, а вот для перемещений почему-то есть.

[balashov]

Цитата:

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

Непонятно с точки зрения пользовтеля.
Если я завожу новую строку между 10 и 11ой, например, значит, есть у меня на это причины; будь добра встать между 10ой и 11ой. В конце-концов, так необходимо видеть их в накладной.
Для строк продажи такого не сделали, а вот для перемещений почему-то есть.

а вы ключ новый добавте для таблицы Transfer Line и объясните пользователям как пользоваться сортировкой в строковой части документа.

[Mary]

Цитата:

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

а вы ключ новый добавте для таблицы Transfer Line и объясните пользователям как пользоваться сортировкой в строковой части документа.

Хорошо, этот вариант можно рассмотреть.
Вопрос переходит в следующий: на какие проблемы мы можем натолкнуться, закомментировав указанную ниже часть кода из TransferLine::OnInsert:

TransLine2.RESET;
TransLine2.SETFILTER("Document No.",TransHeader."No.");
IF TransLine2.FIND('+') THEN
  "Line No." := TransLine2."Line No." + 10000;

[satir]

Вы привели пример

Цитата:

"Line No." := TransLine2."Line No." + 10000;

Может стоит посмотреть вимательнее на код?

[Mary]

satir, уточните, плз., что Вы имеете в виду. Если я что-то неверно инерпретирую, подскажите что.

[romeo]

Просто человек, писавший код в триггере OnInsert() (в части поиска номера последней строки в документе) не знал о свойстве формы AutoSplitKey.

[satir]

Цитата:

TransLine2.RESET;
TransLine2.SETFILTER("Document No.",TransHeader."No.");
IF TransLine2.FIND('+') THEN
"Line No." := TransLine2."Line No." + 10000;

Видно, что ищется последняя запись и к найденному номеру строки прибавляется 10000. -> Получаем строку с номером больше последней на 10000. Посмотрите ключ (первый) к таблице и вам все станет ясно.

[romeo]

Цитата:

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

Видно, что ищется последняя запись и к найденному номеру строки прибавляется 10000. -> Получаем строку с номером больше последней на 10000. Посмотрите ключ (первый) к таблице и вам все станет ясно.

Так ей и так все ясно ) Она не понимает почему так..

[satir]

Цитата:

Вопрос переходит в следующий: на какие проблемы мы можем натолкнуться, закомментировав указанную ниже часть кода из TransferLine::OnInsert

Хреново будет, да простят меня читающие. Лучше, если вы пойдете какие-нибудь курсы или сдадите тест по программингу в Navision.

[romeo]

Цитата:

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

Хреново будет, да простят меня читающие. Лучше, если вы пойдете какие-нибудь курсы или сдадите тест по программингу в Navision.

А что именно будет хреново? А то я 3 года с нави, а не знаю, где и что поломается.. Объясните мне. Персонально. Сатир.

[Mary]

Цитата:

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

Хреново будет, да простят меня читающие. Лучше, если вы пойдете какие-нибудь курсы или сдадите тест по программингу в Navision.

Сатир, если можете ответить за свои слова - объясните, пожалуйста, какие конкретно проблемы могут возникнуть, при комментировании вышеуказанного кода.

[randrews]

Дело в том, что строки в Transfer Line вставляются не только из формы !!!
Отгрузите 2 строки с товаром, а потом через Object Disigner посмотрите - в Transfer Line будет 4 строки.

Не хочу копаться в коде, но мне кажется именно поэтому этот код прописан. Чтоб где-то написать INSERT(TRUE) и не заморачиваться

[satir]

Цитата:

TransLine2.RESET;
TransLine2.SETFILTER("Document No.",TransHeader."No.");
IF TransLine2.FIND('+') THEN
"Line No." := TransLine2."Line No." + 10000;

Удаляем этот код -> Получаем первый раз сторку с "Line No." = 0, первый раз это пройдет, если нет в данном документе номера строки = 0, второй - получим error по ключу. При условии, конечно, что вы не вписываете номер строки вручную.

[randrews]

на форме не получим. AutoSplitKey.

Получим, возможно, при учете отгрузки, созданной из транзита

[Mary]

Цитата:

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

на форме не получим. AutoSplitKey.

Получим, возможно, при учете отгрузки, созданной из транзита

Попробовала. И частичные отгрузки и приемки нескольких строк. Работает корректно..

[Fordewind]

IF "Line No." = 0 THEN BEGIN
  TransLine2.RESET;
  TransLine2.SETFILTER("Document No.",TransHeader."No.");
  IF TransLine2.FIND('+') THEN
	"Line No." := TransLine2."Line No." + 10000;
END;

И будет вам счастье!

[Yuriy]

Цитата:

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

IF "Line No." = 0 THEN BEGIN
  TransLine2.RESET;
  TransLine2.SETFILTER("Document No.",TransHeader."No.");
  IF TransLine2.FIND('+') THEN
	"Line No." := TransLine2."Line No." + 10000;
END;

И будет вам счастье!

Проверил: и отгрузка и приемка работают без этого куска кода.

[Yuriy]

Уважаемый satir!
На форме 5741 "Перемещение Заказ Субформа" во всем известном свойстве AutoSplitKey стоит значение Yes. В первичном ключе таблицы 5741 "Перемещение Строка" включено поле Line No. - Integer. Свойство AutoSplitKey как раз и отвечает за автоматическое присвоение целочисленному полю в первичном ключе нового значения. Попробуйте закомментировать указанные Марией строки кода и проверьте работу перемещения. Боюсь, что результат Вас удивит.
Как раз с целью понимания смысла этих строк и был задан вопрос.
А отправлять человека учить мат. часть и при этом в следующем же посте указывать на свою несостоятельность, как минимум, неэтично.