1С 8.2 УП : Добавление в набор сторно-записей

 // Добавить сторно-записи в набор и в табличную часть.

Процедура ДобавитьСтрокуСторноОсновныхНачислений(ДанныеСтроки,

НаборЗаписей, ТабличнаяЧасть = Неопределено)

Движение = НаборЗаписей.Добавить();

// Предопределенные поля.

Движение.ПериодРегистрации = ДанныеСтроки.ПериодРегистрацииСторно;

Движение.ПериодДействияНачало = ДанныеСтроки.ПериодДействияНачалоСторно;

Движение.ПериодДействияКонец = ДанныеСтроки.ПериодДействияКонецСторно;

Движение.ВидРасчета = ДанныеСтроки.ВидРасчета;

Движение.Сторно = Истина;

// Измерения.



Движение.ФизЛицо = ДанныеСтроки.ФизЛицо;



Движение.Организация = ДанныеСтроки.Организация;

// Реквизиты.

Движение.ГрафикРаботы = ДанныеСтроки.ГрафикРаботы;

Движение.Размер = ДанныеСтроки.Размер;

Движение.ВидУчетаВремени = ДанныеСтроки.ВидУчетаВремени;

Движение.Подразделение = ДанныеСтроки.Подразделение;

Движение.СтатьяЗатрат = ДанныеСтроки.СтатьяЗатрат;

Если Не ТабличнаяЧасть = Неопределено Тогда

НоваяСтрока = ТабличнаяЧасть.Добавить();

НоваяСтрока.ФизЛицо = ДанныеСтроки.ФизЛицо;

НоваяСтрока.ВидРасчета = ДанныеСтроки.ВидРасчета;

НоваяСтрока.ДатаНачало = ДанныеСтроки.ПериодДействияНачалоСторно;

НоваяСтрока.ДатаКонец = ДанныеСтроки.ПериодДействияКонецСторно;

НоваяСтрока.Размер = ДанныеСтроки.Размер;

НоваяСтрока.Подразделение = ДанныеСтроки.Подразделение;

НоваяСтрока.Сторно = Истина;

КонецЕсли;

КонецПроцедуры // ДобавитьСтрокуСторноОсновныхНачислений

// Процедура расчета основных начислений.

Процедура РассчитатьОсновныеНачисления() Экспорт

НачатьТранзакцию();

// Сформировать набор записей.

// …

// Сформировать таблицу сторно-записей.

ТаблицаСторно = НаборОсновныеНачисления.ПолучитьДополнение();

// Добавить сторно-записи в набор.

Для Каждого СтрокаСторно из ТаблицаСторно Цикл

ДобавитьСтрокуСторноОсновныхНачислений(СтрокаСторно,

НаборОсновныеНачисления,

ОсновныеНачисления);

КонецЦикла;



// …

ЗафиксироватьТранзакцию();

КонецПроцедуры // РассчитатьОсновныеНачисления