Получение Алкокода из PDF417

11.01.17

Обработка получает алкокод из кода акцизной марки.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Получение алкокода из PDF417 (Код акцизной марки) .epf 7,18Kb 11	11	Скачать (1 SM)	Купить за 1 850 руб.

В процессе поиска алгоритма получения алкокода из из кода акцизной марки, на одном из форумов увидел код для 1С77.

Перенес в 1С8, надеюсь кому-то пригодится.

Добавлен контроль кода акцизной марки и преобразования символов кода в верхний регистр.

Алкокод PDF417 AlcoCode Акцизная марка Алкоголь

+ –

См. также

ККТ-ОНЛАЙН 54-ФЗ: Обработка для работы онлайн касс

ККМ Кассовые операции Розничная торговля Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия 1.6 1С:Бухгалтерия автономного учреждения 1С:CRM ПРОФ, КОРП Россия Платные (руб)

Универсальная обработка для обслуживания любых фискальных регистраторов (ККТ), в том числе Веб сервер АТОЛ. Работает в соответствии с 54-ФЗ. (ФФД 1.0, ФФД 1.05, ФФД 1.1). Подключайте любую онлайн кассу к практически любой конфигурации. Нет необходимости обновлять 1С. Можно бесплатно скачать и протестировать. Может работать одновременно с несколькими онлайн-кассами, либо одной с разных рабочих мест. (через RDP, TCP\IP или веб-сервер) Позволяет разделить один чек сразу на несколько ККТ или на несколько систем налогообложения. Поддерживает разрешительный режим. Можно настроить собственный шаблонов чека. Можно использовать эквайринг там, где он не поддерживается. Работает на LINUX и Windows ЭМУЛЯТОР + ЭКВАЙРИНГ + МАРКИРОВКА + ПОДДЕРЖКА ФФД 1.2

6000 руб.

27.02.2017 798832 4923 9553

2863

ЕГАИС++. Опт, производство, импорт

Оптовая торговля Розничная торговля Обмен с ГосИС Бухгалтер Платформа 1С v8.3 1С:Управление торговлей 10 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Бухгалтерский учет Управленческий учет Акцизы Платные (руб)

Полнофункциональное расширение (ранее известное как Модуль 1С-ЕГАИС) для взаимодействия типовых конфигураций 1С и ЕГАИС, предоставляющее максимум возможностей по работе с УТМ. Получение и отправка ТТН, отправка акта о постановке на баланс и акта о списании. Получение остатков. Загрузка и сопоставление номенклатуры и контрагентов. Оправка в ЕГАИС отчетов о производстве и импорте.

8970 руб.

15.12.2015 170994 957 364

401

Работа с ККТ по 54-ФЗ и разрешительным режимом

ККМ Кассовые операции Розничная торговля Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия автономного учреждения Россия Платные (руб)

Обработка осуществляет обслуживание ККТ АТОЛ, Штрих, Вики Принт и Меркурий для конфигураций "УТ 10.3", "КА 1.1", "УПП 1.3", "Розница 1.0", "БП 2.0" и других отраслевых решений, построенных на основе указанных выше конфигурациях. Поддерживает возможность параллельно пробития чеков на одной ККМ несколькими пользователями. Поддерживает Веб-сервер Атол. Соответствует требованиям 54-ФЗ. Поддерживает ФФД 1.0, 1.05, 1.1 и 1.2. Разделяет чеки по нескольким СНО. Поддерживает механизмы подключения ККТ по TCP/IP, для работы через RDP или интернет. Поддержка маркировки и разрешительного режима.

5880 руб.

25.05.2015 336166 1966 3062

1033

Печать кассовых чеков на одну ККМ с нескольких рабочих мест для 1С:УТ11.х, КА2.х, ERP 2.х

ККМ Кассовые операции Розничная торговля Обмен с ГосИС Программист Бухгалтер Пользователь Бухгалтерский учет Оперативный учет Управляемые формы 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Расширение конфигурации для УТ 11.5, КА 2.5 ,ERP 2.5 (Управляемые формы) позволяет выполнять печать кассовых чеков на одну ККМ 54-ФЗ с нескольких рабочих мест. НИКАКИХ НАСТРОЕК В РАЗРАБОТКЕ - ПОДКЛЮЧИЛ И ПЕЧАТАЙ. Если у вас несколько отделов и одна ККМ - печатайте на одной ККМ! Если у вас две ККМ и одна поломалась - печатайте на одной ККМ, пока ремонтируете другую!

5000 руб.

27.08.2018 122770 1034 586

871

Номенклатура (Расширенная форма списка) и Корзина для УТ11, ERP и КА

Рабочее место Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Бухгалтер Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Расширение. Функциональная и удобная форма справочника Номенклатура. В общем списке отображаются остатки и цены по каждой позиции. Подбор товаров в документы через корзину. Входит в Топ платных разработок по УТ, ERP и КА.

10920 руб.

26.04.2016 649559 1238 581

623

Автоматический заказ поставщику в 1С: загрузка прайсов и анализ цен поставщиков для УТ 10.3, УТ 11, КА2, УНФ, УПП, ERP, Розница 2

Бюджетирование и планирование Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Анализ продаж Пользователь Платформа 1С v7.7 Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Беларусь Украина Россия Казахстан Управленческий учет Платные (руб)

Система управления запасами для 1С помогает работать с запасами правильно: автоматически рассчитывает потребность и делает заказ поставщику, загружает прайсы, перемещает товары по филиалам, анализирует продажи и позволяет управлять ассортиментом. ВНИМАНИЕ! 09.01.25 г. планируется повышение цен на 20%!

28500 руб.

21.04.2017 96754 131 42

214

Бонусная система в 1С для УТ 10.3

Управление взаимоотношениями с клиентами (CRM) Оптовая торговля Розничная торговля Пользователь Платформа 1С v8.3 Оперативный учет Управляемые формы 1С:Управление торговлей 10 1С:Розница 2 Россия Управленческий учет Платные (руб)

Подсистема призвана упростить и автоматизировать процесс расчета и начисления бонусов покупателей. Бонусная система работает с конфигурациями 1С:УТ 10.3, 1С:Розница. Механизм реализован в начале 2013г. и работает до сих пор с постоянными совершенствованиями.

30000 руб.

02.11.2015 112510 101 88

185

Модуль обмена 1С с сайтом на платформе Битрикс: настройка для БП 3.0

Оптовая торговля Розничная торговля Сайты и интернет-магазины Программист Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение для настройки обмена данными с сайтом на платформе 1С:Битрикс (и подобными) для 1С: Бухгалтерия предприятия 3.0.

15000 руб.

18.03.2019 33758 143 102

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. pablo_escobar 26.12.16 10:11 Сейчас в теме

Если весь алгоритм представлен на скрине, то он не полный. Охватывает не все возможные ситуации.

2. es2000 79 26.12.16 10:46 Сейчас в теме

Возможно.
Делал под конкретную задачу.
Так как алгоритм не мой, хотел разместить бесплатно в варианте "Как есть", но не вышло...
Если не сложно, подскажите какие ситуации не охвачены?

3. ValeriTim 21 26.12.16 11:06 Сейчас в теме

А вот так? Это не мое творчество - тоже где то подсмотрел.

// получен код специальной марки ЕГАИС
КодАлкогольнойПродукции = Формат(ДополнительныеПроцедурыФункцииСервер.ИзХСчислВЧисло(Сред(Штрихкод, 8, 12), "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"), "ЧЦ=19; ЧВН=; ЧГ=");

Функция ИзХСчислВЧисло(аф, Шаблон) Экспорт
	
    аф = ВРег(аф); // на всякий случай.
    ДлинаШаблона = СтрДлина(Шаблон);

    ДлинаСтроки = СтрДлина(аф);
    Результат = 0;

    Для ТекСимвол = 1 По ДлинаСтроки Цикл
        ОбрабатываемыйСимвол = Сред(аф, ТекСимвол,1);
        ПозицияВШаблоне = Найти(Шаблон,ОбрабатываемыйСимвол)-1;
        Результат = Результат * ДлинаШаблона + ПозицияВШаблоне;
    КонецЦикла;

    Возврат(Результат);

КонецФункции

Показать

4. es2000 79 26.12.16 11:09 Сейчас в теме

Нет предела совершенству .
У меня стояла задача помощи при инвентаризации остатков продукции поступившей до 2016 года. После выполнения инвентаризации, перспективы использование обработки весьма туманны ...
Поэтому это просто внешняя обработка.

5. pablo_escobar 26.12.16 16:24 Сейчас в теме

Нужен отсев старых цифровых марок, делать Врег обязательно, (встречались марки с маленькими буквами)

Если сред(Значение,4,5) = "00000" тогда

		Значение = Сред(Значение,9,11);
		итр =11;

		Иначе

		Значение = Сред(Значение,8,12);
		итр =12;

		конецЕсли;

		Результат=0;

		Для Х=1 По итр Цикл

		М=1;
		Для У=1 По итр-Х Цикл 

		М=М*36 

		КонецЦикла;

		Результат=Результат+(Найти("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Сред(Значение,Х,1))-1)*М;

		КонецЦикла;

		AlcCode = Формат(Результат, "ЧЦ=19; ЧВН=; ЧГ=0");

Показать

6. pablo_escobar 26.12.16 16:28 Сейчас в теме

И шк является ли он шк с марки можно проверять xsd схемой

ТипДляПроверкиБарКода=ФабрикаXDTO.Тип("http://fsrar.ru/WEGAIS/My_Cheque","BK");
Попытка
		ТипДляПроверкиБарКода.Проверить(ШтрихКод);
	Исключение	
		ЭтоБарКод=Ложь;
		Предупреждение("Считанный штрихкод не является ШК с акцизной марки!");
		
		Сигнал();
конецпопытки;

Показать

7. es2000 79 26.12.16 23:44 Сейчас в теме

Для моих задач такие сложности не требовались, но всё же стало интересно..
Если можно поясните пожалуйста строку
ТипДляПроверкиБарКода=ФабрикаXDTO.Тип("http://fsrar.ru/WEGAIS/My_Cheque","BK");

Как реализуется "/My_Cheque"?

Попробовал написать по вашему тексту, но "My_Cheque" подвел ..

Прикрепленные файлы:

9. pablo_escobar 27.12.16 09:25 Сейчас в теме

(7) My_Cheque это XDTO пакет из стандартной xsd схемы розничного чека. В типовых решениях 1С делала свои схемы, можно их использовать, мне проще пользоваться стандартными от ЕГАИС.

8. es2000 79 27.12.16 00:04 Сейчас в теме

Просматривал егаис - XDTO пакеты в УТ11, наткнулся на используемый Тип значения PDF417.

Прикрепленные файлы:

10. pablo_escobar 27.12.16 09:40 Сейчас в теме

(8) Маленькие буквы нужно переобразовывать потому что в алгоритме идет сравнение на большие буквы и цифры, можно доработать алгоритм под маленькие буквы, но проще поднять регистр.

11. es2000 79 27.12.16 13:35 Сейчас в теме

Спасибо за разъяснения.
По My_Cheque интересно. В мой код смотрели? Почему не работает можете на мысль натолкнуть?

13. pablo_escobar 27.12.16 13:46 Сейчас в теме

(11)

My_Cheque

потому что My_Cheque это моя схема, созданная на основе схемы egaischeque.joint.2.xsd от ЕГАИС. На основе потому что она единственная стандартная от ЕГАИС не загружается в 1С. Используйте тот тип который есть в Ваших схемах.