&НаСервереБезКонтекста
Функция ПараметрыВыбораБанковскихСчетов(ОплатаВВалюте, Организация)

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

&НаСервере
Процедура ПриЧтенииНаСервере()
	ПараметрыВыбораБанковскогоСчета = ПараметрыВыбораБанковскихСчетов(Ложь, Объект.Организация);
	Элементы.БанковскийСчет.ПараметрыВыбора            = ПараметрыВыбораБанковскогоСчета;
	Элементы.БанковскийСчетКонтрагента.ПараметрыВыбора = ПараметрыВыбораБанковскогоСчета;
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПараметрыВыбораБанковскихСчетов(ОплатаВВалюте, Организация)

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

&НаСервере
Процедура ПриЧтенииНаСервере()
	ПараметрыВыбораБанковскогоСчета = ПараметрыВыбораБанковскихСчетов(Ложь, Объект.Организация);
	Элементы.БанковскийСчет.ПараметрыВыбора            = ПараметрыВыбораБанковскогоСчета;
	Элементы.БанковскийСчетКонтрагента.ПараметрыВыбора = ПараметрыВыбораБанковскогоСчета;
КонецПроцедуры

Функция ПрочитатьТаблицуИзXML(СтрокаXML)
    
    ЧтениеXML = Новый ЧтениеXML;
    ЧтениеXML.УстановитьСтроку(СтрокаXML);
    ТипОбъектаXDTO = ФабрикаXDTO.Тип("http://v8.1c.ru/8.1/data/core","ValueTable");
    ОбъектXDTO = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML,ТипОбъектаXDTO); 
    ОбъектXDTO.Проверить();
    
    ЧтениеXML.Закрыть();
    ТЗ = СериализаторXDTO.ПрочитатьXDTO(ОбъектXDTO);
    Возврат ТЗ;
    
КонецФункции

Функция ПрочитатьТаблицуИзXML(СтрокаXML)
    
    ЧтениеXML = Новый ЧтениеXML;
    ЧтениеXML.УстановитьСтроку(СтрокаXML);
    ТипОбъектаXDTO = ФабрикаXDTO.Тип("http://v8.1c.ru/8.1/data/core","ValueTable");
    ОбъектXDTO = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML,ТипОбъектаXDTO); 
    ОбъектXDTO.Проверить();
    
    ЧтениеXML.Закрыть();
    ТЗ = СериализаторXDTO.ПрочитатьXDTO(ОбъектXDTO);
    Возврат ТЗ;
    
КонецФункции

Функция ЗаписатьТаблицуВXML(ТЗ)
    
    ЗаписьXML = Новый ЗаписьXML;
    ЗаписьXML.УстановитьСтроку();
    ОбъектXDTO = СериализаторXDTO.ЗаписатьXDTO(ТЗ.Выгрузить());
    ФабрикаXDTO.ЗаписатьXML(ЗаписьXML, ОбъектXDTO);
    Возврат ЗаписьXML.Закрыть();
    
КонецФункции

Функция ЗаписатьТаблицуВXML(ТЗ)
    
    ЗаписьXML = Новый ЗаписьXML;
    ЗаписьXML.УстановитьСтроку();
    ОбъектXDTO = СериализаторXDTO.ЗаписатьXDTO(ТЗ.Выгрузить());
    ФабрикаXDTO.ЗаписатьXML(ЗаписьXML, ОбъектXDTO);
    Возврат ЗаписьXML.Закрыть();
    
КонецФункции

Процедура СохранитьТаблицуВФайлXML(ИмяФайла, ТЗ)
	
	Сериализатор = Новый СериализаторXDTO(ФабрикаXDTO);
	XML = Новый ЗаписьXML;
	XML.ОткрытьФайл(ИмяФайла);
	Сериализатор.ЗаписатьXML(XML, ТЗ);
	XML.Закрыть();

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

Процедура СохранитьТаблицуВФайлXML(ИмяФайла, ТЗ)
	
	Сериализатор = Новый СериализаторXDTO(ФабрикаXDTO);
	XML = Новый ЗаписьXML;
	XML.ОткрытьФайл(ИмяФайла);
	Сериализатор.ЗаписатьXML(XML, ТЗ);
	XML.Закрыть();

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

//Описание API https://beta.openai.com/docs/api-reference/

Процедура ЗапросКChatGPT(Текст)
	
	Соединение = Новый HTTPСоединение("api.openai.com",,,,,,Новый ЗащищенноеСоединениеOpenSSL());
		
	Заголовки=Новый Соответствие();
	Заголовки.Вставить("Content-Type", "application/json");
	Заголовки.Вставить("Authorization", "Bearer <Ваш API-Key>");
	
	Запрос = Новый HTTPЗапрос();
	Запрос.АдресРесурса = "v1/completions";
	Запрос.Заголовки = Заголовки;
		
    ТелоЗапроса = 
    "
	|{
  |""model"": ""text-davinci-003"",
  |""prompt"": """ + Текст+ """,
  |""max_tokens"": 100,
  |""temperature"": 0,
  |""top_p"": 1,
  |""n"": 1,
  |""stream"": false,
  |""logprobs"": null,
  |""stop"": "".""
  |}";
	
	Запрос.УстановитьТелоИзСтроки(ТелоЗапроса);
	
	Ответ=Соединение.ОтправитьДляОбработки(Запрос);
	
	КодСостояния=Ответ.КодСостояния;
	СтрокаОтвета=Ответ.ПолучитьТелоКакСтроку();
	
	Если КодСостояния=200 Тогда
		//Ответ в виде Json
		Сообщить(СтрокаОтвета);
	Иначе
		//Ошибка при выполнении запроса
	КонецЕсли;		
    
КонецПроцедуры

//Описание API https://beta.openai.com/docs/api-reference/

Процедура ЗапросКChatGPT(Текст)
	
	Соединение = Новый HTTPСоединение("api.openai.com",,,,,,Новый ЗащищенноеСоединениеOpenSSL());
		
	Заголовки=Новый Соответствие();
	Заголовки.Вставить("Content-Type", "application/json");
	Заголовки.Вставить("Authorization", "Bearer <Ваш API-Key>");
	
	Запрос = Новый HTTPЗапрос();
	Запрос.АдресРесурса = "v1/completions";
	Запрос.Заголовки = Заголовки;
		
    ТелоЗапроса = 
    "
	|{
  |""model"": ""text-davinci-003"",
  |""prompt"": """ + Текст+ """,
  |""max_tokens"": 100,
  |""temperature"": 0,
  |""top_p"": 1,
  |""n"": 1,
  |""stream"": false,
  |""logprobs"": null,
  |""stop"": "".""
  |}";
	
	Запрос.УстановитьТелоИзСтроки(ТелоЗапроса);
	
	Ответ=Соединение.ОтправитьДляОбработки(Запрос);
	
	КодСостояния=Ответ.КодСостояния;
	СтрокаОтвета=Ответ.ПолучитьТелоКакСтроку();
	
	Если КодСостояния=200 Тогда
		//Ответ в виде Json
		Сообщить(СтрокаОтвета);
	Иначе
		//Ошибка при выполнении запроса
	КонецЕсли;		
    
КонецПроцедуры