Имя: Пароль:
1C
1С v8
Проведение по регистру сведений. Пустой регистр
,
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) Спасибо, сработало.
Вот полный текст модуля проведения
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
    Движения.ЦеныПродаж.Очистить();

    НаборЗаписей = Движения.ЦеныПродаж;
    НаборЗаписей.Записывать = Истина;
    Для Каждого ТекСтрока Из Товары Цикл
        НоваяЗапись              = НаборЗаписей.Добавить();
        НоваяЗапись.Регистратор  = Ссылка;        
        НоваяЗапись.Период       = Ссылка.Дата;        
        НоваяЗапись.Номенклатура = ТекСтрока.Номенклатура;
        НоваяЗапись.ЦенаПродажи = ТекСтрока.Цена;
        НоваяЗапись.Склад = Склад;
        
    КонецЦикла;
    
КонецПроцедуры