Заметки по 1С

Разложить массив по типам объектов

Функция раскладывает массив в структуру

Функция РазложитьМассивПоТипамОбъектов(МассивОбъектов)
	СтруктураТипов 	= Новый Структура;
	
	Для Каждого Объект Из МассивОбъектов Цикл
		
		МетаданныеДокумента = Метаданные.НайтиПоТипу(ТипЗнч(Объект));
		Если МетаданныеДокумента <> Неопределено Тогда
	
			ИмяДокумента = МетаданныеДокумента.Имя;
			Если НЕ СтруктураТипов.Свойство(ИмяДокумента) Тогда
				МассивДокументов 	= Новый Массив;
				СтруктураТипов.Вставить(ИмяДокумента, МассивДокументов);
			КонецЕсли;
			СтруктураТипов[ИмяДокумента].Добавить(Объект);
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат СтруктураТипов;
	
КонецФункции

Функция РазложитьМассивПоТипамОбъектов(МассивОбъектов)

СтруктураТипов = Новый Структура;

Для Каждого Объект Из МассивОбъектов Цикл

МетаданныеДокумента = Метаданные.НайтиПоТипу(ТипЗнч(Объект));

Если МетаданныеДокумента <> Неопределено Тогда

ИмяДокумента = МетаданныеДокумента.Имя;

Если НЕ СтруктураТипов.Свойство(ИмяДокумента) Тогда

МассивДокументов = Новый Массив;

СтруктураТипов.Вставить(ИмяДокумента, МассивДокументов);

КонецЕсли;

СтруктураТипов[ИмяДокумента].Добавить(Объект);

КонецЕсли;

КонецЦикла;

Возврат СтруктураТипов;

КонецФункции

Отправить документ в чат телеграм

Token, ChatID — параметры (Token- бота, ChatID — либо группы, либо аккаунта); ПутьКФайлу = путь к выбранному файлу для отправки

        Token 	 = "++++++++++++++++++++++++++++++++++++";
	ServerTg  = "api.telegram.org";
	ChatID 	 = "815505225";
	
	ФайлОтправки = Новый Файл(ПутьКФайлу);
	
	СтрокаСоединения = "bot" + Token + "/sendDocument";
	
	// Разделитель;
	Boundary = "----"+Строка(Новый УникальныйИдентификатор());
	
	// Определяем массив для процедуры ОбъединитьФайлы;
	МассивФайловДляОбъединения = Новый Массив;
	
	// Формируем начальный фрагмент файла POST-запроса;	
	ИмяФайлаОтправкиНачало = ПолучитьИмяВременногоФайла("txt");
	ФайлОтправкиНачало = Новый ЗаписьТекста(ИмяФайлаОтправкиНачало, КодировкаТекста.UTF8);
	
	// Формируем конечный фрагмент файла POST-запроса;	
	ИмяФайлаОтправкиКонец = ПолучитьИмяВременногоФайла("txt");
	ФайлаОтправкиКонец = Новый ЗаписьТекста(ИмяФайлаОтправкиКонец, КодировкаТекста.UTF8);
	
	ТекстДляОтправки = "";
	
	ТекстДляОтправки = ТекстДляОтправки + "--" + Boundary + Символы.ПС;
	ТекстДляОтправки = ТекстДляОтправки + "Content-Disposition: form-data; name=""chat_id""" + Символы.ПС + Символы.ПС + СтрЗаменить(Формат(ChatID, "ЧДЦ=0; ЧС=; ЧРГ=.; ЧГ=0"), ".", "") + Символы.ПС;
	
	ТекстДляОтправки = ТекстДляОтправки + "--" + Boundary + Символы.ПС;
	ТекстДляОтправки = ТекстДляОтправки + "Content-Disposition: form-data; name=""document""; filename=""/" + ФайлОтправки.Имя + """" + Символы.ПС;
	
	// Записываем ФайлОтправкиНачало; 
	ФайлОтправкиНачало.ЗаписатьСтроку(ТекстДляОтправки);
	ФайлОтправкиНачало.Закрыть();
	
	ТекстДляОтправки = "" + Символы.ПС;
	ТекстДляОтправки = ТекстДляОтправки + "--" +  Boundary+"--";
	
	// Записываем ФайлаОтправкиКонец; 
	ФайлаОтправкиКонец.ЗаписатьСтроку(ТекстДляОтправки);
	ФайлаОтправкиКонец.Закрыть();
	
	// Заполняем массив;
	МассивФайловДляОбъединения.Добавить(ИмяФайлаОтправкиКонец);
	МассивФайловДляОбъединения.Добавить(ИмяФайлаОтправкиНачало);
	МассивФайловДляОбъединения.Добавить(СокрЛП(ПутьКФайлу));
	
	// Формируем ИмяФайлаОтправки;
	ИмяФайлаОтправки = ПолучитьИмяВременногоФайла("txt");
	ОбъединитьФайлы(МассивФайловДляОбъединения, ИмяФайлаОтправки);
	
	HTTPЗапрос 	= Новый HTTPЗапрос;
	Заголовки 	= Новый Соответствие;
	
	// Формируем Заголовки HTTP Запроса;
	HTTPЗапрос.Заголовки.Вставить("Connection", "keep-alive");
	HTTPЗапрос.Заголовки.Вставить("Content-Type", "multipart/form-data; boundary="+Boundary);
	
	HTTPЗапрос.УстановитьИмяФайлаТела(ИмяФайлаОтправки);
	
	// Установим АдресРесурса;
	HTTPЗапрос.АдресРесурса 	= СтрокаСоединения;
	
	SSL  = Новый ЗащищенноеСоединениеOpenSSL();
	HTTPСоединение = Новый HTTPСоединение(ServerTg, 443,,,,, SSL);
	
	Попытка
		// POST запрос; 
		Ответ = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);
		
		КодСостояния     = Ответ.КодСостояния;
		СтрокаОтвета     = Ответ.ПолучитьТелоКакСтроку();
		
		Если КодСостояния = 200 тогда
			// Читаем JSON;
			ЧтениеJSON = Новый ЧтениеJSON;
			
			ЧтениеJSON.УстановитьСтроку(СтрокаОтвета);
			
			РезультатСтруктура = ПрочитатьJSON(ЧтениеJSON);
			
			Если РезультатСтруктура.ok = Истина Тогда
				СтруктураMessage = РезультатСтруктура.result;
			КонецЕсли; 
		Иначе
			Сообщить("КодСостояния " + КодСостояния);
			Сообщить(СтрокаОтвета);
		КонецЕсли;
		
	Исключение
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Ошибка: " + ОписаниеОшибки();
		Сообщение.Сообщить();
	КонецПопытки;

Token = "++++++++++++++++++++++++++++++++++++";

ServerTg = "api.telegram.org";

ChatID = "815505225";

ФайлОтправки = Новый Файл(ПутьКФайлу);

СтрокаСоединения = "bot" + Token + "/sendDocument";

// Разделитель;

Boundary = "----"+Строка(Новый УникальныйИдентификатор());

// Определяем массив для процедуры ОбъединитьФайлы;

МассивФайловДляОбъединения = Новый Массив;

// Формируем начальный фрагмент файла POST-запроса;

ИмяФайлаОтправкиНачало = ПолучитьИмяВременногоФайла("txt");

ФайлОтправкиНачало = Новый ЗаписьТекста(ИмяФайлаОтправкиНачало, КодировкаТекста.UTF8);

// Формируем конечный фрагмент файла POST-запроса;

ИмяФайлаОтправкиКонец = ПолучитьИмяВременногоФайла("txt");

ФайлаОтправкиКонец = Новый ЗаписьТекста(ИмяФайлаОтправкиКонец, КодировкаТекста.UTF8);

ТекстДляОтправки = "";

ТекстДляОтправки = ТекстДляОтправки + "--" + Boundary + Символы.ПС;

ТекстДляОтправки = ТекстДляОтправки + "Content-Disposition: form-data; name=""chat_id""" + Символы.ПС + Символы.ПС + СтрЗаменить(Формат(ChatID, "ЧДЦ=0; ЧС=; ЧРГ=.; ЧГ=0"), ".", "") + Символы.ПС;

ТекстДляОтправки = ТекстДляОтправки + "--" + Boundary + Символы.ПС;

ТекстДляОтправки = ТекстДляОтправки + "Content-Disposition: form-data; name=""document""; filename=""/" + ФайлОтправки.Имя + """" + Символы.ПС;

// Записываем ФайлОтправкиНачало;

ФайлОтправкиНачало.ЗаписатьСтроку(ТекстДляОтправки);

ФайлОтправкиНачало.Закрыть();

ТекстДляОтправки = "" + Символы.ПС;

ТекстДляОтправки = ТекстДляОтправки + "--" + Boundary+"--";

// Записываем ФайлаОтправкиКонец;

ФайлаОтправкиКонец.ЗаписатьСтроку(ТекстДляОтправки);

ФайлаОтправкиКонец.Закрыть();

// Заполняем массив;

МассивФайловДляОбъединения.Добавить(ИмяФайлаОтправкиКонец);

МассивФайловДляОбъединения.Добавить(ИмяФайлаОтправкиНачало);

МассивФайловДляОбъединения.Добавить(СокрЛП(ПутьКФайлу));

// Формируем ИмяФайлаОтправки;

ИмяФайлаОтправки = ПолучитьИмяВременногоФайла("txt");

ОбъединитьФайлы(МассивФайловДляОбъединения, ИмяФайлаОтправки);

HTTPЗапрос = Новый HTTPЗапрос;

Заголовки = Новый Соответствие;

// Формируем Заголовки HTTP Запроса;

HTTPЗапрос.Заголовки.Вставить("Connection", "keep-alive");

HTTPЗапрос.Заголовки.Вставить("Content-Type", "multipart/form-data; boundary="+Boundary);

HTTPЗапрос.УстановитьИмяФайлаТела(ИмяФайлаОтправки);

// Установим АдресРесурса;

HTTPЗапрос.АдресРесурса = СтрокаСоединения;

SSL = Новый ЗащищенноеСоединениеOpenSSL();

HTTPСоединение = Новый HTTPСоединение(ServerTg, 443,,,,, SSL);

Попытка

// POST запрос;

Ответ = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);

КодСостояния = Ответ.КодСостояния;

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

Если КодСостояния = 200 тогда

// Читаем JSON;

ЧтениеJSON = Новый ЧтениеJSON;

ЧтениеJSON.УстановитьСтроку(СтрокаОтвета);

РезультатСтруктура = ПрочитатьJSON(ЧтениеJSON);

Если РезультатСтруктура.ok = Истина Тогда

СтруктураMessage = РезультатСтруктура.result;

КонецЕсли;

Иначе

Сообщить("КодСостояния " + КодСостояния);

Сообщить(СтрокаОтвета);

КонецЕсли;

Исключение

Сообщение = Новый СообщениеПользователю;

Сообщение.Текст = "Ошибка: " + ОписаниеОшибки();

Сообщение.Сообщить();

КонецПопытки;

Отправка сообщения в чат-бот телеграм

Удобно использовать при отладке: добавив к условию точки остановки <здесь ваше произвольное условие> И ОповеститьВтелеграм(ОписаниеОшибки()) = Неопределено — отправит в телеграм причину ошибки, если она произошла. Или, условие точки остановки ОповеститьВтелеграм(«Процедура окончена») = Неопределено И Ложь — сообщит о том, что точка остановки пройдена // отправка любого сообщения, в т.ч. ОписаниеОшибки(), в Телеграм бот

Функция ОтправитьСообщениеВТелеграм(Сообщение) Попытка

1	Функция ОтправитьСообщениеВТелеграм(Сообщение) Попытка

// 1) Создаем бота в телеграме, для этого нужно перейти в @BotFather и проследовать инструкциям,
//    по окончании которых нам предоставят Access token	
ДанныеДоступа = "это Access token";

// 2) однократно получаем ID чата с ботом, предварительно написав боту любое сообщение
// быстро: 
    // - https://cms3.ru/kak-poluchit-chat-id-telegram/
    // - api.telegram.org/bot<ДанныеДоступа>/getUpdates
// чуть дольше: из текста json ответа, в объекте chat: "chat": {"id": "ид чата"}
Соединение = Новый HTTPСоединение("api.telegram.org",443,,,,,Новый ЗащищенноеСоединениеOpenSSL());
ТекстJSONОтвета = Соединение.Получить(Новый HTTPЗапрос("bot" + ДанныеДоступа + "/getUpdates")).ПолучитьТелоКакСтроку();
//(затем можно закомментировать две строчки кода выше)
ИдЧата = "это chat.id";

  // 3) Отправляем сообщение с ранее указанными сообщением, токеном, ид чата

// 1) Создаем бота в телеграме, для этого нужно перейти в @BotFather и проследовать инструкциям,

// по окончании которых нам предоставят Access token

ДанныеДоступа = "это Access token";

// 2) однократно получаем ID чата с ботом, предварительно написав боту любое сообщение

// быстро:

// - https://cms3.ru/kak-poluchit-chat-id-telegram/

// - api.telegram.org/bot<ДанныеДоступа>/getUpdates

// чуть дольше: из текста json ответа, в объекте chat: "chat": {"id": "ид чата"}

Соединение = Новый HTTPСоединение("api.telegram.org",443,,,,,Новый ЗащищенноеСоединениеOpenSSL());

ТекстJSONОтвета = Соединение.Получить(Новый HTTPЗапрос("bot" + ДанныеДоступа + "/getUpdates")).ПолучитьТелоКакСтроку();

//(затем можно закомментировать две строчки кода выше)

ИдЧата = "это chat.id";

// 3) Отправляем сообщение с ранее указанными сообщением, токеном, ид чата

Вызов процедур или функций модуля объекта из модуля формы

Когда из модуля формы нужно вызвать экспортную процедуру или функцию из его же модуля объекта

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

&НаСервере

Процедура ПодключитьсяНаСервере()

ТекОбъект = РеквизитФормыВЗначение("Объект");//Для отчета "Отчет"

ТекОбъект.ЭкспортныйВызовИзМодуляОбъекта();

//если содержимое Объект поменялось и нужно обновить его на форме, то делаем:

ЗначениеВРеквизитФормы(ТекОбъект, "Объект");

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

Отображает PDF документ в HTML поле на форме через WebKit

Осторожнее с пересылкой кода через мессенджеры/форумы, могут испортиться теги.

//Процедура отображает PDF документ в HTML поле на форме через WebKit:
//
// Параметры:
//  HTMLДокумент - Поле HTML документа - поле, в которое надо вывести pdf.
// 
//	ДвоичныеДанные - Двоичные данные - pdf документ.
//
Процедура ОтобразитьPDF(HTMLДокумент, ДвоичныеДанные) Экспорт
	
	СтрокаPDFФайла = ПолучитьBase64СтрокуИзДвоичныхДанных(ДвоичныеДанные);
	
	HTMLДокумент = "<!DOCTYPE html>
				|<html>
				|	<head>
				|		<meta http-equiv=""Content-Type"" content=""text/html; charset=UTF-8"" />
				|		<meta name=""viewport"" content=""width=device-width, initial-scale = 1.0, maximum-scale = 1.0, user-scalable=no"">
				|		<script src=""https://cdnjs.cloudflare.com/ajax/libs/pdf.js/2.4.456/pdf.min.js""></script>
				|		<script src=""https://cdnjs.cloudflare.com/ajax/libs/pdf.js/2.4.456/pdf.worker.min.js""></script>
				|		<canvas id=""the-canvas""></canvas>
				|		<script>
				|			var currPage = 1; //Pages are 1-based not 0-based
				|			var numPages = 0;
				|			var thePDF = null;
				|			
				|			var loadingTask = pdfjsLib.getDocument({data: atob(`" + СтрокаPDFФайла + "`)});
				|			loadingTask.promise.then(function(pdf) {
				|			       
				|			     thePDF = pdf;
				|			     numPages = pdf.numPages;
				|			
				|			     pdf.getPage(1).then(handlePages);                      
				|			
				|			     function handlePages(page) { 
				|			        var scale = 1.5;
				|			
				|			        var viewport = page.getViewport({scale: scale});
				|			
				|			        var canvas = document.createElement( ""canvas"" );
				|			        canvas.style.display = ""block"";
				|			        var context = canvas.getContext('2d');
				|			        canvas.height = viewport.height;
				|			        canvas.width = viewport.width;
				|			
				|			        var renderContext = {
				|			              canvasContext: context,
				|			              viewport: viewport
				|			        };
				|			        var renderTask = page.render(renderContext);
				|			
				|			         document.body.appendChild( canvas );
				|			
				|			        currPage++;
				|			        if ( thePDF !== null && currPage <= numPages )
				|			        {
				|			            thePDF.getPage( currPage ).then( handlePages );
				|			        }
				|			       };
				|			
				|			});
				|		</script>
				|	</body>
				|</html>";
	
КонецПроцедуры

//Процедура отображает PDF документ в HTML поле на форме через WebKit:

// Параметры:

// HTMLДокумент - Поле HTML документа - поле, в которое надо вывести pdf.

// ДвоичныеДанные - Двоичные данные - pdf документ.

Процедура ОтобразитьPDF(HTMLДокумент, ДвоичныеДанные) Экспорт

СтрокаPDFФайла = ПолучитьBase64СтрокуИзДвоичныхДанных(ДвоичныеДанные);

HTMLДокумент = "<!DOCTYPE html>

|<html>

| <head>

| <meta http-equiv=""Content-Type"" content=""text/html; charset=UTF-8"" />

| <meta name=""viewport"" content=""width=device-width, initial-scale = 1.0, maximum-scale = 1.0, user-scalable=no"">

| <script src=""https://cdnjs.cloudflare.com/ajax/libs/pdf.js/2.4.456/pdf.min.js""></script>

| <script src=""https://cdnjs.cloudflare.com/ajax/libs/pdf.js/2.4.456/pdf.worker.min.js""></script>

| <canvas id=""the-canvas""></canvas>

| <script>

| var currPage = 1; //Pages are 1-based not 0-based

| var numPages = 0;

| var thePDF = null;

| var loadingTask = pdfjsLib.getDocument({data: atob(`" + СтрокаPDFФайла + "`)});

| loadingTask.promise.then(function(pdf) {

| thePDF = pdf;

| numPages = pdf.numPages;

| pdf.getPage(1).then(handlePages);

| function handlePages(page) {

| var scale = 1.5;

| var viewport = page.getViewport({scale: scale});

| var canvas = document.createElement( ""canvas"" );

| canvas.style.display = ""block"";

| var context = canvas.getContext('2d');

| canvas.height = viewport.height;

| canvas.width = viewport.width;

| var renderContext = {

| canvasContext: context,

| viewport: viewport

| };

| var renderTask = page.render(renderContext);

| document.body.appendChild( canvas );

| currPage++;

| if ( thePDF !== null && currPage <= numPages )

| {

| thePDF.getPage( currPage ).then( handlePages );

| }

| };

| });

| </script>

| </body>

|</html>";

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

Источник: https://forum.infostart.ru

Отправка почты с вложением БСП

Пример использования функции отправки почты из БСП и преобразования табличного документа в pdf без использования временных файлов. Требуется заполненная системная учетная запись в справочнике УчетныеЗаписиЭлектроннойПочты

Функция ОтправитьТабличныйДокументЭлектроннойПочтойКакPDF(УчетнаяЗаписьПочтыОтправителя, ПочтаПолучателя, ТекстПисьма, ТемаПисьма, АдресТабличногоДокументаВоВременномХранилище)

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

КонецФункции

Функция ОтправитьТабличныйДокументЭлектроннойПочтойКакPDF(УчетнаяЗаписьПочтыОтправителя, ПочтаПолучателя, ТекстПисьма, ТемаПисьма, АдресТабличногоДокументаВоВременномХранилище)

Отправлено = Ложь;

Если УчетнаяЗаписьПочтыОтправителя = Неопределено Или УчетнаяЗаписьПочтыОтправителя.Пустая() Тогда

Возврат Отправлено;

КонецЕсли;

ТабДок = ПолучитьИзВременногоХранилища(АдресФайлаВоВременномХранилище);

ПотокФайла = Новый ПотокВПамяти();

ТабДок.Записать(ПотокФайла, ТипФайлаТабличногоДокумента.PDF);

ДвоичныеДанныеФайла = ПотокФайла.ЗакрытьИПолучитьДвоичныеДанные();

ВременноеХранилищеФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанныеФайла, Новый УникальныйИдентификатор);

Вложения = Новый Массив;

ОписаниеВложения = Новый Структура("Представление, АдресВоВременномХранилище", ТекстПисьма + ".pdf", ВременноеХранилищеФайла);

Вложения.Добавить(ОписаниеВложения);

ПараметрыПисьма = Новый Структура;

ПараметрыПисьма.Вставить("Кому", ПочтаПолучателя);

ПараметрыПисьма.Вставить("Тема", ТемаПисьма);

ПараметрыПисьма.Вставить("Тело", ТекстПисьма);

ПараметрыПисьма.Вставить("ТипТекста", "ПростойТекст");

ПараметрыПисьма.Вставить("Вложения", Вложения);

Попытка

Идентификатор = РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(УчетнаяЗаписьПочтыОтправителя, ПараметрыПисьма);

Если ЗначениеЗаполнено(Идентификатор) Тогда

Отправлено = Истина;

КонецЕсли;

Исключение

ЗаписьЖурналаРегистрации("Отправка письма " + ПочтаПолучателя, УровеньЖурналаРегистрации.Ошибка,,,ОписаниеОшибки());

КонецПопытки;

Возврат Отправлено;

КонецФункции

Свернуть табличную часть

Сворачивает табличную часть по всем колонкам. Числовые колонки при этом суммируются

// Сворачивает табличную часть по всем колонкам. 
// Числовые колонки при этом суммируются
//
// Параметры:
//  Объект  - Произвольный - Объект, который имеет Метаданные и Табличную часть
//  ИмяТабличнойЧасти  - Строка - Имя табличной части
//
Процедура СвернутьТабличнуюЧасть(Объект, ИмяТабличнойЧасти) Экспорт
	
	ИзмеренияТаблицы = Новый Массив;
	РесурсыТаблицы   = Новый Массив;
	
	КолонкиТабличнойЧасти = Объект.Метаданные().ТабличныеЧасти[ИмяТабличнойЧасти].Реквизиты;
	Для Каждого МетаданныеКолонки Из КолонкиТабличнойЧасти Цикл
		Если МетаданныеКолонки.Тип.СодержитТип(Тип("Число")) Тогда
			РесурсыТаблицы.Добавить(МетаданныеКолонки.Имя);
		Иначе
			ИзмеренияТаблицы.Добавить(МетаданныеКолонки.Имя);
		КонецЕсли;
	КонецЦикла;
	
	Объект[ИмяТабличнойЧасти].Свернуть(
		СтрСоединить(ИзмеренияТаблицы, ","), 
		СтрСоединить(РесурсыТаблицы, ",")
	);
	
КонецПроцедуры

// Сворачивает табличную часть по всем колонкам.

// Числовые колонки при этом суммируются

// Параметры:

// Объект - Произвольный - Объект, который имеет Метаданные и Табличную часть

// ИмяТабличнойЧасти - Строка - Имя табличной части

Процедура СвернутьТабличнуюЧасть(Объект, ИмяТабличнойЧасти) Экспорт

ИзмеренияТаблицы = Новый Массив;

РесурсыТаблицы = Новый Массив;

КолонкиТабличнойЧасти = Объект.Метаданные().ТабличныеЧасти[ИмяТабличнойЧасти].Реквизиты;

Для Каждого МетаданныеКолонки Из КолонкиТабличнойЧасти Цикл

Если МетаданныеКолонки.Тип.СодержитТип(Тип("Число")) Тогда

РесурсыТаблицы.Добавить(МетаданныеКолонки.Имя);

Иначе

ИзмеренияТаблицы.Добавить(МетаданныеКолонки.Имя);

КонецЕсли;

КонецЦикла;

Объект[ИмяТабличнойЧасти].Свернуть(

СтрСоединить(ИзмеренияТаблицы, ","),

СтрСоединить(РесурсыТаблицы, ",")

);

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

Источник: https://t.me/JuniorOneS

Обмен данными XDTO

Пример:

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

&НаКлиенте

Процедура Выгрузить(Команда)

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);

Диалог.Заголовок = "Выберите файл для выгрузки";

Диалог.Фильтр = "xml |*.xml|";

Если Диалог.Выбрать() Тогда

Сообщить(Диалог.ПолноеИмяФайла);

Иначе

Возврат;

КонецЕсли;

ВыгрузкаXML=ПолучитьXMLФайл(ЭтаФорма.УникальныйИдентификатор);

Описание=Новый ОписаниеПередаваемогоФайла(Диалог.ПолноеИмяФайла,ВыгрузкаXML);

МассивОписаний=Новый Массив;

МассивОписаний.Добавить(Описание);

ПолучитьФайлы(МассивОписаний,,,Ложь);

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

POST-запрос к HTTP-серверу

Пример:

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

Заголовки=Новый Соответствие();
Заголовки.Вставить("Content-Type","application/xml");
Заголовки.Вставить("Accept","application/xml");

Запрос=Новый HTTPЗапрос();
Запрос.АдресРесурса="clients/add";
Запрос.Заголовки=Заголовки;
Запрос.УстановитьТелоИзСтроки(ЗаписьXML.Закрыть());

Соединение=Новый HTTPСоединение("api.yourserver.ru");//таким образом полный URL запроса http://api.yourserver.ru/clients/add
Ответ=Соединение.ОтправитьДляОбработки(Запрос);
КодСостояния=Ответ.КодСостояния;
СтрокаОтвета=Ответ.ПолучитьТелоКакСтроку();
Если КодСостояния=201 тогда
	ЧтениеXML=Новый ЧтениеXML;
	ЧтениеXML.УстановитьСтроку(СтрокаОтвета);
	Попытка
		СтатусРаботыXDTO=Фабрика.ПрочитатьXML(ЧтениеXML,ФабрикаXDTO.Тип("http://api.yourserver.ru/xdto","Status"));
	Исключение
		Сообщить(СформироватьСообщениеОбОшибке(ИнформацияОбОшибке()));
		Предупреждение("Сервер прислал плохие данные!");
		Возврат;
	КонецПопытки;
	//обработка объекта XDTO
Иначе
	//обработка ошибочных кодов
КонецЕсли;

ЗаписьXML=Новый ЗаписьXML();

ЗаписьXML.УстановитьСтроку("UTF-8");

ЗаписьXML.ЗаписатьОбъявлениеXML();

Фабрика.ЗаписатьXML(ЗаписьXML, КонтрагентXDTO);//объект XDTO создан и заполнен ранее

Заголовки=Новый Соответствие();

Заголовки.Вставить("Content-Type","application/xml");

Заголовки.Вставить("Accept","application/xml");

Запрос=Новый HTTPЗапрос();

Запрос.АдресРесурса="clients/add";

Запрос.Заголовки=Заголовки;

Запрос.УстановитьТелоИзСтроки(ЗаписьXML.Закрыть());

Соединение=Новый HTTPСоединение("api.yourserver.ru");//таким образом полный URL запроса http://api.yourserver.ru/clients/add

Ответ=Соединение.ОтправитьДляОбработки(Запрос);

КодСостояния=Ответ.КодСостояния;

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

Если КодСостояния=201 тогда

ЧтениеXML=Новый ЧтениеXML;

ЧтениеXML.УстановитьСтроку(СтрокаОтвета);

Попытка

СтатусРаботыXDTO=Фабрика.ПрочитатьXML(ЧтениеXML,ФабрикаXDTO.Тип("http://api.yourserver.ru/xdto","Status"));

Исключение

Сообщить(СформироватьСообщениеОбОшибке(ИнформацияОбОшибке()));

Предупреждение("Сервер прислал плохие данные!");

Возврат;

КонецПопытки;

//обработка объекта XDTO

Иначе

//обработка ошибочных кодов

КонецЕсли;

Скриншот сеанса средствами 1С

Процедура сохраняет скриншот текущего сеанса пользователя по переданному адресу. Работает из клиента 1С на УФ (начиная с версии 8.3.17)

// Процедура сохраняет скриншот текущего сеанса пользователя по переданному адресу
// Работает начиная с версии 8.3.17.
//
// Параметры:
//  ПолныйПуть	 - Строка	 - Полный путь к файлу
//
&НаКлиенте
Процедура СохранитьСкриншотСеанса(ПолныйПуть = "")
	
	#Если НЕ ВебКлиент Тогда
	
	ВременныйФайл = ПолучитьИмяВременногоФайла(".zip");
	
	ОтчетОбОшибке = Новый ОтчетОбОшибке(ИнформацияОбОшибке());
	ОтчетОбОшибке.Записать(ВременныйФайл, Ложь);
	
	КаталогФайлов = КаталогВременныхФайлов() + СтрЗаменить(Новый УникальныйИдентификатор, "-", "");
	ЧтениеАрхива  = Новый ЧтениеZipФайла(ВременныйФайл);
	ЧтениеАрхива.ИзвлечьВсе(КаталогФайлов, РежимВосстановленияПутейФайловZIP.НеВосстанавливать);
	
	ПутьСкриншота = КаталогФайлов + "\screenshot.png";
	КопироватьФайл(ПутьСкриншота, ПолныйПуть);
	
	УдалитьФайлы(ВременныйФайл);
	УдалитьФайлы(КаталогФайлов);
	
	#КонецЕсли
	
КонецПроцедуры

// Процедура сохраняет скриншот текущего сеанса пользователя по переданному адресу

// Работает начиная с версии 8.3.17.

// Параметры:

// ПолныйПуть - Строка - Полный путь к файлу

&НаКлиенте

Процедура СохранитьСкриншотСеанса(ПолныйПуть = "")

#Если НЕ ВебКлиент Тогда

ВременныйФайл = ПолучитьИмяВременногоФайла(".zip");

ОтчетОбОшибке = Новый ОтчетОбОшибке(ИнформацияОбОшибке());

ОтчетОбОшибке.Записать(ВременныйФайл, Ложь);

КаталогФайлов = КаталогВременныхФайлов() + СтрЗаменить(Новый УникальныйИдентификатор, "-", "");

ЧтениеАрхива = Новый ЧтениеZipФайла(ВременныйФайл);

ЧтениеАрхива.ИзвлечьВсе(КаталогФайлов, РежимВосстановленияПутейФайловZIP.НеВосстанавливать);

ПутьСкриншота = КаталогФайлов + "\screenshot.png";

КопироватьФайл(ПутьСкриншота, ПолныйПуть);

УдалитьФайлы(ВременныйФайл);

УдалитьФайлы(КаталогФайлов);

#КонецЕсли

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

Источник: https://t.me/JuniorOneS

Запрос к нейросети ChatGPT

Пример Http запроса и получения ответа от нейросети ChatGPT (OpenAI)

//Описание 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

Сообщить(СтрокаОтвета);

Иначе

//Ошибка при выполнении запроса

КонецЕсли;

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

Источник: https://fastcode.im/

Произношение текста голосом

Пример:

Voice = Новый COMObject("SAPI.SpVoice");
Voice.Speak("Привет!");

1 2	Voice = Новый COMObject("SAPI.SpVoice"); Voice.Speak("Привет!");

Переключение между редактором формы и текстом модуля, без помощи мыши

Для управляемых форм Alt+1 (форма) и Alt+2 (модуль). Для обычных форм Ctrl+PageDown и Ctrl+PageUp вперед и назад по вкладкам.

Убрать префикс и лидирующие нули номера (варианты БСП и VBScript.RegExp)

Функция из БСП:

Функция УдалитьЛидирующиеНулиИзНомераОбъекта(Знач НомерОбъекта) Экспорт
	
	ПользовательскийПрефикс = ПользовательскийПрефикс(НомерОбъекта);
	
	Если НомерСодержитСтандартныйПрефикс(НомерОбъекта) Тогда
		
		Если НомерСодержитПятизначныйПрефикс(НомерОбъекта) Тогда
			Префикс = Лев(НомерОбъекта, 5);
			Номер = Сред(НомерОбъекта, 6 + СтрДлина(ПользовательскийПрефикс));
		Иначе
			Префикс = Лев(НомерОбъекта, 3);
			Номер = Сред(НомерОбъекта, 4 + СтрДлина(ПользовательскийПрефикс));
		КонецЕсли;
		
	Иначе
		
		Префикс = "";
		Номер = Сред(НомерОбъекта, 1 + СтрДлина(ПользовательскийПрефикс));
		
	КонецЕсли;
	
	// Удаляем лидирующие нули слева в номере.
	Номер = СтроковыеФункцииКлиентСервер.УдалитьПовторяющиесяСимволы(Номер, "0");
	
	Возврат Префикс + ПользовательскийПрефикс + Номер;
КонецФункции

Функция УдалитьЛидирующиеНулиИзНомераОбъекта(Знач НомерОбъекта) Экспорт

ПользовательскийПрефикс = ПользовательскийПрефикс(НомерОбъекта);

Если НомерСодержитСтандартныйПрефикс(НомерОбъекта) Тогда

Если НомерСодержитПятизначныйПрефикс(НомерОбъекта) Тогда

Префикс = Лев(НомерОбъекта, 5);

Номер = Сред(НомерОбъекта, 6 + СтрДлина(ПользовательскийПрефикс));

Иначе

Префикс = Лев(НомерОбъекта, 3);

Номер = Сред(НомерОбъекта, 4 + СтрДлина(ПользовательскийПрефикс));

КонецЕсли;

Иначе

Префикс = "";

Номер = Сред(НомерОбъекта, 1 + СтрДлина(ПользовательскийПрефикс));

КонецЕсли;

// Удаляем лидирующие нули слева в номере.

Номер = СтроковыеФункцииКлиентСервер.УдалитьПовторяющиесяСимволы(Номер, "0");

Возврат Префикс + ПользовательскийПрефикс + Номер;

КонецФункции

И VBScript.RegExp:

Асинхронные функции 1с

Справочно: синхронные методы (их аналоги асинхронные вызовы) в 1С 8.3: Глобальный контекст: ВвестиДату() → ПоказатьВводДаты() ВвестиЗначение() → ПоказатьВводЗначения() ВвестиСтроку() → ПоказатьВводСтроки() ВвестиЧисло() → ПоказатьВводЧисла() Вопрос() → ПоказатьВопрос() ЗапроситьРазрешениеПользователя() → НачатьЗапросРазрешенияПользователя() ЗапуститьПриложение() → НачатьЗапускПриложения() КаталогВременныхФайлов() → НачатьПолучениеКаталогаВременныхФайлов() КаталогДокументов() → НачатьПолучениеКаталогаДокументов() КопироватьФайл() → НачатьКопированиеФайла() НайтиФайлы() → НачатьПоискФайлов() ОткрытьЗначение() → ПоказатьЗначение() ОткрытьФормуМодально() → ОткрытьФорму() ПереместитьФайл() → НачатьПеремещениеФайла() ПодключитьРасширениеРаботыСКриптографией() → НачатьПодключениеРасширенияРаботыСКриптографией() ПодключитьРасширениеРаботыСФайлами() → НачатьПодключениеРасширенияРаботыСФайлами() ПолучитьФайлы() → НачатьПолучениеФайлов() ПоместитьФайл() → НачатьПомещениеФайла() ПоместитьФайлы() → НачатьПомещениеФайлов() Предупреждение() → ПоказатьПредупреждение() РабочийКаталогДанныхПользователя() → НачатьПолучениеРабочегоКаталогаДанныхПользователя() СоздатьКаталог() → НачатьСозданиеКаталога() УстановитьВнешнююКомпоненту() → НачатьУстановкуВнешнейКомпоненты() УстановитьРасширениеРаботыСКриптографией() → НачатьУстановкуРасширенияРаботыСКриптографией() УстановитьРасширениеРаботыСФайлами() → НачатьУстановкуРасширенияРаботыСФайлами()