Процедура ПроводкиШапка()
ОстСтоимостьНУ = 0;
Для НомерГруппы = 1 По 4 Цикл
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(Фирма);
СчетГруппы = "ОС."+НомерГруппы;
Ит.ИспользоватьСубконто(ВидыСубконто.НалогиОтчисления);
Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,СчетГруппы);
//Возьмем остатки в целом по группе
ОстСтоимостьГруппы = Ит.СНД("С");
ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимостьГруппы;
КонецЦикла;
// НМА
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(Фирма);
Ит.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы);
Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,"НА.1,НА.2");
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
тПервСтоимость = 0;
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.1")) = 1 Тогда
тПервСтоимость = Ит.СНД("С");
КонецЕсли;
ОстСтоимость = тПервСтоимость;
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.2")) = 1 Тогда
ОстСтоимость = тПервСтоимость - Ит.СНК("С");
КонецЕсли;
ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимость;
КонецЦикла;
РазницаБУНУ = Итог("ОстаточнаяСтоимостьБУ") - ОстСтоимостьНУ;
СчетНУ = "Н" + НеобАктивРазница.Счет;
глПровНУ(Контекст,СчетНУ,,,"Разница НУ корр. остат. необ. активов",, МестоХраненияРазн,НеобАктивРазница,,
,,, ,,"НА",РазницаБУНУ);
КонецПроцедуры
Исправляем ошибку в документе Корректировка Остатков ОС В связи с вступлением норм НК (конфигурация 287 Бухгалтерии для Украины)
Задачи пользователя - Адаптация типовых решений
В сообщении - текст измененной процедуры модуля документа. (Если кому интересно - ошибка связана с использованием имени реквизита табличной части ПервСтоимость в модуле документа).
См. также
Универсальные обработки документов и справочников для 1С: Предприятие 7.7
1 стартмани
23.11.2016 38268 212 SanchoD 15
Выводим из suspect базу 1С 7.7 на sql server 2000, а также "Перемещение баз данных SQL Server в новое местоположение с помощью операций Detach и Attach"
1 стартмани
08.11.2016 22795 ksnik 5
Ошибка в регламентированной отчетности за 2-й квартал (форма-4 ФСС: Титульный лист, релиз 13q2001)
1 стартмани
27.06.2013 18083 18 user77 8
1Cv77. Исправление поведения множественного фильтра (МФ) типовых отчетов в части сохранения/восстановления настроек.
1 стартмани
26.03.2013 16799 7 piloturs 8