|   |   | 
| 
 | Почему самописный документ не записывает данные в регистр бухгалтерии? | ☑ | ||
|---|---|---|---|---|
| 0
    
        VID1234 25.07.22✎ 15:29 | 
        Здравствуйте. Подскажите почему программно не формируются проводки в регистр бухгалтерии (БГУ2.0).
 При этом ошибок нет, попытка в исключение не уходит, но смотрю проводки, а их нет! Движения.ЖурналПроводокЕПСБУ.Записывать = Истина; Для Каждого ТекСтрокаКапВложенияДляОтражения Из КапВложенияДляОтражения Цикл Если ТекСтрокаКапВложенияДляОтражения.ВключитьВСтоимостьМЗ Тогда РезультатСРН = ПолучимДанныеИзРегистраНОтложенныйНДС(ТекСтрокаКапВложенияДляОтражения.КапВложение); Если РезультатСРН.Количество() > 0 Тогда Проводка = Движения.ЖурналПроводокЕПСБУ.Добавить(); Проводка.Регистратор = ЭтотОбъект.Ссылка; Проводка.Период = Дата; Проводка.ЖурналОпераций = Справочники.Журналы.НайтиПоКоду("4"); Проводка.Организация = ЭтотОбъект.Организация; Проводка.ИФО = Справочники.ИсточникиФинансовогоОбеспечения.НайтиПоНаименованию("Внебюджет"); Проводка.КФО = РезультатСРН.КФО; Проводка.СчетКт = ПланыСчетов.ЕПСБУ.НайтиПоКоду("210.Р2"); Проводка.КПСКт = РезультатСРН.КПСРасчетов; Проводка.СубконтоКт.Контрагенты = РезультатСРН.Контрагент; Проводка.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.СФПолученные] = РезультатСРН.Регистратор; Проводка.КЭККт = Справочники.КОСГУ.НайтиПоКоду("561"); Проводка.СчетДт = ПланыСчетов.ЕПСБУ.НайтиПоКоду("106.3П"); Проводка.КПСДт = РезультатСРН.КПСРасчетов; Проводка.СубконтоДт.Номенклатура = ТекСтрокаКапВложенияДляОтражения.КапВложение; Проводка.СубконтоДт.ЦМО = РезультатСРН.ЦМО; Проводка.СубконтоДт.ВидыЗатрат = Справочники.ВидыЗатрат.НайтиПоНаименованию("Кап.вложения"); Проводка.КЭКДт = РезультатСРН.КЭК; Проводка.КоличествоДт = ТекСтрокаКапВложенияДляОтражения.Количество; Проводка.Сумма = РезультатСРН.СуммаНДСОстаток; Иначе Сообщить("По кап вложению " + ТекСтрокаКапВложенияДляОтражения.КапВложение.Наименование + " нет данных в регистре накопления ""Отложенный НДС""! Операция прервана!"); Отказ = Истина; КонецЕсли; ИначеЕсли ЗначениеЗаполнено(ТекСтрокаКапВложенияДляОтражения.Счет210_Н2) Тогда ИначеЕсли ЗначениеЗаполнено(ТекСтрокаКапВложенияДляОтражения.Счет210_Р2) Тогда КонецЕсли; КонецЦикла; Если Движения.ЖурналПроводокЕПСБУ.Количество() = КоличествоВТЧ Тогда Попытка Движения.ЖурналПроводокЕПСБУ.Записать(); Исключение Сообщить("Есть ошибка " + ОписаниеОшибки()); КонецПопытки; КонецЕсли; | |||
| 1
    
        1Сергей 25.07.22✎ 15:31 | 
        Документ является регистратором регистра ЖурналПроводокЕПСБУ?     | |||
| 2
    
        VID1234 25.07.22✎ 15:34 | 
        (1) Здравствуйте. Да добавил!     | |||
| 3
    
        VID1234 25.07.22✎ 15:35 | 
        (1) Уже и добавил корректный счет в регистр, а толку нет! Нет записи и все!     | |||
| 4
    
        1Сергей 25.07.22✎ 15:40 | 
        Тогда смотреть отладчиком что вообще происходит     | |||
| 5
    
        unenu 25.07.22✎ 15:40 | 
        Движения.ЖурналПроводокЕПСБУ.Записать();
 Движения.ЖурналПроводокЕПСБУ.Записывать = Истина; | |||
| 6
    
        VID1234 25.07.22✎ 16:00 | 
        (5) Здравствуйте. Это после записи добавить? У меня просто в самом начале, это есть!     | |||
| 7
    
        VID1234 25.07.22✎ 16:07 | 
        Бух операцию сделал, все нормально провелась без вопросов!     | |||
| 8
    
        1Сергей 25.07.22✎ 16:17 | 
        (7) Здравствуйте! Поздравляю     | |||
| 9
    
        VID1234 25.07.22✎ 16:20 | 
        (8) Это я к тому, что операция прошла, но мой документ не делает запись, хотя это возможно, т.е. вопрос открыт!     | |||
| 10
    
        VID1234 25.07.22✎ 16:27 | 
        Все вспомнил, когда делал другой документ, мне подсказали, что нужно в начале указать флаг, что это бухоперация, ЭтотОбъект.ДополнительныеСвойства.ДанныеАвтопроведения.ЭтоБухоперация = Истина; Не знаю, это особенность БГУ или и в других конфигурациях это есть, но в общем теперь все окей. Вопрос закрыт. Всем спасибо!     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |