// ===============================
Процедура ПроводкиШапка()       
    ОстСтоимостьНУ = 0;
    Для НомерГруппы = 1 По 4 Цикл
        Ит = СоздатьОбъект("БухгалтерскиеИтоги");
        Ит.ИспользоватьРазделительУчета(Фирма);
        СчетГруппы = "ОС."+НомерГруппы;
        Ит.ИспользоватьСубконто(ВидыСубконто.НалогиОтчисления);
        // Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,СчетГруппы); // неправильно: НачКвартала(ДатаДок) = 01.01.2011 т.к. ДатаДок=31.03.2011
        Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок+1),,СчетГруппы); // правильно: по сост. на 01.04.2011 (НКУ раздел ХХ, подраздел 4, ст. 6) 
        //Возьмем остатки в целом по группе
        ОстСтоимостьГруппы = Ит.СНД("С");
        ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимостьГруппы;
    КонецЦикла;
    
    // НМА
    Ит = СоздатьОбъект("БухгалтерскиеИтоги");
    Ит.ИспользоватьРазделительУчета(Фирма);
    Ит.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы);
    // Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,"НА.1,НА.2"); // неправильно: НачКвартала(ДатаДок) = 01.01.2011 т.к. ДатаДок=31.03.2011
    Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок+1),,"НА.1,НА.2"); // правильно: по сост. на 01.04.2011 (НКУ раздел ХХ, подраздел 4, ст. 6) 
    Ит.ВыбратьСубконто(1);
    Пока Ит.ПолучитьСубконто(1) = 1 Цикл
        ПервСтоимость = 0;
        Если Ит.ПолучитьСчет(,СчетПоКоду("НА.1")) = 1 Тогда
            ПервСтоимость = Ит.СНД("С");
        КонецЕсли;
        ОстСтоимость = ПервСтоимость;
        Если Ит.ПолучитьСчет(,СчетПоКоду("НА.2")) = 1 Тогда
            ОстСтоимость = ПервСтоимость - Ит.СНК("С");
        КонецЕсли;
        ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимость;
    КонецЦикла; 
    РазницаБУНУ = Итог("ОстаточнаяСтоимостьБУ") -  ОстСтоимостьНУ;
    РазницаБУНУ = ?(РазницаБУНУ < 0, -РазницаБУНУ, 0); // Если остатки в бухучете больше, то ничего допроводить не надо
    СчетНУ = "Н" + НеобАктивРазница.Счет;
    глПровНУ(Контекст,СчетНУ,,,"Разница НУ корр. остат. необ. активов",, МестоХраненияРазн,НеобАктивРазница,,,,, ,,"НА",РазницаБУНУ);
КонецПроцедуры