Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Если SSL Тогда
- хСоединение = Новый HTTPСоединение(АдресСервера,443,"логин","пароль",,,Новый ЗащищенноеСоединениеOpenSSL);
- Иначе
- хСоединение = Новый HTTPСоединение(АдресСервера);
- КонецЕсли;
- хЗапрос = Новый HTTPЗапрос;
- хЗапрос.УстановитьТелоИзДвоичныхДанных(СформироватьXMLДляГида(Истина));
- ГСЧ = Новый ГенераторСлучайныхЧисел();
- Если IDРаспродажи = "" Тогда
- ГенерацияID();
- КонецЕсли;
- Заголовки = Новый Соответствие;
- Заголовки.Вставить("service-method" ,"add");
- Заголовки.Вставить("service-key" ,КлючAPI);
- Заголовки.Вставить("service-id" ,IDРаспродажи);
- Заголовки.Вставить("service-name" ,КодироватьСтроку(Проект.НазваниеДляСайта,СпособКодированияСтроки.КодировкаURL));
- Заголовки.Вставить("service-description" ,КодироватьСтроку(Проект.НазваниеДляСайта,СпособКодированияСтроки.КодировкаURL));
- Заголовки.Вставить("service-dateofstart" ,Проект.ДатаНачала);
- Заголовки.Вставить("service-dateofend" ,Проект.ДатаОкончания);
- хЗапрос.Заголовки = Заголовки;
- хЗапрос.АдресРесурса = АдрезЗапроса;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement