Здравствуйте. Подскажите, пожалуйста, как В БГУ редакция 2.0 поменять движения документа "платежное поручение"?
Имеется документ платежное поручение. При формировании проводок к счету кредита не проставляется дополнительное субконто.
Нужно обработкой проставить в это субконто(СубконтоКт2) значение дополнительной классификации(как привязка к счету,доп классификация-это справочник, он имеет в данном случае единственное значение, его нужно проставить).

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
      НаборЗаписей = РегистрыБухгалтерии.ЖурналПроводокЕПСБУ.СоздатьНаборЗаписей();
      НаборЗаписей.Отбор.Регистратор.Установить(Документ.Ссылка);
      НаборЗаписей.Прочитать();
      Если НаборЗаписей.Количество() = 0 Тогда
         Возврат;
      КонецЕсли;
      Для каждого   Запись  ИЗ НаборЗаписей Цикл
         Заменить = Истина;
         Запись.СубконтоКт2 = //здесь нужно заменить субконтокредита2
        

Подскажите, как обратиться к субконто2 и заполнить его значением?

Обратиться явно.
Запись.СубконтоКт.Договоры = ...

Сделала так,набор записейв отладлчике проверяю-пустой?Кнопка не реагирует никак?!
ВыборкаДетальныеЗаписи = Документы.ПлатежноеПоручение.Выбрать();
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        НаборЗаписей = РегистрыБухгалтерии.ЖурналПроводокЕПСБУ.СоздатьНаборЗаписей();
        НаборЗаписей.Отбор.Регистратор.Установить(Документы.ПлатежноеПоручение);
        НаборЗаписей.Прочитать();
        Если НаборЗаписей.Количество() = 0 Тогда
            Возврат;
        КонецЕсли;
        Для каждого   Запись  ИЗ НаборЗаписей Цикл
        
        Запись.СубконтоКт2 = Справочники.ДополнительнаяБюджетнаяКлассификация.НайтиПоНаименованию("000001: 756/5487");
    НаборЗаписей.Записать();
        КонецЦикла;
        ПолучДок = ВыборкаДетальныеЗаписи.ПолучитьОбъект();
        НаборЗаписей = ПолучДок.Движения.ЖурналПроводокЕПСБУ.
ВыборкаДетальныеЗаписи.Записать();

(2) Перечитай (1) еще раз.

Спасибо за ответ

(2) В БГУ 2.0 же хвастались, что дополнительные субконто и тд можно заполнить не открывая конфигуратор, в пользовательском режиме, не?!

Да, можно и субконто заполнить, и скопировать типовую операцию, и снять её с поддержки и доп аналитику добавить, И все это в режиме 1спредприятия!И к авансовым отчетам теперь не нужно прикреплять документы расхода.
А у меня  очень много документов, в каждый заходить, не вариант. Создаю обработку. Использую набор записей.Форма управляемая ,отбор не могу поставить по регистратору.

НаборЗаписей.Отбор.Регистратор.Установить(ссылка);-ошибка переменная не определена

(6) так надо определить переменную! что непонятного?

Погроммисты блин, либо допилите документ и перепроведите, либо попробуйте подставить реквизит с помощью обработки справочников и документов.

а вот подобные вещи делать никогда не стоит, т.к. при перепроведении документа - проблема вернется.

Скажите, что здесь не так.ошибка не удалось записать "журнал проводок ЕПСБУ"

Проводка 2. Не заполнено субконто кредита Доп. классификация.
Так я и для этого обработку  делаю,чтоб проставить это субконто.!!





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

&НаКлиенте
Процедура Обработать(Команда)
    ОбработатьНаСервере();
КонецПроцедуры

Не помню, метод НайтиСтроки разве можно применять для выборки из запроса?

+(11) Виноват, бегло прочитал код.
Попробуй так:
Проводка.СубконтоКт.ПредопределенноеИмяСубконто = текстрока.ДопКлассификация;

а вообще бывают типовые процедуры установки субконто. В БП например УстановитьСубконто()

Здравствуйте. Снова я к вам обращаюсь.Вернулась к своей обработке(поменять программно движения документа). Как быть,если у некоторых документов допклассификация два раза указывается в проводке, то если два вида кбк, то счет 18 два раза проставляется. По моей обработке проставляется субконто только к первой строчке, а вторая остается пустой!


Для каждого проводка из ДвиженияДокумента Цикл
             Если Проводка.СчетКт = ПланыСЧетов.ЕПСБУ.НайтиПоКоду("18.01") Тогда
                 Если проводка.КПСКт=ВыборкаДетальныеЗаписи.КБКНазначениеПлатежа И проводка.КЭККт=   ВыборкаДетальныеЗаписи.КОСГУНазначениеПлатежа Тогда
                Проводка.СубконтоКт.ДопКлассификация =ВыборкаДетальныеЗаписи.ДопКлассификация
                 КонецЕсли;
            конецесли;
            КонецЦикла;