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

[yri]

Так что в части обмена нет легких путей - вопрос стоит ли впрягаться в эту тему. Автор ветки похоже слился, возможно по этой причине.

Автор ветки не слился. Программа работает и дописывается. Кроме того планируется её зарегистрировать в партнерах Честного Знака. Преимущества семерки в компактности. Например для формирования 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 Тогда
Предупреждение("Успешно!");

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

КонецЕсли;