1с 7.7, Комплексная конфигурация.
Из ПКО идет печать чека с НДС 18%, в документе стоит без НДС.
Как установить что бы печать соответствовала тому что установленно
в документе?

(2) А значение какого пользователя? Текущего? Кто нажимает на кнопку чек?

(3) Отладчик до этого места доходит?

(5) Пробую, выявить документ на котором проверить, пока не доходил.

(5) Сейчас прошел, но там возвратилось 0

(6) Значит не там ищешь. Поставь точку останова на момент пробития чека и помаленьку доберись до кода.
Проверь настройки кассы через родной драйвер кассы (не из 1С) там есть таблица с налогами

(4) Который на кнопку жмет

Смотрю процедуру ПечатьЧека()

(9) Сегодня я жму, так как проверяю, отлавливаю. Счас дойду посмотрю. Это в настройках пользователя?

(10) Да.

Проходя вот это выбирает 4, то есть без ндс, как я вижу.

            Если НДСЕсть = 1 Тогда//Печатаем НДС
                
                // В настройках ФР надо настроить ставки:
                // Налог 1 = 18% - НДС 18%
                // Налог 2 = 10% - НДС 10%
                // Налог 3 = 20% - НДС 20%
                // Налог 4 =  0% - без НДС
                // и Тип налога = 2 (Налог на каждую продажу)
        
                Если СписокТоваров.НДС = 18 Тогда
                    Объект.Department = 1;
                ИначеЕсли СписокТоваров.НДС = 10 Тогда
                    Объект.Department = 2;
                ИначеЕсли СписокТоваров.НДС = 20 Тогда
                    Объект.Department = 3;
                Иначе
                    Объект.Department = 4;
                КонецЕсли;
            Иначе
                Объект.Department = 4;
            КонецЕсли;

(11) Так берется же из документа?
Я посомтрел по коду берется без ндс, а печатается с НДС 18%. Почему? Что поправить?

(12) СписокТоваров - где в ПКО?

(13) посмотри в налоговой как зарегистрировано. Может там общая система с ндс.

(14) К нему привязанно счет фактура, может быть в ней?
Как это в ПКО список товаров?

(15) А где это посмотреть?

(0) в драйвера кассы

Вот так
http://magazkat.ru/forum/f-a-q/2956-kak-izmenit-nds-v-drajvere-kassy-atol-instruktsiya-s-kartinkami#15875

(16) Чек печатается потоварно (так реализовано в стандарте).
Поэтому, для ПКО нужно допиливать...
Помой руки, возьми напильник и вперед.

(18) Знать бы как, посоветуйте?!!!!

(17) Посмотрел в картинках, да я это видел в параметрах
То есть нужно сделать так как на картинках?

(19)
//******************************************************************************
Процедура СделатьЧек()
    
    // расшифрока номенклатуры - из документа-основания
    мДокРасшифр = ДокОснование.ТекущийДокумент();
    
    // вводим новый чек
    ДокЧек = СоздатьОбъект("Документ.ЧекККМ");
    
    ДокЧек.Новый();
    ДокЧек.Склад    = глПользователь.ОсновнойСклад;
    ДокЧек.Касса     = Константа.КассаККМ;
    ДокЧек.Валюта     = Валюта;
    ДокЧек.Получено = Сумма;
    ДокЧек.ВидОперации     = Перечисление.ВидыОперацийЧекККМ.ЧекПКО;
    ДокЧек.ДокОснование = ТекущийДокумент();
    ДокЧек.СуммаВклНДС     = ДокОснование.СуммаВклНДС;
    ДокЧек.УчитыватьНДС = ДокОснование.УчитыватьНДС;
    ДокЧек.ТипЦен     = ДокОснование.ТипЦен;
    ДокЧек.Фирма     = Фирма;
    ДокЧек.ЮрЛицо     = Фирма.ЮрЛицо;
    ДокЧек.Автор    = глПользователь;

    // таб. часть - если есть контроль, то номенклатуру берем из него
    Если (ДокОснование.Контроль = 1) Тогда
        мДокРасшифр = ДокОснование.ХранилищеРеализация.ТекущийДокумент();
    Иначе
        мДокРасшифр = ДокОснование.ТекущийДокумент();
    КонецЕсли;    
    
    мДокРасшифр.ВыбратьСтроки();
    Пока мДокРасшифр.ПолучитьСтроку() = 1 Цикл
        ДокЧек.НоваяСтрока();
        ДокЧек.Номенклатура    = мДокРасшифр.Номенклатура;
        ДокЧек.Количество     = мДокРасшифр.Количество;
        ДокЧек.Единица         = мДокРасшифр.Единица;
        ДокЧек.Коэффициент     = мДокРасшифр.Коэффициент;
        ДокЧек.Цена         = мДокРасшифр.Цена;
        ДокЧек.Сумма         = мДокРасшифр.Сумма;
        ДокЧек.СтавкаНДС     = мДокРасшифр.СтавкаНДС;
        ДокЧек.СуммаНДС     = мДокРасшифр.СуммаНДС;
    КонецЦикла;

    ДокЧек.Записать();
    ДокЧек.Провести();

    // печатаем новый чек
    Конт = 0;
    ОткрытьФорму(ДокЧек.ТекущийДокумент(), Конт);
    Конт.ПробитьЧекНаККМ();
    Конт.Форма.Закрыть();

КонецПроцедуры // ВвестиЧек

//******************************************************************************
Процедура ПоКнопкеПечатьКассовый()
    
    Ответ = Вопрос("Печатать кассовый чек?", "Да+Нет+Отмена", 60);
    Если (Ответ = "Да") Тогда
        СделатьЧек();
    Иначе        
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;

КонецПроцедуры // ПоКнопкеПечатьКассовый

(21) Тут нужно изучать только сколько что это у вас, печать чека. Но а то что в конфигурации что выкинуть?

Совет из (17) вот нужно применять или как?

"изучать только сколько что это у вас, печать чека"
нужен переводчик с ливингстарского

(22) Ну, извини... Я программистом работаю, а не копирайтером.

(17) В этой базе вообще вот так.

https://cloud.mail.ru/public/35ux/uZ2wh71XQ

(24) Я очень уважительно к вам отношусь.
Но при чем тут ЧекККМ?
То где печатается НДС 18% и нужно БезНДС,
это чек из фискального регистратора, для него нет макетов в 1с.
Я возможно не все сразу схватываю, извиняюсь ещё раз.

Но вот эту настройку (25) Нужно привести как показано на рисунке в (17) ?

Они там везде 6 поставили так как без ндс везде

(26) "Я очень уважительно к вам отношусь." - извини еще раз, но не могу сказать так же.
При чем тут макет?
Ты так и не внял советам "разбираться с матчастью"...

(11) Этот совет не помогает.

Сработает ли если в (25) везде поставить 4 за место 6 ?








            Если НДСЕсть = 1 Тогда//Печатаем НДС
                
                // В настройках ФР надо настроить ставки:
                // Налог 1 = 18% - НДС 18%
                // Налог 2 = 10% - НДС 10%
                // Налог 3 = 20% - НДС 20%
                // Налог 4 =  0% - без НДС
                // и Тип налога = 2 (Налог на каждую продажу)
        
                Если СписокТоваров.НДС = 18 Тогда
                    Объект.Department = 1;
                ИначеЕсли СписокТоваров.НДС = 10 Тогда
                    Объект.Department = 2;
                ИначеЕсли СписокТоваров.НДС = 20 Тогда
                    Объект.Department = 3;
                Иначе
                    Объект.Department = 4;

(0) Ты хоть модель ККМ озвучил бы, хотя по скриншоту видно что это АТОЛ.
И обработку через которую печатаешь чек. И систему налогов. И как это все связано.

(31) Обработка печати FR_COMM.ert судя по всему.
Модель да АТОЛ наверное.
Система налогов ЕНВД.
На документе выбирается без НДС, что передается по коду как
Объект.Department = 4; в (12). Но на чеке идет НДС 18%

(32+) Модель АТОЛ ЭОФ
связь через порт COM3

Что не менял всегда печатает НДС 18%, так что чт оправить не знаю? Нужно что бы всегда было Без НДС и все.

(24) Мне нужно просто на чеке вывести БезНДС и все больше ничего.

пользуется кто АТОЛ? как сделать без ндс в чеке?

(35) разберись со списокТоваров, что у тебя там? и реально там стоит СуммаНДС = 0 ??

(32) Обработка точно FR_COMM.ert?

// Применяемая система налогообложения в чеке:ОСН - 1;УСН доход - 2;УСН доход-расход - 4;ЕНВД - 8;ЕСН - 16;ПСН - 32;

Объект.AttrNumber=1055;
Объект.AttrValue=СистемаНалогообложения;
Объект.WriteAttribute();

Можно ли использовать какой либо эмулятор для предварительного просмотра чека????? Что бы не отправлять его а просматривать что там выходит?

а нет ли какой константы типа основная ставка ндс? или в настройках организации что-то стоять. Плохо помню семерку комплексную

(40) не тут все по коду идет без НДС!!!!!
как в (12) идет значение 4 то есть без ндс и ндс 0
но вот на чеке НДС 18 % постоянно, где это поменять не пойму

Знать бы где, раз и сменить.

(41) тогда реально рой что такое списоктоваров и откуда он формируется при печати. ПКО связан с расходным документом. Смотри в нем что стоит или в самой номенклатуре.

если в (19) твой код, смотри отладчиком что стоит в докосновании

(44) В (19) нет кода.

В ПКО стоит Без НДС.

Список формируется вот как, и далее передается в функцию,
где идет уже как список товаров.



    Список = СоздатьОбъект("ТаблицаЗначений");
    Список.НоваяКолонка("ТовНаим"   , "Строка");
    Список.НоваяКолонка("Цена"      , "Число");
    Список.НоваяКолонка("Количество", "Число");
    Список.НоваяКолонка("НДС"       , "Число");
    
    Список.НоваяСтрока();
    Список.ТовНаим    = ?(ПустаяСтрока(ПринятоОт)=0,"Принято от ","")+СокрЛП(СокрЛП(ПринятоОт)+" "+СокрЛП(Основание));
    Список.Цена       = Сумма;
    Список.Количество = 1;
    Список.НДС        = глНачисляемыйНДС(?(СтавкаНДС.Выбран() = 1, СтавкаНДС, глЗначениеПоУмолчанию("ОсновнаяСтавкаНДС")))*100;
    
    СуммаЧека         = Сумма;
    Получено          = Сумма;
    Скидка            = 0;
    ПризнВозврата     = 0;
    НомерСекции       = 1;
    НомерЧека         = 0;
    
    Если глФРПечататьЧек(Список, СуммаЧека, Получено, Скидка, ПризнВозврата, НомерСекции, НомерЧека) = 1 Тогда

Объект        = Парам.Получить("Объект");
            Пароль        = Парам.Получить("ПарольПользователя");
            СписокТоваров = Парам.Получить("СписокТоваров");
            СуммаЧека     = Парам.Получить("СуммаЧека");
            Получено      = Парам.Получить("Получено");
            ЧекНаВозврат  = Парам.Получить("Возврат");
            НомерСекции   = Парам.Получить("НомерСекции");
            Скидка        = Парам.Получить("Скидка");
            ДлинаСтроки   = Парам.Получить("ДлинаСтроки");
            
            ОписаниеРезультата = ПроверкаПароля (Пароль);
            Если ОписаниеРезультата <> "" Тогда                
                Рез = 0;
            Иначе
                Рез = ПечататьЧек(Объект, Пароль, СписокТоваров, СуммаЧека, Получено, Скидка, ЧекНаВозврат, НомерСекции, НомерЧека, ДлинаСтроки);
            КонецЕсли;

глНачисляемыйНДС - ??? Лезь в глобальный модуль, смотри что кажет эта функция

Ещё раз. НДС точно 0. По этому Объект.Department = 4
Что это Объект.Department ? Если НДС 0 оно равно 4
что это дает???? В чеке идет все равно НДС 18 %



        Если ПризнВозврата = 0 Тогда            
            
            Если НДСЕсть = 1 Тогда//Печатаем НДС
                
                // В настройках ФР надо настроить ставки:
                // Налог 1 = 18% - НДС 18%
                // Налог 2 = 10% - НДС 10%
                // Налог 3 = 20% - НДС 20%
                // Налог 4 =  0% - без НДС
                // и Тип налога = 2 (Налог на каждую продажу)
        
                Если СписокТоваров.НДС = 18 Тогда
                    Объект.Department = 1;
                ИначеЕсли СписокТоваров.НДС = 10 Тогда
                    Объект.Department = 2;
                ИначеЕсли СписокТоваров.НДС = 20 Тогда
                    Объект.Department = 3;
                Иначе
                    Объект.Department = 4;
                КонецЕсли;
            Иначе
                Объект.Department = 4;
            КонецЕсли;
                
            Объект.Регистрация();
        Иначе
            Объект.Возврат();
        КонецЕсли;

(47) А что там смотреть? Она возвращает 0, что и нужно.
Суть в том что после всего вот этого в чеке печатается НДС 18 % !



//  глНачисляемыйНДС(Ставка)
//
// Параметры:
//     Ставка - значение типа "Перечисление.СтавкиНДС".
//
// Возвращаемое значение:
//  Числовой коэффициент НДС.
//
// Описание:
//     По ставке НДС (Перечисление) получаем числовой коэффициент НДС, на который
//  необходимо умножить число при начислении НДС сверху для получения суммы НДС.
//  
Функция глНачисляемыйНДС(Ставка) Экспорт
    Если ПустоеЗначение(Ставка)=1 Тогда
        Возврат 0;
    ИначеЕсли(Ставка=Перечисление.СтавкиНДС.БезНДС) Тогда
        Возврат 0;
    ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС10) Тогда
        Возврат 0.1;
    ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС20) Тогда
        Возврат 0.2;
    ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС18) Тогда
        Возврат 0.18;
    ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС9_09) Тогда
        Возврат 0.09998900010999890001099989000 // Это 0.0909/0.9091;
    ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС16_67) Тогда
        Возврат 0.20004800192007680307212288492 // Это 0.1667/0.8333, только более точно в последнем знаке;
    Иначе
        Сообщить("Функция глНачисляемыйНДС(Ставка): неверная ставка");
        Возврат 0;
    КонецЕсли;
КонецФункции //глНачисляемыйНДС()

Объект = НеизвестныйОбъект

вот это что такое????

Ну сколько можно уже...
1. Идешь в драйвер, смотришь таблицу налогов.
2. В таблице отделов присваиваешь отделам нужные налоги.
3. Есть еще система налогообложения - она присваивается так:
Объект.AttrNumber=1055;
Объект.AttrValue=СистемаНалогообложения;
Объект.WriteAttribute();
// Применяемая система налогообложения в чеке:ОСН - 1;УСН доход - 2;УСН доход-расход - 4;ЕНВД - 8;ЕСН - 16;ПСН - 32;
4. Объект.Department - присваивается в цикле по ТОВАРАМ.

Подскажите пожалуйста как посмотреть глФР
Думаю в нем задается НДС, и как можно увидеть через него только



Функция глФРПечататьЧек(СписокТоваров, СуммаЧека, Получено, Скидка, ПризнВозврата, НомерСекции, НомерЧека)  Экспорт
    
    Рез = 0;
    
    Если глФРВкл = 1 Тогда
        Параметры = СоздатьОбъект("СписокЗначений");
        Параметры.Установить("Процесс"           , "печатать_чек");
        Параметры.Установить("Объект"            , глФР);
        Параметры.Установить("ПарольПользователя", глФРПарольПользователя);
        Параметры.Установить("СписокТоваров"     , СписокТоваров);
        Параметры.Установить("СуммаЧека"         , СуммаЧека);
        Параметры.Установить("Получено"          , Получено);
        Параметры.Установить("Скидка"            , Скидка);
        Параметры.Установить("Возврат"           , ПризнВозврата);
        Параметры.Установить("НомерСекции"       , НомерСекции);
        Параметры.Установить("ПриемНаличныхОтЮрЛиц", глФРДляПриемаНаличныхОтЮрЛиц);
        
        РезТекст = глОборудованиеКоманда("ФР", глФРОбработка, Параметры);
        Если ПустоеЗначение(РезТекст) = 0 Тогда
            Сообщить(РезТекст);
        Иначе
            Если Параметры.Получить("Результат") = 0 Тогда
                Сообщить("Фискальный регистратор: ошибка при печати чека");
                Сообщить(Параметры.Получить("ОписаниеРезультата"));
            Иначе
                НомерЧека = Параметры.Получить("НомерЧека");
                Рез = 1;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
    
    Возврат Рез;
    
КонецФункции // глФРПечататьЧек()

(51) Да сколько. Сделать то как нужно илди как то иначе не получилось ни разу.

(49) если только 0 то тогда в драйвер ККМ тебе дорога

(54) То есть нужно смотреть не код, а настройки драйвера ККМ в сервис-параметры ?

(53) Ну сделай уже все из (51) как нужно.

(56) Я же пробовал. Заходил туда менял.
Что бы что то понять что что то печатается иначе.
Но печатается все одно и тоже.
Могу привести эти настройки на снимках.

Сервис-Параметрв-Свойства-Параметры оборудования

Первая таблица Налоги

Наименование налога 6 - без НДС - ставка 0 - тег 1105
Наименование налога 1 - НДС 18% - ставка 18 - тег 1102

таблица секции

Наименование - секции с 1 по 16 - налог - везде стоит значение 6

6 это же без НДС ??????

так у тебя в (48) с нулем возвращается 4 а не 6. Пробовал поменять и не получилось или не пробовал?

(61) То есть тут значение поставить везде не 6 а 4 ????
Так как нужно сделать что бы было только без ндс.


Наименование - секции с 1 по 16 - налог - везде стоит значение 6

(51) Поставил везде 4 применил. Послал на печать.
Достаточно ли изменить и применить?
Может что то ещё нужно делать?

Поставил везде 4 применил, из документа отправил на печать
так же пишет НДС 18%/

Достаточно ли просто применить в настройках? Может что ещё нужно делать?

(56) Видите я делаю все как нужно, даже одну и туже цифру проставляю во все секции, но ничего не меняется ((((((

может не в 1с эти настройки где то заданы?????\

модель регистратора ФРЕГАИС Атол.
Я же меняю настройки через сервис параметры, почему ФР их не усваивает.
Может его нужно перегрузить?

Как задать то без НДС ?

В коде можно отловить этот момент, когда идет на печать чек???? Как объект, как его посмотреть, что бы программно принудительно задать????????


Пишет Объект = НеизвестныйОбъект

Как посмотреть, задать его свойства программно?
Можно ли это, на настройки через параметры не реагирует

(67) Версия ФФД 1.05?

(69) что такое ФФД подскажите пожалуйста

(69)

Тест драйвера ККМ:                        8.12.0.0

Сведения о драйвере:
Вариант:                               Бесплатный
Драйвер:                                  8.12.0.0
Сервисный модуль:                         8.12.0.0

(70) Формат фискальных данных. Ранее был ФФД 1.0 теперь ставят при перепрошивке ФФД1.05, у него более широкий набор тегов и изменены ставки НДС.

(72) 8.12 устарел сейчас пользуют дрова Атол 8.15.1 минимум.

(73) Сорри 8.16.1

(74) ну работать то должен.
Ставку выдавать какую нужно. Управлять им можно думаю.
Но как? Как задать что бы всегда печатал на чеке без ндс ?

https://onedrive.live.com/View.aspx?resid=189C614ED00D4C23!128&app=OneNote&wd=target(//54-ФЗ.one%7C27377c95-2928-4aa8-8fd7-4b03b801c6ef/Налоговые%20ставки%7C78fc8a06-eee2-4706-a5a6-122eeee98f69/)&authkey=!ABE4IM6eOvPtlrQ

(76) А как этим предметно воспользоваться не известно?

Я же менял все....

(77) С такими вопросами позовите все таки специалиста.

(78) Говорите задавай все как нужно и все, ну так я задаю ничего не меняется же.

Неделю назад в ЦТО нам перепрошивали ККМ Атол 55Ф и устанавливали ФН с ФФД 1.05, до этого был ФФд1.0, сказали установить дрова 8.16.1, но у нас ОСН и все взлетело норм, а для УСН порядок ставок НДС в ФФД 1.05 изменен.

(80) Мне важно понять как задать принудительно????????
То что нужно, где?

(81) В (30) перед строчкой         Если НДСЕсть = 1 Тогда//Печатаем НДС
вставь строку:
сообщить("" + НДСЕсть); - что выведет?

(82) Забей, ТС не хочет разбираться, ему просто задать принудительно :)

(82) Сейчас там драйвера обновляют. Не посмотреть.
Но дело в том что я это излазил все. Там все нормлаьно.

Выведет 0 наверное и     Иначе
                    Объект.Department = 4;

Там нормально все.

Я вот только что где не менял, на чеке печатается НДС 18% все равно. Такое ощущение что не реагирует на настройки вообще.

Я вот и спрашивал, Объект, это этот чек? Можно как то посмотреть что он выведет? Должна же быть информация как это решить.

(83) Как это не хочу разбираться.
Уже озадачили людей обновлять драйвера.
Я теперь только и буду этим разбираться пока не сделаю!!!!

// Если ФФД1.05, то в функции  
//  ПолучитьXMLПакетДляФискализацияЧека, так в УТ10.3

Если НЕ ПустаяСтрока(ТекущаяПозиция.СтавкаНДС) Тогда
                        Если ТекущаяПозиция.СтавкаНДС = 118 Тогда
                            ЗначениеСтавкаНДС = "18/118";
                        ИначеЕсли ТекущаяПозиция.СтавкаНДС = 110 Тогда
                            ЗначениеСтавкаНДС = "10/110";
                        Иначе
                            ЗначениеСтавкаНДС = ТекущаяПозиция.СтавкаНДС;
                        КонецЕсли;
                    Иначе
                        ЗначениеСтавкаНДС = "none";
                    КонецЕсли;
                    
                    ЗаписьXML.ЗаписатьАтрибут("Tax", XMLСтрока(ЗначениеСтавкаНДС));

(85) ну 16й драйвер поставил?

(82) точку останова поставьте посмотрите что там? Дали бы доступ уже давно вам бы сделал все

(84) "Наверное" и "вывело" - разные сущности. Не находишь?

(84) выведет 0 наверно? Или точно?

(83) Комсомолец думаешь?

(86) Не катит, у тс работа напрямую с драйвером, без XML-прокладки от 1с.

Если ТС и дальше будет отвечать подобно (84) то мы вряд ли ему поможем

(86) Не, это сказки. Я искал более углубленный код, как свойства объекта например.

Говорят все решилось после переустановки, установки драйверов, стало печатать как нужно. Ставка НДС 0%.

Поздровляю

Жаль... До сотки не дотянули...

0 не равно без ндс

(97) Точно!
Продолжаем...

(97) Но мне сказали что все нормально.
Ну а если там нужно печатать именно "Без НДС", то я
налазился там сегодня. Могу и продолжить.
После обновления драйверов пока ещё не смотрел как там да
что реагирует. Я так понимаю что меняться эта надпись
должна, либо при задания разных значений тут

Объект.Department = 4;

Либо при задании разных значений в таблицах настройки
драйвера фискального регистратора. Чем следовало бы
поиграться и увидеть изменения.

(99) А нам все равно))))
Ну вот дотянули до сотни

(99) Вот теперь смотри про налогообложение в (38) :)

(101) Обработка точно FR_COMM.ert.
А что именно смотреть?
По делу можно развернуть? Я не разгадываю загадки!

(102) "Я не разгадываю загадки!" Это точно