(ПервСтоимость-ЛиквидСтоимость)/СрокИспользования
, где
ПервСтоимость -- первоначальная стоимость (сальдо по дебету счета учета) ОС без учета начисленного износа;
ЛиквидСтоимость -- ликвидационная стоимость (как задана в карточке ОС);
СрокИспользования -- срок использования (как задан в карточке ОС).
Такой расчет ошибочен в случае, если с 01.04.11 для ОС был изменен метод начисления амортизации с налогового на прямолинейный. Согласно утверждениям моих клиентов (бухгалтеров) и консультациям в бухгалтерских изданиях начисляемая за апрель 2011 (и последующие месяцы) сумма износа в БУ должна быть равной начисляемой сумме износа в НУ. Для изменения алгоритма расчета можно изменить модуль документа НачислениеИзноса следующим образом:
1. Добавить две процедуры в начале модуля:
// Добавлено 5_копеек (начало)
//*********************************************************************
Функция КонтрольИзмененияМетода(ОС)
Если ОС.ДатаВвода>Дата("01.04.11") Тогда
Возврат 0;
КонецЕсли; // ОС.ДатаВвода
Попытка
СтарМетод=ОС.МетодРасчетаИзноса.Получить(НачМесяца(ДатаНачНУ));
НовМетод=ОС.МетодРасчетаИзноса.Получить(НачМесяца(ДобавитьМесяц(ДатаНачНУ,1)));
Исключение
Метод=СоздатьОбъект("Периодический");
Метод.ИспользоватьОбъект("МетодРасчетаИзноса",ОС);
СтарМетод=Метод.ЗначениеНаДату(НачМесяца(ДатаНачНУ));
НовМетод=Метод.ЗначениеНаДату(НачМесяца(ДобавитьМесяц(ДатаНачНУ,1)));
КонецПопытки;
Если СтарМетод=НовМетод Тогда
Возврат 0;
КонецЕсли; // СтарМетод=НовМетод
Возврат 1;
КонецФункции //ПроверкаИзмененияМетода
//*********************************************************************
Процедура РассчитатьПервСтоимостьБУ(ОС,ПервСтоимостьБУ,СчИзноса,Сч)
СписокСчетов = СоздатьОбъект("СписокЗначений");
СписокСчетов.ДобавитьЗначение(Сч);
СписокСчетов.ДобавитьЗначение(СчИзноса);
ИтБУ = СоздатьОбъект("БухгалтерскиеИтоги");
ИтБУ.ИспользоватьРазделительУчета(Фирма);
ИтБУ.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы,ОС); // ОС, НМА
ИтБУ.ВыполнитьЗапрос(НачМесяца(ДатаНачНУ),КонМесяца(ДатаНачНУ),СписокСчетов);
ИтБУ.ВыбратьСубконто(1);
Износ = 0;ПервСтоимость = 0;
Если ИтБУ.ПолучитьСубконто(1) = 1 Тогда
Износ = 0;ПервСтоимость = 0;
Если ИтБУ.ПолучитьСчет(,СчИзноса) = 1 Тогда
Износ = ИтБУ.СКК("С");
КонецЕсли;
Если ИтБУ.ПолучитьСчет(,Сч) = 1 Тогда
ПервСтоимость = ИтБУ.СКД("С");
КонецЕсли;
КонецЕсли;
ПервСтоимостьБУ = ПервСтоимость - Износ;
КонецПроцедуры //РассчитатьПервСтоимостьБУ
// Добавлено 5_копеек (конец)2. Изменить процедуру РассчитатьИзносПоЭлементу(...)
...
Если (ИзношеноПолностью = 0) или (ИзношеноПолностьюНУ = 0) Тогда
//ПрямолинейноеСписание
Если Элемент.МетодРасчетаИзноса = Перечисление.МетодыРасчетаИзноса.ПрямолинейноеСписание Тогда
Если Элемент.СрокИспользования = 0 Тогда
глКомментарий(Строка(Элемент)+": не задан срок полезного использования. Износ не начислен!",0,,"!");
Возврат;
КонецЕсли;
СуммаИзноса = Макс(Окр((ПервСтоимость - ЛиквидационнаяСтоимость)/Элемент.СрокИспользования,2),0);
//налоговый учет
СрокИспользованияНУ = РассчитатьСрокИспользования(Элемент.ДатаВвода,Элемент.СрокИспользования);
// Добавлено 5_копеек (начало)
// бухучет при изменении метода
Если КонтрольИзмененияМетода(Элемент)=1 Тогда
СуммаИзноса=0;
Если (СрокИспользованияНУ<>0) Тогда
СуммаИзноса = Макс(Окр((ПервСтоимость - ЛиквидационнаяСтоимость)/СрокИспользованияНУ,2),0);
КонецЕсли;
КонецЕсли; // КонтрольИзмененияМетода(Элемент)=1
// Добавлено 5_копеек (конец)
СуммаИзносаНУ = 0;
Если (СрокИспользованияНУ<>0) Тогда
СуммаИзносаНУ = Макс(Окр((ПервСтоимостьНУ - ЛиквидационнаяСтоимость)/СрокИспользованияНУ,2),0);
КонецЕсли;
//УменьшениеОстатка
...3. Изменить процедуру РассчитатьИзносПоСчету(...):
...
ОстСтоимость = ПервСтоимость - Износ;
ОстСтоимостьНУ = ПервСтоимостьНУ - ИзносНУ;
Если (Сч = СчетПоКоду("10")) или (Сч = СчетПоКоду("100")) Тогда
ПервКво = 1;
КонецЕсли;
// Добавлено 5_копеек (начало)
Если КонтрольИзмененияМетода(Ит.Субконто(1))=1 Тогда
РассчитатьПервСтоимостьБУ(Ит.Субконто(1),ПервСтоимость,СчИзноса,Сч);
КонецЕсли; // КонтрольИзмененияМетода(Ит.Субконто(1))=1
// Добавлено 5_копеек (конец)
РассчитатьИзносПоЭлементу(Ит.Субконто(1),ПервСтоимость,ПервКво,ОстСтоимость,СчИзноса,Сч,ПервСтоимостьНУ,ОстСтоимость
НУ,СчИзносаНУ,СчНУ);
...Рассматривался частный случай, поэтому на универсальность решение не претендует. Если есть возражения, дополнения или обнаружены ошибки, прошу комментировать.
____
добавлена проверка на ненулевое значение
