gifts2017

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

Опубликовал Николай Сенаторов (Mortal) в раздел Отчеты - Анализ учета

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

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

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

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

См. также

Подписаться Добавить вознаграждение

Комментарии

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