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

[yri]

Тут, конечно можно романы по этому поводу писать т.к. задачи и конфигурации и полет мысли у всех разный.
Но главное. После выпуска кодов маркировки (КМ) их необходимо ввести в оборот и после реализации вывести из оборота. Т.е. 2 дополнительные функции API.
Итак в общем план такой
1. Создаем GTIN и получаем.
2. Заказываем КМ на готовые GTIN, получаем их.
3. Печатаем КМ.
4. Вводим в оборот.
5. Реализуем и выводим из оборота.
У меня на всё получилось 5 докуметов с отдельными журналами. И справочник GTIN с дополнительными по кодам ТНВЭД, странам, артикулам и пр.
Задача программиста внедрить этот скелет в любую конфигурацию.
Кстати никто не работал с Крипто сервисами через 1с77?

[Rebook]

Можешь поделиться наработками? Готов к совместному сотрудничеству или за разовое вознаграждение.

[yri]

Можешь поделиться наработками?

Да без проблем!
В API запросах с ЦРПТ работают два метода GET и POST см. документацию по API.
Выше я выкладывал загрузку компонент. Теперь функции для работы с запросами.
//*******************************************
Функция глЗапросGET(СтрокаЗапроса) Экспорт
Стр = "";

Попытка
WinHttp.Open("GET", СтрокаЗапроса+"omsId="+СокрЛП(� �онстанта.OmsID), 0);
WinHttp.SetRequestHeader("Accept","application/json");
WinHttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded;charset=UTF-8");
WinHttp.SetRequestHeader("clientToken",СокрЛ� �(Константа.ClientToken));

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

Иначе
Сообщить("HTTP " + WinHttp.Status + " " + WinHttp.StatusText);
Стр = "Ошибка запроса!";

КонецЕсли;

Исключение
Сообщить("Ошибка запроса!");

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

Возврат Стр;

КонецФункции
//*******************************************
Функция глЗапросPOST(СтрокаЗапроса) Экспорт
Стр = "";

Попытка
WinXML.Open("POST", "https://suz2.crpt.ru/api/v2/light/orders?"+"omsId="+СокрЛП(Константа. OmsID), 0);
WinXML.SetRequestHeader("Accept","application/json");
WinXML.SetRequestHeader("Content-Type","application/json;charset=UTF-8");
WinXML.SetRequestHeader("Content-Length",Строка(СтрДлина(Строка Запроса)));
WinXML.SetRequestHeader("clientToken",СокрЛП (Константа.ClientToken));

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

Иначе
Сообщить("HTTP " + WinXML.Status + " " + WinXML.StatusText);

КонецЕсли;

Исключение
Сообщить("Ошибка запроса!");

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

Возврат Стр;

КонецФункции
//*******************************************
В дальнейшем просто идет обработка получаемых строк.

[Rebook]

Я неправильно понял что уже имеются полностью готовые наработки на 1с?