Список баз подразделения

Предлагаю на рассмотрение небольшую обработку, она бывает очень полезна , когда надо быстро и в удобоваримом виде посмотреть какие базы у Вас есть на сервере. Обработка запускается как внешняя из любой базы , результатом является список всех баз на 1с сервере, также если в описании баз установлена отметка например "Рабочая база", она выводится на закладку (смотри скриншот). Ниже дается описание кода, данный код может использоваться как процедура в других мультибазовых программах . 

Обработка предназначена для работы в клиент-серверных базах и тестировалась на платформе 8.3.14.1854.

1. Запуск обработки производится через процедуру ПриОткрытии(Отказ), которая запускает на сервере процедуру СоздатьСписокБаз1().

Код процедуры:

&НаКлиенте
Процедура ПриОткрытии(Отказ)
		
		ВерсияКонфигурации=ПолучитьВерсиюКонфигурации();
		
		СоздатьСписокБаз1();
		
 КонецПроцедуры

2. Процедура СоздатьСписокБаз1() создает соединение с агентом и выгружает кластеры серверов, если кластеры серверов существуют в массив выгружаются
   данные баз, которые в свою очередь перемещаются в таблицу значений БазыСервера. 

Код процедуры:

&НаСервере
Процедура СоздатьСписокБаз1()
//Процедура создает список баз ******************************************************************************************	
БазыСервера.Очистить();                                                                           //Очищаем таблицу БазыСервера
Сервер=СерверПолучить();                                                                          //Через функцию СерверПолучить() получаем адрес сервера

    Попытка
        COMСоединитель = Новый COMОбъект("V83.COMConnector");                                     //V83.COMConnector создаем объект для подсоединения
      Исключение
		Сообщить("Ошибка создания "+ОписаниеОшибки());
		Возврат;
    КонецПопытки;
	
    Попытка	
        СоединениеСАгентом  = COMСоединитель.ConnectAgent("tcp://"+Сервер);                      //Создаем соединение с агентом
	  Исключение	
		Если СтрНайти(Сервер, ":") > 1 Тогда
			Сообщить(" Проверьте номер порта. " + ОписаниеОшибки());
			Сообщить("Хост+Порт "+Сервер);
		  Иначе	
			Сообщить("Ошибка создания агента сервера. " + ОписаниеОшибки());
		КонецЕсли;	
		Возврат;
	КонецПопытки;
	
    КластерыСерверов = СоединениеСАгентом.GetClusters().Выгрузить();                             //Выгружаем кластеры серверов
	СоединениеСАгентом.Authenticate(КластерыСерверов[0], "", "");
	Если КластерыСерверов.Количество() > 0 Тогда                                                 //Если кластеры серверов существуют то выгружаем базы
         Базы = СоединениеСАгентом.GetInfoBases(КластерыСерверов[0]).Выгрузить();
	 КонецЕсли;
	 
	КОМИмяБазы=""; 
	Индекс = Базы.ВГраница();
	ИндексМассива=0;
	Номер = 0;

	Для Каждого База Из Базы Цикл
	Номер=Номер+1;
	   СтрБазыСервера=БазыСервера.Добавить();
	   СтрБазыСервера.Номер = Номер;
	   СтрБазыСервера.НазваниеБазы = База.Name;
       СтрБазыСервера.ОписаниеБазы = База.Descr;
	   СтрБазыСервера.ИмяСервера = Сервер;
	КонецЦикла;

//Следующая часть кода помогает определить когда была сделана запись,
//это дает возможность определить когда приблизительно была создана	база.
//В данной программе эта часть кода не работает, но может быть полезна при использовании
//в другой программе.
	 
Запрос = Новый Запрос;
Запрос.Текст = 
	  "ВЫБРАТЬ
	  |	Подразделения.Ссылка КАК Ссылка
	  |ИЗ
	  |	Справочник.Подразделения КАК Подразделения" ;
	         РезультатЗапроса = Запрос.Выполнить();
	         Выборка = РезультатЗапроса.Выбрать();                                
	        Пока Выборка.Следующий() Цикл                                          				//Выбираем результат запроса в цикле
                 ПодразделениеСсылка = Выборка.Ссылка;
            КонецЦикла;   
	 
	//ДатаСозданияСслки=ДатаСозданияСсылки(ПодразделениеСсылка); 

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

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Вспомогательные функции и процедуры**********************************************************************************

Данная функция служит для получения сервера , может также использоваться в других программах.
 

&НаСервере
Функция СерверПолучить()
	ИБ			= СтрокаСоединенияИнформационнойБазы();
	П1 			= Сред(ИБ, 7, 32);
	СерверПорт 	= Лев(П1, СтрНайти(П1, "Ref")-3);
	СерверБазы= СерверПорт;
	//Отчет.ТекущаяБаза= Сред(ИБ,СтрНайти(ИБ,";")+6,((СтрДлина(ИБ)-(СтрНайти(ИБ,";")+6)))-1);
	
	ДвоеточиеПоложение = СтрНайти(СерверПорт, ":");
	Если ДвоеточиеПоложение=0 Тогда
		Сервер = СерверПорт;
	Иначе
		Сервер = Лев(СерверПорт, ДвоеточиеПоложение-1)+":"+СтрЗаменить((Число(Сред(СерверПорт, ДвоеточиеПоложение+1, 4)) -1), Символы.НПП, "");
	КонецЕсли;	
	Сервер = Сервер;	
	Возврат Сервер;
	
КонецФункции

Функция вычисляет когда была создана ссылка, с ее помощью можно приблизительно вычислить дату создания базы,
это иногда бывает полезно.

&НаСервере
Функция ДатаСозданияСсылки(ПодразделениеСсылка)
	Ссылка=ПодразделениеСсылка;
    ГУИД = Ссылка.УникальныйИдентификатор();
    Строка16 = Сред(ГУИД, 16, 3) + Сред(ГУИД, 10, 4) + Сред(ГУИД, 1, 8);
    Разрядность = СтрДлина(Строка16);
    ЧислоСек = 0;
    Для Позиция = 1 По Разрядность Цикл
        ЧислоСек = ЧислоСек + Найти("123456789abcdef",Сред(Строка16,Позиция,1))*Pow(16,Разрядность - Позиция);
    КонецЦикла;
    ЧислоСек = ЧислоСек / 10000000;
    Возврат Дата(1582, 10, 15, 04, 00, 00) + ЧислоСек;
КонецФункции  

Функция получает версию конфигурации.

&НаСервере
Функция ПолучитьВерсиюКонфигурации()
	
		СистемнаяИнформация = Новый СистемнаяИнформация;
		ВерсияПлатформы = СистемнаяИнформация.ВерсияПриложения;	
	    ВерсияКонфигурации = Метаданные.Версия;
		Длина=СтрДлина(ВерсияКонфигурации)-4;
		Версия=Сред(ВерсияКонфигурации,5,Длина);
		ВерсияЧисло=Число(Версия);
		Если ВерсияЧисло>= 10 Тогда
			Сообщить(ВерсияКонфигурации);
		КонецЕсли;
		Возврат ВерсияКонфигурации;
КонецФункции  

Как я писал выше, обработка может использоваться как составная часть в других программах, поэтому код программы несколько избыточен.