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

Отчеты - Анализ учета

25
Небольшой отчет по амортизации ОС для Бух 7.7. Расширенная версия.
За основу взят отчет с http://infostart.ru/projects/2244/.
Добавил некоторые возможности детализации и отбор по МОЛ.
Т.к. это мой первый опыт выкладывания чего-либо для общего пользования и на Суд Опытных Проггеров,
прошу быть снисходительными.

Небольшой отчет по амортизации ОС для Бух 7.7. Расширенная версия.
За основу взят отчет с //infostart.ru/projects/2244/.
Добавил некоторые возможности детализации и отбор по МОЛ.
Т.к. это мой первый опыт выкладывания чего-либо для общего пользования и на Суд Опытных Проггеров,
прошу быть снисходительными.
Отдельная благодарность автору исходника.

25

Скачать файлы

Наименование Файл Версия Размер
AmortOS
.1248367962 59,00Kb
25.11.09
278
.1248367962 59,00Kb 278 Скачать

См. также

Комментарии
Сортировка: Древо
1. volna 24.07.09 10:19 Сейчас в теме
Спасибо за отчет. Удобен для ОС с остаточной стоимосью которых равна нулю.
2. Malahovskay 24.07.09 15:23 Сейчас в теме
Спасибо,очень пригодился отчет.Было бы хорошо,чтобы можно было делать отбор по нескольким (по-выбору) ОС.
3. Mortal 80 24.07.09 22:47 Сейчас в теме
(2)Сделать-то можно, конечно, только отрабатывать существенно дольше будет :(
4. rasswet 82 29.07.09 12:48 Сейчас в теме
работает! код не смотрел, но оки. у нас этих отчетов по ос уже штук 5ть. будет ещё один))
единственное..если в базе одна организация может нет смысла в столбце Организация? выводить в шапку и всё.
5. Mortal 80 30.07.09 13:31 Сейчас в теме
(4) "Странную" колонку Организация просила сделать наша гл.Бух. Видимо на распечатках ей так удобней. :)
6. rasswet 82 30.07.09 22:26 Сейчас в теме
если в отчете не могут быть ОС разных организаций вперемешку, то организацию логичнее вынести в шапку..
7. viacht 12 31.07.09 10:04 Сейчас в теме
В украинском ПУБе выдал следующее:
Расшифровка.Установить("РазделительУчета", БухИтоги<<?>>.ИспользоватьРазделительУчета());
{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)}: Обнаружено логическое завершение исходного текста модуля
8. Mortal 80 31.07.09 10:44 Сейчас в теме
(7) Обработка писалась для Бухгалтерии 77. Причем российской. Модули украинских программ я даже и не видел. Посему извиняйте :)
9. ЕЮИ 16.08.09 21:48 Сейчас в теме
10. Mortal 80 17.08.09 16:35 Сейчас в теме
(9) рад, что кому-то пригодилось :)
11. shashko 05.08.11 14:47 Сейчас в теме
А нельзя ли чтоб по графе "начислено в тек. месяце" (предпоследний столбик) тоже итоги подсчитывались?
12. rvp-77 20.10.11 16:27 Сейчас в теме
13. AlekseiLeit 9 14.11.11 17:06 Сейчас в теме
14. bol 7 31.01.12 09:10 Сейчас в теме
БИ.ВыполнитьЗапрос(ДатаКон,КонДата,"01.1,02.1"), а мне надо отчет по 001 счету(Арендованные ОС)!Помогите!
15. vovkakursk 16.02.12 12:41 Сейчас в теме
Оставьте свое сообщение