// Добавляет в начало первой ТЗ, значения из второй ТЗ, колонки обоих ТЗ должны совпадать
// Данный способ работает быстрее чем стандартный с добавлением в конец строк из другой ТЗ
// Подробности см. http://www.gilev.ru/простой-трюк-для-быстрого-объединени/
//
// Параметры:
//  Таблица1 - ТаблицаЗначений  - в эту таблицу, в начало (а не в конец) будут добавлены строки из Таблица2
//  Таблица2 - ТаблицаЗначений  - таблица, строками которой требуется дополнить значение из параметра Таблица1
//
Процедура ДополнитьТаблицуЗначениямиИзВторой(Таблица1, Таблица2) Экспорт
 
 Для Индекс = 1 По Таблица2.Количество() Цикл
  Таблица1.Вставить(0);
 КонецЦикла;
 Для Индекс = 0 По Таблица2.Колонки.Количество() - 1 Цикл
  Таблица1.ЗагрузитьКолонку(Таблица2.ВыгрузитьКолонку(Индекс), Индекс);
 КонецЦикла;
 
КонецПроцедуры

Функция КолонкаСжато(ДокументСсылка, ИмяТабличнойЧасти, ИмяКолонки, Слэш = ",", Тире = "-")
    Запрос = Новый Запрос("ВЫБРАТЬ Различные " + ИмяКолонки + " ИЗ Документ." + ДокументСсылка.Метаданные().Имя + "." + ИмяТабличнойЧасти + " ГДЕ Ссылка = &Ссылка Упорядочить ПО " + ИмяКолонки);
    Запрос.УстановитьПараметр("Ссылка", ДокументСсылка);
    Ряд = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку(ИмяКолонки);
    Если Ряд.Количество() = 0 Тогда Возврат ""
    КонецЕсли;
    Ряд.Добавить(0); Ряд.Добавить(0);
    Сжато = Строка(Ряд[0]);
    Для ё = 1 По Ряд.Количество() - 3 Цикл
        Если Число(Ряд[ё + 1]) - Число(Ряд[ё - 1]) <> 2 Тогда
            Сжато = Сжато + Слэш + Строка(Ряд[ё])
        ИначеЕсли Число(Ряд[ё + 2]) - Число(Ряд[ё]) <> 2 Тогда
            Сжато = Сжато + Тире
        КонецЕсли
    КонецЦикла;
    Возврат СтрЗаменить(Сжато, Тире + Слэш, Тире)
КонецФункции

Код 1C v 8.х
 МакетНаименование="WodrFile";
 ИмяФайла = "t" + МакетНаименование + ".tmp";
 
 ОбъектВорд = Новый COMObject("Word.Application");
 ОбъектВорд.Documents.Add(ИмяФайла,,, Истина);
 ОбъектВорд.ActiveWindow.Caption = МакетНаименование;
 ОбъектВорд.Visible = 0;
 //...
 // ТУТ ЧТО-ТО ЗАПИСЫВАЕМ В ДОКУМЕНТ
 //...
 ДокДляСохранения = ОбъектВорд.ActiveDocument();
 
 //УСТАНАВЛИВАЕМ ПАРОЛЬ
 ДокДляСохранения.Protect(2, 0, "P@ssW0rd"); 
 
 ДокДляСохранения.SaveAs(ИмяФайла, 0);
 ДокДляСохранения.Close();
 ОбъектВорд.Quit();

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

Процедура РегистрСведенийСписокДополнительныеУслугиПередУдалением(Элемент)
 ТС = Элемент.ТекущаяСтрока;
 Комментарий = "Код: " + ТС.Код + 
      ". Номенклатура: " + ТС.Номенклатура + 
      ". Вид наценки: " + ТС.ВидНаценки;
 ЗаписьЖурналаРегистрации("Данные.Удаление",
  УровеньЖурналаРегистрации.Информация,
  Метаданные.РегистрыСведений.ДополнительныеУслуги,
  РежимТранзакцииЗаписиЖурналаРегистрации.Независимая,
  Комментарий);
КонецПроцедуры

//выведем пользователю список вариантов, 
//для ввода СФ около элемента управления «Кнопка»
СписокДействийВводСФ = Новый СписокЗначений();
СписокДействийВводСФ.Добавить(
"ВвестиНовыйСчетФактуру", "Ввести новый счет-фактуру");
СписокДействийВводСФ.Добавить(
"ДополнитьСуществующийСчетФактуру", "Дополнить существующий счет-фактуру");

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

Панель1 = ЭлементыФормы.Панель1;
Панель1.ТекущаяСтраница = Панель1.Страницы.Страница2;
Панель1.ТекущаяСтраница = Панель1.Страницы["Страница2"];

Форма обладает свойством «Панель», через которое необходимо обращаться. Например:

ПанельФормы = ЭтаФорма.Панель;
СтраницыФормы = ПанельФормы.Страницы;
Если ПанельФормы.ТекущаяСтраница = СтраницыФормы.Страница1 Тогда
      //Мы на первой странице
      . . .
ИначеЕсли ПанельФормы.ТекущаяСтраница = СтраницыФормы.Страница2 Тогда
      //Мы на второй странице
      . . .
Иначе //Мы на последней странице
      . . .
КонецЕсли;

Процедура УдалитьСтрокиТекста()
 ТекстДок = Новый ТекстовыйДокумент;
 ТекстДок.Прочитать("Текст.txt");
 Сч = 1;
 Пока Сч < ТекстДок.КоличествоСтрок() Цикл
  Строка = ТекстДок.ПолучитьСтроку(Сч);
  Если Найти(Строка, "1С") > 0 Тогда
   ТекстДок.УдалитьСтроку(Сч);
  Иначе  // Благодаря этой переменной мы 
   // не пропускаем строки в тексте
   Сч = Сч + 1;
  КонецЕсли;
 КонецЦикла;
 ТекстДок.Записать("Текст.txt");
КонецПроцедуры

&НаКлиенте
Процедура ВыводДиалогаВопроса(Команда)

    Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияВопроса", ЭтотОбъект);
    ПоказатьВопрос(Оповещение, "Загрузить список банков?", РежимДиалогаВопрос.ДаНетОтмена, 0, КодВозвратаДиалога.Да, "Список банков 2023г.");

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

&НаКлиенте
Процедура ПослеЗакрытияВопроса(Результат, Параметры) Экспорт

    Если Результат = КодВозвратаДиалога.Да Тогда
        Сообщить("Список банков с сайта https://www.cbr.ru загружен!");
    КонецЕсли;

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

-- Имена сервера и экземпляра 
Select @@SERVERNAME as [Server\Instance]; 

-- версия SQL Server 
Select @@VERSION as SQLServerVersion; 

-- экземпляр SQL Server 
Select @@ServiceName AS ServiceInstance;

 -- Текущая БД (БД, в контексте которой выполняется запрос)
Select DB_NAME() AS CurrentDB_Name;

SELECT  @@Servername AS ServerName ,
        create_date AS  ServerStarted ,
        DATEDIFF(s, create_date, GETDATE()) / 86400.0 AS DaysRunning ,
        DATEDIFF(s, create_date, GETDATE()) AS SecondsRunnig
FROM    sys.databases
WHERE   name = 'tempdb'; 

SELECT  @@Servername AS Server ,
        DB_NAME(database_id) AS DatabaseName ,
        COUNT(database_id) AS Connections ,
        Login_name AS  LoginName ,
        MIN(Login_Time) AS Login_Time ,
        MIN(COALESCE(last_request_end_time, last_request_start_time))
                                                         AS  Last_Batch
FROM    sys.dm_exec_sessions
WHERE   database_id > 0
        AND DB_NAME(database_id) NOT IN ( 'master', 'msdb' )
GROUP BY database_id ,
         login_name
ORDER BY DatabaseName;

&НаКлиенте
Процедура ПолучениеИзменениеЗаголовкаОкна(Команда)

    ПерваяЧасть_короткая_Префикс=ПолучитьКраткийЗаголовокПриложения(); // Часто пустой
    ВтораяЧасть_длинная=ПолучитьЗаголовокКлиентскогоПриложения(); // Название конфигурации, например ЗУП 3.1

    // Переименуем в новый заголовок  - ЗУП3.Акваферма
    УстановитьКраткийЗаголовокПриложения("ЗУП3");
    УстановитьЗаголовокКлиентскогоПриложения("Акваферма");

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