- Добавил доработки

src/cf/CommonModules/РаботаСОбновлениямиВызовСервера/Ext/Module.bsl

@@ -52,6 +52,50 @@
 	
 КонецФункции
 
+Функция СписокКонфигураций(ИдЧата) Экспорт
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+	"ВЫБРАТЬ РАЗЛИЧНЫЕ
+	|	ОтслеживаниеВерсийКонфигураций.Конфигурация КАК Конфигурация,
+	|	ОтслеживаниеВерсийКонфигураций.Конфигурация.Наименование КАК КонфигурацияНаименование,
+	|	ОтслеживаниеВерсийКонфигураций.Конфигурация.Имя КАК КонфигурацияИмя,
+	|	ИСТИНА КАК Подписка
+	|ПОМЕСТИТЬ ВТ_ОтслеживаемыеКонфигурации
+	|ИЗ
+	|	РегистрСведений.ОтслеживаниеВерсийКонфигураций КАК ОтслеживаниеВерсийКонфигураций
+	|ГДЕ
+	|	ОтслеживаниеВерсийКонфигураций.ИдЧата = &ИдЧата
+	|;
+	|
+	|////////////////////////////////////////////////////////////////////////////////
+	|ВЫБРАТЬ
+	|	Конфигурации.Наименование КАК Наименование,
+	|	Конфигурации.Имя КАК Имя,
+	|	ЕСТЬNULL(ВТ_ОтслеживаемыеКонфигурации.Подписка, ЛОЖЬ) КАК Подписка
+	|ИЗ
+	|	Справочник.Конфигурации КАК Конфигурации
+	|		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_ОтслеживаемыеКонфигурации КАК ВТ_ОтслеживаемыеКонфигурации
+	|		ПО (ВТ_ОтслеживаемыеКонфигурации.Конфигурация = Конфигурации.Ссылка)
+	|
+	|УПОРЯДОЧИТЬ ПО
+	|	Подписка УБЫВ";
+	
+	Запрос.УстановитьПараметр("ИдЧата", ИдЧата);
+	РезультатЗапроса = Запрос.Выполнить();
+	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
+	МассивКонфигураций = Новый Массив;
+	
+	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
+		Конфигурация = Новый Структура("Наименование, Имя, Подписка", ВыборкаДетальныеЗаписи.Наименование,
+		ВыборкаДетальныеЗаписи.Имя, ВыборкаДетальныеЗаписи.Подписка);
+		
+		МассивКонфигураций.Добавить(Конфигурация);
+	КонецЦикла;
+	
+	Возврат МассивКонфигураций;
+	
+КонецФункции
 
 Функция АктуализироватьВерсииКонфигураций()Экспорт
 	
@@ -101,6 +145,87 @@
 	
 КонецФункции
 
+Функция КонфигурацияПоИмени(ИмяКонфигурации) Экспорт
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+	"ВЫБРАТЬ
+	|	Конфигурации.Ссылка КАК Конфигурация
+	|ИЗ
+	|	Справочник.Конфигурации КАК Конфигурации
+	|ГДЕ
+	|	Конфигурации.Имя = &Имя";
+	
+	Запрос.УстановитьПараметр("Имя", ИмяКонфигурации);
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
+	
+	Если ВыборкаДетальныеЗаписи.Следующий() Тогда
+		Возврат ВыборкаДетальныеЗаписи.Конфигурация;
+	КонецЕсли;
+	
+	Возврат Неопределено;
+	
+КонецФункции
+
+Процедура УстановитьСтатусДиалога(ИдЧата, НовыйСтатус, ДополнительнаяИнформация) Экспорт
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+	"ВЫБРАТЬ
+	|	ТелеграмПользователь.Ссылка КАК Ссылка,
+	|	ТелеграмПользователь.СтатусДиалога КАК СтатусДиалога
+	|ИЗ
+	|	Справочник.ТелеграмПользователь КАК ТелеграмПользователь
+	|ГДЕ
+	|	ТелеграмПользователь.id = &ИдЧата";
+	
+	Запрос.УстановитьПараметр("ИдЧата", ИдЧата);
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
+	
+	Если ВыборкаДетальныеЗаписи.Следующий() Тогда
+			ПользовательОбъект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
+			Если ПользовательОбъект <> Неопределено Тогда
+				ПользовательОбъект.СтатусДиалога = НовыйСтатус;
+				ПользовательОбъект.ДополнительнаяИнформация = ДополнительнаяИнформация;
+				ПользовательОбъект.Записать();
+			КонецЕсли;
+	КонецЕсли;
+	
+КонецПроцедуры
+
+Функция ПолучитьДанныеПользователя(ИдЧата) Экспорт
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+	"ВЫБРАТЬ
+	|	ТелеграмПользователь.СтатусДиалога КАК СтатусДиалога,
+	|	ТелеграмПользователь.ДополнительнаяИнформация КАК ДополнительнаяИнформация
+	|ИЗ
+	|	Справочник.ТелеграмПользователь КАК ТелеграмПользователь
+	|ГДЕ
+	|	ТелеграмПользователь.id = &ИдЧата";
+	
+	Запрос.УстановитьПараметр("ИдЧата", ИдЧата);
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
+	
+	Если ВыборкаДетальныеЗаписи.Следующий() Тогда
+		Возврат Новый Структура("СтатусДиалога, ДополнительнаяИнформация", ВыборкаДетальныеЗаписи.СтатусДиалога,
+		ВыборкаДетальныеЗаписи.ДополнительнаяИнформация);
+	КонецЕсли;
+	
+	Возврат Неопределено;
+	
+КонецФункции
+
 #КонецОбласти
 
 #Область СлужебныеПроцедурыИФункции