Имя: Пароль:
1C
1С v8
1C Розница Акциз + ФР Мария-301МТМ
0 sweeex
 
08.04.15
23:05
Помогите решить вопрос. Розница для Украины", редакция 1.0. (1.0.9.1)
Галочки Акциз проставили. Продаем товар через ККМ. В документе ОтчетОРозничныхПродажах акциз суммирует. А когда с кассы снимаем Х отчет пишет Акциз 0.
1 Ma3eIIa
 
08.04.15
23:09
отладчик что показывает ?
2 Ma3eIIa
 
08.04.15
23:09
когда продаем. выше без разницы
3 sweeex
 
08.04.15
23:13
(1) Возможности отладить с рабочей ККМ нет. Смотрел в папке AppData\Roaming\1C\1Cv82\tmplts\1c\Retailukr\1_0_9_1 обработок для ККМ нет. Смотрел на сайте http://www.ekka.com.ua/tehpodderzhka-kassovyiy-apparat-mariya/ тоже вроде нет...или может плохо ищу..
4 sweeex
 
08.04.15
23:15
Вот текст с обработки которая сейчас стоит:

Функция XОтчет(Объект, Пароль, НомерЧека, НомерСмены) Экспорт

    Результат = мНетОшибки;

    Результат = ИнициализироватьПодключение(Объект, Объект.Параметры);
    Если Результат <> мНетОшибки Тогда
        Возврат Результат;
    КонецЕсли;
    
       Рез = Объект.Драйвер.XReport();
    
    Если Рез = 0 Тогда  
        Объект.ОписаниеОшибки = НСтр("ru='Ошибка  ';uk='Помилка ! '")+ Объект.Драйвер.LastErrorText;
        Результат = мОшибкаНеизвестно;
    КонецЕсли;
        
    Объект.Драйвер.Done();

    Возврат Результат;
    
КонецФункции // XОтчет()
5 sweeex
 
08.04.15
23:17
Нашел вот http://pro1c.org.ua/index.php?showtopic=22254 но тут ККМ другая и у меня такого нет
6 EugeniaK
 
09.04.15
07:27
(0) В каталоге установки должна быть папка TradeWareEpf
В ней папка с обработка.
Нужно подключить ту, которая подходит под ваш аппарат.

Дальше заходите в настройку торгового оборудования.
Параметры.
И указываете, каким группам Вашего регистратора соответствует какой тип налогообложения (ставка и акциз).
Возможно, нужно будет еще обновить прошивку ФК.
7 EugeniaK
 
09.04.15
07:33
+(6) Путь к обработкам
C:\Users\e.karuk\AppData\Roaming\1C\1Cv82\tmplts\1c\Retailukr\1_0_9_1\TradeWareEpf
8 sweeex
 
09.04.15
09:12
(6) Касса уже перепрошита.
(7) Я смотрел там для ФР Мария-301МТМ нет обработки.
9 EugeniaK
 
09.04.15
09:27
(8) Там универсальные есть. Должны подойти.
В крайнем случае сравните, что поменялось в любой другой с прошлого релиза и перенесите в свою старую.
10 sweeex
 
10.04.15
20:32
(9) Вот что резонанс отписал "Если ПО на основе OLE-Manager, необходимо установить последнюю версию драйвера по ссылке : http://ekka.com.ua/wp-content/uploads/file/M301ManagerPlusSetupR.zip
Перед командой FiscalLineEx посылаем команду SetDoubledTaxCalcMode (Tax1Index, Tax2Index)" Где и как применить эту команду.? Нашел по коду команду FiscalLineEx в Функции ПечататьСтроку(Объект, Наименование, Количество, Цена, ПроцентСкидки, Отдел, НДС, Код=0)

Результат = мНетОшибки;
    
    Если (ТипЗнч(Код) = Тип("Число")) И (Строка(Метаданные.Справочники.Номенклатура.ТипКода)= "Строка") Тогда
        ДлинаКодаСпрНоменклатура = Метаданные.Справочники.Номенклатура.ДлинаКода;
        стрКодТовара =  СокрЛП(Строка(Код));
        стрКодТовара = СтрЗаменить(стрКодТовара,Символы.НПП,"");
        КодПоискаТовара = Прав("0000000000000000000000" + стрКодТовара, ДлинаКодаСпрНоменклатура);
    Иначе
        КодПоискаТовара = Код;
    КонецЕсли;
    
    Если ЗначениеЗаполнено(Код) Тогда
        Товар = Справочники.Номенклатура.НайтиПоКоду(КодПоискаТовара);
        Если ЗначениеЗаполнено(Товар) Тогда
            Попытка
                КодТовара = Число(Сред(Код,5)); //ЛАБ 101213        
            Исключение
                Объект.ОписаниеОшибки = "Невозможно код товара """ + Код + """ привести к числу";
                Результат = мОшибкаНеизвестно;
            КонецПопытки;
        Иначе
            Объект.ОписаниеОшибки = "Не найден товар по коду """ + КодПоискаТовара + """";
            Результат = мОшибкаНеизвестно;
        КонецЕсли
    Иначе
        КодТовара = 0;
        Объект.ОписаниеОшибки = "Код товара не задан. Невозможно определить признак делимости";
        Результат = мОшибкаНеизвестно;
    КонецЕсли;
    
    Если (Метаданные.Имя <> "ТорговляДляЧастныхПредпринимателейУкраиныБазовая") И Товар.Весовой Тогда
        Делимость = 1;
        КоличествоТовара = Количество * 1000;
    Иначе
        Если Количество = Цел(Количество) Тогда
            Делимость = 0;
            КоличествоТовара = Количество;
        Иначе
            Объект.ОписаниеОшибки = "Товар с кодом """ + Код + """ неделимый, имеет в чеке дробное количество";
            Результат = мОшибкаРежимПечатиЧека;
        КонецЕсли
    КонецЕсли;
    
    Если Результат <> мНетОшибки Тогда
        Если ЗначениеЗаполнено(Объект.ОписаниеОшибки) Тогда
            Сообщить(Объект.ОписаниеОшибки, СтатусСообщения.Внимание);
        КонецЕсли;
        Объект.Драйвер.AbortCheck();
        Объект.Драйвер.Done();
        Возврат Результат;
    КонецЕсли;
    
    ЦенаКоп = Окр(Цена * 100, 2);
    //Если НДС = Перечисления.СтавкиНДС.НДС20 Тогда
         iTax1 = 1;  
    //Иначе              
    //     iTax1 = 0;  
    //КонецЕсли;
    iTax2 = 0;
    
    СуммаВЧек = Цена*Количество;
    
    Если ПроцентСкидки = 0 Тогда
        ТипСкидки = -1;
        НазСкидки = "";
        СкидкаКоп = 0;
    ИначеЕсли ПроцентСкидки > 0 Тогда
        ТипСкидки = 0;
        НазСкидки = Формат(ПроцентСкидки, "ЧЦ=7;ЧДЦ=2;") + " %";
        СкидкаКоп = Окр(ПроцентСкидки * СуммаВЧек, 2);
    Иначе
        ТипСкидки = 1;
        НазСкидки = Формат(-ПроцентСкидки, "ЧЦ=7;ЧДЦ=2;") + " %";
        СкидкаКоп = Окр(-ПроцентСкидки * СуммаВЧек, 2);
    КонецЕсли;
    
    Рез = Объект.Драйвер.FiscalLineEx(Наименование, КоличествоТовара, ЦенаКоп, Делимость, iTax1, iTax2, КодТовара, ТипСкидки, НазСкидки, СкидкаКоп);
        
    Если Рез = 0 Тогда  
        Объект.ОписаниеОшибки = Объект.Драйвер.LastErrorMessage;
        Если ЗначениеЗаполнено(Объект.ОписаниеОшибки) Тогда
            Сообщить(Объект.ОписаниеОшибки, СтатусСообщения.Внимание);
        КонецЕсли;
        Объект.Драйвер.AbortCheck();
        Объект.Драйвер.Done();
        Результат = мОшибкаНеизвестно;
    КонецЕсли;
    
    Возврат Результат;