Имя: Пароль:
1C
1С v8
Бухгалтерия КОРП. Ставка налога на прибыль в 2016 году.
0 Beduin
 
03.07.17
15:20
База типовая, релиз последний.
Бухгалтера формируют декларацию по налогу на прибыль за 2016 год.
Ставки в бюджет в 2016 году 18 и 2 процента.
Выдает ошибочное соотношение, типа должно быть 17 и 3 процента.
Вот часть кода проверки, где число 17 запрограммировано внутри отчета.
КС = ПоказателиКС(Л02Ст160Гр03.Значение, 17, Ложь, Ложь);
Никаких вариантов нет.
Это ошибка в типовой или я что-то не так делаю?!
1 Beduin
 
03.07.17
15:50
)
Никто из одинесовского форума из бухгалтерии типовой не сдавал отчетность?
2 lanmandragor
 
03.07.17
16:04
(1) Сдавали, ошибки не было. Вообще странная проверка, тем более для КОРП версии, т.к. в регионах ставка в региональный бюджет может быть меньше 17%.
3 Beduin
 
03.07.17
16:07
(2) Вот вся процедурка. Релиз последний.
Процедура ПроверитьКС_44(СтруктураРезультата)
    
    Если КодНайден(мДанныеОтчета.Титульный.ПоМесту, "225,226,236") Тогда
        Возврат;
    КонецЕсли;
    
    ОбщееЧислоОшибок    = СтруктураРезультата.КоличествоНайденныхОшибок;
    ОбщееЧислоБезОшибок = СтруктураРезультата.КоличествоНайденныхБезОшибок;
    СтруктураОшибок     = СтруктураРезультата.СтруктураОшибок;
    
    ТекстФормулы    = НСтр("ru='Лист 02 (КС 44)'");
    ОписаниеКС      = НСтр("ru='Ставка налога на прибыль в бюджет субъекта РФ (строка 160 Листа 02) равна 17%'");
    
    Нарушение       = НСтр("ru='п.1 ст.284 НК РФ'");
    ОписаниеОшибки  = НСтр("ru='Исключение: Налоговая ставка налога, подлежащего зачислению в бюджеты субъектов Российской Федерации,
                                |законами субъектов Российской Федерации может быть понижена для отдельных категорий налогоплательщиков.'");
    
    Л02Ст160Гр03 = ПоказательПоСтроке("Л02Ст160Гр03");
    Лист02 = мДанныеОтчета.Лист02;
    Лист02_5 = мДанныеОтчета.Лист02_5;
    
    Если РазделЗаполненСИсключениями(мДанныеОтчета.Лист02_5,, "ВГруппуОПВходитОрганизация") Тогда
        Возврат;
    КонецЕсли;
    
    Если РазделЗаполненСИсключениями(мДанныеОтчета.Лист02_6,,) Тогда
        Возврат;
    КонецЕсли;
    
    Для Каждого СтраницаЛ02 Из Лист02 Цикл
        ДанныеСтраницыЛ02 = СтраницаЛ02.Данные[0].Значение;
        НомерСтраницыЛ02Стр = СтрокаЧГ0(Лист02.Индекс(СтраницаЛ02) + 1);
        
        Если НЕ РазделЗаполненПоПараметрам(ДанныеСтраницыЛ02, Новый Структура("П000200000100")) Тогда
            Продолжить;
        КонецЕсли;
        
        СчетчикФормулДляРасшифровок = СчетчикФормулДляРасшифровок + 1;
        ЗарегистрироватьФормулуДляРасшифровки(ОписаниеКС);
        
        ВставитьЗначениеПоказателя(ДанныеСтраницыЛ02, Л02Ст160Гр03);
        ВнестиПоказательВРасшифровку(Л02Ст160Гр03, "Лист02", НомерСтраницыЛ02Стр);
        
        Расшифровка = Л02Ст160Гр03.ЗначениеСтр + " = 17";
        КС = ПоказателиКС(Л02Ст160Гр03.Значение, 17, Ложь, Ложь);
        
        Если КС.ЛеваяЧасть = КС.ПраваяЧасть Тогда
            ЭтоОшибка = Ложь;
            ОбщееЧислоБезОшибок = ОбщееЧислоБезОшибок + 1;
            
        Иначе
            ЭтоОшибка = Истина;
            ОбщееЧислоОшибок = ОбщееЧислоОшибок + 1;
            
        КонецЕсли;
        
        ДобавитьЭлементВСтруктуруОшибок(СтруктураОшибок, ТекстФормулы, ОписаниеКС, ОбщееЧислоОшибок, ОбщееЧислоБезОшибок,
            Расшифровка, ЭтоОшибка, ОписаниеОшибки, Нарушение, );
        
        СтруктураРезультата.Вставить("КоличествоНайденныхОшибок", ОбщееЧислоОшибок);
        СтруктураРезультата.Вставить("КоличествоНайденныхБезОшибок", ОбщееЧислоБезОшибок);
        СтруктураРезультата.Вставить("СтруктураОшибок", СтруктураОшибок);
        
    КонецЦикла;
    
КонецПроцедуры
4 Beduin
 
04.07.17
09:45
Написал в 1С. Прислали ответ
"Это ошибка в КС.
Не обращайте внимания на данное сообщение"
Весело...
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn