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