День добрый господа.
1С 8.3 Бух
Задача подпиской на событие добавить движения к документу. Ошибок не нет, но и движения тоже не появляются. Код:
Процедура ГС_ПриЗаписиПроводкиПриЗаписи(Источник, Отказ) Экспорт
    Проводки = Источник.Движения.Хозрасчетный;
    
    Проводка = Проводки.Добавить();
    Проводка.Активность      = Истина;
    Проводка.Период      = Источник.Дата;
    Проводка.Организация = Источник.Организация;
    Проводка.Содержание  = НСтр("ru='Оформление кредита: оприходовано залоговое имущество.'",Локализация.КодЯзыкаИнформационнойБазы());
    Проводка.НомерЖурнала = "";
    Проводка.СчетДт  = ПланыСчетов.Хозрасчетный.НайтиПоКоду("061");
    Проводка.КоличествоДт =  1;
    БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "Подразделения" , Справочники.ПодразделенияОрганизаций.НайтиПоРеквизиту("ГС_СтруктураПредприятия",Источник.Подразделение,,Источник.Организация));
    Проводка.Сумма = Источник.ПредметыЗалога.Итог("ОценочнаяСтоимость");
    
    Проводки.Записать(Истина);
КонецПроцедуры



Прошу вас подсказать в чем моя ошибка.

Проводка.СчетДт  = ПланыСчетов.Хозрасчетный.НайтиПоКоду("061");
думаю в этом . Пропиши нормально. ПланыСчетов.хозрасчетный.наименованиеСчета

Сейчас из экзамена на спеца скину код по проводкам

Процедура ОбработкаПроведения(Отказ, Режим)
    ////количество дней в году
    
    КоличествоДнейВГоду=(НачалоГода(дата)-КонецГода(Дата))/(60*60*24);
    КоличествоДнейВМесяце=(НачалоМесяца(Дата)-КонецМесяца(Дата))/(60*60*24);
    
    
    
                        //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    КурсыВалютСрезПоследних.Курс
        |ИЗ
        |    РегистрСведений.КурсыВалют.СрезПоследних(&Дата, Валюта = &ТекВалюта) КАК КурсыВалютСрезПоследних";

    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ТекВалюта", ДоговорЗайма.ВалютаВзаиморасчетов);

    РезультатЗапроса = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
          КурсВалюты=ВыборкаДетальныеЗаписи.Курс;
    КонецЦикла;

    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

    
    
    
    Если ДоговорЗайма.ПроцентПоДоговору>=15  Тогда
         ПроцентЗаймаНУ=15
         Иначе ПроцентЗаймаНУ=ДоговорЗайма.ПроцентПоДоговору
    КонецЕсли;
    
    
    
    ///////////////1-ая часть НачислениеПроцентов////////////////
    Движения.Хозрасчетный.Записывать = Истина;
    Движение = Движения.Хозрасчетный.Добавить();
    Движение.СчетДт = ПланыСчетов.Хозрасчетный.ПрочиеРасходы;
    Движение.СчетКт = ПланыСчетов.Хозрасчетный.ПроцентыПоКраткосрочнымЗаймамВал;
    Движение.Период = Дата;
    Движение.Организация = Организация;
    Движение.ВалютаКт = ДоговорЗайма.ВалютаВзаиморасчетов;
    Движение.Сумма = ДоговорЗайма.СуммаПоДоговору*ДоговорЗайма.ПроцентПоДоговору*КоличествоДнейВМесяце*0.01*КурсВалюты/КоличествоДнейВГоду;
    Движение.ВалютнаяСуммаКт =ДоговорЗайма.СуммаПоДоговору*ДоговорЗайма.ПроцентПоДоговору*КоличествоДнейВМесяце*0.01/КоличествоДнейВГоду;
    Движение.СуммаНУДт = ДоговорЗайма.СуммаПоДоговору*ПроцентЗаймаНУ*КоличествоДнейВМесяце*0.01/КоличествоДнейВГоду;
    Движение.СуммаНУКт =ДоговорЗайма.СуммаПоДоговору*ДоговорЗайма.ПроцентПоДоговору*КоличествоДнейВМесяце*0.01*КурсВалюты/КоличествоДнейВГоду;
    Движение.СуммаПРДт =Движение.СуммаНУКт-Движение.СуммаНУДт;
    Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПрочиеДоходыИРасходы] = Справочники.ПрочиеДоходыИРасходы.НайтиПоКоду("00-000030");
    //Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.РеализуемыеАктивы] = х;
    Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты] = ДоговорЗайма.Владелец;
    Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры] = ДоговорЗайма;

КонецПроцедуры

Движения.Хозрасчетный.Записывать = Истина; так прапвильно в начале
Проводки.Записать(Истина);
КонецПроцедуры а так неправильно

переименуй обработку проведения, затем создай её конструктором движений, затем переименуй обратно. намного облегчишь себе задачу

(1) проверил отладчиком - все определилось и присвоилось
(2) по субконто сделал как в примере Проводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = Справочники.ПодразделенияОрганизаций.НайтиПоРеквизиту("ГС_СтруктураПредприятия",Источник.Подразделение,,Источник.Организация); Тоже все ок

(3) так тоже пробовал, не работает
        Источник.Движения.Хозрасчетный.Записывать = Истина;
        //Источник.Движения.Хозрасчетный.Очистить();    
        Проводки = Источник.Движения.Хозрасчетный;
        
        Проводка = Проводки.Добавить();
        Проводка.Активность      = Истина;
        Проводка.Период      = Источник.Дата;
        Проводка.Организация = Источник.Организация;
        Проводка.Содержание  = НСтр("ru='Оформление кредита: оприходовано залоговое имущество.'",Локализация.КодЯзыкаИнформационнойБазы());
        Проводка.НомерЖурнала = "";
        Проводка.СчетДт  = ПланыСчетов.Хозрасчетный.НайтиПоКоду("061");
        Проводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = Справочники.ПодразделенияОрганизаций.НайтиПоРеквизиту("ГС_СтруктураПредприятия",Источник.Подразделение,,Источник.Организация);
        Проводка.КоличествоДт =  1;
        
        Проводка.Сумма = Источник.ПредметыЗалога.Итог("ОценочнаяСтоимость");
        
        //Проводки.Записать(Истина);

Проводка.СчетДт  = ПланыСчетов.Хозрасчетный.НайтиПоКоду("061"); измените , вам тяжело попробовать ?

(7)Изменил
        Источник.Движения.Хозрасчетный.Записывать = Истина;
        //Источник.Движения.Хозрасчетный.Очистить();    
        Проводки = Источник.Движения.Хозрасчетный;
        
        Проводка = Проводки.Добавить();
        Проводка.Активность      = Истина;
        Проводка.Период      = Источник.Дата;
        Проводка.Организация = Источник.Организация;
        Проводка.Содержание  = НСтр("ru='Оформление кредита: оприходовано залоговое имущество.'",Локализация.КодЯзыкаИнформационнойБазы());
        Проводка.НомерЖурнала = "";
        Проводка.СчетДт = ПланыСчетов.Хозрасчетный.ПолученноеЗалоговоеИмущество;
        Проводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = Справочники.ПодразделенияОрганизаций.НайтиПоРеквизиту("ГС_СтруктураПредприятия",Источник.Подразделение,,Источник.Организация);
        Проводка.КоличествоДт =  1;
        
        Проводка.Сумма = Источник.ПредметыЗалога.Итог("ОценочнаяСтоимость");
        
        //Проводки.Записать(Истина);

Может вопрос лежит в плоскости того что этот код выполняется в подписке на событие?

(9) а может то что ты забыл Регистратор в проводках указывать?
регистр то подчинен Регистротору

Точку останова слабо поставить в общем модуле?

(10) сейчас попробу.
Проводки = Источник.Движения.Хозрасчетный;
Я думал что регистратор автоматом проставится, т.к. Источник это есть документ к которому добавляю движения.

+(10) да и получать существующие проводки лучше через чтение набора записей с отбором по регистратору... ИМХО конечно

(12) с фигали?

(10) неверно.

(12) >> Я думал что регистратор автоматом проставится

верно

(15) - (14)?

Вангую, у ТСа даже код не выполняется.

ВОТ::::::

Проводки.Записать(Истина); - НЕВЕРНО

НАДО:

Проводки.Хозрасчетный.Записать();

(17) лениво ванговать потому вопрос к ТСу - подписка на какое событие завязана? А то мож при записи источника, так ОбработкаПроведения после вроде идет, и весь мудреж из подписки перезатрет

(18) не надо кричать... почему неверно?

(20) опыт. Сталкивался с подобной проблемой.

(8) кстати, вот это должно работать

(21) Синтаксис:

Записать(<Замещать>)

(23) дело не в параметре, а в

Проводки

Проводки.Хозрасчетный

(11) ставил ошибок нет но и движений тоже все заполнялось Кэп.

(24) он Записать делает не КоллекцияДвижений, а набор записей

*лять, я все напутал :)

Вот учел ваши замечания, но безрезультатно:
        Источник.Движения.Хозрасчетный.Записывать = Истина;
        //Источник.Движения.Хозрасчетный.Очистить();    
        Проводки = Источник.Движения.Хозрасчетный;
        
        Проводка = Проводки.Добавить();
        Проводка.Активность      = Истина;
        Проводка.Период      = Источник.Дата;
        Проводка.Регистратор = Источник.Ссылка;
        Проводка.Организация = Источник.Организация;
        Проводка.Содержание  = НСтр("ru='Оформление кредита: оприходовано залоговое имущество.'",Локализация.КодЯзыкаИнформационнойБазы());
        Проводка.НомерЖурнала = "";
        Проводка.СчетДт = ПланыСчетов.Хозрасчетный.ПолученноеЗалоговоеИмущество;
        Проводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = Справочники.ПодразделенияОрганизаций.НайтиПоРеквизиту("ГС_СтруктураПредприятия",Источник.Подразделение,,Источник.Организация);
        Проводка.КоличествоДт =  1;
        
        Проводка.Сумма = Источник.ПредметыЗалога.Итог("ОценочнаяСтоимость");
        
        Проводки.Хозрасчетный.Записать();
        //Проводки.Записать(Истина);

(25) а как смотришь движения?

(28) Источник.Движения.Записать()

тады уж

(28) и на (19) интересен ответ, чьих событие подписку вызывает

ПланыСчетов.Хозрасчетный.ПолученноеЗалоговоеИмущество - забалансовый?

(28) почитай:
При открытии формы нового документа запускается процедура обработки заполнения. Так она начала работать начиная с версии 8.2 В версии 8.1 она запускалась только при вводе на основании.

        Модуль ОбработкаЗаполнения.
        Подписка ОбработкаЗаполнения.

    Далее, при нажатии кнопки проведения запускается следующая последовательность процедур:

        Модуль ОбработкаПроверкиЗаполнения.
        Подписка ОбработкаПроверкиЗаполнения.
        Форма ПередЗаписью.
        Модуль ПередЗаписью.
        Подписка ПередЗаписью.
        Модуль ПриУстановкеНовогоНомера.
        Подписка ПриУстановкеНовогоНомера.
        Модуль ПриЗаписи.
        Подписка ПриЗаписи.
        Модуль ОбработкаПроведения.
        Подписка ОбработкаПроведения.
        Форма ПриЗаписи
        Форма ПослеЗаписи

А теперь сделаем проведение документа без открытия его формы. Например из формы списка:

        Модуль ОбработкаПроверкиЗаполнения.
        Подписка ОбработкаПроверкиЗаполнения.
        Модуль ПередЗаписью.
        Подписка ПередЗаписью.
        Модуль ПриЗаписи.
        Подписка ПриЗаписи.
        Модуль ОбработкаПроведения
        Подписка ОбработкаПроведения.

(30)  {ПланОбмена.ГС_Обмены.МодульОбъекта(492)}: Ошибка при вызове метода контекста (Записать): Ошибка при выполнении обработчика - 'ПриЗаписи': {ОбщийМодуль.ГС_ОбщегоНазначенияСервер.Модуль(1968)}: Поле объекта не обнаружено (Хозрасчетный)

(34) среди регистраторов есть регистр бухгалтерии вообще?

(34) где ты в (30) обнаружил слово "Хозрасчетный"?

(34) и еще раз - откуда подписка вызывается?

(32)да

Вариации с записать не помогли (закоментированые варианты опробованы безрезультатно).        
Источник.Движения.Хозрасчетный.Записывать = Истина;
        //Источник.Движения.Хозрасчетный.Очистить();    
        Проводки = Источник.Движения.Хозрасчетный;
        
        Проводка = Проводки.Добавить();
        Проводка.Активность      = Истина;
        Проводка.Период      = Источник.Дата;
        Проводка.Регистратор = Источник.Ссылка;
        Проводка.Организация = Источник.Организация;
        Проводка.Содержание  = НСтр("ru='Оформление кредита: оприходовано залоговое имущество.'",Локализация.КодЯзыкаИнформационнойБазы());
        Проводка.НомерЖурнала = "";
        Проводка.СчетДт = ПланыСчетов.Хозрасчетный.ПолученноеЗалоговоеИмущество;
        Проводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = Справочники.ПодразделенияОрганизаций.НайтиПоРеквизиту("ГС_СтруктураПредприятия",Источник.Подразделение,,Источник.Организация);
        Проводка.КоличествоДт =  1;
        
        Проводка.Сумма = Источник.ПредметыЗалога.Итог("ОценочнаяСтоимость");
        
        //Проводки.Хозрасчетный.Записать();
        ////Проводки.Записать(Истина);
        Источник.Движения.Записать();

(37) подписка вызывается при миграции документа в базу посредством универсального обмена (написанном кажется на примере Хрусталева).

(40) а если просто провести документ, вызывается обработчик события?

(40) чё?
Процедура ПодпискаНаСобытие1ОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
    Проводки = Источник.Движения.Хозрасчетный;
    Проводки.Записывать = Истина;
    Проводка = Проводки.Добавить();
    Проводка.Активность      = Истина;
    Проводка.Период      = Источник.Дата;
    Проводка.Регистратор = Источник.Ссылка;
    Проводка.Организация = Источник.Организация;
    Проводка.Содержание  = НСтр("ru='Оформление кредита: оприходовано залоговое имущество.'",Локализация.КодЯзыкаИнформационнойБазы());
    Проводка.НомерЖурнала = "";
    Проводка.СчетДт = ПланыСчетов.Хозрасчетный.ПолученноеЗалоговоеИмущество;
    Проводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = Справочники.ПодразделенияОрганизаций.НайтиПоРеквизиту("ГС_СтруктураПредприятия",Источник.Подразделение,,Источник.Организация);
    Проводка.КоличествоДт =  1;
    Проводка.Сумма = Источник.ПредметыЗалога.Итог("ОценочнаяСтоимость");
    Проводки.Записать();
КонецПроцедуры

(41) да у него событие при записи чего то

(41) не могу его провести, долго рассказывать... пока запрещено его проводить в базе приемнике, док выгружается из УТ и в Бух и к нему при залитии нужно поднять проводки.

(42) событие при записи документа, но срабатывает при залитии дока в Бух.

(42) Процедура ГС_ПриЗаписиПроводкиПриЗаписи(Источник, Отказ) Экспорт
        Источник.Движения.Хозрасчетный.Записывать = Истина;
        //Источник.Движения.Хозрасчетный.Очистить();    
        Проводки = Источник.Движения.Хозрасчетный;
        
        Проводка = Проводки.Добавить();
        Проводка.Активность      = Истина;
        Проводка.Период      = Источник.Дата;
        Проводка.Регистратор = Источник.Ссылка;
        Проводка.Организация = Источник.Организация;
        Проводка.Содержание  = НСтр("ru='Оформление кредита: оприходовано залоговое имущество.'",Локализация.КодЯзыкаИнформационнойБазы());
        Проводка.НомерЖурнала = "";
        Проводка.СчетДт = ПланыСчетов.Хозрасчетный.ПолученноеЗалоговоеИмущество;
        Проводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = Справочники.ПодразделенияОрганизаций.НайтиПоРеквизиту("ГС_СтруктураПредприятия",Источник.Подразделение,,Источник.Организация);
        Проводка.КоличествоДт =  1;
        
        Проводка.Сумма = Источник.ПредметыЗалога.Итог("ОценочнаяСтоимость");
        
        //Проводки.Хозрасчетный.Записать();
        ////Проводки.Записать(Истина);
        Источник.Движения.Записать();
КонецПроцедуры

(44) копию слабо сделать?
(45) событие при записи документа, но срабатывает при залитии дока в Бух.

читай вдумчиво (33)

Модуль ПриЗаписи.
Подписка ПриЗаписи.
Модуль ОбработкаПроведения.

и обработкапроведения из модуля документа все заптрет к собачьим

(46) и ваще странновато как то не кажется делать проводки пока док не проводил никто, а если и не станут проводить?

(47) копию не слабо - но все равно не проведется. т.к. доки льются из УТ УпрФормы в Бух ОбычныеФормы, для перепроведения код еще не доточил, да и незачем мне его перепроводить в базе приемнике, он ложится в базу приемник вместе с движениями и нужно добавить проводки и все.

(48) а и не нужно, при миграции движения мигрируют без проведения.

(49) подписку полюбому меняй с ПриЗаписи на ОбработкаПроведения

Подписк должна быть на событие Обработка проведени, и в модуле дока в процедуре Обработка проведения поставьте в конце процедуры Движения.Записать().

(50) че за фигня? если движения выгружаешь то и эту проводку еще в источнике формируй

(47) сейчас почитаю

(53) повторяю база УТ (управление торговлей) где я там тебе проводки сформирую?

(55) не поверишь КД умеет все

(50) /при миграции движения мигрируют без проведения./

откуда беруться проводки там и добавляй еще одну

(51) при миграции док не проводится, поставил точку останова в Процедура ОбработкаПроведения и на ней не остановился.

(58) откуда остальные проводки у доков берешь?

(57) "откуда беруться проводки там и добавляй еще одну" - я их пытаюсь создать в подписке пир залитии дока

(56) там нет хозрасчетного - чем мне КД поможет?

(59) нет их вообще никаких по хозрасчетному... я их пытаюсь сделать...

(52) док не проводится при миграции и в обработку проведения не проваливается...

(63) в обработчике в КД ПослеЗагрузки
Проводки = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Проводки.Отбор.Регистратор.Установить(Объект.Ссылка);
Проводка = Проводки.Добавить();
Проводка.Активность      = Истина;
Проводка.Период      = Источник.Дата;
Проводка.Регистратор = Источник.Ссылка;
Проводка.Организация = Источник.Организация;
Проводка.Содержание  = НСтр("ru='Оформление кредита: оприходовано залоговое имущество.'",Локализация.КодЯзыкаИнформационнойБазы());
Проводка.НомерЖурнала = "";
Проводка.СчетДт = ПланыСчетов.Хозрасчетный.ПолученноеЗалоговоеИмущество;
Проводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = Справочники.ПодразделенияОрганизаций.НайтиПоРеквизиту("ГС_СтруктураПредприятия",Источник.Подразделение,,Источник.Организация);
Проводка.КоличествоДт =  1;
Проводка.Сумма = Источник.ПредметыЗалога.Итог("ОценочнаяСтоимость");
Проводки.Записать();

+(64) тока Источник поменяй на Объект вроде там

Веселая ветка.

Объект - Произвольный - загруженный объект.

Ссылка – Произвольный – ссылка на найденный объект в информационной базе.

ОбъектНайден - Булево. Если значение параметра равно Ложь, то объект не идентифицирован, то есть не найден в информационной базе

(64) интересненько, сейчас попробую

в обработчике в КД ПослеЗагрузки (64) не могу найти где это сделать и как...

Господи, чтож вы делаете...

(69) конвретация данных знаешь?

(69) ну или если правила не сам делал, то пихай код из (64) в твою подписку

(71) конвертация не подходит для этой задачи, долго объяснять почему... но если будешь настаивать то могу но после решения вопроса...

(70) помоги если можешь...

(66) веселая что аж грустно как то...

(74) давай скайп

(75) - (72) не получается?

(76) а скайп то почему? посочувствовать?

(78) а что надо?

логин скайпа
reneclub. точка нужна

(77) конвертация не применяется в данном обмене и правила тоже.

(77) -> (73)

(81) я ж там (72) написал вставь код из (64) в свою подписку
ПС. Кстати а у документа флаг Проведен выставляешь в истина?

(79) ну как то больше для помощи тим вивер подходит

Dmitry1c Спасибо за помощь.