Как записать данные в  регистр накопления. В документ посредством метода ПолучитьОбъект(). А в регистр накопления?

мРегистр = ЭлементыФормы.Флажок1.Значение;
   
   Если мРегистр = Истина Тогда
       
       Запрос = Новый Запрос;
       Запрос.Текст =
       "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 10
       |    Продажи.Регистратор,
       |    Продажи.Подразделение
       |ИЗ
       |    РегистрНакопления.Продажи КАК Продажи
       |ГДЕ
       |    Продажи.Период МЕЖДУ &ДатаНач И &ДатаКон";
       
       Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
       Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
       ТЗ = Запрос.Выполнить().Выгрузить();
       
       Для Каждого Стр Из ТЗ Цикл
           
           Если Не ЗначениеЗаполнено(Стр.Подразделение) Тогда
               
               //Как здесь записать.
               
           КонецЕсли;
           
       КонецЦикла;
       
   Иначе
       
       Запрос = Новый Запрос;
       Запрос.Текст =
       "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 10
       |    РеализацияТоваровУслуг.Ссылка,
       |    РеализацияТоваровУслуг.Подразделение
       |ИЗ
       |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
       |ГДЕ
       |    РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНач И &ДатаКон";
       
       Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
       Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
       ТЗ = Запрос.Выполнить().Выгрузить();
       
       Для Каждого Стр Из ТЗ Цикл
           
           Если Не ЗначениеЗаполнено(Стр.Подразделение) Тогда
               
               Объект = Стр.Ссылка.ПолучитьОбъект();
               Объект.Подразделение = Подразделение;
               Объект.Записать();
               
           КонецЕсли;
           
       КонецЦикла;
       
   КонецЕсли;

записать через получитьобъект()?

(2) В документ да

создать набор записей, отобрать по регистратору, прочитать, добавить, записать.

(4)  Мне нужно редактировать текущую запись, а не добавлять новую

установить нужный отбор
прочитать
изменить
записать

(5) ок, замени 4-й этап на "изменить"

Спс

У меня в сп нет метода прочитать

http://s017.radikal.ru/i414/1209/58/28f873ab54eb.jpg

(10) см (4), п.1

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

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


{Форма.Форма(29)}: Поле объекта недоступно для записи (Подразделение)
               Набор.Отбор.Регистратор.Значение.Подразделение = Подразделение;

(13) жуть какая.

(14) Почему?

мало того, что условие не в запрос закатал на подразделение, так еще и в регистре пытаешься оставить инфу только по регистратору, плюс у регистратора (причем у ссылки, а не объекта), подменить реквизит. Просто офигеть.

(15) /*facepalm/*
Набор.Отбор.Регистратор.Значение.Подразделение = Подразделение;

хорошо еще, что ошибка по подразделению выскочила. Так бы часть данных по продажам в регистре расфигачил в аут.

(18)Не страшно я на тестовой работаю

(16)Условие не нужно в запросе

(16)По подразделению

Хз что его тут придумать

а что тут думать? Работу меняй. 1С ты не тянешь.

(20) Проще сделать отбор по подразделению сразу в запросе, чем потом в цикле проверять

(22) отбор только по регистратору можно. Про подразделения забудь.

Запрос у меня нормальный

Запрос = Новый Запрос;
       Запрос.Текст =
       "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 10
       |    Продажи.Регистратор,
       |    Продажи.Подразделение
       |ИЗ
       |    РегистрНакопления.Продажи КАК Продажи
       |ГДЕ
       |    Продажи.Период МЕЖДУ &ДатаНач И &ДатаКон
       |    И Продажи.Регистратор ССЫЛКА Документ.РеализацияТоваровУслуг";
       
       Запрос.УстановитьПараметр("ДатаНач", НачалоДня(ДатаНач));
       Запрос.УстановитьПараметр("ДатаКон", КонецДня(ДатаКон));
       ТЗ = Запрос.Выполнить().Выгрузить();

народ ну хоть вы то меня не смешите.
Каким образом кодом в (13) можно поправить записи сделанные документом?
Не код, а ляп на ляпе. Ввиду полного непонимания процесса как такогого.

(26) ик ик ик.

впрочем для тупого перебора - сойдет. Отвык я как то от запросов к регистрам накопления без запроса ресурсов.

Можно конечно и в запросе проверять подразделение)

ладно - пшел я работать. А то от таких тем и одуреть недолго.

(31))

(30) а смысл? Набор пишется целиком, старый стирается, новый записывается. Одну строчку у него невозможно изменить, хоть вы головой об стенку бейтесь.

Набор = РегистрыНакопления.Продажи.СоздатьНаборЗаписей();
               Док = Набор.Отбор.Регистратор;
               Док.Установить(Стр.Регистратор);
               Набор.Прочитать();
                               Набор.Записать();

собрались спецы блин...

(33)Чой-то нельзя одну строчку в наборе изменить? Хоть одну, хоть через одну

(34)Это шедеврально. 5 строк кода, которые не делают в результате НИЧЕГО. Блеск.

а вообще ТС, задумайся насчет (23). Нельзя быть программистом 1с, не зная как писать данные в регистр.

Шериф тебе толком могу помочь только я, на вот готовое решение

Запрос = Новый Запрос;
       Запрос.Текст =
       "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 10
       |    Продажи.Регистратор,
       |    Продажи.Подразделение
       |ИЗ
       |    РегистрНакопления.Продажи КАК Продажи
       |ГДЕ
       |    Продажи.Период МЕЖДУ &ДатаНач И &ДатаКон
       |    И Продажи.Регистратор ССЫЛКА Документ.РеализацияТоваровУслуг";
       
       Запрос.УстановитьПараметр("ДатаНач", НачалоДня(ДатаНач));
       Запрос.УстановитьПараметр("ДатаКон", КонецДня(ДатаКон));
       ТЗ = Запрос.Выполнить().Выбрать();
       
       НаборЗаписей = РегистрыНакопления.Продажи.СоздатьНаборЗаписей();
       
       Пока ТЗ.Следующий() Цикл
           НаборЗаписей.Отбор.Регистратор.Установить(ТЗ.Регистратор);
           НаборЗаписей.Прочитать();
           Если Не ЗначениеЗаполнено(ТЗ.Подразделение) Тогда
               Для Каждого ТекЗапись Из НаборЗаписей Цикл
                   ТекЗапись.Подразделение  = Подразделение;
               КонецЦикла;
               НаборЗаписей.Записать();
           КонецЕсли;
           
       КонецЦикла;

(36) Ой, спасибо тебе друг!)