Процедура ПриЗаписи(Отказ)
Для каждого СтрТовары Из Товары Цикл
Владелец= СтрТовары.Номенклатура;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕдиницыИзмерения.Код
|ИЗ
| Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
|ГДЕ
| ЕдиницыИзмерения.Владелец = &Владелец";
Запрос.УстановитьПараметр("Владелец", Владелец);
РезультатЗапроса = Запрос.Выполнить().Выгрузить();
Для каждого стр Из РезультатЗапроса Цикл
Код= стр.Код;
КонецЦикла;
ТекущийОбъект= Справочники.ЕдиницыИзмерения.НайтиПоКоду(Код);
Редактируем= ТекущийОбъект.ПолучитьОбъект();
Редактируем.Вес= СтрТовары.Вес;
Редактируем.Объем= СтрТовары.Объем;
Редактируем.Записать();
КонецЦикла;
КонецПроцедуры
Процедура ПриЗаписи(Отказ)
Если Проведен Тогда
ТЗ = Товары.Выгрузить(,"ЕдиницаИзмерения,Вес,Объем");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТЗ.ЕдиницаИзмерения,
| ТЗ.Вес,
| ТЗ.Объем
|ПОМЕСТИТЬ ВТ
|ИЗ
| &ТЗ КАК ТЗ
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТ.ЕдиницаИзмерения,
| ВТ.Вес,
| ВТ.Объем
|ИЗ
| ВТ КАК ВТ
|ГДЕ
| (ВТ.Вес <> 0
| ИЛИ ВТ.Объем <> 0)
| И (ВТ.ЕдиницаИзмерения.Вес <> ВТ.Вес
| ИЛИ ВТ.ЕдиницаИзмерения.Объем <> ВТ.Объем)";
Запрос.УстановитьПараметр("ТЗ", ТЗ);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Объект = ВыборкаДетальныеЗаписи.ЕдиницаИзмерения.ПолучитьОбъект();
ЗаполнитьЗначенияСвойств(Объект, ВыборкаДетальныеЗаписи);
Объект.Записать();
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1