dklp
Алексей Че

curl --request POST 'https://data.mongodb-api.com/app/endpoint/data/v1/action/findOne' \
--header 'Content-Type: application/json' \
--header 'Access-Control-Request-Headers: *' \
--header 'api-key: MY_UNIQUE_API_KEY' \
--data-raw '{ "collection":"myCollection", "database":"1c", "dataSource":"Cluster7" }'

{МодульУправляемогоПриложения(90)}:   Ответ = Соединение.ВызватьHTTPМетод("POST", Запрос);
по причине: Ошибка работы с Интернет:  Server returned nothing (no headers, no data)

SSL = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Новый СертификатыУдостоверяющихЦентровОС());  
Соединение = Новый HTTPСоединение("data.mongodb-api.com", 443,,,,, SSL);

Заголовки = Новый Соответствие;    
Заголовки.Вставить("Content-Type", "application/json"); 
Заголовки.Вставить("Access-Control-Request-Headers", "*");
Заголовки.Вставить("api-key", "MY_UNIQUE_API_KEY");

Данные = Новый Структура();
Данные.Вставить("collection", "myCollection");
Данные.Вставить("database", "1c"); 
Данные.Вставить("dataSource", "Cluster7"); 

ЗаписьJSON = Новый ЗаписьJSON;         
ЗаписьJSON.УстановитьСтроку();
ЗаписатьJSON(ЗаписьJSON, Данные);         
ТелоЗапроса = ЗаписьJSON.Закрыть(); 
   
Запрос = Новый HTTPЗапрос("/app/endpoint/data/v1/action/findOne", Заголовки);
Запрос.УстановитьТелоИзСтроки(ТелоЗапроса);

Ответ = Соединение.ВызватьHTTPМетод("POST", Запрос);

Сообщить(Ответ.ПолучитьТелоКакСтроку());

ВЫБРАТЬ
   РеализацияТоваровУслугТовары.Ссылка КАК ДокументПродажи,
   РеализацияТоваровУслугТовары.Номенклатура КАК Номенклатура,
   ВнешняяВТ.Изготовитель КАК Изготовитель 
ИЗ
   Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
      ЛЕВОЕ СОЕДИНЕНИЕ ВнешняяВТ КАК ВнешняяВТ
      ПО РеализацияТоваровУслугТовары.Номенклатура.Наименование = ВнешняяВТ.Номенклатура
ГДЕ
   РеализацияТоваровУслугТовары.Ссылка.Дата МЕЖДУ &НачалоПериода И &КонецПериода

// это вспомогательная функция для выгрузки табличного документа в таблицу значений   
// здесь ТабДок - реквизит объекта отчета, куда мы ранее прочитали содержимое файла

Функция ПолучитьТЗ()                                        

   ПЗ = Новый ПостроительЗапроса;
   ПЗ.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабДок.Область());
   ПЗ.ДобавлениеПредставлений = ТипДобавленияПредставлений.НеДобавлять;
   ПЗ.ЗаполнитьНастройки();
   ПЗ.Выполнить();
   
   ТЗ = ПЗ.Результат.Выгрузить();    
   Возврат ТЗ;

КонецФункции
                        
// это процедура, где мы переопределяем алгоритм компоновки результата отчета   
   
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

   СтандартнаяОбработка = Ложь;      
   
   // формируем запрос для загрузки таблицы значений во временную таблицу

   Запрос = Новый Запрос;
   Запрос.МенеджерВременныхТаблиц = МенеджерВТ;
   Запрос.Текст = 
      "ВЫБРАТЬ
      |   ВЫРАЗИТЬ(ТЗ.Номенклатура КАК СТРОКА (200)) КАК Номенклатура,
      |   ВЫРАЗИТЬ(ТЗ.Изготовитель КАК СТРОКА (40)) КАК Изготовитель
      |ПОМЕСТИТЬ ВнешняяВТ
      |ИЗ
      |   &ТаблицаЗначений КАК ТЗ";
   Запрос.УстановитьПараметр("ТаблицаЗначений", ПолучитьТЗ());
   Запрос.Выполнить();

   // передаем менеджер временных таблиц процессору компоновки данных 
   // так наша временная таблица станет видна в основном запросе СКД
   
   КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.ПолучитьНастройки(), ДанныеРасшифровки,, Тип("ГенераторМакетаКомпоновкиДанных"));
       
    ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных,, ДанныеРасшифровки, Истина,, МенеджерВТ);
    
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
    ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
          
КонецПроцедуры

&НаКлиенте
Процедура ПереоткрытьОтчет(Команда)     

   // сначала копируем имя файла отчета в буфер обмена
   ОбъектHtml = Новый COMОбъект("htmlfile");
   ОбъектHtml.ParentWindow.ClipboardData.Setdata("Text", ИмяФайла());

    ЭтаФорма.Закрыть();  
   
   // имитируем нажатие горячих клавиш как при ручном открытии файла  
   ОбъектShell = Новый COMОбъект("WScript.Shell"); 
   ОбъектShell.SendKeys("^o");  
   ОбъектShell.SendKeys("^щ");
   ОбъектShell.SendKeys("^v");
   ОбъектShell.SendKeys("^м");
   ОбъектShell.SendKeys("{ENTER}");
   
КонецПроцедуры                                       

&НаСервере
Функция ИмяФайла()    
   
   ИмяФайла = РеквизитФормыВЗначение("Отчет").ИспользуемоеИмяФайла;
   Возврат ИмяФайла;
   
КонецФункции