Имя: Пароль:
1C
1С v8
КД. Изменение набора движений после загрузки.
0 Sh1neOne
 
08.12.16
18:47
Здравствуйте. Подскажите пожалуйста, как изменить движения регистра бухгалтерии по документу Операции, после загрузки данных. Я пробовал вот так:
<Code>
НаборЗаписейРегистра = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписейРегистра.Отбор.Регистратор.Установить(Ссылка);
НаборЗаписейРегистра.Прочитать();
Для каждого Стр Из НаборЗаписейРегистра Цикл
    Если стр.СчетДт=ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда  тогда
        Стр.СубконтоДт.РаботникиОрганизации=Справочники.ФизическиеЛица.ПустаяСсылка();
        
    ИначеЕсли стр.СчетКТ=ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда  тогда
        Стр.СубконтоКт.РаботникиОрганизации=Справочники.ФизическиеЛица.ПустаяСсылка();
        
    КонецЕсли;
КонецЦикла;
НаборЗаписейРегистра.Записать(); </Code>
Выгружает-Загружает но всё остается без изменений
1 Franchiser
 
гуру
08.12.16
22:48
НаборЗаписейРегистра.Записывать = Истина;
2 Sh1neOne
 
09.12.16
09:34
(1) Не помогло. Если просто создать внешнюю обработку, то всё нормально, а через КД не в какую
3 Sh1neOne
 
09.12.16
10:14
up
4 Cyberhawk
 
09.12.16
10:27
Попробуй обойти набор из коллекции движений твоего регистратора, а не независимый. Ну и про Записывать = Истина не забывай.
5 Cyberhawk
 
09.12.16
10:28
Ну и у тебя возможно стоит флажок у обработки загрузки "Оптимизированная запись объектов", сними его
6 Sh1neOne
 
09.12.16
10:54
(4) не очень понял, я же делаю отбор по регистратору и обхожу его движения
(5) не помогло, к сожалению
7 Sh1neOne
 
09.12.16
11:17
Разобрался, всем спасибо. Сделал так:
Для каждого Стр из Объект.Движения.Хозрасчетный Цикл
      Если стр.СчетДт=ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда  тогда
        Стр.СубконтоДт.РаботникиОрганизации=Справочники.ФизическиеЛица.ПустаяСсылка();
    КонецЕсли;    
    Если стр.СчетКТ=ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда  тогда
        Стр.СубконтоКт.РаботникиОрганизации=Справочники.ФизическиеЛица.ПустаяСсылка();
        
    КонецЕсли;
КонецЦикла;
8 Cyberhawk
 
09.12.16
12:02
(7) Молодец, сумел воспользоваться советом
9 Sh1neOne
 
09.12.16
17:21
(8) Спасибо =)
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс