Заполнение данными в цикле РН

[c_andrey]

Добрый день. 1с 8.2 файловая обычный интерфейс.

Есть реквизит ДатаИзготовления в табличной части Рн.

Она все отлично отрабатывает только заполняет колонку "ДатаИзготовления" на какой номенклатуре стоишь.
А нужно что вы по всем колонкам (ДатаИзготовления)таблице пробежалась подскажите как это реализовать пробовал через "//Пока Выборка.Следующий() Цикл что не получилось.

Код Выделить Развернуть


Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

если СтрокаТабличнойЧасти.ДатаИзготовления=Дата(1,1,1,0,0,0)
тогда
СтрокаТабличнойЧасти.ДатаИзготовления= Дата;
НоменклатураОбъект.ДатаИзготовления = Дата;
НоменклатураОбъект.Записать();
конецЕсли;

КонецПроцедуры


[alex0402]

Код Выделить Развернуть


Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

Для каждого СтрокаТабличнойЧасти из ТабличнаяЧасть Цикл
     если СтрокаТабличнойЧасти.ДатаИзготовления=Дата(1,1,1,0,0,0) тогда       
СтрокаТабличнойЧасти.ДатаИзготовления= Дата;
НоменклатураОбъект = СтрокаТабличнойЧасти.ПолучитьОбъект();
НоменклатураОбъект.ДатаИзготовления = Дата;
НоменклатураОбъект.Записать(); конецЕсли;
КонецПроцедуры



[c_andrey]

Ок спасибо.

Ошибку бьет

Переменная не определена (ТабличнаяЧасть)
Для каждого СтрокаТабличнойЧасти из <<?>>ТабличнаяЧасть Цикл

[LexaK]

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

Незачет!
(тут ошибка)

[alex0402]

так надо свою т.ч. подставить...

[c_andrey]

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

Незачет!
(тут ошибка)

Спасибо. Есть такое конечно. Или нужно по другому?

Добавлено: 28 фев 2017, 14:38

Спасибо всем!!!

Цикл заработал.

[LexaK]

что за переменная НоменклатураОбъект? Зачем в Номенклатуре каждый раз менять дату производства?
просто заполнение в табличной части ДатаИзготовления (если конечно есть такой реквизит в ТЧ) датой документа

Код Выделить Развернуть


Для каждого СтрокаТабличнойЧасти из <ВашаТабличнаяЧасть> Цикл
    если Не ЗначениеЗаполнено(СтрокаТабличнойЧасти.ДатаИзготовления) тогда       
        СтрокаТабличнойЧасти.ДатаИзготовления = Дата;
    конецЕсли;
КонецПроцедуры


[c_andrey]

что за переменная НоменклатураОбъект? Зачем в Номенклатуре каждый раз менять дату производства?
просто заполнение в табличной части ДатаИзготовления (если конечно есть такой реквизит в ТЧ) датой документа

Код Выделить Развернуть


Для каждого СтрокаТабличнойЧасти из <ВашаТабличнаяЧасть> Цикл
    если Не ЗначениеЗаполнено(СтрокаТабличнойЧасти.ДатаИзготовления) тогда       
        СтрокаТабличнойЧасти.ДатаИзготовления = Дата;
    конецЕсли;
КонецПроцедуры


Так и поступил как вы написали.