Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
03 дек 2024, 20:32

НЕ ПЕЧАТАЕТ ЧЕК С СН ЕНВД РОЗНИЦА 2.2

Автор saha85, 05 июн 2019, 08:05

0 Пользователей и 1 гость просматривают эту тему.

saha85

Как я решил проблему

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

//////Отвечает за "Виды особых налогов организации" 

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

//////Отвечает за "Системы налогообложения" 

    Если Выборка.Следующий() Тогда
        Если Выборка.СистемаНалогообложения = Перечисления.СистемыНалогообложения.Общая Тогда
            Возврат Перечисления.ТипыСистемНалогообложенияККТ.ОСН;
        ИначеЕсли Выборка.СистемаНалогообложения = Перечисления.СистемыНалогообложения.ЕНВД Тогда
            Возврат Перечисления.ТипыСистемНалогообложенияККТ.ЕНВД;
        ИначеЕсли Выборка.СистемаНалогообложения = Перечисления.СистемыНалогообложения.ЕСН Тогда
            Возврат Перечисления.ТипыСистемНалогообложенияККТ.ЕСН;
        ИначеЕсли Выборка.СистемаНалогообложения = Перечисления.СистемыНалогообложения.Патент Тогда
            Возврат Перечисления.ТипыСистемНалогообложенияККТ.Патент;
        ИначеЕсли Выборка.ОбъектНалогообложения = Перечисления.ОбъектыНалогообложенияПоУСН.Доходы Тогда
            Возврат Перечисления.ТипыСистемНалогообложенияККТ.УСНДоход;
        Иначе
            Возврат Перечисления.ТипыСистемНалогообложенияККТ.УСНДоходРасход
        КонецЕсли;
    Иначе
        Возврат Перечисления.ТипыСистемНалогообложенияККТ.ОСН;
    КонецЕсли;
     
КонецФункции

Прописываем.
Открываем
Перечисления.ВидыНалогов(Добавляем)
ЦитироватьОбщая
Общая система налогообложения
Упрощенная_Доход
Упрощенная система налогообложения (Доход)
Упрощенная_ДоходРасход
Упрощенная система налогообложения (ДоходРасход)
Открываем
Перечисления.СистемыНалогообложения(Добавляем)
ЦитироватьЕНВД
Единый налог на вмененный доход
ЕСН
Единый сельскохозяйственный налог
Патент
Патентная система налогообложения
Открываем
Регистры сведения.СистемыНалогообложенияОрганизаций
ФормаЗаписи

Добавляем
Цитировать
ЕНВД
ЕСН
Патент
Итог 1с розница 2.2 и много друрих где нет ЕНВД

И нет разница УПК,Аптека,Автосервис,И.Т

Поиск родных


Каримдат

Если КонфигурацияТиповаяБазовая Тогда
Что?

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск