|
Проведение по регистру сведений. Пустой регистр
| ☑ |
0
sidalexsandr
21.12.15
✎
19:57
|
В модуле документа пишу
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
НаборЗаписей = РегистрыСведений.ЦеныПродаж.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(Ссылка);
Для Каждого ТекСтрока Из Товары Цикл
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.Регистратор = Ссылка;
НоваяЗапись.Период = Ссылка.Дата;
НоваяЗапись.Номенклатура = ТекСтрока.Номенклатура;
НоваяЗапись.ЦенаПродажи = ТекСтрока.Цена;
НоваяЗапись.Склад = Склад;
КонецЦикла;
НаборЗаписей.Записать();
//
КонецПроцедуры
|
|
1
sidalexsandr
21.12.15
✎
19:57
|
Итог пустой регистр
|
|
2
GreatOne
21.12.15
✎
19:58
|
Прочитать
|
|
3
sidalexsandr
21.12.15
✎
19:59
|
(2) У меня в экранной форме документа выводятся значения регистра.
|
|
4
GreatOne
21.12.15
✎
20:07
|
У меня в консольной форме на холодильнике не работает (
|
|
5
RomanYS
21.12.15
✎
20:48
|
в обработке проведения вместо
НаборЗаписей = РегистрыСведений.ЦеныПродаж.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(Ссылка);
делай
НаборЗаписей = Движения.ЦеныПродаж;
|
|
6
sidalexsandr
21.12.15
✎
21:35
|
(5) Спасибо, сработало.
Вот полный текст модуля проведения
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Движения.ЦеныПродаж.Очистить();
НаборЗаписей = Движения.ЦеныПродаж;
НаборЗаписей.Записывать = Истина;
Для Каждого ТекСтрока Из Товары Цикл
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.Регистратор = Ссылка;
НоваяЗапись.Период = Ссылка.Дата;
НоваяЗапись.Номенклатура = ТекСтрока.Номенклатура;
НоваяЗапись.ЦенаПродажи = ТекСтрока.Цена;
НоваяЗапись.Склад = Склад;
КонецЦикла;
КонецПроцедуры
|
|