Просто удобный отчет по амортизации ОС для Бух 7.7

Спасибо за отчет. Удобен для ОС с остаточной стоимосью которых равна нулю.

Спасибо,очень пригодился отчет.Было бы хорошо,чтобы можно было делать отбор по нескольким (по-выбору) ОС.

работает! код не смотрел, но оки. у нас этих отчетов по ос уже штук 5ть. будет ещё один))
единственное..если в базе одна организация может нет смысла в столбце Организация? выводить в шапку и всё.

если в отчете не могут быть ОС разных организаций вперемешку, то организацию логичнее вынести в шапку..

В украинском ПУБе выдал следующее:
Расшифровка.Установить("РазделительУчета", БухИтоги<<?>>.ИспользоватьРазделительУчета());
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(97)}: Переменная не определена (БухИтоги)
Расшифровка.Установить("РазделительУчета", БухИтоги.ИспользоватьРазделительУчета()<<?>>);
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(97)}: Неопознанный оператор
Расшифровка.Установить("РазделительУчета", БухИтоги.ИспользоватьРазделительУчета())<<?>>;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(97)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
БИ<<?>>.ВыбратьСубконто(1,0,0,0,0,"Группа",0);
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(105)}: Переменная не определена (БИ)
Пока БИ<<?>>.ПолучитьСубконто(1,0,) = 1 Цикл
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(106)}: Переменная не определена (БИ)
Если БИ<<?>>.Субконто().ЭтоГруппа() = 0 Тогда
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(107)}: Переменная не определена (БИ)
Если ((ГруппыОС.Выбран() = 0) или (БИ<<?>>.Субконто().Группа = ГруппыОС)) Тогда
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(108)}: Переменная не определена (БИ)
Результат<<?>>.НоваяСтрока();
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(109)}: Переменная не определена (Результат)
Результат<<?>>.ГруппыОС = БИ.Субконто().Группа;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(110)}: Переменная не определена (Результат)
Результат<<?>>.ОС = БИ.Субконто();
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(111)}: Переменная не определена (Результат)
Результат<<?>>.кАмортизация = 0;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(114)}: Переменная не определена (Результат)
БИ<<?>>.ВыбратьСчета(-1,0,1,0);
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(115)}: Переменная не определена (БИ)
Если БИ<<?>>.ПолучитьСчет(1,Сч01_1) = 1 Тогда
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(116)}: Переменная не определена (БИ)
нБаланс = БИ<<?>>.СНД();
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(118)}: Переменная не определена (БИ)
Результат<<?>>.нБаланс = нБаланс;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(123)}: Переменная не определена (Результат)
Если Результат<<?>>.ОС.ПодлежитАмортизации =1 Тогда //начисление износа
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(125)}: Переменная не определена (Результат)
Если БИ<<?>>.ПолучитьСчет(1,Сч02_1) = 1 Тогда
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(127)}: Переменная не определена (БИ)
Результат<<?>>.кАмортизация = БИ.СКК();
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(128)}: Переменная не определена (Результат)
Результат<<?>>.НачАморт=Би.КО();
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(129)}: Переменная не определена (Результат)
Результат<<?>>.ОстаточнаяСтоимость = Результат.нБаланс - Результат.кАмортизация;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(133)}: Переменная не определена (Результат)
Если Результат<<?>>.ОстаточнаяСтоимость > 0 тогда
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(137)}: Переменная не определена (Результат)
Результат<<?>>.УдалитьСтроку(Результат.КоличествоСтрок());
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(138)}: Переменная не определена (Результат)
Если (Результат<<?>>.нБаланс = 0) и (Результат.кАмортизация = 0) тогда
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(142)}: Переменная не определена (Результат)
Результат<<?>>.УдалитьСтроку(Результат.КоличествоСтрок());
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(143)}: Переменная не определена (Результат)
грРезультат.Загрузить(Результат<<?>>);
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(152)}: Переменная не определена (Результат)
Результат<<?>>.ВыбратьСтроки(); //выбираем строки из тз
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(156)}: Переменная не определена (Результат)
Если Результат<<?>>.ПолучитьСтроку() = 0 Тогда
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(157)}: Переменная не определена (Результат)
Возврат<<?>>;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(159)}: Оператор Return (Возврат) не может употребляться вне процедуры или функции
НаименованиеОС = Результат<<?>>.ГруппыОС;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(174)}: Переменная не определена (Результат)
Пока Результат<<?>>.ГруппыОС = грРезультат.ГруппыОС Цикл
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(181)}: Переменная не определена (Результат)
нБалансоваяСтоимость = Результат<<?>>.нБаланс;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(182)}: Переменная не определена (Результат)
кАмортизация = Результат<<?>>.кАмортизация;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(183)}: Переменная не определена (Результат)
ОстаточнаяСтоимость = Результат<<?>>.ОстаточнаяСтоимость;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(184)}: Переменная не определена (Результат)
Расшифровка.Установить("Субконто1", Результат<<?>>.ОС);
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(185)}: Переменная не определена (Результат)
НаименованиеОС = Результат<<?>>.ОС.Наименование;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(194)}: Переменная не определена (Результат)
НаименованиеОСКод = Результат<<?>>.ОС.Код;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(195)}: Переменная не определена (Результат)
СрокПолезногоИспользования = Цел(Результат<<?>>.ОС.СрокПолезногоИспользования.Получить(ДатаКон));
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(196)}: Переменная не определена (Результат)
МОЛ1 = ФИО<<?>>(Результат.ОС.МОЛ.Получить(ДатаКон));
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(197)}: Функция не обнаружена (ФИО)
ДатаВвода = Результат<<?>>.ОС.ДатаВводаВЭксплуатацию;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(198)}: Переменная не определена (Результат)
АмортМес=Результат<<?>>.НачАморт;
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(199)}: Переменная не определена (Результат)
Если СокрЛП(Результат<<?>>.ОС.МОЛ.Получить(ДатаКон)) = СокрЛП(ВыбСотр) Тогда
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(212)}: Переменная не определена (Результат)
ИначеЕсли СокрЛП(Результат<<?>>.ОС.МОЛ.Получить(ДатаКон)) <> СокрЛП(ВыбСотр) Тогда
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(214)}: Переменная не определена (Результат)
Если Результат<<?>>.ПолучитьСтроку() = 0 Тогда
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(218)}: Переменная не определена (Результат)
Т.Показать("Процент начисленной амортизации ОС");<<?>>
{C:\~\РАБОЧИЙ СТОЛ\AMORTIZACIJAOS.ERT(245)}: Обнаружено логическое завершение исходного текста модуля

Здорово! СПАСИБО!

А нельзя ли чтоб по графе "начислено в тек. месяце" (предпоследний столбик) тоже итоги подсчитывались?

Спасибо, хороший отчет

спасибо. пригодилось

БИ.ВыполнитьЗапрос(ДатаКон,КонДата,"01.1,02.1"), а мне надо отчет по 001 счету(Арендованные ОС)!Помогите!

спасибо, хороший отчет!