Функция ПолучитьФормуЛкс(ПолноеИмяФормы, Параметры = Неопределено, Владелец = Неопределено, Уникальность = Неопределено, Окно = Неопределено, ТолькоВнешниеФормы = Ложь, Знач НачатьОтслеживание = Истина) Экспорт
   
   ПроверитьФормыСсылокЛкс();
   //Начлао
   //НПолноеИмяФормы = НРег(ПолноеИмяФормы);
   НПолноеИмяФормы = (ПолноеИмяФормы);
   //Конец
   Фрагменты = ирОбщий.СтрРазделитьЛкс(НПолноеИмяФормы, "::");
   Если Фрагменты.Количество() > 2 Тогда
      // Внешняя обработка/отчет
      Менеджер = ирОбщий.МенеджерВнешнегоОбъектаЛкс(Фрагменты[1]);
      ИмяФормы = ирОбщий.СтрРазделитьЛкс(Фрагменты[2])[2];
      Если Не ЗначениеЗаполнено(ИмяФормы) Тогда
         ОсновнаяФорма = Менеджер.Метаданные().ОсновнаяФорма;
         Если ОсновнаяФорма <> Неопределено Тогда
            ИмяФормы = ОсновнаяФорма.Имя;
         КонецЕсли;
      КонецЕсли;
      Результат = Менеджер.ПолучитьФорму(ИмяФормы, Владелец, Уникальность);
   Иначе
      Фрагменты = ирОбщий.СтрРазделитьЛкс(НПолноеИмяФормы);
      #Если Сервер И Не Сервер Тогда
         Фрагменты = Новый Массив;
      #КонецЕсли
      Если Истина
         И Фрагменты.Количество() = 4
         И Фрагменты[2] = "форма"
      Тогда
         ИмяФормы = Фрагменты[3];
      Иначе
         ИмяФормы = Неопределено;
      КонецЕсли;
   КонецЕсли;
   Если Не ирКэш.ЛиПортативныйРежимЛкс() Тогда
      #Если Сервер И Не Сервер Тогда
         // Такой прием нужен для обхода ошибка компиляции в портативном режиме
         // http://www.hostedredmine.com/issues/883626
         Если Истина
            И (Ложь
               Или Фрагменты[0] = "обработка"
               Или Фрагменты[0] = "отчет")
            И Фрагменты.Количество() > 2
            И Найти(Фрагменты[1], "ир") = 1
            И Не ирОбщий.СтрокиРавныЛкс(Фрагменты[1], Метаданные.Обработки.ирДинамическийСписок.Имя)
         Тогда
            Если Не ТолькоВнешниеФормы Тогда
               ОбъектМД = ирКэш.ОбъектМДПоПолномуИмениЛкс(Фрагменты[0] + "." + Фрагменты[1]);
               #Если Сервер И Не Сервер Тогда
                  ОбъектМД = Метаданные.Обработки.ирАнализДанных;
               #КонецЕсли
            КонецЕсли;
            Если ОбъектМД = Неопределено Тогда
               ВызватьИсключение "Не найден объект метаданных " + ПолноеИмяФормы;
            КонецЕсли;
            Если ОбъектМД = Метаданные.Обработки.ирПлатформа Тогда
               Менеджер = ирКэш.Получить(); // Так управляемые формы нельзя получать
            Иначе
               Менеджер = Новый (ирОбщий.ПеревестиСтроку(Фрагменты[0]) + ирОбщий.ПеревестиСтроку("Менеджер") + "." + Фрагменты[1]);
            КонецЕсли;
            Если Не ЗначениеЗаполнено(ИмяФормы) И ОбъектМД.ОсновнаяФорма <> Неопределено Тогда
               // Нужно для отчетов. Иначе будет ошибка "неизвестный идентификатор формы"
               ИмяФормы = ОбъектМД.ОсновнаяФорма.Имя;
               ПолноеИмяФормы = ПолноеИмяФормы + "." + ИмяФормы;
            КонецЕсли;
            Результат = Менеджер.ПолучитьФорму(ИмяФормы, Владелец, Уникальность);
         КонецЕсли;
         Если Результат = Неопределено Тогда
            // Форма не инструмента или управляемая форма инструмента или форма отчета подсистемы при запрещенном использовании обычных форм
            Результат = ПолучитьФорму(ПолноеИмяФормы, Параметры, Владелец, Уникальность, Окно);
         КонецЕсли;
         //Если Найти(ПолноеИмяФормы, "Обработка.ирПлатформа.") = 1 Тогда
         //   Попытка
         //      ЭтоЗапрещено = Результат.ЭтотОбъект.Метаданные().ПолноеИмя() = ирОбщий.ПеревестиСтроку("Обработка") + ".ирПлатформа";
         //   Исключение
         //      ЭтоЗапрещено = Ложь;
         //   КонецПопытки;
         //   Если ЭтоЗапрещено Тогда
         //      ирОбщий.СообщитьЛкс("Создан лишний экземпляр обработки ирПлатформа");
         //   КонецЕсли;
         //КонецЕсли;
      #КонецЕсли
   Иначе
      Если Не ТолькоВнешниеФормы Тогда
         ОбъектМД = ирКэш.ОбъектМДПоПолномуИмениЛкс(Фрагменты[0] + "." + Фрагменты[1]);
      КонецЕсли;
      Если ОбъектМД = Неопределено Тогда
         Если Фрагменты[1] = "ирпортативный" Тогда
            Результат = ирПортативный.ПолучитьФорму(ИмяФормы, Владелец, Уникальность);
         Иначе
            ТипМетаданных = Фрагменты[0];
            Менеджер = ирПортативный.ПолучитьМенеджерТипаМетаданныхЛкс(ТипМетаданных);
            ПолноеИмяФайла = ирПортативный.ПолноеИмяФайлаПортативногоОбъектаМетаданныхЛкс(Фрагменты[1], ТипМетаданных);
            Результат = Менеджер.ПолучитьФорму(ПолноеИмяФайла, ИмяФормы, Владелец, Уникальность);
         КонецЕсли;
      Иначе
         Результат = ирПортативный.ПолучитьФормуЛкс(ПолноеИмяФормы, Параметры, Владелец, Уникальность, Окно);
      КонецЕсли;
   КонецЕсли;
   Если ТипЗнч(Результат) = Тип("Форма") Тогда
      ирОбщий.СлужебныеДанныеФормыЛкс(Результат).Вставить("ИмяФормы", ПолноеИмяФормы);
   КонецЕсли;
   Если Результат <> Неопределено И НачатьОтслеживание Тогда
      НачатьОтслеживаниеФормыЛкс(Результат);
   КонецЕсли;
   Возврат Результат;
   
КонецФункции

ирОбщий.ТекстМеждуМаркерамиЛкс(ПеременныеОкружения, "HOME=", Символы.ПС, Ложь);

Функция ЗначениеПеременнойОкружения(СтрокаПеременныхОкружения, Знач ИмяПеременной, ПраваяГраница = Неопределено)
   Ответ = "";
   Если Не ЗначениеЗаполнено(СтрокаПеременныхОкружения) Или Не ЗначениеЗаполнено(ИмяПеременной) Тогда
      Возврат Ответ;
   КонецЕсли;
   
   Если Не СтрЗаканчиваетсяНа(ИмяПеременной, "=") Тогда
      ИмяПеременной = ИмяПеременной + "=";
   КонецЕсли;
   
   МассивПеременных    = СтрРазделить(СтрокаПеременныхОкружения, Символы.ПС, Ложь);
   Найдено          = Ложь;
   Для Каждого Эл Из МассивПеременных Цикл
      Если СтрНачинаетсяС(Эл, ИмяПеременной) Тогда
         Найдено = Истина;
         Прервать;
      КонецЕсли;
   КонецЦикла;
   
   Если Найдено = Ложь Тогда
      Возврат Ответ;
   КонецЕсли;
   
   Ответ = Сред(Эл, СтрДлина(ИмяПеременной) + 1);
   
   Если ПраваяГраница = Неопределено Тогда
      Возврат Ответ;
   КонецЕсли;
   
   Позиция = СтрНайти(Ответ, ПраваяГраница);
   Ответ    = Лев(Ответ, Позиция - 1);
   
   Возврат Ответ;
      
КонецФункции

Функция КаталогПлатформыВПрофилеЛкс(Знач Локальный = Ложь) Экспорт
   
   Если Не ирКэш.ЛиПлатформаWindowsЛкс() Тогда
      //КаталогДанныхПриложения = "~/.1cv8"; // Похоже так можно только в bash.  Ошибка доступа к файлу '~'. 13(0x0000000D): Permission denied
      #Если Клиент Тогда
         Если Локальный Тогда
            Подкаталог = ".1cv8" + ирОбщий.РазделительПутиКФайлуЛкс() + "1C";
         Иначе
            Подкаталог = ".1C";
         КонецЕсли;
         //начало
         //КаталогДанныхПриложения = "/home/" + ирКэш.ТекущийПользовательОСЛкс(Ложь) + "/" + Подкаталог;
         ПеременныеОкружения = ирОбщий.ВыполнитьКомандуОСЛкс("env");
         КаталогПользователя = ЗначениеПеременнойОкружения(ПеременныеОкружения, "HOME=");
         Если Не ЗначениеЗаполнено(КаталогПользователя) Тогда
            КаталогДанныхПриложения = "/home/" + ирКэш.ТекущийПользовательОСЛкс(Ложь) + ирОбщий.РазделительПутиКФайлуЛкс() + Подкаталог;
         Иначе    
            КаталогДанныхПриложения = КаталогПользователя + ирОбщий.РазделительПутиКФайлуЛкс() + Подкаталог;
         КонецЕсли;
         
         //конец
      #Иначе
         КаталогДанныхПриложения = КаталогВременныхФайлов();
      #КонецЕсли
   Иначе
      Если Локальный Тогда
         Подкаталог = 28;
      Иначе
         Подкаталог = 26;
      КонецЕсли;
      ПриложениеОболочкиОС = Новый COMobject("Shell.Application");
      КаталогДанныхПриложения = ПриложениеОболочкиОС.NameSpace(Подкаталог);
      Если КаталогДанныхПриложения = Неопределено Тогда
         // https://www.hostedredmine.com/issues/954427
         КаталогДанныхПриложения = КаталогВременныхФайлов();
      Иначе
         КаталогДанныхПриложения = КаталогДанныхПриложения.Self.Path;
         КаталогДанныхПриложения = КаталогДанныхПриложения + ирОбщий.РазделительПутиКФайлуЛкс() + "1C";
      КонецЕсли;
   КонецЕсли;
   Возврат КаталогДанныхПриложения;

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

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