ошибка в программе

[Миша М]

Ответьте пожалуйста на следующий вопрос:
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]

Миша М, В блондинки записался?
1) Вопрос нужно задаввать в отдельной ветке.
2) Бесплатно исправлять ошибки от 1С вам никто не должен.

[Над.К]

Вопрос выделен в отдельную тему

[Naumov]

а в чем вопрос? и каким боком к 1С? читайте договор.

[Миша М]

покупать программу это все равно кота в мешке оказывается

[Миша М]

Я бы на их месте просто из-за принципа должен был устранить ошибки в программе бесплатно

[Dinchik]

Миша М! Вы путаете обслуживающую организацию и саму фирму 1С. Это 2 разных юр.лица. И ответственность них разная. Если есть ошибка в программе, надо сообщать о ней напрямую в 1с и терпеливо ждать, когда они в обновлениях ее исправят.

[Миша М]

а то что все российские организации сдали отчетность за 2007 год и всех была временная разница по учету ОС Как у них прошла? Почему до сих пор ошибка не устранена?

[Naumov]

не было там никакой ошибки.

[Миша М]

не было там никакой ошибки.

ну как это не было если я вот сейчас сижу жду опять специалиста что б опять устранили ошибку Даже вот справку взять там должна выводиться подитог основные средства товар итог и тд Сумма идет красным т е минусом а в подитоге уже плюсом и это только за август и сентябрь 2007 года Я так понял что правды сейчас не найти Купили программу спасибо остальное не наше дело выкручивайтесь сами называется

[Naumov]

Повторяю. Ошибки в этом разделе не было. На сколько мне позволяет вспомнить моя память.

[Татьяна156]

Миша.М., вы выложили исправление которое произвели в 1С8, а какая ошибка была не подскажите.
А то я мучаюсь с ОНО и ОНА, при сопоставлении данных БУ и НУ разниц нет, все счета закрыты, 68.04.2 закрыт, у предприятия убытки, а на 68.04.1 по Кр сумма вылезует с минусом, не могу найти ошибку.

[Naumov]

Я, кончено гадалка опытная, но произвожу гадание в основном по базе. Кофейную гущу не принимаю