&НаСервере
Процедура ЗаполнитьФормуНаСервере(Парам)
	// Вставить содержимое обработчика.
Сервер = "cloud.service.grohe.ru";


HTTPЗапрос = Новый HTTPЗапрос("/pub/form/23_vnimanie_podtverzhdenie_garantiynoy_zayavki_neobkhodimo_dlya_provedeniya_garantiynogo_otcheta/6j04i1/");

ssl = Новый ЗащищенноеСоединениеOpenSSL( );
ПроксиСервер = Неопределено;
Соединение = Новый HTTPСоединение(
                            Сервер,  
							443, // порт
							"baikal3@mail.ru", // пользователь
							"s2320566", // пароль
							ПроксиСервер, // прокси
                            5, // таймаут в секундах
                            ssl // защищенное HTTPS соединение
                        );
Результат = Соединение.Получить(HTTPЗапрос);

Куки = Результат.Заголовки.Получить("Set-Cookie");
Куки = СтрЗаменить(Куки, ";", Символы.ПС);
ИдентификаторСессии1 = СтрПолучитьСтроку(Куки, 1);    
ИдентификаторСессии1=Прав(ИдентификаторСессии1, СтрДлина(ИдентификаторСессии1) - 10);
ДатаСоед=Результат.Заголовки.Получить("Date");


Ресурс = "/pub/form/23_vnimanie_podtverzhdenie_garantiynoy_zayavki_neobkhodimo_dlya_provedeniya_garantiynogo_otcheta/6j04i1/";

ТекстовыйФайл = Новый ТекстовыйДокумент;
ТекстовыйФайл.ДобавитьСтроку("COMPANY_TITLE=" + Парам.Компания );
ТекстовыйФайл.ДобавитьСтроку("DEAL_UF_CRM_1545049808=" + Парам.ВидРабот);
ТекстовыйФайл.ДобавитьСтроку("CONTACT_NAME="+Парам.Имя);
ТекстовыйФайл.ДобавитьСтроку("CONTACT_LAST_NAME="+Парам.Фамилия);
ТекстовыйФайл.ДобавитьСтроку("CONTACT_ADDRESS="+Парам.Адрес);
ТекстовыйФайл.ДобавитьСтроку("CONTACT_PHONE="+Парам.Телефон);
ТекстовыйФайл.ДобавитьСтроку("CONTACT_EMAIL="+"");
ТекстовыйФайл.ДобавитьСтроку("DEAL_UF_CRM_1545048724="+Парам.Артикул);
ТекстовыйФайл.ДобавитьСтроку("DEAL_UF_CRM_1545048746="+Парам.ОписПроблемы);
ТекстовыйФайл.ДобавитьСтроку("DEAL_UF_CRM_1545050236="+Парам.РешПроблемы);
//ТекстовыйФайл.ДобавитьСтроку("");
//ТекстовыйФайл.ДобавитьСтроку("from="+"https://cloud.service.grohe.ru/pub/form/23_vnimanie_podtverzhdenie_garantiynoy_zayavki_neobkhodimo_dlya_provedeniya_garantiynogo_otcheta/6j04i1/");
//ТекстовыйФайл.ДобавитьСтроку("sessid="+ИдентификаторСессии1);

Текст=ТекстовыйФайл.ПолучитьТекст();
Текст=СтрРазделить(Текст,Символы.ПС,1);
Текст.Удалить(Текст.Количество()-1);
ААА=КодСимвола("&");
ААА= Символ(ААА);
Текст=СтрСоединить(Текст,ААА);

HTTPЗапрос.Заголовки=Результат.Заголовки;
//HTTPЗапрос.Заголовки.Вставить("cache-control", "no-store, no-cache, must-revalidate");//илья
//ААА= РазмерВремФайла(ИмяФайлаОтправки);
ААА=  СтрДлина(Текст);
HTTPЗапрос.Заголовки.Вставить("content-length",ААА);   //илья
HTTPЗапрос.Заголовки.Вставить("Content-Type","application/json; charset=UTF-8");//илья
HTTPЗапрос.Заголовки.Удалить("Transfer-Encoding");
//HTTPЗапрос.Заголовки.Вставить("Status",200);    

//HTTPЗапрос.Заголовки.Вставить("date",ДатаСоед);
//HTTPЗапрос.Заголовки.Вставить("expires","Thu, 19 Nov 1981 08:52:00 GMT");

//HTTPЗапрос.Заголовки.Вставить("Accept-Language", "ru");
//HTTPЗапрос.Заголовки.Вставить("Accept-Charset", "utf-8");
//HTTPЗапрос.Заголовки.Вставить("Content-Language", "ru");
//HTTPЗапрос.Заголовки.Вставить("Content-Charset", "utf-8");

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

Ответ = Соединение.ОтправитьДляОбработки(HTTPЗапрос);
ААА=Ответ.ПолучитьТелоКакСтроку();
Сообщить(ААА);

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

&НаКлиенте//////////////////////////////////////////////////////////
Процедура ЗаполнитьФорму(Команда)
	Парам = Новый Структура;
	Парам.Вставить("Компания","ООО Туман, Москва");
	Парам.Вставить("ВидРабот","131");
	Парам.Вставить("Имя","Илья");
	Парам.Вставить("Фамилия","Сорокопуд");
	Парам.Вставить("Адрес","Москва СЦ Байкал");
	Парам.Вставить("Телефон","+79160315344");
	Парам.Вставить("Артикул","00000000");
	Парам.Вставить("ОписПроблемы","Тестовыя заявку в Битрикс от СЦ");
	Парам.Вставить("РешПроблемы","Если получена прошу сообщить Сорокопуду Илье");
	
	ЗаполнитьФормуНаСервере(Парам);
КонецПроцедуры