Взаимодействие с api Честный знак (Молочная продукция)

10.09.21

Обзор основных примеров взаимодействия с Честным знаком по api для нетиповых конфигураций.

Скачать файл

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

Наименование		Бесплатно
КомпонентаXMLDSig . 5,66Mb 322	322	Скачать бесплатно

В данной статье постараюсь собрать большую часть примеров для взаимодействия с "Честным знаком". На Инфостарте есть не мало обработок и готовых решений, но не всегда есть возможность купить или разобраться в чужом коде. Статья в основном для тех кто начал прикручивать маркировку в свою нетиповую конфигурацию.
Итак, начнем.

1. Сертификаты.

На компьютере должен быть установлен криптопровайдеров (В примере будет рассмотрен Crypto Pro), для работы с сертификатами из 1С.

Получение сертификата и подписания строки


&НаКлиенте
Функция ПолучитьСертификаты() 
  	Попытка
        comStore = Новый COMОбъект("CAdESCOM.Store");
        comCPSigner = Новый COMОбъект("CAdESCOM.CPSigner"); // Аналог "CAPICOM.Signer".
        comSignedData = Новый COMОбъект("CAdESCOM.CadesSignedData");
    Исключение
        Сообщить("Не установлен КриптоПро!");
        Возврат Неопределено;
    КонецПопытки;
		
    comStore.Open(
        2, // StoreLocation - CAPICOM_CURRENT_USER_STORE (Хранилище текущего пользователя).    CAPICOM_LOCAL_MACHINE_STORE = 1;	(Локальное хранилище компьютера).
        "MY", // StoreName      CAPICOM_MY_STORE = "My"	(Хранилище персональных сертификатов пользователя).
        0); // OpenMode - CAPICOM_STORE_OPEN_READ_ONLY. //Только для чтения
			
		
    comCertificates = comStore.Certificates;    //Сертификаты
    comStore.Close();
    comStore = Неопределено;
    КоличествоСертификатов = comCertificates.Count;
    
	Если КоличествоСертификатов = 0 Тогда
		Сообщить("Не найдено ни одного сертификата!");
		Возврат Неопределено;	
	КонецЕсли;
	
	
	///Дополнительный отбор  
	// Убрать "сертификаты, в которых отсутствует закрытый ключ".
    //    comCertificates = comCertificates.Find(6, 2); // (CAPICOM_CERTIFICATE_FIND_EXTENDED_PROPERTY, CAPICOM_PROPID_KEY_PROV_INFO)
    //    КоличествоСертификатов = comCertificates.Count;
    // Оставить "только сертификаты, действительные в настоящее время".
    //    comCertificates = comCertificates.Find(9, ); // (CAPICOM_CERTIFICATE_FIND_TIME_VALID, "the current time is assumed")
    //    КоличествоСертификатов = comCertificates.Count;
	// Поиск по отпечатку 
	//	  Отпечаток = СтрЗаменить(Строка(Base64Значение(Base64СтрокаОтпечатка)), " ", "");
	//    comCertificates = comCertificates.Find(0, Отпечаток); // (CAPICOM_CERTIFICATE_FIND_SHA1_HASH( Возвращает сертификаты соответствующие указанному хэшу SHA1) , отпечаток)
    //	  КоличествоСертификатов = comCertificates.Count;
	
	///Основные отборы: список других параметров можно посмотреть ниже. ДополнительныеПараметрыcomStore()
	
	
	
    Если КоличествоСертификатов = 0 Тогда
        comCertificates = Неопределено;
        comCPSigner = Неопределено;
        comSignedData = Неопределено;
        Сообщить("Не найдены актуальные ключи ЭЦП для подписи данных!");
        Возврат Неопределено; 
	ИначеЕсли КоличествоСертификатов = 1 Тогда 
		Возврат comCertificates.Item(1);     //Возврат сертификата 
	Иначе		
        СписокСертификатов = Новый СписокЗначений;
        Для i = 1 По КоличествоСертификатов Цикл 
            СписокСертификатов.Добавить(i, comCertificates.Item(i).SubjectName);           
		КонецЦикла; 
	КонецЕсли;
	                                         //Возврат списка сертификатов
	Возврат СписокСертификатов;
	
КонецФункции

&НаКлиенте
Функция ПодписатьСертификатомСтроку(ВыбранныйСертификат, СтрокаДляПодписи, Открепл)
	Попытка
        comStore = Новый COMОбъект("CAdESCOM.Store");
        comCPSigner = Новый COMОбъект("CAdESCOM.CPSigner"); // Аналог "CAPICOM.Signer".
        comSignedData = Новый COMОбъект("CAdESCOM.CadesSignedData");
    Исключение
        Сообщить("Не установлен КриптоПро!");
        Возврат Неопределено;
    КонецПопытки;
	
	СтрокаВBase64 = Истина;
	
    comStore.Open(
        2, // StoreLocation - CAPICOM_CURRENT_USER_STORE.
        "MY", // StoreName
        0); // OpenMode - CAPICOM_STORE_OPEN_READ_ONLY.
    comCertificates = comStore.Certificates;
    comStore.Close();
    comStore = Неопределено;
	
	comCPSigner.Certificate = ВыбранныйСертификат;
		    // + Что-то из этого может быть нужным.
		//    comCPSigner.TSAAddress = "http://cryptopro.ru/tsp/";
		//    comCPSigner.Options = 0; // CAPICOM_CERTIFICATE_INCLUDE_CHAIN_EXCEPT_ROOT. Ещё есть CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN и CAPICOM_CERTIFICATE_INCLUDE_END_ENTITY_ONLY.
		    
	Если СтрокаВBase64 Тогда // Очень важно!
		comSignedData.ContentEncoding = 1; // CADESCOM_BASE64_TO_BINARY
		//Иначе // Так и остаётся 0 - CADESCOM_ENCODE_BINARY
	КонецЕсли;
	
	comSignedData.Content = СтрокаДляПодписи;
	ПодписанныеДанные = comSignedData.SignCades(
		        comCPSigner, // Signer
		        1, // CadesType, CADESCOM_CADES_BES.
		        Открепл, // bDetached - "флаг открепленной подписи (исходное сообщение не включается в итоговый CMS-контейнер)".
		        ); // EncodingType - по умолчанию CAPICOM_ENCODE_BASE64.
		    
	comCPSigner = Неопределено;
	comSignedData = Неопределено;
	
	Возврат УбратьСимволы1013(ПодписанныеДанные);
	
КонецФункции

&НаКлиенте
Функция УбратьСимволы1013(Строка) 
    Возврат СтрЗаменить(СтрЗаменить(Строка, Символы.ПС, ""), Символы.ВК, ""); // Ещё бывают символы "77u/", при необходимости удалять и их.
КонецФункции


Функция ДополнительныеПараметрыcomStore()
	_ = "Название свойства								Описание
	|CADESCOM_STRING_TO_UCS2LE = 0x00					Данные будут перекодированы в UCS-2 little endian.
	|CADESCOM_BASE64_TO_BINARY = 0x01					Данные будут перекодированы из Base64 в бинарный массив.
	|CAPICOM_LOCAL_MACHINE_STORE = 1					Локальное хранилище компьютера.
	|CAPICOM_CURRENT_USER_STORE = 2						Хранилище текущего пользователя.
	|CADESCOM_LOCAL_MACHINE_STORE = 1					Локальное хранилище компьютера.
	|CADESCOM_CURRENT_USER_STORE = 2					Хранилище текущего пользователя.
	|CADESCOM_CONTAINER_STORE = 100						Хранилище сертификатов в контейнерах закрытых ключей. В данный Store попадут все сертификаты из контейнеров закрытых ключей которые доступны в системе в момент открытия.
	//|CAPICOM_MY_STORE = "My"							Хранилище персональных сертификатов пользователя.
	|CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED = 2				Открывает хранилище на чтение/запись, если пользователь имеет права на чтение/запись. Если прав на запись нет, то хранилище открывается за чтение.
	|CADESCOM_XML_SIGNATURE_TYPE_ENVELOPED = 0			Вложенная подпись.
	|CADESCOM_XML_SIGNATURE_TYPE_ENVELOPING = 1			Оборачивающая подпись.
	|CADESCOM_XML_SIGNATURE_TYPE_TEMPLATE = 2			Подпись по шаблону.
	|CADESCOM_CADES_DEFAULT = 0							Тип подписи по умолчанию (CAdES-X Long Type 1).
	|CADESCOM_CADES_BES = 1								Тип подписи CAdES-BES.
	|CADESCOM_CADES_T = 0x5								Тип подписи CAdES-T.
	|CADESCOM_CADES_X_LONG_TYPE_1 = 0x5d				Тип подписи CAdES-X Long Type 1.
	|CADESCOM_PKCS7_TYPE = 0xffff						Тип подписи PKCS7.
	|CADESCOM_ENCODE_BASE64 = 0							Кодировка BASE64.
	|CADESCOM_ENCODE_BINARY = 1							Бинарные данные.
	|CADESCOM_XADES_DEFAULT = 0x00000010				Тип подписи по умолчанию (XAdES-X Long Type 1).
	|CADESCOM_XADES_BES = 0x00000020					Тип подписи XAdES-BES.
	|CADESCOM_XADES_T = 0x00000050						Тип подписи XAdES-T.
	|CADESCOM_XADES_X_LONG_TYPE_1 = 0x000005d0			Тип подписи XAdES-X Long Type 1.
	|CADESCOM_XADES_A = 0x000007d0						Тип подписи XAdES-A.
	|CADESCOM_XMLDSIG_TYPE = 0							Тип подписи XMLDSIG.
	|CAPICOM_CERTIFICATE_INCLUDE_CHAIN_EXCEPT_ROOT = 0	Сохраняет все сертификаты цепочки за исключением корневого.
	|CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN = 1		Сохраняет полную цепочку.
	|CAPICOM_CERT_INFO_SUBJECT_SIMPLE_NAME = 0			Возвращает имя наименования сертификата.
	|CAPICOM_CERT_INFO_ISSUER_SIMPLE_NAME = 1			Возвращает имя издателя сертификата.
	|CAPICOM_CERTIFICATE_FIND_SHA1_HASH = 0				Возвращает сертификаты соответствующие указанному хэшу SHA1.
	|CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME = 1			Возвращает сертификаты, наименование которого точно или частично совпадает с указанным.
	|CAPICOM_CERTIFICATE_FIND_ISSUER_NAME = 2			Возвращает сертификаты, наименование издателя которого точно или частично совпадает с указанным.
	|CAPICOM_CERTIFICATE_FIND_ROOT_NAME = 3				Возвращает сертификаты, у которых наименование корневого точно или частично совпадает с указанным.
	|CAPICOM_CERTIFICATE_FIND_TEMPLATE_NAME = 4			Возвращает сертификаты, у которых шаблонное имя точно или частично совпадает с указанным.
	|CAPICOM_CERTIFICATE_FIND_EXTENSION = 5				Возвращает сертификаты, у которых имеется раcширение, совпадающее с указанным.
	|CAPICOM_CERTIFICATE_FIND_EXTENDED_PROPERTY = 6		Возвращает сертификаты, у которых идентификатор раcширенного свойства совпадает с указанным.
	|CAPICOM_CERTIFICATE_FIND_CERTIFICATE_POLICY = 8	Возвращает сертификаты, содержащие указанный OID политики.
	|CAPICOM_CERTIFICATE_FIND_TIME_VALID = 9			Возвращает действующие на текущее время сертификаты.
	|CAPICOM_CERTIFICATE_FIND_TIME_NOT_YET_VALID = 10	Возвращает сертификаты, время которых невалидно.
	|CAPICOM_CERTIFICATE_FIND_TIME_EXPIRED = 11			Возвращает просроченные сертификаты.
	|CAPICOM_CERTIFICATE_FIND_KEY_USAGE = 12			Возвращает сертификаты, содержащие ключи, которые могут быть использованны указанным способом.
	|CAPICOM_DIGITAL_SIGNATURE_KEY_USAGE = 128			Ключ может быть использован для создания цифровой подписи.
	|CAPICOM_PROPID_ENHKEY_USAGE = 9					EKU.
	|CAPICOM_OID_OTHER = 0								Объект не соответствует ни одному из предуставленных типов.
	|CAPICOM_OID_KEY_USAGE_EXTENSION = 10				Расширение сертификата, содержащее информацию о назначении открытого ключа.
	|CAPICOM_EKU_OTHER = 0								Сертификат может быть использован для чего-то, что не предустановлено.
	|CAPICOM_EKU_SERVER_AUTH = 1						Сертификат может быть использован для аутентификации сервера.
	|CAPICOM_EKU_CLIENT_AUTH = 2						Сертификат может быть использован для аутентификации клиента.
	|CAPICOM_EKU_CODE_SIGNING = 3						Сертификат может быть использован для создания цифровой подписи.
	|CAPICOM_EKU_EMAIL_PROTECTION = 4					Сертификат может быть использован для защиты электронной подписи.
	|CAPICOM_EKU_SMARTCARD_LOGON = 5					Сертификат может быть использован для входа со смарт карты.
	|CAPICOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME = 0	Время подписи. Совпадает с CADESCOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME
	|CAPICOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_NAME = 1	Название документа. Совпадает с CADESCOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_NAME
	|CAPICOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_DESCRIPTION = 2	Описание документа. Совпадает с CADESCOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_DESCRIPTION
	|CADESCOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME = 0	Время подписи.
	|CADESCOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_NAME = 1	Название документа.
	|CADESCOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_DESCRIPTION = 2	Описание документа.
	|CADESCOM_ATTRIBUTE_OTHER = -1						Прочие атрибуты.
	|CADESCOM_DISPLAY_DATA_NONE = 0						Данные не будут пересылаться в устройство.
	|CADESCOM_DISPLAY_DATA_CONTENT = 1					Отображаемые данные лежат в теле сообщения.
	|CADESCOM_DISPLAY_DATA_ATTRIBUTE = 2				Отображаемые данные лежат в подписанном атрибуте сообщения.
	|CADESCOM_ENCRYPTION_ALGORITHM_RC2 = 0				Алгоритм RSA RC2.
	|CADESCOM_ENCRYPTION_ALGORITHM_RC4 = 1				Алгоритм RSA RC4.
	|CADESCOM_ENCRYPTION_ALGORITHM_DES = 2				Алгоритм DES.
	|CADESCOM_ENCRYPTION_ALGORITHM_3DES = 3				Алгоритм 3DES.
	|CADESCOM_ENCRYPTION_ALGORITHM_AES = 4				Алгоритм AES.
	|CADESCOM_ENCRYPTION_ALGORITHM_GOST_28147_89 = 25	Алгоритм ГОСТ 28147-89.
	|CADESCOM_HASH_ALGORITHM_SHA1 = 0					Алгоритм SHA1.
	|CADESCOM_HASH_ALGORITHM_MD2 = 1					Алгоритм MD2.
	|CADESCOM_HASH_ALGORITHM_MD4 = 2					Алгоритм MD4.
	|CADESCOM_HASH_ALGORITHM_MD5 = 3					Алгоритм MD5.
	|CADESCOM_HASH_ALGORITHM_SHA_256 = 4				Алгоритм SHA1 с длиной ключа 256 бит.
	|CADESCOM_HASH_ALGORITHM_SHA_384 = 5				Алгоритм SHA1 с длиной ключа 384 бита.
	|CADESCOM_HASH_ALGORITHM_SHA_512 = 6				Алгоритм SHA1 с длиной ключа 512 бит.
	|CADESCOM_HASH_ALGORITHM_CP_GOST_3411 = 100			Алгоритм ГОСТ Р 34.11-94.
	|CADESCOM_HASH_ALGORITHM_CP_GOST_3411_2012_256 = 101	Алгоритм ГОСТ Р 34.11-2012.
	|CADESCOM_HASH_ALGORITHM_CP_GOST_3411_2012_512 = 102	Алгоритм ГОСТ Р 34.11-2012.
	|CADESCOM_HASH_ALGORITHM_CP_GOST_3411_HMAC = 110	Алгоритм ГОСТ Р 34.11-94 HMAC.
	|CADESCOM_HASH_ALGORITHM_CP_GOST_3411_2012_256_HMAC = 111	Алгоритм ГОСТ Р 34.11-2012 HMAC.
	|CADESCOM_HASH_ALGORITHM_CP_GOST_3411_2012_512_HMAC = 112	Алгоритм ГОСТ Р 34.11-2012 HMAC.
	|LOG_LEVEL_DEBUG = 4								Уровень ведения логов DEBUG.
	|LOG_LEVEL_INFO = 2									Уровень ведения логов INFO.
	|LOG_LEVEL_ERROR = 1								Уровень ведения логов ERROR.
	|CADESCOM_AllowNone = 0x00							Флаг запрета установки недоверенных сертификатов или сертификатов, для которых нет соответствующего запроса.
	|CADESCOM_AllowNoOutstandingRequest = 0x01			Флаг создания закрытого ключа из ответа на запрос.
	|CADESCOM_AllowUntrustedCertificate = 0x02			Флаг установки недоверенных сертификатов конечного пользователя и центров сертификации.
	|CADESCOM_AllowUntrustedRoot = 0x04					Флаг установки сертификата, даже если корневой центр сертификации для него не является доверенным.
	|CADESCOM_SkipInstallToStore = 0x10000000			Флаг пропуска установки сертификата в хранилище сертификатов.
	|ENABLE_CARRIER_TYPE_CSP = 0x01						Обычный криптоконтейнер (HDIMAGE, REGISTRY).
	|ENABLE_CARRIER_TYPE_FKC_NO_SM = 0x02				ФКН без SM.
	|ENABLE_CARRIER_TYPE_FKC_SM = 0x04					ФКН с SM.
	|ENABLE_ANY_CARRIER_TYPE = 0x07						ENABLE_CARRIER_TYPE_CSP | ENABLE_CARRIER_TYPE_FKC_NO_SM | ENABLE_CARRIER_TYPE_FKC_SM.
	|DISABLE_EVERY_CARRIER_OPERATION = 0x00				Запрещенные виды носителей полностью запрещены.
	|ENABLE_CARRIER_OPEN_ENUM = 0x01					На запрещенных видах носителей можно открывать и перечислять контейнеры.
	|ENABLE_CARRIER_CREATE = 0x02						На запрещенных видах носителей можно создавать контейнеры.
	|ENABLE_ANY_OPERATION = 0x03						ENABLE_CARRIER_OPEN_ENUM | ENABLE_CARRIER_CREATE.
	|MEDIA_TYPE_REGISTRY = 0x00000001					Реестр.
	|MEDIA_TYPE_HDIMAGE = 0x00000002					Жесткий диск.
	|MEDIA_TYPE_CLOUD = 0x00000004						Облачный носитель.
	|MEDIA_TYPE_SCARD = 0x00000008						Смарт-карта или любое другое устройство с интерфейсом смарт-карты.
	|XCN_CRYPT_STRING_BASE64HEADER = 0					Кодировка base64 с использованием открывающего и закрывающего заголовков сертификата.
	|AT_KEYEXCHANGE = 1									Использование ключа для подписывания и шифрования.
	|AT_SIGNATURE = 2									Использование ключа только для подписывания.  
	|	
	|https://cpdn.cryptopro.ru/content/cades/plugin-methods.html";
КонецФункции

В новых конфигурациях, для подписания документов используется компонента XMLDSig. Ниже пример взаимодействия.

Подписание строки (2 вариант) с помощью компоненты "КомпонентаXMLDSig"

&НаКлиенте

 Функция ПодписатьДанные(Данные,Откреп = Ложь)
    
    ///Получим внешнюю компоненту из общих макетов (КомпонентаXMLDSig)
    ВнешняяКомпонента = КомпонентаПодписи();
    
    Если ВнешняяКомпонента = Неопределено Тогда
        возврат Неопределено;
    КонецЕсли;
    
    ///Получим отфарматированный сертификат (Двоичные данные, преобразованные в base64)
    СертификатКриптографииBase64 = ПолучитьСертификатBase64Строку();
    
    Если СертификатКриптографииBase64 = Неопределено Тогда
        возврат Неопределено;
    КонецЕсли;
    
    Попытка
        АтрибутSignatureValue = ВнешняяКомпонента.CMSSign(Данные,   ///Подписываемые данные
                СертификатКриптографииBase64,     ///Сертификат в Base64
                "",           ///Параоль сертификата
                0,            //тип подписи "CAdES-BES"
                Откреп,      //открепленная
                17);        //РежимВключенияСертификатовКриптографии.ВключатьПолнуюЦепочку 
    Исключение
        ВызватьИсключение НСтр("ru = 'Ошибка вызова метода CMSSign компоненты XMLDSig.'") + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
    КонецПопытки;
    
    ///Преобразуем подпись в Base64Строку
    Подпись = Base64Строка(АтрибутSignatureValue);
    Подпись = СтрЗаменить(Подпись, Символы.ПС, "");
    Подпись = СтрЗаменить(Подпись, Символы.ВК, "");
    
    Возврат Подпись;        ///Подписанные данные
    
КонецФункции



&НаКлиенте

Функция КомпонентаПодписи()
    
    КомпонентаДвоичныеДанные = ПолучитьКомпонентуПодписи();
    АдресМакета = ПоместитьВоВременноеХранилище(КомпонентаДвоичныеДанные);
    
    Если ПодключитьВнешнююКомпоненту(АдресМакета, "XMLDSignAddInSymbolicName", ТипВнешнейКомпоненты.Native) Тогда
        ВнешняяКомпонента = Новый("AddIn.XMLDSignAddInSymbolicName.XMLDSignAddIn");
    Иначе
        УстановитьВнешнююКомпоненту(АдресМакета);
        Если ПодключитьВнешнююКомпоненту(АдресМакета, "XMLDSignAddInSymbolicName", ТипВнешнейКомпоненты.Native) Тогда
            ВнешняяКомпонента = Новый("AddIn.XMLDSignAddInSymbolicName.XMLDSignAddIn");
        Иначе
            Сообщить(ОписаниеОшибки());
            ВнешняяКомпонента = Неопределено;
        КонецЕсли;    
    КонецЕсли;    
            
    Возврат    ВнешняяКомпонента;
КонецФункции



&НаСервере

Функция ПолучитьКомпонентуПодписи() Экспорт
    Возврат ПолучитьОбщийМакет("КомпонентаXMLDSig");    
КонецФункции


&НаСервере

Функция ПолучитьСертификатBase64Строку() Экспорт 

    ///Получим двоичные данные сертификата
  
    ДанныеСертификата = Справочники.СертификатыЭЦП.НайтиПоКоду("01").ФайлСертификата.Получить();    
    

    ///Зашифруем в Base64
    СтрокаBase64 = Base64Строка(ДанныеСертификата);
    
    Значение = СтрЗаменить(СтрокаBase64, Символы.ВК, "");
    Значение = СтрЗаменить(Значение, Символы.ПС, "");
    
    Возврат Значение;

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

P.S. В новых версиях 1С имеется возможность взаимодействия с сертификатами с помощью "Менеджера Криптографии" и "Сертификата Криптографии". Но информацию по их применению я так и не нашел... (Как подписывать, как прикреплять подпись, как прикрепить Открепленную подпись и т.д.). У кого получилось взаимодействовать с типовым механизмом - просьба отписаться в коммментах.

2. Api "Честный знак"

Для получения новых кодов маркировки и для подачи отчета о нанесении, необходимо подключение к СУЗ (Станция управления заказами). Для подключения к СУЗ необходимо получить Токен. (Статический токен больше не поддерживается с 1.10.2021, динамический имеет ограниченное время действия -10 часов).
Для получения необходимо зайти в СУЗ - Устройства - Создать устройства.

Создаем новое устройство.
Копируем строки "OMS ID" и "Идентификатор соединения".
Подключаемся из 1С.

Формирование нового динамического Токена и проверка доступности СУЗ

#Если ТонкийКлиент Тогда
Функция ПроверитьДоступностьСУЗ_V2()
	
	OMSID = "Ваш oms id;
	ИдентификаторСоединения = "Ваш ИД";
	
	Сервер = "markirovka.crpt.ru";
		
	СертификатCOM = ПолучитьСертификаты();  ///Необходимо выбрать сертификат из списка 
	
	//Сформируем новый динамический Токен
	Токен = СформироватьНовыйТокен(OMSID, СертификатCOM, ИдентификаторСоединения, Сервер); 
	
	
	ЗаголовокHTTP = Новый Соответствие();
	ЗаголовокHTTP.Вставить("Content-Type",   "application/x-www-form-urlencoded;charset=UTF-8");
	ЗаголовокHTTP.Вставить("Accept",         "application/json");
	ЗаголовокHTTP.Вставить("clientToken",    Токен);
		
	URLЗапроса = СтрШаблон("api/v2/milk/ping?omsId=%1",OMSID);   ///Молочная продукция
	
	HTTPЗапрос  = Новый HTTPЗапрос(URLЗапроса, ЗаголовокHTTP);	
	
	Соединение = Новый HTTPСоединение(
			"suzgrid.crpt.ru",             ///Адрес подключения СУЗ
			443,,,                      ///Порт
			Неопределено,               ///Прокси
			60,                         ///Таймер
			Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Новый СертификатыУдостоверяющихЦентровОС()));
			
			
	HTTPОтвет = Соединение.Получить(HTTPЗапрос);

	Если HTTPОтвет.КодСостояния = 200 Тогда ///Успешно получен ответ
		ДанныеОбработки = ТекстJSONВОбъект(HTTPОтвет.ПолучитьТелоКакСтроку());
		Если ДанныеОбработки = Неопределено Тогда               
			//ошибка
		Иначе
			// Структура - Ожидаемое результат запроса:
			//  * omsId - GUID - Идентификатор СУЗ
			Сообщить("Успешно!: " + ДанныеОбработки.omsId);
		КонецЕсли;
	КонецЕсли;
	
КонецФункции

Функция СформироватьНовыйТокен(OMSID, СертификатCOM, ИдентификаторСоединения, Сервер)
		
	// Получение данных для получения токена
	HTTPСоединение =    Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);
	HTTPЗапрос = новый HTTPЗапрос("/api/v3/auth/cert/key");
	HTTPОтвет = HTTPСоединение.ВызватьHTTPМетод("GET",HTTPЗапрос);
	ОтветСтрока = HTTPОтвет.ПолучитьТелоКакСтроку("UTF-8"); 
	
	ЧтениеJSON = Новый ЧтениеJSON; 
	ЧтениеJSON.УстановитьСтроку(ОтветСтрока); 
	ДанныеJSON = ПрочитатьJSON(ЧтениеJSON); 
	ЧтениеJSON.Закрыть();
	
	УИД = ДанныеJSON.uuid;
	ДанныеДляПолученияТокена = ДанныеJSON.data;
	
	// Подписание данных для получения токена
	ПодписанныеДанные = ПодписатьСертификатомСтроку(
				СертификатCOM,
				ЗашифроватьBase64(ДанныеДляПолученияТокена, КодировкаТекста.UTF8),Ложь);
		
				
	// Получение токена с использованием подписанных данных
	Соединение = Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);
	Заголовки = Новый Соответствие;
	Заголовки.Вставить("Content-Type", "application/json; charset=UTF-8");
	Заголовки.Вставить("Accept", "application/json");
	HTTPЗапрос = Новый HTTPЗапрос("/api/v3/auth/cert/" + ИдентификаторСоединения,Заголовки);
	ЗаписьJOIN = Новый ЗаписьJSON;
	ЗаписьJOIN.УстановитьСтроку();
	ДанныеДляЗапроса = Новый Структура;
	ДанныеДляЗапроса.Вставить("uuid",УИД);
	ДанныеДляЗапроса.Вставить("data",ПодписанныеДанные);	
	ЗаписатьJSON(ЗаписьJOIN,ДанныеДляЗапроса);
	СтрокаДляЗапроса = ЗаписьJOIN.Закрыть();
	
	HTTPЗапрос.УстановитьТелоИзСтроки(СтрокаДляЗапроса,КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
	Ответ = Соединение.ОтправитьДляОбработки(HTTPЗапрос);
	ЧтениеJSON = Новый ЧтениеJSON;
	ЧтениеJSON.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
	
	Токен = ПрочитатьJSON(ЧтениеJSON, Ложь).token;
	
	Возврат Токен;
	
КонецФункции

Функция ЗашифроватьBase64(Строка, Кодировка) Экспорт
	ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
	ЗаписьТекста = Новый ЗаписьТекста(ИмяВременногоФайла, Кодировка);
    ЗаписьТекста.Записать(Строка);
    ЗаписьТекста.Закрыть();
    Двоичные = Новый ДвоичныеДанные(ИмяВременногоФайла);
    Результат = Base64Строка(Двоичные);
	Если Лев(Результат, 4) = "77u/" Тогда
		Результат = Сред(Результат, 5);
	КонецЕсли; 
	Результат = СтрЗаменить(Результат, Символы.ПС, "");
    УдалитьФайлы(ИмяВременногоФайла);
    Возврат Результат;
КонецФункции

#КонецЕсли

Подача отчета о нанесении

&НаКлиенте
Функция ОтправитьОтчетОНанесении(СрокГодности,ТаблицаКодовМаркировок,Номенклатура)
	
	Перем OmsId;	          //Заменить на ваши данные
	Перем ТокенДоступа;	     
	
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Новый СертификатыУдостоверяющихЦентровОС());

	Соединение = Новый HTTPСоединение("suzgrid.crpt.ru",443,,,Неопределено,60,ЗащищенноеСоединение);
		
	ЗаголовокHTTP = Новый Соответствие();
	ЗаголовокHTTP.Вставить("Content-Type",   "application/json; charset=utf-8");
    ЗаголовокHTTP.Вставить("Accept",         "application/json");
	ЗаголовокHTTP.Вставить("Accept-Charset", "utf-8");
	ЗаголовокHTTP.Вставить("clientToken",    ТокенДоступа);
	
	ПараметрыURL = Новый Массив;
	ПараметрыURL.Добавить(OmsId); 	
	
	URLЗапроса = СтрШаблон("api/v2/milk/utilisation?omsId=%1",СтрСоединить(ПараметрыURL, "&"));

	HTTPЗапрос  = Новый HTTPЗапрос(URLЗапроса, ЗаголовокHTTP);
	
 	ТелоЗапроса = Новый Структура;
	ТелоЗапроса.Вставить("usageType",   		"PRINTED");             										///Тип использования: VERIFIED (Нанесение КМ подтверждено)   , PRINTED - КМ Напечатано
	ТелоЗапроса.Вставить("expDate",     		формат(СрокГодности,"ДФ=ггММдд"));  							///Дата окончания срока годности
    ТелоЗапроса.Вставить("capacity",  			Число(Формат(ТаблицаКодовМаркировок.Количество(),"ЧДЦ=3"))); 	///Объем продукции 
    ТелоЗапроса.Вставить("usedInProduction",    0);        														///Признак использованияКМ на производстве:0 – значение по умолчанию;
    ТелоЗапроса.Вставить("cisType",   			"UNIT");                           							 	///Единичный товар
	
	ТелоЗапроса.Вставить("sntins", Новый Массив);    ///Массив кодов маркировок 
                
	Для каждого ТекСтрока из ТаблицаКодовМаркировок Цикл
		
		ПолныйКодМаркировки = ТекСтрока.ПолныйКодМаркировки;   ///Полный код маркировки с символикой GS1 DataMatrix FNC1
		
		Если ПустаяСтрока(ПолныйКодМаркировки) Тогда
			ВызватьИсключение("Не найден полный код маркировки у номенклатуры:" + Номенклатура);
		КонецЕсли;
		
		//Стр.Добавить(ПолныйКодМаркировки);        ///Полный код
		ТелоЗапроса.sntins.Добавить(ПолныйКодМаркировки);
	КонецЦикла;
		
	ЗаписьJSON = Новый ЗаписьJSON();
    ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет, "");	
    ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);	
    ЗаписатьJSON(ЗаписьJSON, ТелоЗапроса); 
	
    ТекстJSON = ЗаписьJSON.Закрыть();                                
	
	///Отчет о нанесении можно не подписывать. Но если надо:
	//Если Сертификат <> Неопределено Тогда
	//	ПодписанныйДокумент = ПодписатьСертификатомДокумент(
	//			ПолучитьСертификаты(Истина,Истина,Сертификат),
	//			ЗашифроватьBase64(ТекстJSON, КодировкаТекста.UTF8),Ложь);
	//
	//	ЗаголовокHTTP.Вставить("X-Signature", ПодписанныйДокумент);
	//КонецЕсли;
	
	HTTPЗапрос.УстановитьТелоИзСтроки(ТекстJSON, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
	
    Ответ = Соединение.ОтправитьДляОбработки(HTTPЗапрос);
	
	ИДДок = Ответ.ПолучитьТелоКакСтроку();
	
	Чтение = Новый ЧтениеJSON;
	Чтение.УстановитьСтроку(ИДДок);
	
	РезультатРазбора = ПрочитатьJSON(Чтение, ложь);
	
	ИдентификаторОтчетаОНанесении = РезультатРазбора.reportId;    ///ИД созданного документа в Честном знаке "СУЗ" - Отчет о нанесении

	Возврат ИдентификаторОтчетаОНанесении;
	
	///P.S. Обычно таблицу с кодом маркировки хранят на сервере, для передачи таблицы лучше использовать ЗаписьJSON и ЧтениеJSON
	///так как код маркировки содержит спец символ GS1, который будет выдавать ошибку при передаче.
	
	///Функция НаСервере()
	/// ЗаписьJSON = Новый ЗаписьJSON;
	///	ЗаписьJSON.УстановитьСтроку();  
	///	ЗаписатьJSON(ЗаписьJSON, МассивТаблицыВыгрузки);            
	///	ТаблицаКодовМаркировок = ЗаписьJSON.Закрыть();

	///Функция НаКлиенте()
	///	ЧтениеJSON = Новый ЧтениеJSON;
	///	ЧтениеJSON.УстановитьСтроку(НаСервере());
	///	ТаблицаКодовМаркировок = ПрочитатьJSON(ЧтениеJSON, ложь);

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

Отчет об агрегации можно формировать в самой системе "Честного знака", и в системе СУЗ. Разницы нет. Документы появятся и там и там. Ниже идет пример отправки в СУЗ:

Агрегирование

&НаКлиенте
Функция Агрегирование()
	
	Перем ИННОрганизации;	      ///Заменить на свои данные
	Перем OmsId;	
	Перем ТокенДоступа;	
	
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Новый СертификатыУдостоверяющихЦентровОС());

	Соединение = Новый HTTPСоединение("suzgrid.crpt.ru",443,,,Неопределено,60,ЗащищенноеСоединение);
		
	ЗаголовокHTTP = Новый Соответствие();
	ЗаголовокHTTP.Вставить("Content-Type",   "application/json; charset=utf-8");
    ЗаголовокHTTP.Вставить("Accept",         "application/json");
	ЗаголовокHTTP.Вставить("Accept-Charset", "utf-8");
	ЗаголовокHTTP.Вставить("clientToken",    ТокенДоступа);
	
	ПараметрыURL = Новый Массив;
	ПараметрыURL.Добавить(OmsId); 	
	
	URLЗапроса = СтрШаблон("api/v2/milk/aggregation?omsId=%1",СтрСоединить(ПараметрыURL, "&"));

	HTTPЗапрос  = Новый HTTPЗапрос(URLЗапроса, ЗаголовокHTTP);
	
 	ТелоЗапроса = Новый Структура;
	ТелоЗапроса.Вставить("participantId",   	ИННОрганизации);             			///ИНН Организации
	
	ТелоЗапроса.Вставить("aggregationUnits", 	Новый Массив);                          ///Массив агрегации   КоличествоВУпаковке
	
	Для каждого стр из ТаблицаАгрегации цикл                                            ///Дерево значений
		
		ТелоМассива = новый Структура;
		ТелоМассива.Вставить("aggregatedItemsCount"	,	ТаблицаКодовМаркировок.Строки.Количество());   ///Количество штук в 1 агрегации (По факту сколько содержится, к примеру получилось 30шт в 32 упаковке)
		ТелоМассива.Вставить("aggregationType",			"AGGREGATION");
		ТелоМассива.Вставить("aggregationUnitCapacity", 32);                             ///Количество штук в одной упаковке
		
		ТелоМассива.Вставить("sntins", 					Новый Массив); 
		
		Для каждого ТекСтрока из ТаблицаКодовМаркировок.Строки Цикл
			
			//ПолныйКодМаркировки = ТекСтрока.ПолныйКодМаркировки;
			КодМаркировки = ТекСтрока.КодМаркировки;                                    //При агрегировании (И вводе в оборот) необходимо использовать сокращенный код маркировки (первые 2 группы Полного кода, до спец символа)
			
			Если ПустаяСтрока(КодМаркировки) Тогда
				ВызватьИсключение("Не найден код маркировки");
			КонецЕсли;
			
			ТелоМассива.sntins.Добавить(КодМаркировки);
		КонецЦикла;
		
		ТелоМассива.Вставить("unitSerialNumber",		стр.КодАгрегации);

		ТелоЗапроса.aggregationUnits.Добавить(ТелоМассива);
	КонецЦикла;	
	
	ЗаписьJSON = Новый ЗаписьJSON();
    ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет, "");	
    ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);	
    ЗаписатьJSON(ЗаписьJSON, ТелоЗапроса); 
	
    ТекстJSON = ЗаписьJSON.Закрыть();                                 
	
	///Отчет об агрегации можно не подписывать. Но если надо:
	//Если Сертификат <> Неопределено Тогда
	//	ПодписанныйДокумент = ПодписатьСертификатомДокумент(
	//			ПолучитьСертификаты(Истина,Истина,Сертификат),
	//			ЗашифроватьBase64(ТекстJSON, КодировкаТекста.UTF8),Ложь);
	//
	//	ЗаголовокHTTP.Вставить("X-Signature", ПодписанныйДокумент);
	//КонецЕсли;
	
	HTTPЗапрос.УстановитьТелоИзСтроки(ТекстJSON, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
	
    Ответ = Соединение.ОтправитьДляОбработки(HTTPЗапрос);
	
	ИДДок = Ответ.ПолучитьТелоКакСтроку();

	
	Чтение = Новый ЧтениеJSON;
	Чтение.УстановитьСтроку(ИДДок);
	
	РезультатРазбора = ПрочитатьJSON(Чтение, ложь);
	
	Возврат РезультатРазбора.reportId;    /// ИД созденного документа Агрегации в "Честном знаке"
	/// Возвращает структуру:
	//    omsId				
	//    reportId			  

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

Получение Токена системы "Честный знак", немножко отличается (Не добавляется идентификатор соединения)

Получение Токена "Честный знак"

&НаКлиенте
Функция ПолучитьТокенЧестныйЗнак()
	
	ИдентификаторСоединения = "Ваш ИД";	
	Сервер = "markirovka.crpt.ru";	
	СертификатCOM = ПолучитьСертификаты();  ///Необходимо выбрать сертификат из списка 

	// Получение данных для получения токена
	HTTPСоединение =    Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);
	HTTPЗапрос = новый HTTPЗапрос("/api/v3/auth/cert/key");
	HTTPОтвет = HTTPСоединение.ВызватьHTTPМетод("GET",HTTPЗапрос);
	ОтветСтрока = HTTPОтвет.ПолучитьТелоКакСтроку("UTF-8"); 
	
	ЧтениеJSON = Новый ЧтениеJSON; 
	ЧтениеJSON.УстановитьСтроку(ОтветСтрока); 
	ДанныеJSON = ПрочитатьJSON(ЧтениеJSON); 
	ЧтениеJSON.Закрыть();
	
	УИД = ДанныеJSON.uuid;
	ДанныеДляПолученияТокена = ДанныеJSON.data;
	
	// Подписание данных для получения токена
	ПодписанныеДанные = ПодписатьСертификатомСтроку(
				СертификатCOM,
				ЗашифроватьBase64(ДанныеДляПолученияТокена, КодировкаТекста.UTF8),Ложь);
		
				
	// Получение токена с использованием подписанных данных
	Соединение = Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);
	Заголовки = Новый Соответствие;
	Заголовки.Вставить("Content-Type", "application/json; charset=UTF-8");
	Заголовки.Вставить("Accept", "application/json");
	HTTPЗапрос = Новый HTTPЗапрос("/api/v3/auth/cert/",Заголовки);       ///Не добавляется идентификатор СУЗ
	ЗаписьJOIN = Новый ЗаписьJSON;
	ЗаписьJOIN.УстановитьСтроку();
	ДанныеДляЗапроса = Новый Структура;
	ДанныеДляЗапроса.Вставить("uuid",УИД);
	ДанныеДляЗапроса.Вставить("data",ПодписанныеДанные);	
	ЗаписатьJSON(ЗаписьJOIN,ДанныеДляЗапроса);
	СтрокаДляЗапроса = ЗаписьJOIN.Закрыть();
	
	HTTPЗапрос.УстановитьТелоИзСтроки(СтрокаДляЗапроса,КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
	Ответ = Соединение.ОтправитьДляОбработки(HTTPЗапрос);
	ЧтениеJSON = Новый ЧтениеJSON;
	ЧтениеJSON.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
	
	Токен = ПрочитатьJSON(ЧтениеJSON, Ложь).token;
	///Токен имеет ограниченное время 10 часов. Можно хранить токен в системе и проверять его срок действия, по истечению - формировать новый
	///	   Если СрокДействияТокенаИстек(СтарыйТокен) Тогда Токен = СформироватьНовыйТокен() Иначе  Токен = СтарыйТокен КонецЕсли;
	

	Возврат Токен;
	
КонецФункции



#Область РасшифровкаТокена
Функция СрокДействияТокенаИстек(ТокенДоступа)
	
	РезультатРазбораТокена = РасшифроватьТокенJWT(ТокенДоступа);
	Если РезультатРазбораТокена = Неопределено Тогда
		Возврат Истина;
	Иначе  
        ДействуетДо = ДатаИзСтрокиUNIX(РезультатРазбораТокена.exp, 1);
		Если ДействуетДо < (ТекущаяДата() - 600) Тогда     /// Истекает через 10 мин
			Возврат Истина; 
		Иначе
			возврат Ложь;
		КонецЕсли;
	КонецЕсли;
	
КонецФункции



Функция РасшифроватьТокенJWT(Токен) Экспорт
    
    ВозвращаемоеЗначение = Новый Структура;
    ВозвращаемоеЗначение.Вставить("РезультатРасшифровки", Неопределено);
    ВозвращаемоеЗначение.Вставить("ТекстОшибки", "");
    
    ЭлементыТокена = СтрРазделить(Токен, ".");
    Если ЭлементыТокена.Count() <> 3 Тогда
        ВозвращаемоеЗначение.ТекстОшибки = НСтр("ru = 'Токен не соответствует формату JWT'");
		Возврат Неопределено;
        //Возврат ВозвращаемоеЗначение;
    КонецЕсли;
    
    ЭлементТокенаДанные = ЭлементыТокена[1];

    Данные = ТекстJSONВОбъект(
        ПолучитьСтрокуИзДвоичныхДанных(
            ДвоичныеДанныеЭлементаТокенаJWT(ЭлементТокенаДанные)));

    Возврат Данные;
    
КонецФункции

Функция ДвоичныеДанныеЭлементаТокенаJWT(Знач Значение)
    
    Значение = СтрЗаменить(Значение, "-", "+");
    Значение = СтрЗаменить(Значение, "_", "/");
    
    Остаток = СтрДлина(Значение) % 4;

    Если Остаток = 1 Тогда
        Возврат Неопределено;
    ИначеЕсли Остаток = 2 Тогда
        Значение = Значение + "==";
    ИначеЕсли Остаток = 3 Тогда
        Значение = Значение + "=";
    КонецЕсли;
    
    Возврат Base64Значение(Значение);
    
КонецФункции

// Получить из текста JSON структуру.
// 
// Параметры:
//     ТекстJSON                    - Строка - Текст JSON.
//     ПреобразовыватьВСоответствие - Булево - Признак преобразования в соответствие.
// Возвращаемое значение:
//     Структура, Неопределено - Результат преобразования JSON.
Функция ТекстJSONВОбъект(ТекстJSON, ПреобразовыватьВСоответствие = Ложь) Экспорт
    
    Чтение = Новый ЧтениеJSON;
    Чтение.УстановитьСтроку(ТекстJSON);
    
    Попытка
        РезультатРазбора = ПрочитатьJSON(Чтение, ПреобразовыватьВСоответствие);
    Исключение
        РезультатРазбора = Неопределено;
    КонецПопытки;
    
    Возврат РезультатРазбора;
    
КонецФункции

// Формирует из структуры текст JSON
// 
// Параметры:
//     Структура - Структура - Произвольная структура данных
// Возвращаемое значение:
//     Строка - Текст JSON
Функция ОбъектВТекстJSON(Структура, УдалитьПробелыИПереносыСтрок = Ложь) Экспорт
    
    Если УдалитьПробелыИПереносыСтрок Тогда
        ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет, "");
    Иначе
        ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Авто, "  ");
    КонецЕсли;
    
    ЗаписьJSON = Новый ЗаписьJSON();
    ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
    
    ЗаписатьJSON(ЗаписьJSON, Структура);
    
    ТекстJSON = ЗаписьJSON.Закрыть();
    
    Возврат ТекстJSON;
    
КонецФункции

Функция ДатаИзСтрокиUNIX(Значение, Делитель = 1000) Экспорт
    
    Возврат МестноеВремя('19700101' + Цел(Значение / Делитель));
    
КонецФункции
#КонецОбласти

Ввод в оборот.

Документ "Ввод в оборот" создается в системе "Честный знак".
Новый документ сформируется в системе и вернет уникальный идентификатор , даже если документ содержит ошибки, при этом он может не отображаться в списке документов "Честного знака"!
Информацию о созданном документе так же можно проверить с помощью api, где будет все подробно описано.

Ввод в оборот

&НаКлиенте
Функция ВводВОборот()
	
	Перем ИННОрганизации;	
	Перем ТокенДоступа;
	Перем Категория;						///2105009100 — Мороженое и прочие виды пищевого льда
	СертификатCOM = ПолучитьСертификаты();  ///Необходимо выбрать сертификат из списка
	
	
	///Формирование основного текста
	ТелоЗапроса = Новый Структура;
    ТелоЗапроса.Вставить("participant_inn",		ИННОрганизации);                       ///ИНН участника оборота товаров
	ТелоЗапроса.Вставить("production_date",   	Формат(ДатаВыпуска,"ДФ=yyyy-MM-dd"));  ///Дата производства товара
    ТелоЗапроса.Вставить("producer_inn", 		ИННОрганизации);                       ///ИНН производителя товара
    ТелоЗапроса.Вставить("owner_inn", 			ИННОрганизации);                       ///ИНН собственника товара
	ТелоЗапроса.Вставить("production_type", 	"OWN_PRODUCTION");                     ///Тип производство - Собственное
    
    ТелоЗапроса.Вставить("products", Новый Массив);
	
	
	Для каждого стр из ТаблицаАгрегации Цикл           //Дерево значений по Коду агрегации        ///Если используются агрегации - заполняем код агрегации, В "Честном знаке" проставятся упаковки с содержащеми КМ
		СтрокаКодАгрегации = стр.КодАгрегации;
		ТаблицаКодовМаркировок = стр.КодыМаркировок;
		
		Если ПустаяСтрока(СтрокаКодАгрегации) Тогда
			Для каждого мм из ТаблицаКодовМаркировок цикл
				СтрокаТЧ = Новый Структура;
				СтрокаТЧ.Вставить("production_date",				Формат(ДатаВыпуска,"ДФ=yyyy-MM-dd")); 	///Дата выпуска
				СтрокаТЧ.Вставить("uit_code", 						мм.КодМаркировки);                     ///Код маркировки(В сокращенном виде - первые 2 группы полного кода, до спец символики)	
				СтрокаТЧ.Вставить("tnved_code", 					Категория);                             ///Код ТН ВЭД (10 знаков)
				//Подтверждающий документ заполнять не обязательно, но если нужно:
				///СтрокаТЧ.Вставить("certificate_document",          	"CONFORMITY_DECLARATION");				///Вид подтверждающего документа (Декларация)
				///СтрокаТЧ.Вставить("certificate_document_number", 	ДанныеСертификата.Сертификат);                                 
				///СтрокаТЧ.Вставить("certificate_document_date", 		Формат(ДанныеСертификата.ДатаНачала,"ДФ=yyyy-MM-dd"));         
				ТелоЗапроса.products.Добавить(СтрокаТЧ);
			КонецЦикла;
		Иначе		
			СтрокаТЧ = Новый Структура;
			СтрокаТЧ.Вставить("production_date",				Формат(ДатаВыпуска,"ДФ=yyyy-MM-dd")); 	///Дата выпуска
			СтрокаТЧ.Вставить("uitu_code", 						СтрокаКодАгрегации);               		///Код агрегации
			СтрокаТЧ.Вставить("tnved_code", 					Категория);                             ///Код ТН ВЭД (10 знаков)
			///СтрокаТЧ.Вставить("certificate_document",          	"CONFORMITY_DECLARATION");				///Вид подтверждающего документа (Декларация)
			///СтрокаТЧ.Вставить("certificate_document_number", 	ДанныеСертификата.Сертификат);                                 
			///СтрокаТЧ.Вставить("certificate_document_date", 		Формат(ДанныеСертификата.ДатаНачала,"ДФ=yyyy-MM-dd"));      
	        ТелоЗапроса.products.Добавить(СтрокаТЧ);
		КонецЕсли;
    КонецЦикла;
    ЗаписьJSON = Новый ЗаписьJSON();
    ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет, "");
    ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
    
    ЗаписатьJSON(ЗаписьJSON, ТелоЗапроса);
    
    ТекстJSON = ЗаписьJSON.Закрыть();
	
	ТекстXML64 = ЗашифроватьBase64(ТекстJSON, КодировкаТекста.UTF8);
	
	///Подпись текста
	ОткрепленнаяПодпись = Истина;
	ПодписанныйДокумент = ПодписатьСертификатомДокумент(           ///Необходимо открепить подпись!
				ПолучитьСертификаты(2,СертификатCOM),ТекстXML64,ОткрепленнаяПодпись);
				
	///Отправка текста
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Новый СертификатыУдостоверяющихЦентровОС());

	HTTPСоединение = Новый HTTPСоединение("markirovka.crpt.ru",443,,,,60,ЗащищенноеСоединение);
	
	ЗаголовокHTTP = Новый Соответствие();
	ЗаголовокHTTP.Вставить("Content-Type", "application/json; charset=UTF-8");
	ЗаголовокHTTP.Вставить("Accept", "application/json");
	ЗаголовокHTTP.Вставить("Accept-Charset", "utf-8");
	ЗаголовокHTTP.Вставить("Authorization",   "Bearer " + ТокенДоступа);
	
	URLЗапроса = "/api/v3/true-api/lk/documents/create?pg=milk";
	
	HTTPЗапрос  = Новый HTTPЗапрос(URLЗапроса, ЗаголовокHTTP);
	
	ТелоЗапроса = Новый Структура;
	ТелоЗапроса.Вставить("document_format", "MANUAL");                           //Тип документа (для json указать MANUAL)
    ТелоЗапроса.Вставить("product_document",ТекстXML64);                         //Документ без подписи
    ТелоЗапроса.Вставить("signature",       ПодписанныйДокумент);                //Документ с подписью
	ТелоЗапроса.Вставить("type",  			"LP_INTRODUCE_GOODS");               // – Ввод в оборот. Производство РФ. json;    
    ТелоЗапроса.Вставить("product_group",  	"milk");                             //Товарная группа - Молочная продукция
       
	ЗаписьJSON = Новый ЗаписьJSON();
	
    ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет, "");
    ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
    ЗаписатьJSON(ЗаписьJSON, ТелоЗапроса);
    
    ТекстJSON = ЗаписьJSON.Закрыть();
	
	HTTPЗапрос.УстановитьТелоИзСтроки(ТекстJSON, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
	
    Ответ = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);
	
	ИдентификаторДокументаЧестныйЗнак = Ответ.ПолучитьТелоКакСтроку();

	Возврат ИдентификаторДокументаЧестныйЗнак;  //Вернет просто Идентификатор (Строкой)

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

Свойство документа "Честного знака" по идентификатору

&НаКлиенте
Функция СвойствоДокументаПоИД(ИдентификаторНовогоДокумента)  Экспорт
	Перем ТокенДоступа;
		
	URLЗапроса = "/api/v3/true-api/doc/"+ИдентификаторНовогоДокумента+"/info";               	
		
	Сервер = "markirovka.crpt.ru";
	HTTPСоединение =    Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);	
	
	ЗаголовокHTTP = Новый Соответствие();
	ЗаголовокHTTP.Вставить("Content-Type", "application/json; charset=UTF-8");
	ЗаголовокHTTP.Вставить("Accept", "application/json");
	ЗаголовокHTTP.Вставить("Accept-Charset", "utf-8");
	ЗаголовокHTTP.Вставить("Authorization",   "Bearer " + ТокенДоступа);		
	
	HTTPЗапрос  = Новый HTTPЗапрос(URLЗапроса, ЗаголовокHTTP);
	
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Новый СертификатыУдостоверяющихЦентровОС());

	Соединение = Новый HTTPСоединение(Сервер,443,,,Неопределено,60,ЗащищенноеСоединение);
		
	HTTPОтвет = Соединение.Получить(HTTPЗапрос);
					
	ТекстОтвета  = HTTPОтвет.ПолучитьТелоКакСтроку();
	   
	Чтение = Новый ЧтениеJSON;
	Чтение.УстановитьСтроку(ТекстОтвета);
	

	РезультатРазбора = ПрочитатьJSON(Чтение, ложь);
	ВОЗВРАТ РезультатРазбора;
		
	//Если РезультатРазбора.status = "CHECKED_OK" Тогда
	//	Всё успешно!;
	//ИначеЕсли "IN_PROGRESS" Тогда   
	//	Документ всё еще в процессе - ошибок нет, нужно ждать
	//Иначе
	//	Сообщить(РезультатРазбора.downloadDesc);    ///Сообщения об ошибке
	//КонецЕсли;

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

Можно узнать информацию любого вида документа системы "Честный знак" (Ввод в оборот, списание, агрегирование и т.д.) За исключением информации об "Отчете о нанесении".

Текущий баланс в системе "Честный знак"

&НаКлиенте
Функция УЗНАТЬ_БАЛАНС() Экспорт   ///Проверить баланс лицевого счета Честный знак
	
	Перем ТокенДоступа;
	
	Сервер = "markirovka.crpt.ru";
	HTTPСоединение =    Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);	
		  	
	URLЗапроса = "/api/v3/true-api/elk/product-groups/balance?productGroupId=8";	
	
	ЗаголовокHTTP = Новый Соответствие();
	ЗаголовокHTTP.Вставить("Content-Type", "application/json; charset=UTF-8");
	ЗаголовокHTTP.Вставить("Accept", "application/json");
	ЗаголовокHTTP.Вставить("Accept-Charset", "utf-8");
	ЗаголовокHTTP.Вставить("Authorization",   "Bearer " + ТокенДоступа);		
	
	HTTPЗапрос  = Новый HTTPЗапрос(URLЗапроса, ЗаголовокHTTP);
	
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Новый СертификатыУдостоверяющихЦентровОС());

	Соединение = Новый HTTPСоединение(Сервер,443,,,Неопределено,60,ЗащищенноеСоединение);
		
	HTTPОтвет = Соединение.Получить(HTTPЗапрос);
					
	ТекстОтвета  = HTTPОтвет.ПолучитьТелоКакСтроку();
	   
	Чтение = Новый ЧтениеJSON;
	Чтение.УстановитьСтроку(ТекстОтвета);
	
	Попытка
		РезультатРазбора = ПрочитатьJSON(Чтение, ложь);
		
		///Получится струтура с результатом:
		///balance			1 200 120		Число            		// Сумма в копейках
		///contractId		1 000 002		Число        			// ИДентификатор договора (Номер счета)
		///organisationId	13 567 555 226	Число                   // ИДентификатор лицевого счета организации
		///productGroupId	8	Число                               // ИДентификатор группы маркировки ( 8 - Для молочной продукции)
		
		Возврат РезультатРазбора;
	Исключение
		Возврат Неопределено;
	КонецПопытки;

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

+73 –

См. также

Раздельный учет ГОЗ в 1С:Бухгалтерия 3.0 ПРОФ и КОРП

Обмен с ГосИС Бюджетный учет Регламентированный учет и отчетность Бухгалтер Пользователь Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление холдингом Химическая промышленность Государственные, бюджетные структуры Электротехника и микроэлектроника Машиностроение и приборостроение Металлургическая промышленность Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Раздельный учет гособоронзаказа в 1С: Отчеты по исполнению госконтрактов, расчетно-калькуляционные материалы и контроль операций для исполнения в срок в 1С: Бухгалтерия 3.0 и Управление Холдингом 3.2. Простая настройка и полное соответствие законодательству. Профессиональный консалтинг и регулярные обновления продукта.

30000 руб.

28.08.2020 397365 2616 137

1112

Интеграция 1С с ГИИС ДМДК

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

Интеграция для работы 1С с ГИИС ДМДК. Государственная интегрированная информационная система в сфере контроля за оборотом драгоценных металлов, драгоценных камней и изделий из них на всех этапах этого оборота.

65000 руб.

12.04.2022 20661 167 34

Гособоронзаказ: учет и отчетность 1С БП3.0 КОРП + ПРОФ + Базовая + БИТ.ФИНАНС

Бюджетный учет Обмен с ГосИС Бухгалтер Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Государственные, бюджетные структуры Россия Бухгалтерский учет Платные (руб)

Доработка конфигурации 1С:Бухгалтерия предприятия, редакция 3.0. реализована в виде расширения. Предназначена для ведения раздельного учета и автоматизации заполнения отчетности исполнения контрактов ГОЗ в конфигурациях 1С БП КОРП, ПРОФ, Базовая, БИТ.ФИНАНС.

55200 руб.

16.08.2019 95241 262 89

156

ЕГАИС++: автоматизация учета импорта и производства алкогольной продукции в 1С

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

Автоматизация учета ЕГАИС в 1С для оптовой торговли, производства и импорта. Получение и отправка ТТН, отправка акта о постановке на баланс и акта о списании. Получение остатков. Загрузка и сопоставление номенклатуры и контрагентов. Оправка в ЕГАИС отчетов о производстве и импорте.

828 руб.

15.12.2015 173458 908 370

408

Обмен с ФГИС Меркурий из 1С

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

Автоматический обмен данными с системой ФГИС Меркурий из 1С через ВетИС API: загрузка данных по хозяйствующим субъектам, предприятиям; типов, групп, видов, наименований продукции, сопоставление данных и запись их в базу данных; создание на основании расходных документов транспортных партий, отправка на сервер, печать полученных ветеринарных свидетельств, запрос остатков складского журнала, проведение инвентаризаций, оформление производственных партий.

11500 руб.

08.12.2017 107033 290 110

147

Обмен с системами Казначейства: Электронный бюджет

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

Обработка для обмена платежными документами в формате xml для системы Федерального казначейства "Электронный бюджет" из конфигураций 1С. Поставляется для БП 3.0 Работа только с контрагентами. Сайт "Электронного Бюджета": https://www.budget.gov.ru/

19200 руб.

14.10.2020 65479 398 103

328

Инвентаризация кодов маркировки системы "Честный знак", запрос, сравнение с остатками 1С, списание, ОСУ

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

Внешняя обработка для инвентаризации кодов маркировки в системе "Честный знак". Позволяет быстро определить и списать коды маркировки проданного, испорченного, утраченного (полный перечень причин списания указан ниже) товара, которые всё ещё числятся за организацией. Привести в соответствие остатки маркированного товара программы 1С и системы "Честного знака".

6540 руб.

09.01.2024 7458 94 22

Гособоронзаказ в 1С: УПП 1.3

Бюджетный учет Обмен с ГосИС Бухгалтер Пользователь Бухгалтерский учет 1С:Управление производственным предприятием Государственные, бюджетные структуры Россия Бухгалтерский учет Платные (руб)

Для 1С: УПП 1.3 предлагаем Вашему вниманию подсистему "Раздельный учет результатов финансово-хозяйственной деятельности организаций, выполняющих государственный оборонный заказ (раздельный учет ГОЗ)". Ключевые возможности подсистемы: - Автоматическое заполнение регламентированного отчета «Исполнение контрактов ГОЗ»; - Расшифровка показателей отчета об исполнении контрактов ГОЗ с детализацией до документов; - Контроль хозяйственных операций на соответствие требованиям Постановления Правительства № 47; - Автоматизированный ввод начальных данных по контрактам, заключенным ранее даты начала использования подсистемы.

90000 руб.

25.09.2020 32449 44 10

Комментарии

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

Свернуть все

1. quazare 3925 30.08.21 20:07 Сейчас в теме

а есть ли механизм запроса остатков?

4. user5300 1081 31.08.21 09:14 Сейчас в теме

(1) Вообще, есть един механизм, но у меня возвращается пустой результат...
Возможно у вас получится:

Функция СостояниеКодовМаркировок(ТокенДоступа)
		
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Новый СертификатыУдостоверяющихЦентровОС());

	HTTPСоединение = Новый HTTPСоединение("markirovka.crpt.ru",443,,,,60,ЗащищенноеСоединение);

	
	ЗаголовокHTTP = Новый Соответствие();
	ЗаголовокHTTP.Вставить("Content-Type", "application/json; charset=UTF-8");
	ЗаголовокHTTP.Вставить("Accept", "application/json");
	ЗаголовокHTTP.Вставить("Accept-Charset", "utf-8");
	ЗаголовокHTTP.Вставить("Authorization",   "Bearer " + ТокенДоступа);
	
	
	URLЗапроса = "/api/v3/true-api/cises/listV2";                 
	
	HTTPЗапрос  = Новый HTTPЗапрос(URLЗапроса, ЗаголовокHTTP);
	
	ТелоЗапроса = Новый Структура;
	ТелоЗапроса.Вставить("cisStatus", "APPLIED");   //Статус КМ (EMITTED - Эмитирован. Выпущен; APPLIED - Эмитирован. Получен; INTRODUCED - В обороте; WRITTEN_OFF Списан)                       
	ТелоЗапроса.Вставить("pg","milk");              // Товарная группа
                         
       
	ЗаписьJSON = Новый ЗаписьJSON();
	
    ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет, "");
    ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
    ЗаписатьJSON(ЗаписьJSON, ТелоЗапроса);
    
    ТекстJSON = ЗаписьJSON.Закрыть();
	
	HTTPЗапрос.УстановитьТелоИзСтроки(ТекстJSON, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
	
	Ответ = HTTPСоединение.ВызватьHTTPМетод("GET",HTTPЗапрос);
	
	ИДДок = Ответ.ПолучитьТелоКакСтроку();

	Чтение = Новый ЧтениеJSON;
	Чтение.УстановитьСтроку(ИДДок);
	
	РезультатРазбора = ПрочитатьJSON(Чтение, ложь);

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

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

Показать

Возвращает список КМ с указанным статусом "Эмитирован выпущен"

7. user5300 1081 31.08.21 17:02 Сейчас в теме

(1) Вот рабочий пример, можно посмотреть список КМ с отбором (Например со статусом - Эмитирован.Выпущен)

&НаКлиенте
Функция СвойствоКМ(ТокенДоступа)
			
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Новый СертификатыУдостоверяющихЦентровОС());

	HTTPСоединение = Новый HTTPСоединение("markirovka.crpt.ru",443,,,,60,ЗащищенноеСоединение);

	ЗаголовокHTTP = Новый Соответствие();
	ЗаголовокHTTP.Вставить("Content-Type", "application/json; charset=UTF-8");
	ЗаголовокHTTP.Вставить("Accept", "application/json");
	ЗаголовокHTTP.Вставить("Accept-Charset", "utf-8");
	ЗаголовокHTTP.Вставить("Authorization",   "Bearer " + ТокенДоступа);
		
	ПараметрыURL = Новый Массив;         ///Отбор запроса
	ПараметрыURL.Добавить("pg=milk");                               ///Группа - молочная продукция
	ПараметрыURL.Добавить("cisStatus=EMITTED");               ///Статус - Эмитирован.Выпущен
	ПараметрыURL.Добавить("limit=20");                              ////Лимит списка - 20 
	
	
	///api/v3/true-api/cises/listV2?pg=milk&cisStatus=EMITTED&limit=999
	URLЗапроса = СтрШаблон("/api/v3/true-api/cises/listV2?%1",СтрСоединить(ПараметрыURL, "&"));
	
	HTTPЗапрос  = Новый HTTPЗапрос(URLЗапроса, ЗаголовокHTTP);
		
	Ответ = HTTPСоединение.Получить(HTTPЗапрос);
	
	ИДДок = Ответ.ПолучитьТелоКакСтроку();

	Чтение = Новый ЧтениеJSON;
	Чтение.УстановитьСтроку(ИДДок);
	
	РезультатРазбора = ПрочитатьJSON(Чтение, ложь);
		
	
	Возврат РезультатРазбора;
	
КонецФункции

Показать

48. bprogs 2 23.12.21 12:28 Сейчас в теме

(1) Добрый день здесь можно получить остатки
https://infostart.ru/public/1575112/

2. fenixnow 298 31.08.21 08:06 Сейчас в теме

Вы токен получаете не для СУЗа, а для ГИСМ.
Посмотрите в пункт 10.3.2.2 документации СУЗ Облако.
Для СУЗа токен короткий и не является JWT

3. user5300 1081 31.08.21 08:44 Сейчас в теме

(2) Согласен, Токен для СУЗа получается короткий и время действия не разобрать, а вот Токен ГИС МТ можно разобрать, тем же механизмом

5. quazare 3925 31.08.21 09:41 Сейчас в теме

Что за токен суза? Зачем он нужен? Всегда работали напрямую с токенами гис

6. user5300 1081 31.08.21 09:49 Сейчас в теме

(5) Коды маркировок где вы получаете ? Только в СУЗе , как и подача отчета о нанесении

8. quazare 3925 31.08.21 17:17 Сейчас в теме

(7) благодарю за ответ!

9. MegasXXX 3 03.09.21 16:16 Сейчас в теме

Поставлю плюсик! Хорошая статья! Писал свою интеграцию на 8.2 с автоматическим получением отправкой.

"На компьютере должен быть установлен криптопровайдеров (В примере будет рассмотрен Crypto Pro)" - Кстати на сайте Крипто Про достаточно скачать компоненту.

"У кого получилось взаимодействовать с типовым механизмом - просьба отписаться в коммментах." - у меня не получилось, у меня платформа 8.2, и в самой документации с ЧЗ именно Ваш пример взаимодействия с криптографией.

Мен ещё очень сильно нравятся 2 дметода.
1) - Это информация по контрагенту - Зарегестрирован/Не зарегестрирован
2) - Информация по Коду маркировки: Состав агрегата(если агрегат), кому пренадлижит, в каком документе находится (если в пути)

10. user5300 1081 06.09.21 10:56 Сейчас в теме

(9)
Есть еще пример подписания документов с помощью компоненты "КомпонентаXMLDSig" (В последних бсп используется она), с ней немного проще, но результат такой же)

Информация по контрагенту пока неактуальна для молочки )) (До 01.09.2022) -За год еще много всего поменяется...

(7) Метод получения Информации по КМ, выложил в комментариях кстати тоже (В кратком варианте, так же можно получить более детальную информацию)

13. CD_SVEN 10.09.21 10:12 Сейчас в теме

(10)Подскажите код подписания документа, который указан в вашем примере)

ПодписанныйДокумент = ПодписатьСертификатомДокумент(           ///Необходимо открепить подпись!
				ПолучитьСертификаты(2,СертификатCOM),ТекстXML64,ОткрепленнаяПодпись);

14. user5300 1081 10.09.21 10:14 Сейчас в теме

(13) самый первый пункт )
"Получение сертификата и подписания строки"

15. user5300 1081 10.09.21 10:15 Сейчас в теме

(13) Функция называется "ПодписатьСертификатомСтроку()"

16. CD_SVEN 10.09.21 12:43 Сейчас в теме

(15)Подскажите может вы сталкивались, мне необходимо написать метод по "формированию наборов" для товаров легкой промышленности,я пытаюсь переделать вашу процедуру "Ввод в оборот". возвращается ошибка "405 Not allowed"

17. user5300 1081 10.09.21 12:59 Сейчас в теме

(16)

405 Not allowed

А описание ошибки есть?

18. CD_SVEN 10.09.21 13:01 Сейчас в теме

(17)щас поправил адред сервера, появилась другая ошибка

{"error_message":"Метод с указанным URL не найден"}

19. CD_SVEN 10.09.21 13:02 Сейчас в теме

(17) вот строка URLЗапроса
URLЗапроса = "/api/v3/true-api/lk/documents/aggregation-set/create?pg=clothes";

20. user5300 1081 10.09.21 13:22 Сейчас в теме

(19) Вот, примерно так должно быть:


Функция П()
ИННОрганизации = "11";	
	ТокенДоступа = "";
	
	///Формирование основного текста
	ТелоЗапроса = Новый Структура;
    ТелоЗапроса.Вставить("participantId",		ИННОрганизации);           ///ИНН участника оборота товаров  
    ТелоЗапроса.Вставить("aggregationUnits", Новый Массив);
	
	ЧтениеJSON = Новый ЧтениеJSON;
	ЧтениеJSON.УстановитьСтроку(СтрутураФорматированнойТаблицы);
	
	МассивСтруктур = ПрочитатьJSON(ЧтениеJSON, ложь);
		
	Для каждого стр из АгрегированныеКоды Цикл	 ///Дерево значений (Код агрегации - коды маркировок)
			СтрокаТЧ = Новый Структура;
			СтрокаТЧ.Вставить("unitSerialNumber",				стр.КодАгрегации); 				///Код идентификации набора
			СтрокаТЧ.Вставить("aggregationType", 				"SETS_AGGREGATION");               	
			СтрокаТЧ.Вставить("sntins", 						Новый Массив); 
			Для каждого КМ из стр.строки цикл
				СтрокаТЧ.sntins.Добавить(КМ.КодМаркировки);
			КонецЦикла;
			
			ТелоЗапроса.products.Добавить(СтрокаТЧ);
    КонецЦикла;
    ЗаписьJSON = Новый ЗаписьJSON();
    ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет, "");
    ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
    
    ЗаписатьJSON(ЗаписьJSON, ТелоЗапроса);
    
    ТекстJSON = ЗаписьJSON.Закрыть();
	
	ТекстXML64 = ЗашифроватьBase64(ТекстJSON, КодировкаТекста.UTF8);
	
	///Подпись текста
	ОткрепленнаяПодпись = Истина;

	ПодписанныйДокумент = ПодписатьДанные(Сертификат,ТекстJSON,ОткрепленнаяПодпись);		
	
	
	///Отправка текста
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Новый СертификатыУдостоверяющихЦентровОС());

	HTTPСоединение = Новый HTTPСоединение("markirovka.crpt.ru",443,,,,60,ЗащищенноеСоединение);
	
	ЗаголовокHTTP = Новый Соответствие();
	ЗаголовокHTTP.Вставить("Content-Type", "application/json; charset=UTF-8");
	ЗаголовокHTTP.Вставить("Accept", "application/json");
	ЗаголовокHTTP.Вставить("Accept-Charset", "utf-8");
	ЗаголовокHTTP.Вставить("Authorization",   "Bearer " + ТокенДоступа);
	
	URLЗапроса = "/api/v3/true-api/lk/documents/create?pg=clothes";

	
	HTTPЗапрос  = Новый HTTPЗапрос(URLЗапроса, ЗаголовокHTTP);
	
	ТелоЗапроса = Новый Структура;
	ТелоЗапроса.Вставить("document_format", "MANUAL");                           //Тип документа (для json указать MANUAL)
    ТелоЗапроса.Вставить("product_document",ТекстXML64);                         //Документ без подписи
    ТелоЗапроса.Вставить("signature",       ПодписанныйДокумент);                //Документ с подписью
	ТелоЗапроса.Вставить("type",  			"SETS_AGGREGATION");               // Формирование наборов JSON (MANUAL). json;    
    ТелоЗапроса.Вставить("product_group",  	"clothes");                             //Товарная группа - одежда
       
	ЗаписьJSON = Новый ЗаписьJSON();
	
    ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет, "");
    ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
    ЗаписатьJSON(ЗаписьJSON, ТелоЗапроса);
    
    ТекстJSON = ЗаписьJSON.Закрыть();
	
	HTTPЗапрос.УстановитьТелоИзСтроки(ТекстJSON, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
	
    Ответ = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);
	
	ИДДок = Ответ.ПолучитьТелоКакСтроку();

	Возврат ИДДок;
КонецФункции

Показать

21. CD_SVEN 10.09.21 14:15 Сейчас в теме

(20)

ЧтениеJSON.УстановитьСтроку(СтрутураФорматированнойТаблицы);

можно небольшое уточнее что тут должно быть?

22. user5300 1081 10.09.21 14:17 Сейчас в теме

(21) аа, забыл..

СтрутураФорматированнойТаблицы - Это просто дерево значений в json (Для передачи с сервера на клиент)

 ЧтениеJSON = Новый ЧтениеJSON;
    ЧтениеJSON.УстановитьСтроку(СтрутураФорматированнойТаблицы);
    
    АгрегированныеКоды = ПрочитатьJSON(ЧтениеJSON, ложь);
        
    Для каждого стр из АгрегированныеКоды Цикл

23. CD_SVEN 10.09.21 15:49 Сейчас в теме

(22)большое спасибо

11. CD_SVEN 10.09.21 10:01 Сейчас в теме

Здравствуйте, подскажите функцию "ПодписатьСертификатомДокумент", в вашем мануале нет этой функции.

12. user5300 1081 10.09.21 10:12 Сейчас в теме

(11) Здравствуйте. Первый пункт: "Получение сертификата и подписания строки" - там описана функция

24. CD_SVEN 13.09.21 08:16 Сейчас в теме

(22) доброе утро. Появился вопрос, я смог отправить запрос на создание документа "Формирование набора", документ создался на на сайте ЧЗ вышла ошибка

01: Не заполнено поле "Код" в документе "Формирование наборов".

с чем может быть связана эта ошибка?

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

25. user5300 1081 13.09.21 08:27 Сейчас в теме

(24) Что за код ?

Код идентификации набора?

Код типа агрегации ?

https://static.crpt.tech/documents/True_API.pdf (стр. 92)

26. CD_SVEN 13.09.21 08:30 Сейчас в теме

(25) у вас есть какая нибудь функция которая преобразует коды моркировки для передачи, скажем так в нужный формат я в первые с эти столкнулся, я передал в ЧЗ код такой, какой хранит сама 1с то есть со скобками и тд.

27. user5300 1081 13.09.21 08:36 Сейчас в теме

(26) Ну по молочной продукции всё просто:

КодыМаркировок = РезультатРазбора.codes;
...
ПолныйКодМаркировки = новый ХранилищеЗначения(КодМаркировки);
СокращенныйКодМаркировки = Лев(КодМаркировки,24);

28. CD_SVEN 13.09.21 08:43 Сейчас в теме

(27)

(01)04602443086596(21)oby;lFH,sT;TB

вот мой код для легкой промышленности который хранится в 1с, подскажи пожалуйста как он должен выглядить в момент отправки если вот такой шаблон

01 + GTIN + 21 + SERIAL (13 chars)

Заранее огромное спасибо)

29. user5300 1081 13.09.21 08:46 Сейчас в теме

(28)

01 + GTIN + 21

Вот это по идее (До спец символа GS). 24 символов должно получится

30. CD_SVEN 16.09.21 11:10 Сейчас в теме

(29) и снова здравствуйте, подскажите эта строка должна работать в веб клиенте? база размещена на веб сервер Апачи, я подключаюсь через тонкий клиент, в тонком клиенте данный запрос не видит сертификаты установленные на пк.

 comStore = Новый COMОбъект("CAdESCOM.Store");

31. user5300 1081 16.09.21 11:16 Сейчас в теме

(30) Здравствуйте. С данным вопросом я не смогу помочь...

Возможно, если криптопро установлен на сервере, необходимо получить сертификат со стороны сервера.

 ///Процедура НаКлиенте.

 comStore = Новый COMОбъект("CAdESCOM.Store");	
 comStore.Open(
        2, // StoreLocation - CAPICOM_CURRENT_USER_STORE.   ///Вам нужен CAPICOM_LOCAL_MACHINE_STORE   (Не помню точно какой параметр..)
        "MY", // StoreName
        0); // OpenMode - CAPICOM_STORE_OPEN_READ_ONLY.

32. CD_SVEN 16.09.21 11:45 Сейчас в теме

(31) крипто-про стоит и на сервере и на моей машине

33. CD_SVEN 21.09.21 09:40 Сейчас в теме

(31)

 comStore = Новый COMОбъект("CAdESCOM.Store");    
 comStore.Open(
        2, // StoreLocation - CAPICOM_CURRENT_USER_STORE.   ///Вам нужен CAPICOM_LOCAL_MACHINE_STORE   (Не помню точно какой параметр..)
        "MY", // StoreName
        0); // OpenMode - CAPICOM_STORE_OPEN_READ_ONLY.

Данный метод получения сертификатов не работает с базой размещенной на web-сервере,

Функция ПодписатьДанные(Данные,Откреп = Ложь)
 
   ///Получим внешнюю компоненту из общих макетов (КомпонентаXMLDSig)
   // ВнешняяКомпонента = КомпонентаПодписи();
    ВнешняяКомпонента = ОбщегоНазначения.ПодключитьКомпонентуИзМакета("XMLDSignAddIn",
		"Справочник.СертификатыКлючейЭлектроннойПодписиИШифрования.Макет.КомпонентаXMLDSig");
	
    Если ВнешняяКомпонента = Неопределено Тогда
        возврат Неопределено;
    КонецЕсли;
    
    ///Получим отфарматированный сертификат (Двоичные данные, преобразованные в base64)
    СертификатКриптографииBase64 = ПолучитьСертификатBase64Строку();
    
    Если СертификатКриптографииBase64 = Неопределено Тогда
        возврат Неопределено;
    КонецЕсли;
    
    Попытка
        АтрибутSignatureValue = ВнешняяКомпонента.CMSSign(Данные,   ///Подписываемые данные
                СертификатКриптографииBase64,     ///Сертификат в Base64
                "",           ///Пароль сертификата
                0,            //тип подписи "CAdES-BES"
                Откреп,      //открепленная
                17);        //РежимВключенияСертификатовКриптографии.ВключатьПолнуюЦепочку 
    Исключение
        ВызватьИсключение НСтр("ru = 'Ошибка вызова метода CMSSign компоненты XMLDSig.'") + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
    КонецПопытки;
    
    ///Преобразуем подпись в Base64Строку
    Подпись = Base64Строка(АтрибутSignatureValue);
    Подпись = СтрЗаменить(Подпись, Символы.ПС, "");
    Подпись = СтрЗаменить(Подпись, Символы.ВК, "");
    
    Возврат Подпись;        ///Подписанные данные
    
КонецФункции

Показать

а эта функция как то не правильно подписывает данные для отправки, кто может помочь в данном вопросе

34. user5300 1081 21.09.21 11:51 Сейчас в теме

(33)

как то не правильно подписывает данные

Что значит не правильно?
На данный момент именно этот механизм используется в типовых конфигурациях, в том числе и у меня

35. CD_SVEN 21.09.21 12:11 Сейчас в теме

(34)

33: Проверка электронной подписи не пройдена.

в ЛЧ ЧЗ в документе такая ошибка, сертификат используется один и тот же

36. user5300 1081 21.09.21 12:15 Сейчас в теме

(35) Возможно там требуется открепленная подпись

 ПодписатьДанные(Данные,Откреп = Ложь)

Вы отправляли с прикрепленной по умолчанию , скорее всего

37. CD_SVEN 21.09.21 12:17 Сейчас в теме

(36)

&НаСервере
Функция ПолучитьСертификатBase64Строку() Экспорт 

    ///Получим двоичные данные сертификата
  
    ДанныеСертификата = Справочники.СертификатыКлючейЭлектроннойПодписиИШифрования.НайтиПоРеквизиту("Отпечаток","123456").ДанныеСертификата.Получить();    
    
    ///Зашифруем в Base64
    СтрокаBase64 = Base64Строка(ДанныеСертификата);
    
    Значение = СтрЗаменить(СтрокаBase64, Символы.ВК, "");
    Значение = СтрЗаменить(Значение, Символы.ПС, "");
    
    Возврат Значение ;

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

Показать

Функция ПодписатьДанные(Данные,Откреп = Ложь)
 
   ///Получим внешнюю компоненту из общих макетов (КомпонентаXMLDSig)
   // ВнешняяКомпонента = КомпонентаПодписи();
    ВнешняяКомпонента = ОбщегоНазначения.ПодключитьКомпонентуИзМакета("XMLDSignAddIn",
		"Справочник.СертификатыКлючейЭлектроннойПодписиИШифрования.Макет.КомпонентаXMLDSig");
	
    Если ВнешняяКомпонента = Неопределено Тогда
        возврат Неопределено;
    КонецЕсли;
    
    ///Получим отфарматированный сертификат (Двоичные данные, преобразованные в base64)
    СертификатКриптографииBase64 = ПолучитьСертификатBase64Строку();
    
    Если СертификатКриптографииBase64 = Неопределено Тогда
        возврат Неопределено;
    КонецЕсли;
    
    Попытка
        АтрибутSignatureValue = ВнешняяКомпонента.CMSSign(Данные,   ///Подписываемые данные
                СертификатКриптографииBase64,     ///Сертификат в Base64
                "",           ///Пароль сертификата
                0,            //тип подписи "CAdES-BES"
                Откреп,      //открепленная
                17);        //РежимВключенияСертификатовКриптографии.ВключатьПолнуюЦепочку 
    Исключение
        ВызватьИсключение НСтр("ru = 'Ошибка вызова метода CMSSign компоненты XMLDSig.'") + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
    КонецПопытки;
    
    ///Преобразуем подпись в Base64Строку
    Подпись = Base64Строка(АтрибутSignatureValue);
    Подпись = СтрЗаменить(Подпись, Символы.ПС, "");
    Подпись = СтрЗаменить(Подпись, Символы.ВК, "");
    
    Возврат Подпись;        ///Подписанные данные
    
КонецФункции

Показать

38. user5300 1081 21.09.21 12:25 Сейчас в теме

(37)


///Ввод в оборот
.....

 
    ТекстJSON = ЗаписьJSON.Закрыть();
	
	///ТекстXML64 = ЗашифроватьBase64(ТекстJSON, КодировкаТекста.UTF8);    ///Для 1 варианта текст преобразовывается
	
///Подпись текста
	ОткрепленнаяПодпись = Истина;
	//ПодписанныйДокумент = ПодписатьСертификатомДокумент(           ///Необходимо открепить подпись!   ///1 вариант
	//			ПолучитьСертификаты(2,СертификатCOM),ТекстXML64,ОткрепленнаяПодпись);

         ПодписанныйДокумент  = ПодписатьДанные(ТекстJSON ,ОткрепленнаяПодпись )                                     ///2 вариант

Показать

39. lsnr 06.10.21 10:40 Сейчас в теме

Попробовал выполнить Ваш код. Затык на :

Метод объекта не обнаружен (SignCades)
ПодписанныеДанные = comSignedData.SignCades(

в Функция ПодписатьСертификатомСтроку(

40. lsnr 28.10.21 15:47 Сейчас в теме

В функции ОтправитьОтчетОНанесении() Вы оставили комментарий:
///P.S. Обычно таблицу с кодом маркировки хранят на сервере, для передачи таблицы лучше использовать ЗаписьJSON и ЧтениеJSON
///так как код маркировки содержит спец символ GS1, который будет выдавать ошибку при передаче.

Можно пояснить - как использовать ЗаписьJSON и ЧтениеJSON чтобы передать таблицу значений с сервера на клиент?

41. user5300 1081 29.10.21 09:21 Сейчас в теме

(40) Таблицу значений просто так нельзя передать )
Приведу свой пример передачи:

&НаКлиенте
//Ссылка на документ с таблицей кодов маркировок
Функция ПодготовитьДокументыДляПодачиВЧестныйЗнак(Ссылка,Сертификат,СрокГодности,Номенклатура) Экспорт
	
	Результат = новый Массив;
	
	МассивТаблицыJSON = ПодготовитьДокументыДляПодачиВЧестныйЗнакСЕРВЕР(Ссылка);
	
	ЧтениеJSON = Новый ЧтениеJSON;
	ЧтениеJSON.УстановитьСтроку(МассивТаблицыJSON);
	
	МассивТаблицыВыгрузки = ПрочитатьJSON(ЧтениеJSON, ложь);
	
	Для каждого стр из МассивТаблицыВыгрузки цикл		
			
		ОтветОтправки = ОтправитьОтчетОНанесении(СрокГодности,стр.КодМаркировки,КодМаркировки.ПолныйКодМаркировки,Номенклатура,Сертификат);
		Результат.Добавить(ОтветОтправки);
		
	КонецЦикла;
	 
	Возврат Результат;
	
КонецФункции

&НаСервере
Функция ПодготовитьДокументыДляПодачиВЧестныйЗнакСЕРВЕР(Ссылка) Экспорт
	
	Результат = новый Массив;	
	 
	Таблица = Ссылка.КодыМаркировок.Выгрузить();
	
	Для каждого стр из Таблица цикл					
		
		Результат.Добавить(новый Структура("КодМаркировки,ПолныйКодМаркировки",стр.КодМаркировки,стр.ПолныйКодМаркировки.Получить()));

	КонецЦикла;
	
	ЗаписьJSON = Новый ЗаписьJSON;
	ЗаписьJSON.УстановитьСтроку();  
	ЗаписатьJSON(ЗаписьJSON, Результат);            
	МассивТаблицыJSON = ЗаписьJSON.Закрыть();

	Возврат МассивТаблицыJSON;
	
КонецФункции

Показать

Коды маркировок хранятся в ХранилищеЗначений, и получить их можно на сервере, а потом передать на клиент. При передачи возникает ошибка из-за спец. символа gs1, поэтому конвертируется в JSON при передаче

42. lsnr 04.11.21 21:01 Сейчас в теме

А как, в каком виде лучше хранить полный код маркировки в 1с? В реквизите типа Строка или Хранилище значений?

43. user5300 1081 05.11.21 08:03 Сейчас в теме

(42) Рекомендуется в Хранилище значений

44. diar01 53 23.11.21 11:18 Сейчас в теме

Подскажите, пожалуйста, в
Функция ПодписатьСертификатомСтроку(ВыбранныйСертификат, СтрокаДляПодписи, Открепл)
что здесь СтрокаДляПодписи ?

45. user5300 1081 23.11.21 13:48 Сейчас в теме

(44)

СтрокаДляПодписи - это полученные данные из Честного знака, которые необходимо подписать и отправить повторно, но с подписью.
Пример(Описано в статье выше):

/// Сначала получаете данные которые необходимо подписать в дальнейшем

        ИдентификаторСоединения = "Ваш ИД";	
	Сервер = "markirovka.crpt.ru";	
	СертификатCOM = ПолучитьСертификаты();  ///Необходимо выбрать сертификат из списка 

	// Получение данных для получения токена
	HTTPСоединение =    Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);
	HTTPЗапрос = новый HTTPЗапрос("/api/v3/auth/cert/key");
	HTTPОтвет = HTTPСоединение.ВызватьHTTPМетод("GET",HTTPЗапрос);
	ОтветСтрока = HTTPОтвет.ПолучитьТелоКакСтроку("UTF-8"); 
	
	ЧтениеJSON = Новый ЧтениеJSON; 
	ЧтениеJSON.УстановитьСтроку(ОтветСтрока); 
	ДанныеJSON = ПрочитатьJSON(ЧтениеJSON); 
	ЧтениеJSON.Закрыть();
	
	УИД = ДанныеJSON.uuid;
	ДанныеДляПолученияТокена = ДанныеJSON.data;   ///Содержит зашифрованные данные, необходимые для подписи

Показать

///Затем, эти же данные пописываете (В зашифрованном виде) и отправляете повторно

	// Подписание данных для получения токена
	ПодписанныеДанные = ПодписатьСертификатомСтроку(
				СертификатCOM,
				ЗашифроватьBase64(ДанныеДляПолученияТокена, КодировкаТекста.UTF8), /// Вот это
Ложь);

46. lsnr 12.12.21 22:26 Сейчас в теме

Подскажите пожалуйста, при вводе в оборот, в ЧЗ должен отправляться полный код маркировки или обрезанный, без "крипто-хвоста"? Тот же самый вопрос и при формировании отчета о нанесении - нужен полный код или обрезанный? И в том, и в другом случае документы на ЧЗ создаются со статусом загрузки "Обработан с ошибками" - "03: Недопустимый формат значения" - при попытке отправить полный код маркировки.

47. user5300 1081 13.12.21 08:05 Сейчас в теме

(46) При вводе отправляется обрезанный код, без "крипто-хвоста"
При подаче отчета о нанесении - полный код

49. lsnr 31.12.21 08:14 Сейчас в теме

Добрый день. С Наступающим Вас! Подскажите пожалуйста - при подаче отчета о нанесении существует возможность подписывать документ о нанесении:
Если Сертификат <> Неопределено Тогда
ПодписанныйДокумент = ПодписатьСертификатомДокумент(
ПолучитьСертификаты(Истина,Истина,Сертификат),
ЗашифроватьBase64(ТекстJSON, КодировкаТекста.UTF8),Ложь);

ЗаголовокHTTP.Вставить("X-Signature", ПодписанныйДокумент);
КонецЕсли;
Но и в этом случае статус документа в ЛК остается "не подписан".. Почему?

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

50. Виль 23 21.01.22 16:35 Сейчас в теме

Крик души .... Голову сломал... Считываю марку - не могу отправить отчет о нанесении, Хотел запросить список о кодах - ерунду возвращает, но никак не список... Обязательно так надо всё усложнять???

51. user5300 1081 21.01.22 16:41 Сейчас в теме

(50) Что именно не получается?
Процедура "Отправка отчета о нанесении" (Выше в статье) всё еще работает ...

Получаете токен
Отправляете с токеном данные с кодами маркировок

Что получаете в ответе ?

54. zyxell 05.03.22 14:25 Сейчас в теме

(47)
Добрый день!
Подскажите, пжл, такой момент.
1. Есть коды, которые сами заказываем из 1С, распечатываем, наклеиваем на продукцию, успешно отправляем отчет о нанесении, т.к. в РС ПулКодовМаркировкиСУЗ есть записи по этим кодам.
2. Есть упаковка с уже нанесенной маркой в типографии, при считывании получаем КМ "(01)04600712007234(21)5K_>,j". Где брать полный код маркировки, т.к. он требуется для передачи отчета о нанесении?

55. user5300 1081 08.03.22 08:04 Сейчас в теме

(54)

(01)04600712007234(21)5K_>,j

- Это и есть Полный код, вам надо его преобразовать... должно получится:

0104600712007234(СимволGS1)5K_>,j

24 или 25 символов:

а) первая группа идентифицируется идентификатором применения AI="01", состоит из 14 цифр и содержит код товара;

б) вторая группа идентифицируется идентификатором применения AI="21", состоит из 6 символов (цифр, строчных и прописных букв латинского алфавита, а также специальных символов) и содержит индивидуальный серийный номер упаковки молочной продукции и завершается символом-разделителем FNC1 (ASCII 29);

в) третья группа идентифицируется идентификатором применения AI="93", состоит из 4 символов (цифр, строчных и прописных букв латинского алфавита, а также специальных символов) и содержит код проверки.

56. zyxell 10.03.22 09:05 Сейчас в теме

(55)
Большое спасибо за ответ, очень помогли!
И отдельное спасибо за очень нужную статью!

73. harmless 27.11.23 06:56 Сейчас в теме

(55) Только ASCII 29 - это <GS1>, а <FNC1> - ASCII 232 (только его просто так не вставить, вроде как)

52. Виль 23 22.01.22 20:09 Сейчас в теме

{"success":false,"globalErrors":[{"error":"Неверный формат кодов маркировки 0104650128580227215RVS-E93WCKu: коды маркировки товара должны содержать полный код маркировки, включая код проверки","errorCode":7360}]}

Код маркировки в json переводил процедурой из УТ11 ШтрихкодированиеИСКлиентСервер.ШтрихкодВФорматеGS1("0104650128580227215RVS-E93WCKu");

Результат тот же

53. Виль 23 25.01.22 08:15 Сейчас в теме

Всё разобрался - GS вычищался.
Благодарю за статью. Очень нужная

57. Razlagutt 22.04.22 13:36 Сейчас в теме

Здравствуйте!
1С:Предприятие 8.3 (8.3.20.1674)
Управление торговлей, редакция 11 (11.4.14.129)

У меня почему-то ОбъектКомпоненты.CMSSign падает с ошибкой "Ошибка вызова метода CMSSign компоненты ExtraCryptoAPI.
Ошибка криптографии : ( =1)."

Кто-нибудь сталкивался?

58. VachKirp 413 02.08.22 17:50 Сейчас в теме

(57) Добрый день,
Удалось найти способ исправления ?

59. Taisa07 09.09.22 23:35 Сейчас в теме

Добрый день!
С выбытием молочной продукции никто не сталкивался?

60. Rotmayer 08.11.22 03:09 Сейчас в теме

Всем привет!

Использую сервис честного знака для подписания строки сертификатом, токен создаётся корректный

Если же подписываю строку программно через 1С, то кол-во символов через сервис и через 1С код различается из-за этого генерируется неверный токен, пишет ошибку: Токен не действителен. Необходимо получить новый токен аутентификации

То есть ошибка где-то здесь:

&НаКлиенте
Функция ПодписатьСертификатомСтроку(ВыбранныйСертификат, СтрокаДляПодписи, Открепл)
	Попытка
		comStore = Новый COMОбъект("CAdESCOM.Store");
		comCPSigner = Новый COMОбъект("CAdESCOM.CPSigner"); // Аналог "CAPICOM.Signer".
		comSignedData = Новый COMОбъект("CAdESCOM.CadesSignedData");
	Исключение
		Сообщить("Не установлен КриптоПро!");
		Возврат Неопределено;
	КонецПопытки;
	
	СтрокаВBase64 = Истина;
	
	comStore.Open(
	2, // StoreLocation - CAPICOM_CURRENT_USER_STORE.
	"MY", // StoreName
	0); // OpenMode - CAPICOM_STORE_OPEN_READ_ONLY.
	comCertificates = comStore.Certificates;
	comStore.Close();
	comStore = Неопределено;
	
	comCPSigner.Certificate = ВыбранныйСертификат;
	
	Если СтрокаВBase64 Тогда // Очень важно!
		comSignedData.ContentEncoding = 1; // CADESCOM_BASE64_TO_BINARY
		//Иначе // Так и остаётся 0 - CADESCOM_ENCODE_BINARY
	КонецЕсли;
	
	comSignedData.Content = СтрокаДляПодписи;
	ПодписанныеДанные = comSignedData.SignCades(
	comCPSigner, // Signer
	1, // CadesType, CADESCOM_CADES_BES.
	Открепл, // bDetached - "флаг открепленной подписи (исходное сообщение не включается в итоговый CMS-контейнер)".
	); // EncodingType - по умолчанию CAPICOM_ENCODE_BASE64.
	
	comCPSigner = Неопределено;
	comSignedData = Неопределено;
	
	Возврат УбратьСимволы1013(ПодписанныеДанные);
	
КонецФункции

Показать

На выходе даёт различный результат по сравнению с сервисом честного знака

65. user763959 01.02.23 00:51 Сейчас в теме

(60) Добрый день

Как-то решили эту проблему, я с такой-же столкнулся.

67. Rotmayer 01.02.23 03:25 Сейчас в теме

(65)

Вот моя обработка, строго там код не судите, я пол года в 1ске :)

Там ещё сертификаты должны быть ПК установлены

пс. продублирую своё сообщение ниже

Здравствуйте, да, решил проблему, уже не помню как. Но все же через неделю мук получилось написать внешнюю обработку, которая ищет товар в честном знаке по gtin

Чуть позже скину обработку

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

ЧЕСТНЫЙ ЗНАК БУХ КОРП.epf

68. user763959 01.02.23 04:10 Сейчас в теме

(67)

Спасиба!

61. edyardg 23 11.11.22 08:53 Сейчас в теме

Добрый день.

Подскажите, как из 1С можно запросить в честном знаке зарегистрировался клиент или нет?

62. user5300 1081 11.11.22 09:00 Сейчас в теме

(61) Сам пока не пробовал,
Метод на странице 788 (Раздел 9.1)

Возвращает текст ответа:

1. если участник оборота товаров не зарегистрирован в ЭДО Лайт, то возвращается текст
сообщения об ошибке: "Организация не зарегистрирована";
2. если участник оборота товаров зарегистрирован в ЭДО Лайт, но в качестве основного ЭДО
провайдера указан не ЭДО Лайт, то возвращается текст сообщения об ошибке: "УОТ
использует другого оператора ЭДО";
3. если участник оборота товаров зарегистрирован в ЭДО Лайт и в качестве основного ЭДО
провайдера указан ЭДО Лайт, то возвращается ID участник оборота товаров вместе с
префиксом "2LT-" формата "2LT-<ID участника обмена ЭДО Лайт>" (например: 2LT572279911).

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

True API (приоритетно к интеграции).pdf

63. edyardg 23 11.11.22 09:29 Сейчас в теме

Не все организации пользуются ЭДО Лайт, у честного знака на сайте hhttps://xn--80ajghhoc2aj1c8b.xn--p1ai/business/spisokuot/ вводишь инн и он показывает зарегистрирован в честном знаки или нет. По API как можно это сделать?

64. user5300 1081 11.11.22 09:33 Сейчас в теме

(63) Вы прочитали предыдущий коммент ? (Пункт 2.)

66. Rotmayer 01.02.23 01:18 Сейчас в теме

(65)
(32)
(65)

Здравствуйте, да, решил проблему, уже не помню как. Но все же через неделю мук получилось написать внешнюю обработку, которая ищет товар в честном знаке по gtin

Чуть позже скину обработку

69. avponitkin@yandex.ru 12.10.23 12:22 Сейчас в теме

На 12.10.23 Функция ПолучитьТокенЧестныйЗнак() выдает структуру с ключем mchdUser ( булево) и наименованием организации. Свойства Токен нет.

70. user5300 1081 12.10.23 13:09 Сейчас в теме

(69) Нет, функция полностью рабочая, (Работает на "живой" базе).
Проверяйте у себя, возможно что то неправильно задаете

76. Gladiator4021 13.08.24 12:23 Сейчас в теме

Добрый день. Функция ПолучитьТокенЧестныйЗнак() выдает структуру с ключем mchdUser ( булево) и наименованием организации. Свойства Токен нет. Это возникает у нас когда используется подпись с машиночитаемой доверенностью, подскажите как исправить?

71. parfumer34 16.10.23 15:44 Сейчас в теме

(69)
Была такая ошибка. Надо использовать методы True-api. Еще в августе оказывается было письмо от ЧЗ с текстом "За Вами была замечена активность по использованию методов API ГИС МТ (facade), которые будут отключены.
Уведомляем о необходимости заблаговременно выполнить переинтеграцию решений на использование методов True API."

72. user5300 1081 16.10.23 15:51 Сейчас в теме

(71) Методы меняются у ЭДО Лайта (Там нужно переподключить True-api) а у ЧЗ методы такие же (Те что в статье описано)

74. Burdilo 19.04.24 18:20 Сейчас в теме

Коллеги, помогите разобраться Чайнику

В документации ЧЗ написано:
"...Участник оборота формирует запрос, подписывает его и формирует откреплённую подпись с использованием сертификата УОТ. Откреплённая подпись УОТ помещается в HTTP заголовок в параметр «X-Signature» в кодировке Base64. Далее участник оборота отправляет запрос в Систему Оператора."

Как получить эту открепленную подпись?

75. user5300 1081 19.04.24 21:12 Сейчас в теме

(74) В примерах выше есть , там при подписании указывается как параметр "открепл - булево"

77. user2042586 09.09.24 13:40 Сейчас в теме

Добрый день. Подскажите не ЭЦП а МЧД можно получить через CAdESCOM?

78. VIlmaks 2 08.11.24 07:51 Сейчас в теме

Добрый.
ДанныеДляПолученияТокена = ДанныеJSON.data.
Время от времени приходит ответ пустой. Через некоторое время приходит заполненным - что за ерунда?

79. VIlmaks 2 20.12.24 17:57 Сейчас в теме

comSignedData.SignCades пытаюсь подписать строку - всё хорошо, если Ключ вставлен в комп, а если не вставлен - выходит окошко вставить ключ. Как избавиться от этого интерактивного окошка?

80. GrRusel 29.04.25 16:43 Сейчас в теме

Всем день добрый
Для решения вот этой проблемы:
Функция ПолучитьТокенЧестныйЗнак() выдает структуру с ключем mchdUser ( булево) и наименованием организации. Свойства Токен нет.
я так понял нужно заменить "/api/v3/auth/cert/key" на "/api/v3/true-api/auth/simpleSignIn".
После token "приходит"