новое событие
Информационный поток
Задания вакансии материалы разработки сообщения форума
Wesley
Приватное сообщение

Доработать УТ11 - не происходит обновление списка товаров при работе самописной процедуры

5883 |  4
сегодня в 17:11:40 (1 час назад)
998210
Текст задания
В УТ11, в документе РТУ есть кнопка, вот что она делает: https://yadi.sk/i/tN7Wj5Jw3KTjS3

При нажатии меняет единицу измерения в номенклатуре. В карточке номенклатуры она меняется. А вот в табличную часть подставляется старая. Изменяется окончательно только если из формы номенклатуры нажать Записать и закрыть.
Как сделать чтобы и в ТЧ менялось?

Вот сам код кнопки:
------------------------------------------------------
&НаСервере
Процедура ЗаменитьЕдиницыИзмеренияНаСервере()

МассивСтрок = Элементы.Товары.ВыделенныеСтроки;

Шт = Справочники.УпаковкиЕдиницыИзмерения.НайтиПоНаименованию("шт");
м2 = Справочники.УпаковкиЕдиницыИзмерения.НайтиПоНаименованию("м2");

Для каждого Строка Из МассивСтрок Цикл

СтрокаТЧ = Объект.Товары.НайтиПоИдентификатору(Строка);

ОбъектНоменклатура = СтрокаТЧ.Номенклатура.ПолучитьОбъект();

Если ОбъектНоменклатура.ЕдиницаИзмерения = Шт Тогда

ОбъектНоменклатура.ЕдиницаИзмерения = м2;
ОбъектНоменклатура.ЕдиницаДляОтчетов = м2;
ОбъектНоменклатура.Артикул = "АРТИКУЛ";

Попытка
ОбъектНоменклатура.Записать();
ОбъектНоменклатура.Прочитать();
Исключение
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки());
КонецПопытки;

ИначеЕсли ОбъектНоменклатура.ЕдиницаИзмерения = м2 Тогда

ОбъектНоменклатура.ЕдиницаИзмерения = Шт;
ОбъектНоменклатура.ЕдиницаДляОтчетов = Шт;
ОбъектНоменклатура.Артикул = "АРТИКУЛ";

Попытка
ОбъектНоменклатура.Записать();
ОбъектНоменклатура.Прочитать();
Исключение
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки());
КонецПопытки;

КонецЕсли;

КонецЦикла;

Модифицированность = Истина;


КонецПроцедуры
0
Отклики (4)