Связь документа и регистра сведений

Движение по документу Принятие к учету НМА

// Процедура формирования движений по регистру Способы отражения расходов по амортизации НМА (бухгалтерский учет)
//
Процедура ДвижениеПоРегиструСчетовУчетаНМАБух( ТабНМА, СтруктураШапкиДокумента)

    НаборДвижений   = Движения.СчетаУчетаНМА;
    ТаблицаДвижений = НаборДвижений.Выгрузить();

    Для Каждого СтрокаНМА Из ТабНМА Цикл

        НоваяСтрока = ТаблицаДвижений.Добавить();
        НоваяСтрока.Период              = Дата;
        НоваяСтрока.НематериальныйАктив = СтрокаНМА.НематериальныйАктив;
        НоваяСтрока.Организация         = СтруктураШапкиДокумента.Организация;
        НоваяСтрока.СчетУчетаБУ                   = СтрокаНМА.СчетУчетаБУ;
        НоваяСтрока.СчетНачисленияАмортизацииБУ = СтрокаНМА.СчетНачисленияАмортизацииБУ;

    КонецЦикла;

    НаборДвижений.Загрузить(ТаблицаДвижений);
    НаборДвижений.УстановитьАктивность(Истина);

КонецПроцедуры // ДвижениеПоРегиструСпособыОтраженияБух()

Движение по документу Поступление НМА

// Формирование проводок
    // Проводки по поступлению товаров, тары и услуг.
    ДатаДока   = СтруктураШапкиДокумента.Дата;

    // "СуммаВключаетНДС" будет ИСТИНА, так как сумма документа действительно включает НДС, несмотря на установку в договоре. Здесь не расчет НДС, а зачет аванса
    ТаблицаАвансов = УправлениеВзаиморасчетами.ЗачетАванса(ЭтотОбъект,СтруктураШапкиДокумента, Истина, мВалютаРегламентированногоУчета, Новый Структура ("ТаблицаПоНМА",ТаблицаПоНМА), Отказ,Заголовок,"НА");
    ПроводкиБУ = Движения.Типовой;


    //    НаборДвижений   = Движения.СчетаУчетаНМА;
    //    ТаблицаДвижений = НаборДвижений.Выгрузить();   //Zofa

    //
    //// Проводки по поступлению НМА
    Для каждого СтрокаТаблицы Из ТаблицаПоНМА Цикл
        //НоваяСтрока = ТаблицаДвижений.Добавить();
        //НоваяСтрока = СтрокаТаблицы.Номенклатура;
        //НоваяСтрока.СчетУчетаБУ         = СтрокаТаблицы.СчетУчетаБУ;
        //НоваяСтрока = СчетНачисленияАмортизацииБУ;   //Zofa


        Проводка = ПроводкиБУ.Добавить();
        Проводка.Период         = Дата;
        Проводка.Организация    = СтруктураШапкиДокумента.Организация;
        Проводка.Содержание     = "Поступление НМА";
        Проводка.НомерЖурнала   = "НА";

        Проводка.СчетДт         = СтрокаТаблицы.СчетУчетаБУ;
        БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "НематериальныеАктивы", СтрокаТаблицы.Номенклатура);


        Проводка.СчетКт         = СтруктураШапкиДокумента.СчетУчетаРасчетовСКонтрагентом;
        БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Контрагенты",        СтруктураШапкиДокумента.Контрагент, Истина);
        БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Договоры",           СтруктураШапкиДокумента.ДоговорКонтрагента);
        БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"ДокументыРасчетовСКонтрагентами", СтруктураШапкиДокумента.Ссылка);

        //Проводка.СчетДт         = СтрокаТаблицы.СчетУчетаБУ;
        //БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "НематериальныеАктивы", СтрокаТаблицы.Номенклатура);   //Zofa

        //Проводка.СчетКт = СтруктураШапкиДокумента.СчетНачисленияАмортизацииБУ;
        //БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Нематериальные активы", ПланыСчетов.Типовой.АмортизацияПрограммноеОбеспечение);   //Zofa
        Проводка.Сумма = СтрокаТаблицы.Сумма;

        Если СтруктураШапкиДокумента.СчетУчетаРасчетовСКонтрагентом.Валютный Тогда
            Проводка.ВалютаКт        = СтруктураШапкиДокумента.ВалютаВзаиморасчетов;
            Проводка.ВалютнаяСуммаКт = СтрокаТаблицы.СуммаВал;
        КонецЕсли;

        // Проводка по НДС
        Если СтруктураШапкиДокумента.УчитыватьНДС И СтрокаТаблицы.НДС > 0 Тогда

            Проводка = ПроводкиБУ.Добавить();

            Проводка.Период       = Дата;
            Проводка.Организация  = СтруктураШапкиДокумента.Организация;
            Проводка.Сумма        = СтрокаТаблицы.НДС;
            Проводка.Содержание   = "Выделен НДС";

            Проводка.СчетДт       = СтрокаТаблицы.СчетУчетаНДС;

            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,"НалогиСборыОтчисления", Справочники.НалогиСборыОтчисления.НалогНаДобавленнуюСтоимость);
            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,"ВидыПлатежейВБюджет", Перечисления.ВидыПлатежейВБюджет.Налог);

            Проводка.СчетКт       = СтруктураШапкиДокумента.СчетУчетаРасчетовСКонтрагентом;
            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Контрагенты",        СтруктураШапкиДокумента.Контрагент);
            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Договоры",           СтруктураШапкиДокумента.ДоговорКонтрагента);
            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"ДокументыРасчетовСКонтрагентами",           СтруктураШапкиДокумента.Ссылка);

            Если СтруктураШапкиДокумента.СчетУчетаРасчетовСКонтрагентом.Валютный Тогда

                Проводка.ВалютаКт = СтруктураШапкиДокумента.ВалютаВзаиморасчетов;
                Проводка.ВалютнаяСуммаКт = СтрокаТаблицы.НДСВал;

            КонецЕсли;

        КонецЕсли; // Проводка по НДС

    //          НаборДвижений   = Движения.СчетаУчетаНМА;
    //    ТаблицаДвижений = НаборДвижений.Выгрузить();   //Zofa

    //
    //// Проводки по поступлению НМА

    //    НоваяСтрока = ТаблицаДвижений.Добавить();
    //    НоваяСтрока = СтрокаТаблицы.Номенклатура;
    //    НоваяСтрока.СчетУчетаБУ         = СтрокаТаблицы.СчетУчетаБУ;
    //    НоваяСтрока.СчетНачисленияАмортизацииБУ = СтрокаТаблицы.СчетНачисленияАмортизацииБУ;   //Zofa228

        //
        // Движения по регистру СостоянияНМАОрганизаций
        Движение = Движения.СостоянияНМАОрганизаций.Добавить();
        Движение.Период               = Дата;
        Движение.НематериальныйАктив  = СтрокаТаблицы.Номенклатура;
        Движение.Организация          = Организация;
        Движение.Состояние            = Перечисления.ВидыСостоянийНМА.Поступил;

        //Движение по регистру  СчетаУчетаНМА
        Движение = Движения.СчетаУчетаНМА.Добавить();
        Движение.Период               = Дата;
        Движение.НематериальныйАктив  = СтрокаТаблицы.Номенклатура;
        Движение.Организация          = Организация;
        Движение.СчетУчетаБУ          = СтрокаТаблицы.СчетУчетаБУ;