RDT1C/src/DataProcessors/ирИсторияГита/Ext/ObjectModule.bsl
Администратор 79ca2dd91f Задачи подсистемы 3
1007681 	Task 	В шапке формы добавлена дата актуальности снимка задач 	Действия
	1007659 	Bug 	Исправлена некритичная ошибка открытия инструмента с параметрами в вариантах поставки "Расширение" и "Портативный" 	Действия
	1007676 	Bug 	Исправлена ошибка при очистке поля фильтра 	Действия
  История Гита 3
	1007668 	Bug 	Исправлена плавающая ошибка и подвисание загрузки списка коммитов с большими комментариями 	Действия
	1007678 	Bug 	Исправлена поле фильтра "Файл" для списка файлов коммита 	Действия
	1007680 	Bug 	Устранено внесенное в 8.02 зависание при загрузке большого коммита 	Действия
  Поле текста программы 7
	1007660 	Task 	В области описания текущего слова автодополнения теперь отображаются гиперссылки для имен типов 	Действия
	1007687 	Task 	Расширена поддержка наборов типов ЛюбаяСсылка, СправочникСсылка, ДокументСсылка, ПеречислениеСсылка 	Действия
	1007691 	Task 	Сделал опционально расчет позиции каретки в поле текстового документа через UIAutomation для совместимости с платформой 8.5 	Действия
	1007690 	Task 	Слово-генератор <СоздатьПеременную> в списке автодополнения теперь предлагается для всех выделенных выражений 	Действия
	1007669 	Bug 	Восстановлены частично сломанные в 7.94 стили HTML редактора 	Действия
	1007686 	Bug 	Исправлена команда "Объявить тип выражения" при вызове на имени переменной в строке ее создания с присвоением 	Действия
	1007663 	Bug 	Устранена вставка из списка автодополнения статуса слова ИИ 	Действия
  Прочее 2
	1007665 	Task 	Все пакетные команды конфигуратора теперь выполняются с передачей общих параметров командной строки текущего сеанса 	Действия
	1007656 	Bug 	Изменен внутренний идентификатор общей картинки "ирТабличноеПоле" для устранения конфликтов применения расширения в некоторых конфигурациях 	Действия
  Редактор объекта БД 1
	1007677 	Bug 	Восстановлено назначение картинки строкам независимых регистров сведений в ссылках на объект 	Действия
  Структура формы 1
	1007673 	Bug 	Исправлена ошибка в случае наличия в форме дублей элемент элементов (ошибка платформы)
2025-12-07 19:42:15 +03:00

97 lines
6.0 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

//ирПортативный Перем ирПортативный Экспорт;
//ирПортативный Перем ирОбщий Экспорт;
//ирПортативный Перем ирСервер Экспорт;
//ирПортативный Перем ирКэш Экспорт;
//ирПортативный Перем ирКлиент Экспорт;
Перем мПлатформа Экспорт;
Функция РазделительАтрибутовКоммитов() Экспорт
Возврат "##";
КонецФункции
Функция ПараметрыВыводаДанныхКоммита(Знач ДляPowerShell = Ложь, Знач ДобавитьСтатистику = Ложь) Экспорт
Результат = СтрЗаменить(" --pretty=format:'|%H|%ad|%an|%B|%P|%d|'", "|", РазделительАтрибутовКоммитов()) + ФорматДаты(ДляPowerShell);
Если ДобавитьСтатистику Тогда
Результат = Результат + " --shortstat";
КонецЕсли;
Если Не ДляPowerShell Тогда
Результат = СтрЗаменить(Результат, "'", """");
КонецЕсли;
Возврат Результат;
КонецФункции
Функция ФорматДаты(Знач ДляPowerShell = Ложь) Экспорт
Результат = " --date=format:'%d.%m.%Y %H:%M:%S'";
Если Не ДляPowerShell Тогда
Результат = СтрЗаменить(Результат, "'", """");
КонецЕсли;
Возврат Результат;
КонецФункции
Функция НачалоКомандыГита(Знач ДляPowerShell = Ложь) Экспорт
ПроверитьПапкуГита(Истина);
Результат = "git --no-pager -C '" + ПапкаГита + "' ";
Если Не ДляPowerShell Тогда
Результат = СтрЗаменить(Результат, "'", """");
КонецЕсли;
Возврат Результат;
КонецФункции
Функция ПроверитьПапкуГита(Знач ВыбрасыватьИсключение = Ложь) Экспорт
Файл = Новый Файл(ПапкаГита);
Результат = Истина;
Если ирОбщий.СтрНачинаетсяСЛкс(ПапкаГита, "\\") Тогда
Если ВыбрасыватьИсключение Тогда
ВызватьИсключение "UNC путь к репозиторию не поддерживается";
Иначе
Результат = Ложь;
КонецЕсли;
КонецЕсли;
Если Не Файл.Существует() Тогда
Если ВыбрасыватьИсключение Тогда
ВызватьИсключение "Папка репозитория не существует";
Иначе
Результат = Ложь;
КонецЕсли;
КонецЕсли;
Возврат Результат;
КонецФункции
Функция ДатаПоследнегоКоммита(Знач ПолноеИмяФайла = "") Экспорт
Если Не ЗначениеЗаполнено(ПапкаГита) Тогда
Возврат Неопределено;
КонецЕсли;
СтрокаКоманды = НачалоКомандыГита() + "log -1 " + ФорматДаты() + " --format=""%ad""";
Если ЗначениеЗаполнено(ПолноеИмяФайла) Тогда
ИмяФайлаГита = СтрЗаменить(ПолноеИмяФайла, ПапкаГита + ирОбщий.РазделительПутиКФайлуЛкс(), "");
ИмяФайлаГита = СтрЗаменить(ИмяФайлаГита, "\", "/");
СтрокаКоманды = СтрокаКоманды + " -- """ + ИмяФайлаГита + """";
КонецЕсли;
Текст = ирОбщий.ВыполнитьКомандуОСЛкс(СтрокаКоманды,,,,, КодировкаТекста.UTF8);
Результат = Дата(Текст);
Возврат Результат;
КонецФункции
//ирПортативный лФайл = Новый Файл(ИспользуемоеИмяФайла);
//ирПортативный ПолноеИмяФайлаБазовогоМодуля = Лев(лФайл.Путь, СтрДлина(лФайл.Путь) - СтрДлина("Модули\")) + "ирПортативный.epf";
//ирПортативный #Если Клиент Тогда
//ирПортативный Контейнер = Новый Структура();
//ирПортативный Оповестить("ирПолучитьБазовуюФорму", Контейнер);
//ирПортативный Если Не Контейнер.Свойство("ирПортативный", ирПортативный) Тогда
//ирПортативный ирПортативный = ВнешниеОбработки.ПолучитьФорму(ПолноеИмяФайлаБазовогоМодуля);
//ирПортативный ирПортативный.Открыть();
//ирПортативный КонецЕсли;
//ирПортативный #Иначе
//ирПортативный ирПортативный = ВнешниеОбработки.Создать(ПолноеИмяФайлаБазовогоМодуля, Ложь); // Это будет второй экземпляр объекта
//ирПортативный #КонецЕсли
//ирПортативный ирОбщий = ирПортативный.ОбщийМодульЛкс("ирОбщий");
//ирПортативный ирКэш = ирПортативный.ОбщийМодульЛкс("ирКэш");
//ирПортативный ирСервер = ирПортативный.ОбщийМодульЛкс("ирСервер");
//ирПортативный ирКлиент = ирПортативный.ОбщийМодульЛкс("ирКлиент");
мПлатформа = ирКэш.Получить();
#Если Клиент Тогда
ПапкаГита = ирКлиент.ГитРепозиторий();
#КонецЕсли