В начало

Запись в РС «Состояние расчетов»

 

Листинг. Процедура

&НаСервере

Процедура ЗаписатьТЗвРегистр()

           

            Если НЕ ЗначениеЗаполнено(ТЗ) Тогда

            Возврат;

            КонецЕсли;   

                       

            Для Каждого Стр Из ТЗ Цикл

                       

                        НЗ = РегистрыСведений.РасчетЗадолженности.СоздатьНаборЗаписей();

                       

                        НЗ.Отбор.ЛС.Установить(Стр.ЛС);

                        НЗ.Отбор.МесяцНачисления.Установить(Стр.МесяцНачисления);

                        НЗ.Отбор.ПоставщикРЦ.Установить(Стр.ПоставщикРЦ);

                        НЗ.Отбор.УслугаРЦ.Установить(Стр.УслугаРЦ);

                        НЗ.Отбор.ДокНачисления.Установить(Стр.ДокНачисления);

                        НЗ.Прочитать();

                       

                        Если НЕ ЗначениеЗаполнено(НЗ) Тогда

                                   Запись = НЗ.Добавить();

                                  

                                   Запись.ЛС = Стр.ЛС;

                                   Запись.МесяцНачисления = Стр.МесяцНачисления;

                                   Запись.ПоставщикРЦ = Стр.ПоставщикРЦ;

                                   Запись.УслугаРЦ = Стр.УслугаРЦ;

                                   Запись.ДокНачисления = Стр.ДокНачисления;

                                  

                                   Запись.УчитыватьПриРасчете = Стр.УчитыватьПриРасчете;              

                                   Запись.Сумма = Стр.Сумма;

                                   Запись.ОплаченоЗаПериод = Стр.ОплаченоЗаПериод;

                                   Запись.МесяцНачисленияФакт = Стр.МесяцНачисленияФакт;            

                                   Запись.ОплаченоЗаПериодФакт = Стр.ОплаченоЗаПериодФакт;

                                   Запись.Поставщик = Стр.ПоставщикРЦ.Поставщик;

                                   Запись.Услуга = Стр.УслугаРЦ.Номенклатура;

                                  

                                   НЗ.Записать();

                        Иначе

                                   Для Каждого Запись Из НЗ Цикл

                                               Запись.УчитыватьПриРасчете = Стр.УчитыватьПриРасчете;                       

                                               Запись.Сумма = Стр.Сумма;

                                               Запись.ОплаченоЗаПериод = Стр.ОплаченоЗаПериод;

                                               Запись.МесяцНачисленияФакт = Стр.МесяцНачисленияФакт;                       

                                               Запись.ОплаченоЗаПериодФакт = Стр.ОплаченоЗаПериодФакт;

                                               Запись.Поставщик = Стр.ПоставщикРЦ.Поставщик;

                                               Запись.Услуга = Стр.УслугаРЦ.Номенклатура;

                                              

                                               НЗ.Записать();

                                              

                                   КонецЦикла;

                        КонецЕсли;

                       

            КонецЦикла;                      

                       

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