&НаСервере
Процедура
ЗаписатьТЗвРегистр()
Если НЕ ЗначениеЗаполнено(ТЗ)
Тогда
Возврат;
КонецЕсли;
Для Каждого Стр
Из ТЗ Цикл
НЗ = РегистрыСведений.РасчетЗадолженности.СоздатьНаборЗаписей();
НЗ.Отбор.ЛС.Установить(Стр.ЛС);
НЗ.Отбор.МесяцНачисления.Установить(Стр.МесяцНачисления);
НЗ.Отбор.ПоставщикРЦ.Установить(Стр.ПоставщикРЦ);
НЗ.Отбор.УслугаРЦ.Установить(Стр.УслугаРЦ);
НЗ.Отбор.ДокНачисления.Установить(Стр.ДокНачисления);
НЗ.Прочитать();
Если НЕ ЗначениеЗаполнено(НЗ) Тогда
Запись = НЗ.Добавить();
Запись.ЛС = Стр.ЛС;
Запись.МесяцНачисления = Стр.МесяцНачисления;
Запись.ПоставщикРЦ = Стр.ПоставщикРЦ;
Запись.УслугаРЦ = Стр.УслугаРЦ;
Запись.ДокНачисления = Стр.ДокНачисления;
Запись.УчитыватьПриРасчете = Стр.УчитыватьПриРасчете;
Запись.Сумма = Стр.Сумма;
Запись.ОплаченоЗаПериод = Стр.ОплаченоЗаПериод;
Запись.МесяцНачисленияФакт = Стр.МесяцНачисленияФакт;
Запись.ОплаченоЗаПериодФакт = Стр.ОплаченоЗаПериодФакт;
Запись.Поставщик = Стр.ПоставщикРЦ.Поставщик;
Запись.Услуга = Стр.УслугаРЦ.Номенклатура;
НЗ.Записать();
Иначе
Для Каждого
Запись Из НЗ Цикл
Запись.УчитыватьПриРасчете = Стр.УчитыватьПриРасчете;
Запись.Сумма = Стр.Сумма;
Запись.ОплаченоЗаПериод = Стр.ОплаченоЗаПериод;
Запись.МесяцНачисленияФакт = Стр.МесяцНачисленияФакт;
Запись.ОплаченоЗаПериодФакт = Стр.ОплаченоЗаПериодФакт;
Запись.Поставщик = Стр.ПоставщикРЦ.Поставщик;
Запись.Услуга = Стр.УслугаРЦ.Номенклатура;
НЗ.Записать();
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
|