&НаСервереБезКонтекста
Функция ПараметрыВыбораБанковскихСчетов(ОплатаВВалюте, Организация)
МассивПараметров = Новый Массив;
Если НЕ ОплатаВВалюте Тогда
МассивПараметров.Добавить(Новый ПараметрВыбора("Отбор.ВалютаДенежныхСредств",
ЗначениеНастроекПовтИсп.ВалютаРегламентированногоУчетаОрганизации(Организация)));
Иначе
МассивПараметров.Добавить(Новый ПараметрВыбора("Отбор.ВалютаДенежныхСредств", Новый ФиксированныйМассив(ИностранныеВалюты(Организация))));
КонецЕсли;
МассивПараметров.Добавить(Новый ПараметрВыбора("ВыборСчетовГоловнойОрганизации", Неопределено));
МассивПараметров.Добавить(Новый ПараметрВыбора("Отбор.Закрыт", Ложь));
Возврат Новый ФиксированныйМассив(МассивПараметров);
КонецФункции
&НаСервере
Процедура ПриЧтенииНаСервере()
ПараметрыВыбораБанковскогоСчета = ПараметрыВыбораБанковскихСчетов(Ложь, Объект.Организация);
Элементы.БанковскийСчет.ПараметрыВыбора = ПараметрыВыбораБанковскогоСчета;
Элементы.БанковскийСчетКонтрагента.ПараметрыВыбора = ПараметрыВыбораБанковскогоСчета;
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПараметрыВыбораБанковскихСчетов(ОплатаВВалюте, Организация)
МассивПараметров = Новый Массив;
Если НЕ ОплатаВВалюте Тогда
МассивПараметров.Добавить(Новый ПараметрВыбора("Отбор.ВалютаДенежныхСредств",
ЗначениеНастроекПовтИсп.ВалютаРегламентированногоУчетаОрганизации(Организация)));
Иначе
МассивПараметров.Добавить(Новый ПараметрВыбора("Отбор.ВалютаДенежныхСредств", Новый ФиксированныйМассив(ИностранныеВалюты(Организация))));
КонецЕсли;
МассивПараметров.Добавить(Новый ПараметрВыбора("ВыборСчетовГоловнойОрганизации", Неопределено));
МассивПараметров.Добавить(Новый ПараметрВыбора("Отбор.Закрыт", Ложь));
Возврат Новый ФиксированныйМассив(МассивПараметров);
КонецФункции
&НаСервере
Процедура ПриЧтенииНаСервере()
ПараметрыВыбораБанковскогоСчета = ПараметрыВыбораБанковскихСчетов(Ложь, Объект.Организация);
Элементы.БанковскийСчет.ПараметрыВыбора = ПараметрыВыбораБанковскогоСчета;
Элементы.БанковскийСчетКонтрагента.ПараметрыВыбора = ПараметрыВыбораБанковскогоСчета;
КонецПроцедуры
Функция ПрочитатьТаблицуИз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
Сообщить(СтрокаОтвета);
Иначе
//Ошибка при выполнении запроса
КонецЕсли;
КонецПроцедуры