Маркировка для 1С 77
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 10 из 43

Комбинированный просмотр

  1. #1
    Пришел за помощью

    Регистрация
    02.07.2009
    Сообщений
    20
    Сказал(а) спасибо
    9
    Поблагодарили 2 раз(а) в 2 сообщениях

    По умолчанию Re: Маркировка для 1С 77

    Цитата Сообщение от Белый18 Посмотреть сообщение
    Так что в части обмена нет легких путей - вопрос стоит ли впрягаться в эту тему. Автор ветки похоже слился, возможно по этой причине.
    Автор ветки не слился. Программа работает и дописывается. Кроме того планируется её зарегистрировать в партнерах Честного Знака. Преимущества семерки в компактности. Например для формирования DataMatrix требуется всего маленькая библиотека octivabarcode, а для подписи используется или CAPICOM или CadesCOM или КриптоАРМ на выбор что больше нравится. Для работы с запросами используется MSXML (любой версии). Что бы это реализовать на 1С8 требуется помимо платформы в сотни гигабайт ставит доп. компоненты, менеджеры и пр.
    Кроме того есть специфика учета кодов маркировки в разрезе артикулов, документов и пр. где всё реализуется на регистрах. Попробуйте это всё реализовать на стандартных УТ или ERP.
    Это ни коим образом не реклама а трезвый взгляд на вещи. Писать можно не только на 1с77 но и на скрипте или другом языке поддерживающим COM объекты.
    Для примера создание динамического токена для СУЗ на 1с77. Всем удачи!
    // omsConnection - реквизит (константа) идентификатора соединения из ЦРПТ

    WinXMLToken = СоздатьОбъект("MSXML2.ServerXMLHTTP.6 .0");

    Стр = "";
    СтрДата = "";
    СтрФ = "";
    СтрФ1 = "";
    СтрИД = "";
    ИдентификаторТокена = "";

    СтрокаЗапроса = "https://ismp.crpt.ru/api/v3/auth/cert/key";

    Попытка
    WinXMLToken.Open("GET", СтрокаЗапроса, 0);
    WinXMLToken.SetRequestHeader("Content-Type","application/json;charset=UTF-8");

    WinXMLToken.SetTimeouts(15000, 15000, 15000, 15000);
    WinXMLToken.Send();
    Если WinXMLToken.Status = 200 Тогда
    Стр = WinXMLToken.ResponseText;

    Иначе
    Стр = "HTTP " + WinXMLToken.Status + " " + WinXMLToken.StatusText;

    КонецЕсли;

    Исключение

    КонецПопытки;

    СтрДата = Сред(Стр,Найти(Стр,"data")+7);
    СтрДата = Сред(СтрДата,1,30);
    СтрИД = Сред(Стр,Найти(Стр,"uuid")+7);

    ИдентификаторТокена = Сред(СтрИД,1,36);
    СтрИД = "uuid: " + Сред(СтрИД,1,36);

    ЗапросТокена = СтрДата;

    СтрФ = глПодписатьCAPICOM(СтрДата,0,0);

    СтрЗапрос = "
    |{
    |""uuid"": """+СокрЛП(ИдентификаторТок� �на)+""",
    |""data"": """+СокрЛП(СтрФ)+"""
    |}
    |";

    СтрЗапрос = СокрЛП(СтрЗапрос);

    СтрЗаголовок = "https://ismp.crpt.ru/api/v3/auth/cert/"+СокрЛП(omsConnection);

    Попытка
    WinXMLToken.Open("POST", СтрЗаголовок, 0);
    WinXMLToken.SetRequestHeader("Content-Type","application/json;charset=UTF-8");
    WinXMLToken.SetRequestHeader("Authorization","Bear er "+"");

    WinXMLToken.SetTimeouts(15000, 15000, 15000, 15000);
    WinXMLToken.Send(СтрЗапрос);
    Если WinXMLToken.Status = 200 Тогда
    СтрФ1 = WinXMLToken.ResponseText;

    Иначе
    СтрФ1 = "HTTP " + WinXMLToken.Status + " " + WinXMLToken.StatusText+ " " + WinXMLToken.ResponseText;

    КонецЕсли;

    Исключение

    КонецПопытки;

    СтрФ1 = Сред(СтрФ1,Найти(СтрФ1,"token")+8 );
    СтрФ1 = Сред(СтрФ1,1,Найти(СтрФ1,Симв (34))-1);

    токенСУЗ = СокрЛП(СтрФ1);

    Если ПустоеЗначение(токенСУЗ) <> 1 Тогда
    Предупреждение("Успешно!");

    Иначе
    Предупреждение("Нет связи!");

    КонецЕсли;

  2. #2
    Иногда оказывает помощь

    Регистрация
    09.01.2011
    Сообщений
    1
    Сказал(а) спасибо
    2
    Поблагодарили 320 раз(а) в 54 сообщениях

    По умолчанию Re: Маркировка для 1С 77

    И что, можно купить тестовую версию и поюзать? У самого такая же, но с меньшим функционалом на базе Комплексной 4.5

  3. #3
    Гость форума

    Регистрация
    23.03.2011
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Маркировка для 1С 77

    yri, а можно попросить рабочие примеры подписания CAPICOM, CadesCOM, КриптоАРМ?

  4. #4
    Гость форума

    Регистрация
    30.03.2015
    Сообщений
    5
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Маркировка для 1С 77

    Цитата Сообщение от KBD Посмотреть сообщение
    yri, а можно попросить рабочие примеры подписания CAPICOM, CadesCOM, КриптоАРМ?
    Если можно и я бы хотел их получить.

Похожие темы

  1. Ответов: 2
    Последнее сообщение: 26.01.2022, 22:07
  2. Маркировка памяти Palit Radeon HD 2600 Pro Sonic 256 Mb DDR3
    от Groov-Jet в разделе Железо (hardware)
    Ответов: 1
    Последнее сообщение: 18.01.2008, 02:55

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •