|
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(); Результат = мОшибкаНеизвестно; КонецЕсли; Возврат Результат; |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |