mirror of
https://github.com/tormozit/RDT1C.git
synced 2025-12-17 13:14:11 +00:00
69 lines
4.6 KiB
Plaintext
69 lines
4.6 KiB
Plaintext
//ирМобильный Перем ирМобильный Экспорт;
|
||
//ирМобильный Перем ирОбщий Экспорт;
|
||
//ирМобильный Перем ирСервер Экспорт;
|
||
//ирМобильный Перем ирКэш Экспорт;
|
||
//ирМобильный Перем ирПривилегированный Экспорт;
|
||
|
||
Перем ПараметрСсылка Экспорт;
|
||
|
||
Процедура НайтиИПоказатьСсылки(СсылкаНаКоторуюИщемСсылки) Экспорт
|
||
|
||
ПараметрСсылка = СсылкаНаКоторуюИщемСсылки;
|
||
ПолучитьФорму().Открыть();
|
||
|
||
КонецПроцедуры // НайтиСсылки()
|
||
|
||
// Заново заполняет табличное поле НайденныйСсылки.
|
||
//
|
||
// Параметры:
|
||
// Нет.
|
||
//
|
||
Процедура ОбновитьНайденныеСсылки(МассивСсылок, ЛиОпределятьСтатусСсылки = Истина) Экспорт
|
||
|
||
тзНайденныеСсылки = Новый ТаблицаЗначений;
|
||
#Если Клиент Тогда
|
||
Состояние("Поиск ссылок...");
|
||
#КонецЕсли
|
||
ирПривилегированный.НайтиПоСсылкамЛкс(МассивСсылок, тзНайденныеСсылки);
|
||
#Если Клиент Тогда
|
||
Состояние("");
|
||
#КонецЕсли
|
||
НайденныеСсылки.Очистить();
|
||
Для Каждого Строка Из тзНайденныеСсылки Цикл
|
||
СтрокаТЧ = НайденныеСсылки.Добавить();
|
||
НайденнаяСсылка = ЗначениеИзСтрокиВнутр(Строка.Данные);
|
||
СтрокаТЧ.Метаданные = Строка.Метаданные;
|
||
КорневойТипСсылки = ирОбщий.ПолучитьПервыйФрагментЛкс(СтрокаТЧ.Метаданные);
|
||
Если КорневойТипСсылки = "РегистрСведений" Тогда
|
||
СтрокаТЧ.Данные = Строка.Данные;
|
||
Иначе
|
||
СтрокаТЧ.Данные = НайденнаяСсылка;
|
||
КонецЕсли;
|
||
Если НайденнаяСсылка = Неопределено Тогда
|
||
НайденнаяСсылка = СтрокаТЧ.Метаданные;
|
||
КонецЕсли;
|
||
СтрокаТЧ.КартинкаСсылки = ирОбщий.ПолучитьИндексКартинкиСсылкиЛкс(НайденнаяСсылка, ЛиОпределятьСтатусСсылки);
|
||
МетаданныеСсылки = Метаданные.НайтиПоПолномуИмени(СтрокаТЧ.Метаданные);
|
||
СтрокаТЧ.ТипДанных = МетаданныеСсылки.Представление();
|
||
СтрокаТЧ.Ссылка = Строка.Ссылка;
|
||
СтрокаТЧ.ТипМетаданных = ирОбщий.ПолучитьПервыйФрагментЛкс(СтрокаТЧ.Метаданные);
|
||
СтрокаТЧ.Пометка = 1;
|
||
КонецЦикла;
|
||
ЭтотОбъект.Количество = тзНайденныеСсылки.Количество();
|
||
|
||
КонецПроцедуры // ОбновитьНайденныеСсылки()
|
||
|
||
//ирМобильный #Если Клиент Тогда
|
||
//ирМобильный Контейнер = Новый Структура();
|
||
//ирМобильный Оповестить("ирПолучитьБазовуюФорму", Контейнер);
|
||
//ирМобильный Если Не Контейнер.Свойство("ирМобильный", ирМобильный) Тогда
|
||
//ирМобильный ПолноеИмяФайлаБазовогоМодуля = ВосстановитьЗначение("ирПолноеИмяФайлаОсновногоМодуля");
|
||
//ирМобильный ирМобильный = ВнешниеОбработки.ПолучитьФорму(ПолноеИмяФайлаБазовогоМодуля);
|
||
//ирМобильный КонецЕсли;
|
||
//ирМобильный ирОбщий = ирМобильный.ПолучитьОбщийМодульЛкс("ирОбщий");
|
||
//ирМобильный ирКэш = ирМобильный.ПолучитьОбщийМодульЛкс("ирКэш");
|
||
//ирМобильный ирСервер = ирМобильный.ПолучитьОбщийМодульЛкс("ирСервер");
|
||
//ирМобильный ирПривилегированный = ирМобильный.ПолучитьОбщийМодульЛкс("ирПривилегированный");
|
||
//ирМобильный #КонецЕсли
|
||
|