Закрытие месяца

и куда здесь пихать код?
Процедура ДвиженияПоРегистрам(СтруктураШапкиДокумента, Отказ, Заголовок)

    мПредприниматель = (Организация.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо) И НЕ мПрименениеУСН;

    СтруктураДопПараметров = Новый Структура;

    Если  СтруктураШапкиДокумента.РасчетСтоимостиПродукцииБУ Или СтруктураШапкиДокумента.РасчетСтоимостиПродукцииНУ Или СтруктураШапкиДокумента.КорректировкаСтоимостиНоменклатурыБУ Или СтруктураШапкиДокумента.КорректировкаСтоимостиНоменклатурыНУ Тогда
        СтруктураДопПараметров.Вставить("СпособРасчетаСебестоимостиПроизводства", "");
        СтруктураДопПараметров.Вставить("РасчетПрямыхЗатратНомер", "");

        ЗаписьРасчетаСебестоимости = Движения.РасчетСебестоимостиПродукции.ВыгрузитьКолонки();
        СтруктураДопПараметров.Вставить("ЗаписьРасчетаСебестоимости", ЗаписьРасчетаСебестоимости);

        ЗаписьРасчетаРаспределенияКосвенныхРасходов = Движения.РасчетРаспределенияКосвенныхРасходов.ВыгрузитьКолонки();
        СтруктураДопПараметров.Вставить("ЗаписьРасчетаКосвенныхРасходов", ЗаписьРасчетаРаспределенияКосвенныхРасходов);
    КонецЕсли;

    Если  СтруктураШапкиДокумента.ЗакрытиеСчета44ИныеРасходыБУ Или
        СтруктураШапкиДокумента.ЗакрытиеСчета44ИныеРасходыНУ Или
        СтруктураШапкиДокумента.РасчетСтоимостиПродукцииБУ Или
        СтруктураШапкиДокумента.РасчетСтоимостиПродукцииНУ Тогда

        ЗаписьСписанияКосвенныхРасходов = Движения.РасчетСписанияКосвенныхРасходов.ВыгрузитьКолонки();
        СтруктураДопПараметров.Вставить("ЗаписьСписанияКосвенныхРасходов", ЗаписьСписанияКосвенныхРасходов);

        ЗаписьНормированияРасходов = Движения.РасчетНормированияРасходов.ВыгрузитьКолонки();
        СтруктураДопПараметров.Вставить("ЗаписьНормированияРасходов", ЗаписьНормированияРасходов);
    КонецЕсли;

    Если СтруктураШапкиДокумента.СписаниеРБПБУ Или
        СтруктураШапкиДокумента.СписаниеРБПНУ  Тогда

        ЗаписьРасчетаРБП = Движения.РасчетСписанияРБП.Выгрузить();
        ЗаписьРасчетаРБП.Очистить();
    КонецЕсли;

    // АМОРТИЗАЦИЯ
    // Начисление амортизации ОС
    НачислениеАмортизацииОС(СтруктураШапкиДокумента, Отказ, Заголовок);
    // Начисление износа ОС
    НачислениеИзносаОС(СтруктураШапкиДокумента, Отказ, Заголовок);
    // Начисление амортизации НМА и списание расходов по НИОКР
    НачислениеАмортизацииНМА_НИОКР(СтруктураШапкиДокумента, Отказ, Заголовок);
    // Погашение стоимости спецодежды и спецоснастки
    ПогашениеСтоимостиСпецодеждыИСпецоснастки(СтруктураШапкиДокумента, Отказ, Заголовок);


    // ПЕРЕОЦЕНКА
    ПереоценкаПоСубконто(СтруктураШапкиДокумента, Отказ, Заголовок);

    //СтруктураШапкиДокумента.ПереоценкаВалютныхСредствНУ2 = Ложь;
    ПереоценкаВалютныхСредств(СтруктураШапкиДокумента, Отказ, Заголовок);

    Если СтруктураШапкиДокумента.Дата >= '20070101' Тогда
        ПереоценкаРасчетовВУсловныхЕдиницах(СтруктураШапкиДокумента, Отказ, Заголовок);
    КонецЕсли;

    // КОРРЕКТИРОВКА СТОИМОСТИ НОМЕНКЛАТУРЫ
    КорректировкаСтоимостиНоменклатуры(СтруктураШапкиДокумента, СтруктураДопПараметров, Отказ, Заголовок);

    ////СПИСАНИЕ КУРСОВЫХ РАЗНИЦ
    //СписаниеПереоценки(СтруктураШапкиДокумента, Отказ, Заголовок);

    // СПИСАНИЕ РАСХОДОВ БУДУЩИХ ПЕРИОДОВ
    СписаниеРБП(СтруктураШапкиДокумента, Отказ, Заголовок);

    // ПРОИЗВОДСТВО
    РасчетСебестоимостиПродукции(СтруктураШапкиДокумента, СтруктураДопПараметров, Отказ, Заголовок);

    // ТОРГОВЛЯ
    РасчетТорговойНаценкиПоПроданнымТоварам(СтруктураШапкиДокумента, Отказ, Заголовок);

    //ЗАКРЫТИЕ 44 СЧЕТА

    СписаниеТранспортныхРасходов(СтруктураШапкиДокумента, Отказ, Заголовок);

    СписаниеПроцентовПоКредитам(СтруктураШапкиДокумента, Отказ, Заголовок);

    //Закрытие иных расходов (не транспортных)
    ЗакрытиеСчета44(СтруктураШапкиДокумента, СтруктураДопПараметров, Отказ, Заголовок);

    //СПИСАНИЕ КУРСОВЫХ РАЗНИЦ
    СписаниеПереоценки(СтруктураШапкиДокумента, Отказ, Заголовок);


    // Погашение стоимости временных сооружений
    ПогашениеСтоимостиВременныхСооружений(СтруктураШапкиДокумента, Отказ, Заголовок);


    //Если СтруктураШапкиДокумента.РасчетСтоимостиПродукцииНу  Тогда
    //
    //
    //    Если мУчетнаяПолитика["МоментОпределенияНалоговойБазыНДС"] = Перечисления.МоментыОпределенияНалоговойБазыНДС.ПоОплате
    //        //И НЕ мУчетнаяПолитика["СпособОценкиМПЗ"] = Перечисления.СпособыОценки.ПоСредней
    //        Тогда
    //
    //        КорректировкаСтоимостиПеремещенияДляГотовойПродукции(мНачДата, мКонДата,СтруктураДопПараметров, "Нал");
    //
    //        КорректировкаВыпускаУслуг(мНачДата, мКонДата,СтруктураДопПараметров, "Нал");
    //        КорректировкаСтоимостиСписанияГотовойПродукцииУслуг(мНачДата, мКонДата, СтруктураДопПараметров,"Нал")
    //    КонецЕсли;
    //
    //КонецЕсли;




    // Определение финансовых результатов
    ЗакрытиеСчета90(СтруктураШапкиДокумента, Отказ, Заголовок);

    ЗакрытиеСчета91(СтруктураШапкиДокумента, Отказ, Заголовок);

    ЗакрытиеСчета92(СтруктураШапкиДокумента, Отказ, Заголовок);

    ЗакрытиеСчетаН90(СтруктураШапкиДокумента, Отказ, Заголовок);

    ЗакрытиеСчетаН91(СтруктураШапкиДокумента, СтруктураДопПараметров, Отказ, Заголовок);

    ЗакрытиеСчетаН92(СтруктураШапкиДокумента, Отказ, Заголовок);

    СписаниеУбытковПрошлыхЛет(СтруктураШапкиДокумента, Отказ, Заголовок);

    // Расчет амортизационного фонда ОС
    РасчетАмортизационногоФондаОС(СтруктураШапкиДокумента, Отказ, Заголовок);

    // Расчет амортизационного фонда НМА
    РасчетАмортизационногоФондаНМА(СтруктураШапкиДокумента, Отказ, Заголовок);



    // РЕГЛАМЕНТНЫЕ ОПЕРАЦИИ ПО УСН
    //
    //Если СтруктураШапкиДокумента.ОтражатьВНалоговомУчетеУСН Тогда
    //
    //    УчестьОстаткиНЗПприУСН(СтруктураШапкиДокумента, Отказ, Заголовок);
    //
    //    ПризнаниеРасходовНаПриобретениеОСУСН(СтруктураШапкиДокумента, Отказ, Заголовок);
    //
    //    ПризнаниеРасходовНаПриобретениеНМАУСН(СтруктураШапкиДокумента, Отказ, Заголовок);
    //
    //    СписаниеДопРасходовУСН(СтруктураШапкиДокумента, Отказ, Заголовок);
    //
    //    РаспределениеРасходовЕНВДУСН(СтруктураШапкиДокумента, Отказ, Заголовок);
    //
    //КонецЕсли;

    // РЕГЛАМЕНТНЫЕ ОПЕРАЦИИ ПБУ 18

    Если НЕ мПредприниматель Тогда
        //Если мПоддержкаПБУ18 Тогда
        //    РасчетПостоянныхРазниц(СтруктураШапкиДокумента, Отказ, Заголовок);
        //
        //    РасчетВременныхРазниц(СтруктураШапкиДокумента, Отказ, Заголовок);
        //
        //    РасчетНалогаНаПрибыль(СтруктураШапкиДокумента, Отказ, Заголовок);
        //Иначе
        РасчетНалогаНаПрибыльБезПоддержкиПБУ18(СтруктураШапкиДокумента, Отказ, Заголовок);
        //КонецЕсли;

        ЗакрытиеСчетовНУ(СтруктураШапкиДокумента, Отказ, Заголовок);
    КонецЕсли;

    ПроведениеРеформацииБаланса(СтруктураШапкиДокумента, Отказ, Заголовок);

    Если НачалоДня(СтруктураШапкиДокумента.Дата) = '20061231' Тогда
        ПереоценкаРасчетовВУсловныхЕдиницах(СтруктураШапкиДокумента, Отказ, Заголовок);
    КонецЕсли;

    // Регламентные операции индивидуального предпринимателя
    ИПРаспределениеРасходов(СтруктураШапкиДокумента, Отказ, Заголовок);

    // Формирование расшифровки
    Если СтруктураШапкиДокумента.РасчетСтоимостиПродукцииНУ И НЕ мПредприниматель Или
        СтруктураШапкиДокумента.ЗакрытиеСчета44ИныеРасходыНУ И НЕ мПредприниматель Тогда
        ЗаписьВВспомогательныеРегистрыСведений(СтруктураШапкиДокумента,
        СтруктураДопПараметров.ЗаписьНормированияРасходов,
        РегистрыСведений.РасчетНормированияРасходов,
        "Организация,ПериодРасчета,Активность,Регистратор,ВидОперации,СуммаБазы",
        "РасходыМесяц,РазницыМесяц,ЗатратыГод,РасходыГод,РазницыГод");
    КонецЕсли;

    Если СтруктураШапкиДокумента.РасчетСтоимостиПродукцииБУ Или
        СтруктураШапкиДокумента.ЗакрытиеСчета44ИныеРасходыБУ Или
        СтруктураШапкиДокумента.ЗакрытиеСчета44ИныеРасходыНУ И НЕ мПредприниматель Или
        СтруктураШапкиДокумента.РасчетСтоимостиПродукцииНУ И НЕ мПредприниматель Тогда

        ЗаписьВВспомогательныеРегистрыСведений(СтруктураШапкиДокумента,
        СтруктураДопПараметров.ЗаписьСписанияКосвенныхРасходов,
        РегистрыСведений.РасчетСписанияКосвенныхРасходов,
        "Организация,ПериодРасчета,Активность,Регистратор,СчетУчета,КорСчет,НоменклатурнаяГруппа,СтатьяЗатрат,ВидУчета,ОтнесениеРасходовКДеятельностиЕНВД",
        "СуммаЗатрат,СуммаННП,СуммаНеННП");
    КонецЕсли;

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