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

[влад55]

yri - спасибо большое за комментарии, я правильно вас понял, что на первых порах достаточно просто регистрации, без приобретения сканера и ККМ, осуществляя обмен данными через файлы только посредством личного кабинета? А формат файлов обмена специфицирован как-то, где можно посмотреть?
Еще обнаружил на инфостарте типа "готовое" решение (https://infostart.ru/public/603118/product/1051583/), может есть кто уже попробовал?

[yri]

я правильно вас понял, что на первых порах достаточно просто регистрации, без приобретения сканера и ККМ, осуществляя обмен данными через файлы только посредством личного кабинета? А формат файлов обмена специфицирован как-то, где можно посмотреть?

Совершенно верно. Достаточно зарегистрироваться и загружать файлы через ЛК. Формат файлов в личном кабинете - жмете в верхнем правом углу желтую кнопку Помощь. Там все форматы и описание API.

[yri]

Часто спрашивают как работать с подписями в 1С7.7. Рабочий пример. Условие - установка в системе КриптоАРМ 5 и выше. Т.е. регистрация библиотек.
Входящий параметр строка которую надо подписать. Выходящая подписанная.
//*******************************************
Функция Подписать(Стр) Экспорт


oCertificate = СоздатьОбъект("DigtCrypto.Certificate ");
oCertificateStore = СоздатьОбъект("DigtCrypto.Certificate Store");
oPKCS7Message = СоздатьОбъект("DigtCrypto.PKCS7Messag e");
oProfile = СоздатьОбъект("DigtCrypto.Profile");

oCerts = oCertificateStore.Display(1);
Если ПустоеЗначение(oCerts) <> 1 Тогда
глВыбСертификат = oCerts.Item(0);

oProfile.SilentLevel = 3;
oProfile.DisableInputFilesWindow = 1;
oProfile.SignIncludeBase64Headers = 1;
oProfile.Detach = 1;
oProfile.SetCertificate( 2, "1", глВыбСертификат);

oPKCS7Message.Profile = oProfile;
oPKCS7Message.Import(0,СокрЛП(Стр));
oPKCS7Message.Sign();
retStr = oPKCS7Message.Export( 2, 0);

Возврат retStr;

Иначе
Возврат "";

КонецЕсли;

КонецФункции // Подписать
//*******************************************

[sanichsm]

Для меня сейчас главный вопрос: "Обязательно ли ТиС7.7 вести учет количества марок?"

[sanekdark]

Доброго времени суток . может кто поделиться обработкой для 7.7?

[yri]

Доброго времени суток . может кто поделиться обработкой для 7.7?

Одна обработка не достаточно..
Учет GTIN и кодов маркировки требует дополнительных справочников, перечислений и документов. И тем более обработок. Например по загрузке из GS1, печати КМ и т.д.12345.jpg

[Platinum]

Одна обработка не достаточно..
Учет GTIN и кодов маркировки требует дополнительных справочников, перечислений и документов. И тем более обработок. Например по загрузке из GS1, печати КМ и т.д.12345.jpg

а где это можно скачать или продаете и сколько стоит? Интересует решения для продажи шин

[avtoprog]

Одна обработка не достаточно..
Учет GTIN и кодов маркировки требует дополнительных справочников, перечислений и документов. И тем более обработок. Например по загрузке из GS1, печати КМ и т.д.12345.jpg

Добрый день. Можно получить обработку, если платно, то сколько стоит? Думаю для старта разработок будет достаточно ее. Интересует табак.

[Белый18]

Добрый день. Можно получить обработку, если платно, то сколько стоит? Думаю для старта разработок будет достаточно ее. Интересует табак.

Самописный обмен с ЦРПТ - не выход вообще. Там постоянно вносятся изменения в протокол и регламент обмена. 1С 7 использую для работы клиентов на технологических линиях и для печати, как легкое приложение. Для обмена с ЦРПТ использую блок, разработанный для 1C ERP, у нас стоит УПП - там он такой-же. УПП пока нормально поддерживается 1С, все изменения вносятся, правда иногда с опозданием. Протокол обмена многоэтапный, неоднозначный, зависит от ситуации напр часть кодов не принимается или не агрегируется или ЦРПТ банально глючит. В каждом случае решения требуют отдельного рассмотрения, не автоматизируются на 100% и требуют постоянной поддержки. Так что в части обмена нет легких путей - вопрос стоит ли впрягаться в эту тему. Автор ветки похоже слился, возможно по этой причине.

[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 Тогда
Предупреждение("Успешно!");

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

КонецЕсли;