ошибка в программе
Ответьте пожалуйста на следующий вопрос:
1С:Предприятие 8.1 (8.1.13.41)
Бухгалтерия предприятия, редакция 1.6 (1.6.15.6)
При расчете налога на прибыль обнаружена ошибка в самой программе . Ежемесячно сверяли суммы начисленного налога по декларации и анализом счета 68.04.2, также с справкой-расчетом отложенные налоговые активы и обязательства. Пригласили специалиста из обслуживающей ооганизации. Да она подтвердила ошибку и переписала в конфигураторе следующее:
25.06.09 Гармония
Документ ЗакрытиеМесяца МодульОбъекта
Процедура ОтражениеОНАиОНО(ВидАктивовОбязательств, ВременныеРазницы)
Счет09 = ПланыСчетов.Хозрасчетный.ОтложенныеНалоговыеАктивы;
Счет77 = ПланыСчетов.Хозрасчетный.ОтложенныеНалоговыеОбязательства;
СуммаДт09 = ВременныеРазницы.СуммаДт09;
СуммаКт09 = ВременныеРазницы.СуммаКт09;
СуммаДт77 = ВременныеРазницы.СуммаДт77;
СуммаКт77 = ВременныеРазницы.СуммаКт77;
СуммаЕНВД = ВременныеРазницы.СуммаЕНВД;
//Гармония +
// Образование отложенного налогового обязательства
Если СуммаКт77 <> 0 Тогда
СформироватьПроводкиПоНалогуНаПрибыль(СуммаКт77, Счет77, ВидАктивовОбязательств, "К", "Признание отложенного налогового обязательства", СуммаЕНВД);
КонецЕсли;
// Погашение отложенного налогового обязательства
Если СуммаДт77 <> 0 Тогда
СформироватьПроводкиПоНалогуНаПрибыль(СуммаДт77, Счет77, ВидАктивовОбязательств, "Д", "Погашение отложенного налогового обязательства", СуммаЕНВД);
КонецЕсли;
//Гармония -
// Образование отложенного налогового обязательства
Если СуммаДт09 <> 0 Тогда
СформироватьПроводкиПоНалогуНаПрибыль(СуммаДт09, Счет09, ВидАктивовОбязательств, "Д", "Признание отложенного налогового актива", СуммаЕНВД);
КонецЕсли;
// Погашение отложенного налогового обязательства
Если СуммаКт09 <> 0 Тогда
СформироватьПроводкиПоНалогуНаПрибыль(СуммаКт09, Счет09, ВидАктивовОбязательств, "К", "Погашение отложенного налогового актива", СуммаЕНВД);
КонецЕсли;
//Гармония +
//// Образование отложенного налогового обязательства
//Если СуммаКт77 <> 0 Тогда
// СформироватьПроводкиПоНалогуНаПрибыль(СуммаКт77, Счет77, ВидАктивовОбязательств, "К", "Признание отложенного налогового обязательства", СуммаЕНВД);
//КонецЕсли;
//
//// Погашение отложенного налогового обязательства
//Если СуммаДт77 <> 0 Тогда
// СформироватьПроводкиПоНалогуНаПрибыль(СуммаДт77, Счет77, ВидАктивовОбязательств, "Д", "Погашение отложенного налогового обязательства", СуммаЕНВД);
//КонецЕсли;
//Гармония -
КонецПроцедуры
Отчет СправкаРасчетПостоянныхИВременныхРазниц Модуль объекта
Процедура СформироватьСтроку(ВидАктивовИОбязательств, Показатель, Выборка, ОбластьСтрока, ПараметрыОтбора, КоличествоСубконто, ПассивныеСчета)
Строка = ТаблицаАктивовИОбязательств.Добавить();
Строка.Показатель = Показатель;
Строка.ОбластьСтрока= ОбластьСтрока;
Строка.Субконто1 = ?(КоличествоСубконто > 0, Выборка.Субконто1, Неопределено);
Строка.Субконто2 = ?(КоличествоСубконто > 1, Выборка.Субконто2, Неопределено);
Строка.Субконто3 = ?(КоличествоСубконто > 2, Выборка.Субконто3, Неопределено);
Строка.ПризнаноРанее= Выборка.ПризнаноРанее;
Строка.Признано = Выборка.Признано;
Строка.Перенесено = Выборка.Перенесено;
Строка.СписаноНаННП = Выборка.СписаноНаННП;
Строка.СписаноНеННП = Выборка.СписаноНеННП;
Строка.Остаток = Выборка.Остаток;
Если ВариантОтчета = 1 Тогда // постоянные разницы
Если Не ПассивныеСчета Тогда
Строка.Обязательства = Окр(мСтавкаНалогаНаПрибыль * Строка.СписаноНаННП, 2);
Строка.Активы = 0;
Иначе
Строка.Обязательства = 0;
Строка.Активы = Окр(мСтавкаНалогаНаПрибыль * Строка.СписаноНаННП, 2);
КонецЕсли;
Если ВидАктивовИОбязательств = "Прочие расходы" Тогда
Строка.Обязательства = Окр(мСтавкаНалогаНаПрибыль * Строка.СписаноНаННП, 2);
Строка.Активы = 0;
КонецЕсли;
Если ВидАктивовИОбязательств = "Прочие доходы" Тогда
Строка.Обязательства = 0;
Строка.Активы = Окр(мСтавкаНалогаНаПрибыль * Строка.СписаноНаННП, 2);
КонецЕсли;
Иначе // временные разницы
Если ПараметрыОтбора = Неопределено Тогда
ОНА_ОНО = ОборотыВременныхРазниц;
Иначе
ОНА_ОНО = ОборотыВременныхРазниц.НайтиСтроки(ПараметрыОтбора);
КонецЕсли;
СуммаЕНВД = мСтавкаНалогаНаПрибыль * НайтиИтог(ОНА_ОНО, "СуммаЕНВД");
Сумма99 = 0;
//Гармония +
ПризнаноОбязательства = мСтавкаНалогаНаПрибыль * НайтиИтог(ОНА_ОНО, "СуммаКт77");
ОпределитьСумму99(ПризнаноОбязательства, СуммаЕНВД, Сумма99);
Строка.ПризнаноОбязательства = ПризнаноОбязательства;
Строка.Обязательства99 = Сумма99;
Обязательства = мСтавкаНалогаНаПрибыль * НайтиИтог(ОНА_ОНО, "СуммаДт77");
ОпределитьСумму99(Обязательства, СуммаЕНВД, Сумма99);
Строка.Обязательства = Обязательства;
Строка.Обязательства99 = Строка.Обязательства99 - Сумма99;
//Гармония -
ПризнаноАктивы = мСтавкаНалогаНаПрибыль * НайтиИтог(ОНА_ОНО, "СуммаДт09");
ОпределитьСумму99(ПризнаноАктивы, СуммаЕНВД, Сумма99);
Строка.ПризнаноАктивы = ПризнаноАктивы;
Строка.Активы99 = Сумма99;
Активы = мСтавкаНалогаНаПрибыль * НайтиИтог(ОНА_ОНО, "СуммаКт09");
ОпределитьСумму99(Активы, СуммаЕНВД, Сумма99);
Строка.Активы = Активы;
Строка.Активы99 = Строка.Активы99 - Сумма99;
//Гармония +
//ПризнаноОбязательства = мСтавкаНалогаНаПрибыль * НайтиИтог(ОНА_ОНО, "СуммаКт77");
//ОпределитьСумму99(ПризнаноОбязательства, СуммаЕНВД, Сумма99);
//Строка.ПризнаноОбязательства = ПризнаноОбязательства;
//Строка.Обязательства99 = Сумма99;
//
//Обязательства = мСтавкаНалогаНаПрибыль * НайтиИтог(ОНА_ОНО, "СуммаДт77");
//ОпределитьСумму99(Обязательства, СуммаЕНВД, Сумма99);
//Строка.Обязательства = Обязательства;
//Строка.Обязательства99 = Строка.Обязательства99 - Сумма99;
//Гармония -
КонецЕсли;
КонецПроцедуры
Вопрос: в таких случаях услуга тоже платная?
Мы считаем, что если ошибка в самой программе то она должна быть бесплатной. Правы ли мы?
Сообщение от Naumov
