Функция ПолучитьСистемуНалогообложенияККТ(Организация, ВидНалога, ДатаДокумента = Неопределено) Экспорт
Если НЕ ЗначениеЗаполнено(ДатаДокумента) Тогда
ДатаДокумента = ТекущаяДатаСеанса();
КонецЕсли;
Если ВидНалога = Перечисления.ВидыНалогов.ЕНВД Тогда
Возврат Перечисления.ТипыСистемНалогообложенияККТ.ЕНВД;
ИначеЕсли ВидНалога = Перечисления.ВидыНалогов.ЕСХН Тогда
Возврат Перечисления.ТипыСистемНалогообложенияККТ.ЕСН;
ИначеЕсли ВидНалога = Перечисления.ВидыНалогов.ПСН Тогда
Возврат Перечисления.ТипыСистемНалогообложенияККТ.Патент;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| СистемыНалогообложенияОрганизацийСрезПоследних.СистемаНалогообложения,
| СистемыНалогообложенияОрганизацийСрезПоследних.ОбъектНалогообложения
|ИЗ
| РегистрСведений.СистемыНалогообложенияОрганизаций.СрезПоследних(&ДатаДокумента, Организация = &Организация) КАК СистемыНалогообложенияОрганизацийСрезПоследних";
Запрос.УстановитьПараметр("ДатаДокумента", ДатаДокумента);
Запрос.УстановитьПараметр("Организация" , Организация);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Если Выборка.Следующий() Тогда
Если Выборка.СистемаНалогообложения = Перечисления.СистемыНалогообложения.Общая Тогда
Возврат Перечисления.ТипыСистемНалогообложенияККТ.ОСН;
ИначеЕсли Выборка.ОбъектНалогообложения = Перечисления.ОбъектыНалогообложенияПоУСН.Доходы Тогда
Возврат Перечисления.ТипыСистемНалогообложенияККТ.УСНДоход;
Иначе
Возврат Перечисления.ТипыСистемНалогообложенияККТ.УСНДоходРасход
КонецЕсли;
Иначе
Возврат Перечисления.ТипыСистемНалогообложенияККТ.ОСН;
КонецЕсли;
КонецФункции