1С 8.3 Добавление движения в регистр накопления
Данные > Примеры кода 1С > 1С 8.3 Регистры накопления
Перейти в раздел примеры кода 1С 8.3:
Обязательно устанавливаем в Документе вкладка Движения
→ Проведение: Разрешить
→ Удаление движения: Удалять автоматически при отмене проведения
и ставим признаки напротив нужного регистра
Добавление движения в регистр накопления в 1С 8.3:
Процедура ОбработкаПроведения(Отказ, Режим)
// Движение по регистру ОсновныеСредства Приход
ДвижениеОС.ОсновныеСредства.Записывать = Истина;
ДвижениеОС.ОсновныеСредства.Очистить();
Для Каждого ТекОС Из ОС Цикл
ДвижениеОС = Движения.ОсновныеСредства.Добавить();
ДвижениеОС.ВидДвижения = ВидДвиженияНакопления.Приход;
ДвижениеОС.Период = ДатаДок;
ДвижениеОС.ОсновноеСредство = ТекОС.ОС;
ДвижениеОС.Валюта = ТекОС.Валюта;
ДвижениеОС.ВалСумма = ТекОС.ВалСумма;
ДвижениеОС.Сумма = ТекОС.Сумма;
ДвижениеОС.Количество = ТекОС.Количество;
КонецЦикла;
КонецПроцедуры
// Движение по регистру ОсновныеСредства Приход
ДвижениеОС.ОсновныеСредства.Записывать = Истина;
ДвижениеОС.ОсновныеСредства.Очистить();
Для Каждого ТекОС Из ОС Цикл
ДвижениеОС = Движения.ОсновныеСредства.Добавить();
ДвижениеОС.ВидДвижения = ВидДвиженияНакопления.Приход;
ДвижениеОС.Период = ДатаДок;
ДвижениеОС.ОсновноеСредство = ТекОС.ОС;
ДвижениеОС.Валюта = ТекОС.Валюта;
ДвижениеОС.ВалСумма = ТекОС.ВалСумма;
ДвижениеОС.Сумма = ТекОС.Сумма;
ДвижениеОС.Количество = ТекОС.Количество;
КонецЦикла;
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник