Использование Универсального транспортного модуля ГИИС ДМДК в розничной торговле ювелирными изделиями

Процедура ПрочитатьОтвет(СтрокаОтвета)
// разбираем полученый ответ
// скорее всего он придет не как показано в описании, а одной строй, без символов переноса
// это на основанни, что все ответы "Сheck" их ДМДК приходят одной строкой
МассивОтвета = Новый Массив();
МассивОтвета = ИзСтрокиВМассив(СтрокаОтвета, "><");

// либо ИзСтрокиВМассив(СтрокаОтвета, ">" + Символы.ПС+"<"); если ответ будет с сиволами переноса 

// анализировать массив  МассивОтвета думаю лучше простым перебором строк, без XML разбора, так как файл буквально на пять стро

Для Каждого ЭлементМассива ИЗ МассивОтвета Цикл
        // все приводить не буду, только "положительную строку"
        Если СтрНайти(ЭлементМассива, "<sign>") > 0 Тогда
                  // xml содержит тэг sign - подпись ГИИС о успешном ответе
        КонецЕсли;
КонецЦикла

КонецПроцедуры

Функция ИзСтрокиВМассив(НачальнаяСтрока,Разделитель) экспорт
    
    СтрокаПреобразованнаяВМногострочныйТекст     = СтрЗаменить(НачальнаяСтрока,Разделитель,Символы.ПС);
    ТекстовыйДокументИзСтроки                                   = Новый ТекстовыйДокумент;
    Результат                                                                       = Новый Массив;
    ТекстовыйДокументИзСтроки.УстановитьТекст(СтрокаПреобразованнаяВМногострочныйТекст);
    Для СчетчикСтрок = 1 по ТекстовыйДокументИзСтроки.КоличествоСтрок() цикл
        Результат.Добавить(СокрЛП(ТекстовыйДокументИзСтроки.ПолучитьСтроку(СчетчикСтрок));
    КонецЦикла;
    Возврат Результат;
    
КонецФункции

...

// Сообщение - это наш подготовленный запрос на УТМ. Например:
//?xml version="1.0" encoding="UTF-8"?>
//<Cheque
//shift="1"
//number="2"
//name="ИП Иванов"
//address="Россия,117105,Москва Г"
//kassa="93030781125555110367"
//kpp="781301001"
//datetime="0308221103"
//inn="7813252159">
//<Bottle price="2550.00" barcode="6432200004560697"/>
//</Cheque>

Заголовки = Новый Соответствие;
Заголовки.Вставить("Content-Type", "text/xml;charset=UTF-8");

Соединение = Новый HTTPСоединение("http://localhost:8383/xml");

HTTPЗапрос = Новый HTTPЗапрос("/" + ПараметрыВыполнения.ИмяМетода,Заголовки);
HTTPЗапрос.УстановитьТелоИзСтроки(Сообщение);

Результат = Соединение.ВызватьHTTPМетод("POST", HTTPЗапрос);
//
Если Результат.КодСостояния = 200 Тогда
		
	ПрочитатьОтвет(Результат.ПолучитьТелоКакСтроку());
		
КонецЕсли;
...

// Содержит Истина при положительном ответе, Ложь при ошибке

Перем ОтветОтУТМПоложительный Экспорт;

Процедура ПрочитатьОтвет(СтрокаОтвета)
// разбираем полученый ответ
// скорее всего он придет не как показано в описании, а одной строй, без символов переноса
// это на основанни, что все ответы "Сheck" их ДМДК приходят одной строкой
МассивОтвета = Новый Массив();
МассивОтвета = ИзСтрокиВМассив(СтрокаОтвета, "><");

// либо ИзСтрокиВМассив(СтрокаОтвета, ">" + Символы.ПС+"<"); если ответ будет с сиволами переноса 

// анализировать массив  МассивОтвета думаю лучше простым перебором строк, без XML разбора, так как файл буквально на пять стро

ОтветОтУТМПоложительный = Ложь;
Для Каждого ЭлементМассива ИЗ МассивОтвета Цикл
        // все приводить не буду, только "положительную строку"
        Если СтрЧислоВхождений(ЭлементМассива, "<sign>") > 0 Тогда
                  // xml содержит тэг sign - подпись ГИИС о успешном ответе 
				  ОтветОтУТМПоложительный = Истина;
				  Перейти ~ВыходИзЦикла;   
			  ИначеЕсли СтрЧислоВхождений(ЭлементМассива, "<error>") > 0 Тогда
				  // вывести сообщение об ошибке    
				  // пока просто в формате текста
				  // скорее всего этот текст нужно будет сохранять на всякий случай в отдельном журнале обмена с УТМ
        КонецЕсли;
КонецЦикла;
~ВыходИзЦикла:

КонецПроцедуры  

Функция ИзСтрокиВМассив(НачальнаяСтрока,Разделитель)
    
    СтрокаПреобразованнаяВМногострочныйТекст     = СтрЗаменить(НачальнаяСтрока,Разделитель,Символы.ПС);
    ТекстовыйДокументИзСтроки                    = Новый ТекстовыйДокумент;
    Результат                                    = Новый Массив;
    ТекстовыйДокументИзСтроки.УстановитьТекст(СтрокаПреобразованнаяВМногострочныйТекст);
    Для СчетчикСтрок = 1 по ТекстовыйДокументИзСтроки.КоличествоСтрок() цикл
        Результат.Добавить(СокрЛП(ТекстовыйДокументИзСтроки.ПолучитьСтроку(СчетчикСтрок)));
    КонецЦикла;
    Возврат Результат;
    
КонецФункции

// Сообщение - это наш подготовленный запрос на УТМ. Например:
//?xml version="1.0" encoding="UTF-8"?>
//<Cheque
//shift="1"
//number="2"
//name="ИП Иванов"
//address="Россия,117105,Москва Г"
//kassa="93030781125555110367"
//kpp="781301001"
//datetime="0308221103"
//inn="7813252159">
//<Bottle price="2550.00" barcode="6432200004560697"/>
//</Cheque>

Заголовки = Новый Соответствие;
Заголовки.Вставить("Content-Type", "text/xml;charset=UTF-8");
					  
// Константа АдресДляСообщенийУТМ = http://localhost:8383/xml
					  
Соединение = Новый HTTPСоединение(СокрЛП(Константы.АдресДляСообщенийУТМ.Получить()));

HTTPЗапрос = Новый HTTPЗапрос;
HTTPЗапрос.Заголовки = Заголовки;
HTTPЗапрос.УстановитьТелоИзСтроки(Сообщение,КодировкаТекста.UTF8);

Результат = Соединение.ВызватьHTTPМетод("POST", HTTPЗапрос);
						
Если Результат.КодСостояния = 200 Тогда 
	ПрочитатьОтвет(Результат.ПолучитьТелоКакСтроку());
КонецЕсли;

// Переменные реквизитов чека для ГИИС
Перем ФискальныйНакопитель  Экспорт;
Перем ФискальныйДокумент    Экспорт;
Перем ФискальныйПризнакДокумента Экспорт;
Перем ДатаФискальногоДокумента   Экспорт; 
Перем НомерСмены                 Экспорт;

//// Переменная УТМ
Перем ОтветОтУТМПоложительный    Экспорт;     
Перем ТекстОшибкиПередачиВУТМ    Экспорт; 

//#Область ПроцедурыДляУТМ
// Функция проверки - есть ли в чеке товары с УИН 
Функция ЧекСодержитУИН(ЭлементДокумент)
	    ВЧекеЕстьУИН = Ложь;
		СписокТовара = ЭлементДокумент.Список;
		Для КАЖДОГО ТекСтрокаСписок ИЗ СписокТовара Цикл  
			Если СтрДлина(ТекСтрокаСписок.УИН) = 16 Тогда 
				 ВЧекеЕстьУИН = Истина;
			КонецЕсли;	
		КонецЦикла;
		Возврат ВЧекеЕстьУИН;
КонецФункции   

// Процедура получает информацию о последнем чеке и записывает значения переменных:
// для последующего чека, при этом НомерДокумента увеличивается на 1, и если смена новая, то НомерСмены увеличивается на 1 
Процедура ЗапросИнформацииОПоследнемЧеке()       
	                // Получить реквизиты чека ККМ для ГИИС ДМДК ////////////////////////////////////////////////////////////­ 
	                // Запрос информации о последнем документе  (открыти смены, чек и закрытие смены - это все фискальные документы) 
					// поэтому получаем информацию о последнем документе, а не чеке
					Попытка						    
							ECR.setParam(ECR.LIBFPTR_PARAM_FN_DATA_TYPE, ECR.LIBFPTR_FNDT_LAST_DOCUMENT);
							ECR.fnQueryData();

							ФискальныйДокумент  = ECR.getParamInt(ECR.LIBFPTR_PARAM_DOCUMENT_NUMBER);
							// Добавляем единицу, так как документ будет с следующим номером
							ФискальныйДокумент  = ФискальныйДокумент + 1;

							// ДатаФискальногоДокумента  = ECR.getParamDateTime(ECR.LIBFPTR_PARAM_DATE_TIME);   
							// Дату можно пропустить. Она все равно будет ТекущаяДата().   
							
							// Запрос информации о номере фискального накопителя	
						    ECR.setParam(ECR.LIBFPTR_PARAM_FN_DATA_TYPE, ECR.LIBFPTR_FNDT_FN_INFO);
						    ECR.fnQueryData();
						    ФискальныйНакопитель      = ECR.getParamString(ECR.LIBFPTR_PARAM_SERIAL_NUMBER);
    	
							// Запрос информации о смене
							ECR.setParam(ECR.LIBFPTR_PARAM_DATA_TYPE, ECR.LIBFPTR_DT_SHIFT_STATE);
                            ECR.queryData();

                            СостояниеСмены       = ECR.getParamInt(ECR.LIBFPTR_PARAM_SHIFT_STATE);
							НомерСмены           = ECR.getParamInt(ECR.LIBFPTR_PARAM_SHIFT_NUMBER);
							
							Если СостояниеСмены = ECR.LIBFPTR_SS_CLOSED Тогда
								 //Смена закрыта, следующий фискальный чек откроет смену, номер фискального документа увеличим еще на еденицу
								 НомерСмены = НомерСмены + 1; 
								 ФискальныйДокумент  = ФискальныйДокумент + 1;
							КонецЕсли;	   
								
						Исключение                        
							// Устанавливаем переменную положительного ответа от УТМ в "Ложь", так как на этапе произошла ошибка 
	                        ОтветОтУТМПоложительный = Ложь;  
							ТекстОшибкиПередачиВУТМ = "Ошибка на этапе №1 получения данных Фискального документа";
						    	
							Сообщение = Новый СообщениеПользователю;
			                Сообщение.Текст = "Ошибка получения реквизитов ФД : " + ОписаниеОшибки(); 
			                Сообщение.Сообщить();
							
							// Записать ошибку формирования данных чека в переменную
							ОшибкаПолученияДанныхОПоследнемЧеке = "Ошибка получения реквизитов ФД : " + ОписаниеОшибки();
							
					   КонецПопытки;	
					  /// Получить реквизиты чека ККМ для ГИИС ДМДК ////////////////////////////////////////////////////////////­
КонецПроцедуры	            

Процедура ПрочитатьОтвет(СтрокаОтвета)
// разбираем полученый ответ
// скорее всего он придет не как показано в описании, а одной строй, без символов переноса
// это на основании, что все ответы "Сheck" их ДМДК приходят одной строкой
МассивОтвета = Новый Массив();
МассивОтвета = ИзСтрокиВМассив(СтрокаОтвета, "><");

// либо ИзСтрокиВМассив(СтрокаОтвета, ">" + Символы.ПС+"<"); если ответ будет с символами переноса 

// анализировать массив  МассивОтвета думаю лучше простым перебором строк, без XML разбора, так как файл буквально на пять стро

ОтветОтУТМПоложительный = Ложь;
Для Каждого ЭлементМассива ИЗ МассивОтвета Цикл
        // все приводить не буду, только "положительную строку"
        Если СтрЧислоВхождений(ЭлементМассива, "<sign>") > 0 Тогда
                  // xml содержит тэг sign - подпись ГИИС о успешном ответе 
				  ОтветОтУТМПоложительный = Истина;
				  Перейти ~ВыходИзЦикла;   
			  ИначеЕсли СтрЧислоВхождений(ЭлементМассива, "<error>") > 0 Тогда
				  // вывести сообщение об ошибке    
				  // пока просто в формате текста
				  // скорее всего этот текст нужно будет сохранять на всякий случай в отдельном журнале обмена с УТМ
				  ФормаОшибкиУТМ = Документы.ЧекиПродаж.ПолучитьФорму("ФормаСообщенияОбОшибкеУТМ"); 
	              ЭлементФ    = ФормаОшибкиУТМ.ЭлементыФормы.Найти("ПолеОшибки");
	              ЭлементФ.Значение = СтрокаОтвета; 
				  ФормаОшибкиУТМ.ОткрытьМодально();
        КонецЕсли;
КонецЦикла;
~ВыходИзЦикла:

КонецПроцедуры  

Функция ИзСтрокиВМассив(НачальнаяСтрока,Разделитель)
    
    СтрокаПреобразованнаяВМногострочныйТекст     = СтрЗаменить(НачальнаяСтрока,Разделитель,Символы.ПС);
    ТекстовыйДокументИзСтроки                    = Новый ТекстовыйДокумент;
    Результат                                    = Новый Массив;
    ТекстовыйДокументИзСтроки.УстановитьТекст(СтрокаПреобразованнаяВМногострочныйТекст);
    Для СчетчикСтрок = 1 по ТекстовыйДокументИзСтроки.КоличествоСтрок() цикл
        Результат.Добавить(СокрЛП(ТекстовыйДокументИзСтроки.ПолучитьСтроку(СчетчикСтрок)));
    КонецЦикла;
    Возврат Результат;
    
КонецФункции

//#Область ФормированиеЗапросаВУТМ
   ////////////////////// ВСТАВКА ФОРМИРОВАНИЯ ЗАПРОСА ДЛЯ ПЕРЕДАЧИ В ГИИС ДМДК, ПОЛУЧЕНИЯ ОТВЕТА ////////////////////////////////////////////////////////////­/////////////////  
   //1. Передавать запросы в УТМ установлено в Истина 
   //2. фискальный регистратор включен
   //3. Версия драйвера ККМ = 10
   //4. В чеке есть УИН
   //5. Есть оплата наличными или безналичными    
   // Для проведения тестирования:
   // из следующей строки необходимо исключить условие для проведения тестирования программы  - 
   // И Константы.ФискальныйРегистраторВключен.Получить() = Истина И глНомерВерсииДрайвераККМ = 10
   Если (Константы.ПередаватьЗапросыВУТМ.Получить() = Истина И Константы.ФискальныйРегистраторВключен.Получить() = Истина И глНомерВерсииДрайвераККМ = 10 И ЧекСодержитУИН(ЭлементДокумент) И (ЧекНаличными > 0 ИЛИ ЧекБезналичными > 0)) ИЛИ (Константы.ПередаватьЗапросыВУТМ.Получить() = Истина И ЧекСодержитУИН(ЭлементДокумент) И (ЧекНаличными > 0 ИЛИ ЧекБезналичными > 0) И (Константы.ТестовыйРежимУТМ.Получить()=Истина)) Тогда       
	   
	                  // Устанавливаем переменную положительного ответа от УТМ в "Истина" 
	                  ОтветОтУТМПоложительный = Истина;
					  ТекстОшибкиПередачиВУТМ = "";
					  
	                  // Получаем шаблон сообщения		              
					  Сообщение = Константы.КонвертУТМ.Получить();
					  
					  // 1. Сформировать реквизиты чека еще до его пробития (номер ФН, ФД, ДатаФД, НомерСмены) 
					  ОшибкаПолученияДанныхОПоследнемЧеке = "";
					  Если Константы.ТестовыйРежимУТМ.Получить()=Истина Тогда
						     Попытка
						   	    ЗапросИнформацииОПоследнемЧеке(); 
						     Исключение	  
						            
							 КонецПопытки;	
							 Если ФискальныйНакопитель = "" И ФискальныйДокумент = 0 И НомерСмены = 0 Тогда 
								 ФискальныйДокумент = 1;
                                 ФискальныйНакопитель = "1";
                                 НомерСмены = 1;
							 КонецЕсли;	 
                      Иначе
		                      ЗапросИнформацииОПоследнемЧеке();
					  КонецЕсли;
					  
					  Если СтрДлина(ОшибкаПолученияДанныхОПоследнемЧеке) > 0 Тогда
						   ЭлементДокумент.ОшибкаФормированияДанныхЧека = ОшибкаПолученияДанныхОПоследнемЧеке;
						   ЭлементДокумент.Записать();
					  КонецЕсли;	  
					  
						  
						  // 2. Заполняем шаблон сообщения
						  Сообщение = СтрЗаменить(Сообщение, "%shift%",  """" + СтрЗаменить(Строка(НомерСмены),Символы.НПП,"") + """");   
						  Сообщение = СтрЗаменить(Сообщение, "%number%", """" + СтрЗаменить(Строка(ФискальныйДокумент),Символы.НПП,"") + """");      
						  ЭлементОрганизацияПоУмолчанию = Справочники.Организации.НайтиПоРеквизиту("ПоУмолчанию", Истина); 
						  НаименованиеОрганизации = СокрЛП(ЭлементОрганизацияПоУмолчанию.Имя);
						  Сообщение = СтрЗаменить(Сообщение, "%name%", """" + ВРЕГ(НаименованиеОрганизации) + """"); 
						  ЭлементМагазинСкладПоУмолчанию = Справочники.Магазины.НайтиПоРеквизиту("ПоУмолчанию", Истина);
						  АдресМагазина = СокрЛП(ЭлементМагазинСкладПоУмолчанию.АдресДляУТМ);
						  Сообщение = СтрЗаменить(Сообщение, "%address%", """" + ВРЕГ(АдресМагазина) + """");
						  Сообщение = СтрЗаменить(Сообщение, "%kassa%", """" + ФискальныйНакопитель + """"); 
						  КППОрганизации = СокрЛП(ЭлементОрганизацияПоУмолчанию.Кпп);   
						  Если СтрДлина(КППОрганизации) = 9 Тогда
						       Сообщение = СтрЗаменить(Сообщение, "%kpp%", """" + КППОрганизации + """"); 
						   Иначе
							   Сообщение = СтрЗаменить(Сообщение, "kpp=%kpp%", "");
						  КонецЕсли;	   
						  ТекущаяДатаИВремя = ТекущаяДата();  
						  Если День(ТекущаяДатаИВремя)<10 Тогда
						       ДатаИВремя = "0"+Строка(День(ТекущаяДатаИВремя));
						   Иначе
							   ДатаИВремя = Строка(День(ТекущаяДатаИВремя));
						  КонецЕсли;	   
						  Если Месяц(ТекущаяДатаИВремя)<10 Тогда
						       ДатаИВремя = ДатаИВремя+"0"+Строка(Месяц(ТекущаяДатаИВремя));
						   Иначе
							   ДатаИВремя = ДатаИВремя+Строка(Месяц(ТекущаяДатаИВремя));
						  КонецЕсли;                               
						  ДатаИВремя = ДатаИВремя + Строка(ГОД(ТекущаяДатаИВремя)-2000);
						  Если Час(ТекущаяДатаИВремя)<10 Тогда
						       ДатаИВремя = ДатаИВремя+"0"+Строка(Час(ТекущаяДатаИВремя));
						   Иначе
							   ДатаИВремя = ДатаИВремя+Строка(Час(ТекущаяДатаИВремя));
						  КонецЕсли;
						  Если Минута(ТекущаяДатаИВремя)<10 Тогда
						       ДатаИВремя = ДатаИВремя+"0"+Строка(Минута(ТекущаяДатаИВремя));
						   Иначе
							   ДатаИВремя = ДатаИВремя+Строка(Минута(ТекущаяДатаИВремя));
						  КонецЕсли;                                
						  Сообщение = СтрЗаменить(Сообщение, "%datetime%", """" + ДатаИВремя + """"); 
						  ИННОрганизации = СокрЛП(ЭлементОрганизацияПоУмолчанию.Инн);
						  Сообщение = СтрЗаменить(Сообщение, "%inn%", """" + ИННОрганизации + """"); 
						  
						  СписокТовара = ЭлементДокумент.Список;
						  СтрокаТовары = "";     
						  ЭтоПервыйУИН = Истина;
						  Для КАЖДОГО ТекСтрокаСписок ИЗ СписокТовара Цикл  
							  Если СтрДлина(ТекСтрокаСписок.УИН) = 16 Тогда   
								   ЦенаТовара = Формат(ТекСтрокаСписок.Наличными + ТекСтрокаСписок.Безналичными + ТекСтрокаСписок.Кредитом,"ЧГ=; ЧДЦ=2");    
								   ЦенаТовара = СтрЗаменить(ЦенаТовара, ",", "."); 
								   Если ЭтоПервыйУИН = Ложь Тогда 
									    СтрокаТовары = СтрокаТовары + Символы.ПС; 
								   КонецЕсли;	   
								   СтрокаТовары = СтрокаТовары + "<Bottle price=" + """" + ЦенаТовара + """" + "  barcode=" + """" + ТекСтрокаСписок.УИН + """" + "/>";    
								   ЭтоПервыйУИН = Ложь;
							  КонецЕсли;	   
						  КонецЦикла;	  
	                      Сообщение = СтрЗаменить(Сообщение, "%<Bottle price=barcode=/>%", СтрокаТовары);
						  ЭлементДокумент.ЗапросНаУТМ = Сообщение;
						  ЭлементДокумент.Записать();     
 					  
		// 3. передать HTTP запрос в ГИИС ДМДК - тут пока тормознем, надо рещить делать это с помощью cUrl или HTTP запросом     
		// пока текст пишем для HTTP запроса, так как его использование позволяет обойтись без громоздкой файловой системы cUrl  
		
		// тут вариантов масса к сожалению, надо искать тот самый		
		Если Константы.ИспользоватьcUrl.Получить() = Ложь Тогда
			          // используем методы http запросов 1С
					  // передать нужно именно файл - информация их ЕГАИС по алкоголю
					  // сделаем из Сообщения xml файл
					  
					  ИмяФайлаОтправки = ПолучитьимяВременногоФайла("xml");
 
                      ОбъектXML = Новый ЗаписьXML;
                      ОбъектXML.ОткрытьФайл(ИмяФайлаОтправки, "UTF-8");
                      ОбъектXML.ЗаписатьОбъявлениеXML();
                      ОбъектXML.ЗаписатьБезОбработки(Сообщение);
                      ОбъектXML.Закрыть();       
					  
					  // сделаем из Сообщения xml файл  
					  
					  // ИмяВыходногоФайла = ПолучитьимяВременногоФайла("xml");  // наш сервер возвращает ответы в виде XML - может и не надо
					                                                             // может стоить получить результат как строку
					  
					  ФайлОтправки = Новый Файл(ИмяФайлаОтправки);            // файл отправки содержит Сообщение как временный xml файл
                      РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер()); // размер файла для заголовка HTTP запроса
					  
					  Если Константы.ТестовыйРежимУТМ.Получить() = Ложь Тогда // если не тестовый режим выполняем отправку запроса
						  
						  // Журнал сообщений УТМ запрос
						  ЭлементЖурналУТМ = Документы.ЖурналСобытийУТМ.СоздатьДокумент();
						  ЭлементЖурналУТМ.Дата = ТекущаяДата();      
						  ЭлементЖурналУТМ.ТипЭлементаЖурнала = Перечисления.ТипЭлементаЖурналаУТМ.Запрос;
						  ЭлементЖурналУТМ.СобытиеУТМ = Сообщение; 
						  ЭлементЖурналУТМ.КомандаУТМ = "HTTP запрос";
						  СписокУИНЖурналаУТМ = ЭлементЖурналУТМ.Список;
							    Для КАЖДОГО ТекСтрокаСписок ИЗ СписокТовара Цикл  
								     Если СтрДлина(ТекСтрокаСписок.УИН) = 16 Тогда
								          НоваяСтрокаУИНЖурналаУТМ     =  СписокУИНЖурналаУТМ.Добавить();  
										  НоваястрокаУИНЖурналаУТМ.УИН = ТекСтрокаСписок.УИН;
								     КонецЕсли;	   
							    КонецЦикла;	  
						  ЭлементЖурналУТМ.Записать();
						  // Журнал сообщений УТМ запрос
						  
			              Заголовки = Новый Соответствие;
						  Заголовки.Вставить("Content-Type", "text/xml;charset=UTF-8");
						  Заголовки.Вставить("Content-Lenght", РазмерФайлаОтправки);
						  
						  // Константа АдресДляСообщенийУТМ = http://localhost:8383/xml
						  
						  // соединение с параметрами по умолчанию
						  Соединение = Новый HTTPСоединение(СокрЛП(Константы.АдресДляСообщенийУТМ.Получить()));

						  HTTPЗапрос = Новый HTTPЗапрос;
						  HTTPЗапрос.Заголовки = Заголовки;
						  HTTPЗапрос.УстановитьИмяФайлаТела(ФайлОтправки); // устанавливаем тело запроса как имя файла
						  
						  //HTTPЗапрос.УстановитьТелоИзСтроки(Сообщение,КодировкаТекста.UTF8); - тело из строки видимо не работае, передавать нужно файл

						  Результат = Соединение.ВызватьHTTPМетод("POST", HTTPЗапрос);
							
						  Если Результат.КодСостояния = 200 Тогда 
							  
							    // 4. получить ответ   
								// записываем ответ в любом случае, если все хорошо - он сохранится, если нет - будет удален вместе с документом ЧекПродажи 
								ЭлементДокумент.ОтветНаЗапросОтУТМ = Результат.ПолучитьТелоКакСтроку();
								ЭлементДокумент.Записать();
								
							    ПрочитатьОтвет(Результат.ПолучитьТелоКакСтроку());
								
								// Журнал сообщений УТМ ответ
							    ЭлементЖурналУТМ = Документы.ЖурналСобытийУТМ.СоздатьДокумент();
							    ЭлементЖурналУТМ.Дата = ТекущаяДата();
							    ЭлементЖурналУТМ.СобытиеУТМ = Результат.ПолучитьТелоКакСтроку();
							    СписокУИНЖурналаУТМ = ЭлементЖурналУТМ.Список;
							    Для КАЖДОГО ТекСтрокаСписок ИЗ СписокТовара Цикл  
								     Если СтрДлина(ТекСтрокаСписок.УИН) = 16 Тогда
								          НоваяСтрокаУИНЖурналаУТМ     =  СписокУИНЖурналаУТМ.Добавить();  
										  НоваястрокаУИНЖурналаУТМ.УИН = ТекСтрокаСписок.УИН;
								     КонецЕсли;	   
							    КонецЦикла;	  
							    ЭлементЖурналУТМ.Записать();
							    // Журнал сообщений УТМ ответ
			
							Иначе
								
								ОтветОтУТМПоложительный = Ложь;
								ТекстОшибкиПередачиВУТМ = "Ошибка на этапе №3 передачи данных в УТМ";
								Сообщить("Код состояния : " + Строка(Результат.КодСостояния), СтатусСообщения.Важное);
								Сообщить(ТекстОшибкиПередачиВУТМ);
								
							КонецЕсли;  
						Иначе  // режим тестовый
							// Журнал сообщений УТМ запрос
							ЭлементЖурналУТМ = Документы.ЖурналСобытийУТМ.СоздатьДокумент();
							ЭлементЖурналУТМ.Дата = ТекущаяДата();  
							ЭлементЖурналУТМ.ТипЭлементаЖурнала = Перечисления.ТипЭлементаЖурналаУТМ.Запрос; 
							ЭлементЖурналУТМ.ТестовыйРежим = Истина;
							ЭлементЖурналУТМ.СобытиеУТМ = Сообщение; 
							ЭлементЖурналУТМ.КомандаУТМ = "HTTP запрос";
							СписокУИНЖурналаУТМ = ЭлементЖурналУТМ.Список;
							    Для КАЖДОГО ТекСтрокаСписок ИЗ СписокТовара Цикл  
								     Если СтрДлина(ТекСтрокаСписок.УИН) = 16 Тогда
								          НоваяСтрокаУИНЖурналаУТМ     =  СписокУИНЖурналаУТМ.Добавить();  
										  НоваястрокаУИНЖурналаУТМ.УИН = ТекСтрокаСписок.УИН;
								     КонецЕсли;	   
							    КонецЦикла;	  
							 ЭлементЖурналУТМ.Записать();
							 // Журнал сообщений УТМ запрос
                             // Журнал сообщений УТМ ответ
							 ЭлементЖурналУТМ = Документы.ЖурналСобытийУТМ.СоздатьДокумент();
							 ЭлементЖурналУТМ.Дата = ТекущаяДата();  
							 ЭлементЖурналУТМ.ТипЭлементаЖурнала = Перечисления.ТипЭлементаЖурналаУТМ.Ответ;  
							 ЭлементЖурналУТМ.ТестовыйРежим = Истина;
							 ЭлементЖурналУТМ.СобытиеУТМ = "тестовый ответ"; 
							 ЭлементЖурналУТМ.КомандаУТМ = "ответ на HTTP запрос";
							 СписокУИНЖурналаУТМ = ЭлементЖурналУТМ.Список;
							    Для КАЖДОГО ТекСтрокаСписок ИЗ СписокТовара Цикл  
								     Если СтрДлина(ТекСтрокаСписок.УИН) = 16 Тогда
								          НоваяСтрокаУИНЖурналаУТМ     =  СписокУИНЖурналаУТМ.Добавить();  
										  НоваястрокаУИНЖурналаУТМ.УИН = ТекСтрокаСписок.УИН;
								     КонецЕсли;	   
							    КонецЦикла;	  
							  ЭлементЖурналУТМ.Записать();
							  // Журнал сообщений УТМ ответ
							
		              КонецЕсли;
				  Иначе 
					  // используем cUrl
					  // 1. Записать Сообщение как файл cheque.xml в каталог установленный УТМ  
					  Текст = Новый ЗаписьТекста(СокрЛП(Константы.ПутьПодготовленногоФайлаCheque.Получить()), КодировкаТекста.UTF8);
	                  Текст.ЗаписатьСтроку(Сообщение);
	                  Текст.Закрыть();				
	                  // Пауза 1 сек
					  сек = 1;
                      КонДата = ТекущаяДата() + сек;
                      Пока ТекущаяДата() < КонДата Цикл
                          // ждемссс....
                      КонецЦикла;
					  
					  // 2. выполнить 
					  
					  ПутьКФайлуОтвета = СокрЛП(Константы.ПутьФайловОтветовОтУТМ.Получить()) + "otv" + СокрЛП(СтрЗаменить(Строка(ФискальныйДокумент),Символы.НПП, "")) + ".xml";   
					  
					  // Прежде всего работоспособна слудующая строка cUrl - проверено экспериментальным путем  					  
					  // curl -F "xml_file=@"c:/utm/cheque.xml"" 127.0.0.1:1500/ws/v3 -o "c:\utm\otv\otv1.xml"
					  // ответ в файле c:\utm\otv\otv1.xml
					  // {"timestamp":"2024-04-17T09:18:56.940+00:00","status":500,"error":"Internal Server Error","path":"/ws/v3"} 
					  
					  // Для загрузки файла с помощью cURL нужно использовать следующую команду:
                      // curl -F "file=@путь_к_файлу" URL_адрес_запроса
                      // Где:
                      // -F - указывает, что мы отправляем форму, содержащую файл
                      // "file=@путь_к_файлу" - указывает, что мы отправляем файл, который находится по указанному пути
                      // URL_адрес_запроса - адрес, куда мы отправляем запрос 
					  // Обратите внимание на символ @ - он нужен для того, 
					  // чтобы параметру file было присвоено не значение строки «/путь/до/файла», 
					  // а содержимое того самого файла, который находится по пути /путь/до/файла.
                      // Например, чтобы загрузить файл example.txt на сайт example.com/upload, нужно выполнить следующую команду:
                      // curl -F "file=@/путь_к_файлу/example.txt" example.com/upload
                      // После этого cURL отправит файл на указанный адрес.       
					  
					  // Преобразование пути к файлу cheque.xml
					  ПутьДоФайла = СокрЛП(Константы.ПутьПодготовленногоФайлаCheque.Получить());                                   
					  ПутьДоФайла = СтрЗаменить(ПутьДоФайла, "\", "/");        // переворачиваем слеш                      
					  ПутьДоФайла = """" + ПутьДоФайла + """";                 // полный путь забираем в кавычки
					  ПутьДоФайла = """" + "xml_file=@" + ПутьДоФайла + """";  // добавляем кавычку + формулу "Переменная" "Значение" + закрываем кавычку
                
					  СтрокаКоманды = "curl -F " +  ПутьДоФайла + " " + СокрЛП(Константы.АдресДляСообщенийУТМ.Получить()); // плюс пробел и плюс адрес УТМ на локалхосте
					  
					  СтрокаКоманды = СтрокаКоманды + " -o " + """" + ПутьКФайлуОтвета + """"; // плюс пробел, плюс -o, плюс путь дофайла ответа в кавычках 
					  
					  Сообщить("Строка команды УТМ : " + СтрокаКоманды); // визуально видим строку команду УТМ
					  
					  // Строка команды должна принять вид - собледение кавычек, пробелов, слешей, перевернутых слешей проверено
					  // curl -F "xml_file=@"c:/utm/cheque.xml"" http://localhost:8383/xml -o "c:\utm\otv\otv1.xml"
					  
					  Если Константы.ТестовыйРежимУТМ.Получить() = Ложь Тогда     // если не тестовый режим выполняем cUrl или WindowsScriptHost
						  
						  // Журнал сообщений УТМ запрос
						  ЭлементЖурналУТМ = Документы.ЖурналСобытийУТМ.СоздатьДокумент();
						  ЭлементЖурналУТМ.Дата = ТекущаяДата();  
						  ЭлементЖурналУТМ.ТипЭлементаЖурнала = Перечисления.ТипЭлементаЖурналаУТМ.Запрос;
						  ЭлементЖурналУТМ.СобытиеУТМ = Сообщение; 
						  ЭлементЖурналУТМ.КомандаУТМ = СтрокаКоманды;
						  СписокУИНЖурналаУТМ = ЭлементЖурналУТМ.Список;
							    Для КАЖДОГО ТекСтрокаСписок ИЗ СписокТовара Цикл  
								     Если СтрДлина(ТекСтрокаСписок.УИН) = 16 Тогда
								          НоваяСтрокаУИНЖурналаУТМ     =  СписокУИНЖурналаУТМ.Добавить();  
										  НоваяСтрокаУИНЖурналаУТМ.УИН = ТекСтрокаСписок.УИН;
								     КонецЕсли;	   
							    КонецЦикла;	  
						   ЭлементЖурналУТМ.Записать();
						   // Журнал сообщений УТМ запрос
	  
						  Если Константы.МетодЗапускаКомандыУТМ.Получить() = Перечисления.МетодЗапускаКомандыУТМ.КакПриложение ИЛИ Константы.МетодЗапускаКомандыУТМ.Получить() = Перечисления.МетодЗапускаКомандыУТМ.ПустаяСсылка() Тогда
							  
							  
							  // 1. Вариант запуска команды
		                      ЗапуститьПриложение(СтрокаКоманды);
							  
							  
						  КонецЕсли;
						  
						  Если Константы.МетодЗапускаКомандыУТМ.Получить() = Перечисления.МетодЗапускаКомандыУТМ.КакОбъектWindowsScriptHost Тогда
							  // 2. вариант запуска команды  
							  // Run(strCommand, [intWindowStyle], [bWaitOnReturn])   
							  // strCommand – данный параметр является обязательным, поскольку задает путь для файла или команды. 
							  // Стоит учитывать, что если путь содержит пробелы, то его обязательно стоит заключать в двойные кавычки, 
						      // иначе, возникнет ошибка «The system cannot find the file specified» – система не может найти указанный файл. 
							  // Также полезно, использовать переменные окружения в пути к приложению, это экономит время. 
							  // intWindowStyle – является необязательным, и задает стиль окна. Параметр может принимать целые значения от 0 до 10. 
							  // Согласно документации, в языке vbscript можно использовать именованные константы, но, они не всегда дают ожидаемый результат, 
							  // и так как эти значения между собой повторяются, я упомянул лишь три:
		                      // 0 – скрывает окно, будет виден только процесс в диспетчере задач.
		                      // 1 – нормальный режим
		                      // 2 – свернутый вид
		                      // 3 – развернутый вид 
							  // bWaitOnReturn – может принимать true – сценарий будет ожидать завершения работы запущенного приложения, 
							  // и только потом перейдет к выполнению следующей строчки кода, 
							  // false – будет продолжатся выполнение сценария независимо от того, завершилась работа запущенного приложения или нет. 
							  // Также следует учесть, что если установлено true, то метод вернет код выхода вызванного приложения, 
							  // если установлено false – всегда будет возвращаться ноль.
							  
							  
							  objShell = Новый COMОбъект("WScript.Shell") ;
				              objShell.Run(СтрокаКоманды, 0, true);
						  КонецЕсли;        
					   Иначе
						  // Журнал сообщений УТМ запрос
						  ЭлементЖурналУТМ = Документы.ЖурналСобытийУТМ.СоздатьДокумент();
						  ЭлементЖурналУТМ.Дата = ТекущаяДата();  
						  ЭлементЖурналУТМ.ТипЭлементаЖурнала = Перечисления.ТипЭлементаЖурналаУТМ.Запрос; 
						  ЭлементЖурналУТМ.ТестовыйРежим = Истина;
						  ЭлементЖурналУТМ.СобытиеУТМ = Сообщение; 
						  ЭлементЖурналУТМ.КомандаУТМ = СтрокаКоманды;
						  СписокУИНЖурналаУТМ = ЭлементЖурналУТМ.Список;
							    Для КАЖДОГО ТекСтрокаСписок ИЗ СписокТовара Цикл  
								     Если СтрДлина(ТекСтрокаСписок.УИН) = 16 Тогда
								          НоваяСтрокаУИНЖурналаУТМ     =  СписокУИНЖурналаУТМ.Добавить();  
										  НоваяСтрокаУИНЖурналаУТМ.УИН = ТекСтрокаСписок.УИН;
								     КонецЕсли;	   
							    КонецЦикла;	  
						   ЭлементЖурналУТМ.Записать();
						   // Журнал сообщений УТМ запрос
					  КонецЕсли;
					  // 3. Прочитать ответ "C:\УТМответ\otvet.xml";    
					  // Нужно определиться сколько попыток необходимо
					  // Пауза 1 сек
					  сек = 1;
                      КонДата = ТекущаяДата() + сек;
                      Пока ТекущаяДата() < КонДата Цикл
                          // ждемссс....
                      КонецЦикла;
					  Попытка
						  
						  Текст = Новый ЧтениеТекста(ПутьКФайлуОтвета, КодировкаТекста.UTF8);
		                  СтрокаОтвета = Текст.Прочитать();	
		                  Текст.Закрыть();	
		                  ПрочитатьОтвет(СтрокаОтвета);
						  // записываем ответ в любом случае, если все хорошо - он сохранится, если нет - будет удален вместе с документом ЧекПродажи 
						  ЭлементДокумент.ОтветНаЗапросОтУТМ = СтрокаОтвета;
						  ЭлементДокумент.Записать();
						  
						  // Журнал сообщений УТМ ответ
						  ЭлементЖурналУТМ = Документы.ЖурналСобытийУТМ.СоздатьДокумент();
						  ЭлементЖурналУТМ.Дата = ТекущаяДата();   
						  ЭлементЖурналУТМ.ТипЭлементаЖурнала = Перечисления.ТипЭлементаЖурналаУТМ.Ответ; 
						  Если Константы.ТестовыйРежимУТМ.Получить() = Истина Тогда 
							   ЭлементЖурналУТМ.ТестовыйРежим = Истина;
						  КонецЕсли;	  
						  ЭлементЖурналУТМ.СобытиеУТМ = СтрокаОтвета;
						  СписокУИНЖурналаУТМ = ЭлементЖурналУТМ.Список;
						  Для КАЖДОГО ТекСтрокаСписок ИЗ СписокТовара Цикл  
								     Если СтрДлина(ТекСтрокаСписок.УИН) = 16 Тогда
								          НоваяСтрокаУИНЖурналаУТМ     =  СписокУИНЖурналаУТМ.Добавить();
										  НоваяСтрокаУИНЖурналаУТМ.УИН = ТекСтрокаСписок.УИН;
								     КонецЕсли;	   
						  КонецЦикла;	  
						  ЭлементЖурналУТМ.Записать();
						  // Журнал сообщений УТМ ответ 
					  Исключение 
						  // Неудача чтения файла ответа от УТМ
						  // Из описания у УТМ такое невозможно
						  // смысла мониторить папку нет, если не запускаешь курл в асинхронном потоке, просто когда команда отработает файлик там гарантированно будет 
						  // Журнал сообщений УТМ ответ
						  ЭлементЖурналУТМ = Документы.ЖурналСобытийУТМ.СоздатьДокумент();
						  ЭлементЖурналУТМ.Дата = ТекущаяДата();    
						  ЭлементЖурналУТМ.ТипЭлементаЖурнала = Перечисления.ТипЭлементаЖурналаУТМ.Ответ;  
						  Если Константы.ТестовыйРежимУТМ.Получить() = Истина Тогда 
							   ЭлементЖурналУТМ.ТестовыйРежим = Истина;
						  КонецЕсли;
						  ЭлементЖурналУТМ.СобытиеУТМ = "файл " + ПутьКФайлуОтвета + " не найден. Команда cUrl не исполнена";
						  СписокУИНЖурналаУТМ = ЭлементЖурналУТМ.Список;
						  Для КАЖДОГО ТекСтрокаСписок ИЗ СписокТовара Цикл  
								     Если СтрДлина(ТекСтрокаСписок.УИН) = 16 Тогда
								          НоваяСтрокаУИНЖурналаУТМ     =  СписокУИНЖурналаУТМ.Добавить(); 
										  НоваяСтрокаУИНЖурналаУТМ.УИН = ТекСтрокаСписок.УИН;
								     КонецЕсли;	   
						  КонецЦикла;	  
						  ЭлементЖурналУТМ.Записать();
						  // Журнал сообщений УТМ ответ
					КонецПопытки;	  
					  
		КонецЕсли;		
				  
		// 5. если ответ положительный (ОтветОтУТМПоложительный = Истина) пробить чек, если отрицательный удалить чек
		Если ОтветОтУТМПоложительный = Ложь И Константы.ТестовыйРежимУТМ.Получить() = Ложь Тогда 
			Если Константы.ЗакончитьПродажуПриОтрицательномОтветеУТМ.Получить() = Истина Тогда
				     // ничего не делаем, продолжаем выполнение программы
				     // игнорируем ошибку УТМ
				 Иначе
			         ЧекПробит = Ложь;
                     ЭтаФорма.Закрыть(Истина);  // Дальше выполнится ПриЗакрытии(), чек будет удален, операция прервана  
		     конецЕсли;		 
		Иначе 
			// записываем признак УСПЕХ выполения операции УТМ
			 Если Константы.ТестовыйРежимУТМ.Получить() = Ложь  Тогда			 
				ЭлементДокумент.УТМ = Истина;
			 КонецЕсли;	
			 ЭлементДокумент.Записать();
		КонецЕсли;	
		
	
	Иначе
		Сообщить("Условия работы УТМ не выполнены", СтатусСообщения.Обычное);
		 Если ЧекСодержитУИН(ЭлементДокумент) Тогда
			 Сообщить("Чек содержит товары с УИН", СтатусСообщения.Обычное);    
			 Иначе
			 Сообщить("Чек не содержит товаров с УИН", СтатусСообщения.Обычное);
		 КонецЕсли;  
		 Если (Константы.ПередаватьЗапросыВУТМ.Получить() = Истина И Константы.ФискальныйРегистраторВключен.Получить() = Истина И глНомерВерсииДрайвераККМ = 10 И ЧекСодержитУИН(ЭлементДокумент) И (ЧекНаличными > 0 ИЛИ ЧекБезналичными > 0)) Тогда
			 Сообщить("Выполнено первое условие"); 
		 КонецЕсли;	
		 Если (Константы.ПередаватьЗапросыВУТМ.Получить() = Истина И ЧекСодержитУИН(ЭлементДокумент) И (ЧекНаличными > 0 ИЛИ ЧекБезналичными > 0) И (Константы.ТестовыйРежимУТМ.Получить()=Истина)) Тогда
			 Сообщить("Выполенено второе - тестовое условие");
		 КонецЕсли;	 
   КонецЕсли;		 
   ////////////////////// ВСТАВКА ФОРМИРОВАНИЯ ЗАПРОСА ДЛЯ ПЕРЕДАЧИ В ГИИС ДМДК, ПОЛУЧЕНИЯ ОТВЕТА ////////////////////////////////////////////////////////////­/////////////////
   //#КонецОбласти