0
Gray776
07.06.19
✎
12:47
|
Вот код собственно
ДокРеализация = Метаданные.Документы.РеализацияТоваровУслуг;
ИндикаторОбработкиРеализаций = 0;
ЭлементыФормы.ИндикаторОбработкиРеализаций.МаксимальноеЗначение = ТЗ_Реализации.Количество();
Сообщить(ТЗ_Реализации.Количество());
Для Каждого Стр Из ТЗ_Реализации Цикл
ДокРеализация = Стр.Ссылка.ПолучитьОбъект();
Для Каждого СтрНоменклатуры Из ДокРеализация.Товары Цикл
Сообщить(СтрНоменклатуры.Номенклатура);
Сообщить(СтрНоменклатуры.Цена);
//ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПродажиТабЧасти(СтрНоменклатуры, ДокРеализация, омВалютаРегламентированногоУчета);
НоваяЦена = Ценообразование.ПолучитьЦенуНоменклатуры(СтрНоменклатуры.Номенклатура, ДокРеализация.ТипЦен, ДокРеализация.Дата, омВалютаРегламентированногоУчета, 1, 1);
СтрНоменклатуры.Цена = НоваяЦена;
//
//Сообщить(СтрНоменклатуры.Номенклатура);
Сообщить(СтрНоменклатуры.Цена);
КонецЦикла;
Если ДокРеализация.Проведен Тогда
ДокРеализация.Записать(РежимЗаписиДокумента.Проведение);
Иначе
ДокРеализация.Записать(РежимЗаписиДокумента.Запись);
КонецЕсли;
ЭлементыФормы.НадписьСтатус.Заголовок = "Обработка реализации: " + Строка(Стр.Ссылка);
ИндикаторОбработкиРеализаций = ИндикаторОбработкиРеализаций + 1;
ОбработкаПрерыванияПользователя();
КонецЦикла;
ИндикаторОбработкиРеализаций = ЭлементыФормы.ИндикаторОбработкиРеализаций.МаксимальноеЗначение;
КонецПроцедуры
|
|