новое событие
Информационный поток
Задания вакансии материалы разработки сообщения форума
pavel
Приватное сообщение

Помочь с движениями по регистрам

Екатеринбург(Россия )
14 |  2
2 августа 2019 в 21:43:02 (4 года 38 недель 2 дня 6 часов назад)
2150
Текст задания
БГУ 2.0
Документ Меню-требование.
Пример конструкции приведен ниже.
Я в регистр добавил пару реквизитов.
Мне нужно, чтобы при проведении документа эти реквизиты заполнялись.
Кто может проконсультировать что куда подставить?


// Формирует движения по регистру "РасходПродуктов" по таблице источника данных "Списание продуктов питания".
//
Процедура ОтразитьСписаниеПродуктовПитанияВРегистреРасходПродуктов(ДокументОбъект, ТаблицаСписаниеПродуктовПитания) Экспорт

Если ДокументОбъект.ЭтоНовый() Тогда
Возврат; // Просмотр проводок в новом документе.
КонецЕсли;

РасходПродуктов = ДокументОбъект.Движения.РасходПродуктов;
РасходПродуктов.Очистить();
РасходПродуктов.Записывать = Истина;

Отбор = Новый Структура("ВидУчета", "БУ");
СтрокиСписанияПродуктовБУ = ТаблицаСписаниеПродуктовПитания.НайтиСтроки(Отбор);

Для Каждого СтрокаСписания Из СтрокиСписанияПродуктовБУ Цикл

Движение = РасходПродуктов.Добавить();
Движение.Период = ДокументОбъект.Дата;
Движение.Организация = ДокументОбъект.Организация;
ЗаполнитьЗначенияСвойств(Движение, СтрокаСписания,
"ИФО,КФО,КатегорияДовольствующихся,Номенклатура");

Движение.Количество = СтрокаСписания.Количество;
Движение.Сумма = СтрокаСписания.Стоимость;
Движение.КоличествоДовольствующихся = СтрокаСписания.КоличествоДовольствующихся;

КонецЦикла;

КонецПроцедуры
0
Отклики (1)