1
0
mirror of https://github.com/1C-Company/GitConverter.git synced 2025-02-11 13:25:40 +02:00

Возможность открывать лог из хранилища, версии, копии хранилища

- убраны ошибки копи-паста пакетных операций
- исправлены предупреждения системы
This commit is contained in:
Dmitriy Marmyshev 2018-01-29 11:29:55 +03:00
parent 53f9f48ddd
commit ba919d5068
14 changed files with 652 additions and 189 deletions

View File

@ -241,22 +241,134 @@
<textEdit>true</textEdit>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>КаталогВременныхФайлов</name>
<id>61</id>
<items xsi:type="form:FormGroup">
<name>Группа2</name>
<id>92</id>
<items xsi:type="form:FormField">
<name>КаталогВременныхФайлов</name>
<id>61</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:MultiLanguageDataPath">
<paths xsi:type="form:DataPath">
<segments>Объект.КаталогВременныхФайлов</segments>
</paths>
</dataPath>
<extendedTooltip>
<name>КаталогВременныхФайловРасширеннаяПодсказка1</name>
<id>63</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КаталогВременныхФайловКонтекстноеМеню1</name>
<id>62</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ИмяФайлаЛога</name>
<id>94</id>
<title>
<key>ru</key>
<value>Лог</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ИмяФайлаЛога</segments>
</dataPath>
<toolTip>
<key>ru</key>
<value>Файл лога действий с текущей версией</value>
</toolTip>
<toolTipRepresentation>Button</toolTipRepresentation>
<extendedTooltip>
<name>ИмяФайлаЛогаРасширеннаяПодсказка</name>
<id>96</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИмяФайлаЛогаКонтекстноеМеню</name>
<id>95</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>Opening</event>
<name>ИмяФайлаЛогаОткрытие</name>
</handlers>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<openButton>true</openButton>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:MultiLanguageDataPath">
<paths xsi:type="form:DataPath">
<segments>Объект.КаталогВременныхФайлов</segments>
</paths>
</dataPath>
<extendedTooltip>
<name>КаталогВременныхФайловРасширеннаяПодсказка1</name>
<id>63</id>
<name>Группа2РасширеннаяПодсказка</name>
<id>93</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
@ -269,28 +381,11 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КаталогВременныхФайловКонтекстноеМеню1</name>
<id>62</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
</extInfo>
</items>
<items xsi:type="form:FormField">
@ -1454,6 +1549,24 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ИмяФайлаЛога</name>
<title>
<key>ru</key>
<value>Имя файла лога</value>
</title>
<id>5</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ОбновитьСостояние</name>
<title>

View File

@ -26,7 +26,15 @@
Элементы.ГруппаСостояние.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры
Если ТекущийОбъект.Состояние = Перечисления.СостоянияВерсии.НачалоКоммита
ИЛИ ТекущийОбъект.Состояние = Перечисления.СостоянияВерсии.ВерсияПомещена Тогда
КаталогВыгрузкиВерсий = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ТекущийОбъект.Владелец, "КаталогВыгрузкиВерсий");
ИмяФайлаЛога = КонвертацияХранилища.ИмяФайлаЛогаКоммитаВерсии(ТекущийОбъект.Код, КаталогВыгрузкиВерсий);
Иначе
ИмяФайлаЛога = КонвертацияХранилища.ИмяФайлаЛогаОбработкиВерсии(ТекущийОбъект.КаталогВременныхФайлов);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
@ -54,6 +62,27 @@
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы
&НаКлиенте
Процедура ИмяФайлаЛогаОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если Не ЗначениеЗаполнено(ИмяФайлаЛога) Тогда
Возврат;
КонецЕсли;
Текст = Новый ТекстовыйДокумент();
ИмяФайла = "";
ПрочитатьТекстовыйФайлНаСервере(ИмяФайлаЛога, Текст, ИмяФайла);
Текст.Показать(ИмяФайла, ИмяФайла);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервереБезКонтекста
@ -72,4 +101,11 @@
КонецЕсли;
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ПрочитатьТекстовыйФайлНаСервере(ПутьКФайлу, Текст, ИмяФайла, КодировкаСистемы = Ложь)
ОбщегоНазначения.ПрочитатьТекстовыйФайл(ПутьКФайлу, Текст, ИмяФайла, КодировкаСистемы);
КонецПроцедуры
#КонецОбласти

View File

@ -733,6 +733,71 @@
<throughAlign>Auto</throughAlign>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ИмяФайлаЛога</name>
<id>50</id>
<title>
<key>ru</key>
<value>Лог</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ИмяФайлаЛога</segments>
</dataPath>
<toolTip>
<key>ru</key>
<value>Имя файла лога конвертации хранилища. Лог получения каждой версии из копии хранилища в ИБ можно открыть из формы соответствующей версии.</value>
</toolTip>
<toolTipRepresentation>Button</toolTipRepresentation>
<extendedTooltip>
<name>ИмяФайлаЛогаРасширеннаяПодсказка</name>
<id>52</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИмяФайлаЛогаКонтекстноеМеню</name>
<id>51</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>Opening</event>
<name>ИмяФайлаЛогаОткрытие</name>
</handlers>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<openButton>true</openButton>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
@ -857,6 +922,24 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ИмяФайлаЛога</name>
<title>
<key>ru</key>
<value>Имя файла лога</value>
</title>
<id>7</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<commandInterface>
<navigationPanel/>
<commandBar/>

View File

@ -20,6 +20,9 @@
ПриЧтенииСозданииНаСервере();
КаталогВыгрузкиВерсий = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ТекущийОбъект.Владелец, "КаталогВыгрузкиВерсий");
ИмяФайлаЛога = КонвертацияХранилища.ИмяФайлаЛогаКонвертацииХранилища(КаталогВыгрузкиВерсий);
КонецПроцедуры
&НаСервере
@ -69,6 +72,22 @@
КонецПроцедуры
&НаКлиенте
Процедура ИмяФайлаЛогаОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если Не ЗначениеЗаполнено(ИмяФайлаЛога) Тогда
Возврат;
КонецЕсли;
Текст = Новый ТекстовыйДокумент();
ИмяФайла = "";
ПрочитатьТекстовыйФайлНаСервере(ИмяФайлаЛога, Текст, ИмяФайла);
Текст.Показать(ИмяФайла, ИмяФайла);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
@ -128,7 +147,7 @@
Форма.Элементы.ИмяПользователяХранилища.Доступность = Форма.ДругойПользователь;
Форма.Элементы.ПарольПользователяХранилища.Доступность = Форма.ДругойПользователь;
КонецПроцедуры
КонецПроцедуры
&НаКлиенте
Процедура ВыгружатьВОтдельныйКаталогПриИзменении(Элемент)
@ -144,4 +163,11 @@
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ПрочитатьТекстовыйФайлНаСервере(ПутьКФайлу, Текст, ИмяФайла, КодировкаСистемы = Ложь)
ОбщегоНазначения.ПрочитатьТекстовыйФайл(ПутьКФайлу, Текст, ИмяФайла, КодировкаСистемы);
КонецПроцедуры
#КонецОбласти

View File

@ -564,22 +564,138 @@
<throughAlign>Auto</throughAlign>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>КаталогВыгрузкиВерсий</name>
<id>7</id>
<items xsi:type="form:FormGroup">
<name>Группа7</name>
<id>156</id>
<items xsi:type="form:FormField">
<name>КаталогВыгрузкиВерсий</name>
<id>7</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:MultiLanguageDataPath">
<paths xsi:type="form:DataPath">
<segments>Объект.КаталогВыгрузкиВерсий</segments>
</paths>
</dataPath>
<extendedTooltip>
<name>КаталогВыгрузкиВерсийРасширеннаяПодсказка1</name>
<id>9</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КаталогВыгрузкиВерсийКонтекстноеМеню1</name>
<id>8</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>EnterOnInput</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<inputHint>
<key>ru</key>
<value>Общий каталог в который будут выгражться все версии</value>
</inputHint>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ИмяФайлаЛога</name>
<id>158</id>
<title>
<key>ru</key>
<value>Лог</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ИмяФайлаЛога</segments>
</dataPath>
<toolTip>
<key>ru</key>
<value>Файл лога подключения к хранилищу, считывания списка версий. Лог обработки каждой версии можно открыть и формы соответствующей версии.</value>
</toolTip>
<toolTipRepresentation>Button</toolTipRepresentation>
<extendedTooltip>
<name>ИмяФайлаЛогаРасширеннаяПодсказка</name>
<id>160</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИмяФайлаЛогаКонтекстноеМеню</name>
<id>159</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>Opening</event>
<name>ИмяФайлаЛогаОткрытие</name>
</handlers>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<openButton>true</openButton>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:MultiLanguageDataPath">
<paths xsi:type="form:DataPath">
<segments>Объект.КаталогВыгрузкиВерсий</segments>
</paths>
</dataPath>
<extendedTooltip>
<name>КаталогВыгрузкиВерсийРасширеннаяПодсказка1</name>
<id>9</id>
<name>Группа7РасширеннаяПодсказка</name>
<id>157</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
@ -592,32 +708,11 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КаталогВыгрузкиВерсийКонтекстноеМеню1</name>
<id>8</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>EnterOnInput</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<inputHint>
<key>ru</key>
<value>Общий каталог в который будут выгражться все версии</value>
</inputHint>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
@ -2221,6 +2316,10 @@
<segments>СредняяСкоростьЗаСутки</segments>
</paths>
</dataPath>
<toolTip>
<key>ru</key>
<value>Текущая средняя скорость за сутки, шт/час</value>
</toolTip>
<extendedTooltip>
<name>СредняяСкоростьЗаСуткиРасширеннаяПодсказка1</name>
<id>97</id>
@ -2384,6 +2483,8 @@
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Collapsible</behavior>
<collapsed>true</collapsed>
<representation>WeakSeparation</representation>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
@ -2914,6 +3015,24 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ИмяФайлаЛога</name>
<title>
<key>ru</key>
<value>Имя файла лога</value>
</title>
<id>13</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ОбновитьСостояние</name>
<title>

View File

@ -17,7 +17,9 @@
ПриЧтенииСозданииНаСервере();
ОбновитьСостояниеНаСервере();
ОбновитьСостояниеНаСервере();
ИмяФайлаЛога = КонвертацияХранилища.ИмяФайлаЛогаКонвертацииХранилища(ТекущийОбъект.КаталогВыгрузкиВерсий);
КонецПроцедуры
@ -85,6 +87,23 @@
ДиалогРасписания.Показать(Новый ОписаниеОповещения("РасписаниеСтрокойНажатиеЗавершение", ЭтотОбъект));
КонецПроцедуры
&НаКлиенте
Процедура ИмяФайлаЛогаОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если Не ЗначениеЗаполнено(ИмяФайлаЛога) Тогда
Возврат;
КонецЕсли;
Текст = Новый ТекстовыйДокумент();
ИмяФайла = "";
ПрочитатьТекстовыйФайлНаСервере(ИмяФайлаЛога, Текст, ИмяФайла);
Текст.Показать(ИмяФайла, ИмяФайла);
КонецПроцедуры
&НаКлиенте
Процедура ЛокальныйКаталогGitПриИзменении(Элемент)
@ -213,8 +232,20 @@
Задание = МассивФоновыхЗаданий[0];
СостояниеЗадания = НСтр("ru='Выполняется конвертация с %Дата%'");
СостояниеЗадания = СтрЗаменить(СостояниеЗадания, "%Дата%", Задание.Начало);
Иначе
ИначеЕсли ЗначениеЗаполнено(Объект.РегламентноеЗадание) Тогда
СостояниеЗадания = "";
РегЗадание = РегламентныеЗадания.НайтиПоУникальномуИдентификатору(
Новый УникальныйИдентификатор(Объект.РегламентноеЗадание));
СвойстваПоследнегоФоновогоЗадания = РегламентныеЗаданияСлужебный
.ПолучитьСвойстваПоследнегоФоновогоЗаданияВыполненияРегламентногоЗадания(РегЗадание);
Если СвойстваПоследнегоФоновогоЗадания <> Неопределено
И СвойстваПоследнегоФоновогоЗадания.Состояние = СостояниеФоновогоЗадания.ЗавершеноАварийно Тогда
СостояниеЗадания = СтрШаблон(НСтр("ru='Задание конвертации завершено аварийно в %1 по причине: %2'"),
СвойстваПоследнегоФоновогоЗадания.Конец,
СвойстваПоследнегоФоновогоЗадания.ОписаниеИнформацииОбОшибке);
КонецЕсли;
Иначе
СостояниеЗадания = "";
КонецЕсли;
@ -543,5 +574,12 @@
КонвертацияХранилища.УстановитьАдресРепозиторияGit(Объект.Ссылка);
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ПрочитатьТекстовыйФайлНаСервере(ПутьКФайлу, Текст, ИмяФайла, КодировкаСистемы = Ложь)
ОбщегоНазначения.ПрочитатьТекстовыйФайл(ПутьКФайлу, Текст, ИмяФайла, КодировкаСистемы);
КонецПроцедуры
#КонецОбласти

View File

@ -46,7 +46,8 @@
УстановитьПривилегированныйРежим(Ложь);
Если ВыгружатьИзменения И ОбщегоНазначенияКлиентСервер.СравнитьВерсии(ВерсияПлатформы, "8.3.10.0") < 1 Тогда
Если НЕ ПолучитьФункциональнуюОпцию("ИспользоватьОчередиВыполнения")
ИЛИ ВыгружатьИзменения И ОбщегоНазначенияКлиентСервер.СравнитьВерсии(ВерсияПлатформы, "8.3.10.0") < 1 Тогда
ВыгружатьИзменения = Ложь;
КонецЕсли;

View File

@ -127,12 +127,12 @@
Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ИдентификаторЗадания);
Если Задание = Неопределено Тогда
Возврат Результат;
Возврат Неопределено;
КонецЕсли;
МассивСообщений = Задание.ПолучитьСообщенияПользователю(Истина);
Если МассивСообщений = Неопределено Тогда
Возврат Результат;
Возврат Неопределено;
КонецЕсли;
Количество = МассивСообщений.Количество();

View File

@ -40,8 +40,7 @@
Параметры.Вставить("КаталогВременныхФайлов", Параметры.КаталогВыгрузкиВерсий);
Параметры.Вставить("ФайлПараметровПакетнойОперации", Параметры.КаталогВременныхФайлов
+ "params_" + Параметры.Ключ + ".txt");
Параметры.Вставить("ИмяФайлаЛогов", Параметры.КаталогВременныхФайлов
+ "log.txt");
Параметры.Вставить("ИмяФайлаЛогов", ИмяФайлаЛогаКонвертацииХранилища(Параметры.КаталогВременныхФайлов));
Параметры.Вставить("ИмяФайлаРезультатов", Параметры.КаталогВременныхФайлов
+ "result.log");
Параметры.Вставить("КаталогИБ", Параметры.КаталогВременныхФайлов
@ -610,15 +609,9 @@
ВерсияХранилища = ВыборкаДетальныеЗаписи.Ссылка;
Объект = ВерсияХранилища.ПолучитьОбъект();
ИмяФайлаЛога = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(РеквизитыХранилища.КаталогВыгрузкиВерсий)
+ "git_log_ver_" + Формат(ВыборкаДетальныеЗаписи.Код, "ЧДЦ=; ЧГ=0")
+ ".txt";
ИмяФайлаКомандыGit = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(РеквизитыХранилища.КаталогВыгрузкиВерсий)
+ "git_command_" + Формат(ВыборкаДетальныеЗаписи.Код, "ЧДЦ=; ЧГ=0")
+ ?(ЭтоWindowsСервер, ".bat", ".sh");
ИмяФайлКомментария = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(РеквизитыХранилища.КаталогВыгрузкиВерсий)
+ "git_comment_" + Формат(ВыборкаДетальныеЗаписи.Код, "ЧДЦ=; ЧГ=0")
+ ".txt";
ИмяФайлаЛога = ИмяФайлаЛогаКоммитаВерсии(ВыборкаДетальныеЗаписи.Код, РеквизитыХранилища.КаталогВыгрузкиВерсий);
ИмяФайлаКомандыGit = ИмяФайлаКомандыКоммитаВерсии(ВыборкаДетальныеЗаписи.Код, РеквизитыХранилища.КаталогВыгрузкиВерсий, ЭтоWindowsСервер);
ИмяФайлКомментария = ИмяФайлаКомментарияКоммитаВерсии(ВыборкаДетальныеЗаписи.Код, РеквизитыХранилища.КаталогВыгрузкиВерсий);
// Если версия помещена, но не произошла запись в проект - переводим указатель на эту версию
Если ТекущаяВерсия <> ВерсияХранилища
@ -791,13 +784,9 @@
Возврат;
КонецЕсли;
ИмяФайлаЛога = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(РеквизитыХранилища.КаталогВыгрузкиВерсий)
+ "git_log_ver_" + Формат(РеквизитыХранилища.Код, "ЧДЦ=; ЧГ=0") + ".txt";
ИмяФайлаКомандыGit = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(РеквизитыХранилища.КаталогВыгрузкиВерсий)
+ "git_command_" + Формат(РеквизитыХранилища.Код, "ЧДЦ=; ЧГ=0")
+ ?(ЭтоWindowsСервер, ".bat", ".sh");
ИмяФайлКомментария = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(РеквизитыХранилища.КаталогВыгрузкиВерсий)
+ "git_comment_" + Формат(РеквизитыХранилища.Код, "ЧДЦ=; ЧГ=0") + ".txt";
ИмяФайлаЛога = ИмяФайлаЛогаКоммитаВерсии(РеквизитыХранилища.Код, РеквизитыХранилища.КаталогВыгрузкиВерсий);
ИмяФайлаКомандыGit = ИмяФайлаКомандыКоммитаВерсии(РеквизитыХранилища.Код, РеквизитыХранилища.КаталогВыгрузкиВерсий, ЭтоWindowsСервер);
ИмяФайлКомментария = ИмяФайлаКомментарияКоммитаВерсии(РеквизитыХранилища.Код, РеквизитыХранилища.КаталогВыгрузкиВерсий);
ФайлКомандыGit = Новый Файл(ИмяФайлаКомандыGit);
ФайлКомментария = Новый Файл(ИмяФайлКомментария);
@ -980,8 +969,6 @@
// Структура -
Функция ПолучитьПараметрыОбработкиВерсии(Знач ВерсияХранилища) Экспорт
Перем ИменаРеквизитов, Ключ, Параметры, РеквизитыВерсии, Файл, Хранилище;
ИменаРеквизитов = Новый Структура("Хранилище, УдалятьКонфигурацииПоставщиков, ВыгружатьИзменения, Код,
| КаталогИБ, КаталогФайловКонфигурации, Состояние, КаталогВременныхФайлов, ВыгрузкаИзменений",
"Владелец",
@ -1015,8 +1002,7 @@
Параметры.Вставить("Ключ", Ключ);
Параметры.Вставить("ФайлПараметровПакетнойОперации", Параметры.КаталогВременныхФайлов
+ "params_" + Параметры.Ключ + ".txt");
Параметры.Вставить("ИмяФайлаЛогов", Параметры.КаталогВременныхФайлов
+ "log.txt");
Параметры.Вставить("ИмяФайлаЛогов", ИмяФайлаЛогаОбработкиВерсии(Параметры.КаталогВременныхФайлов));
Параметры.Вставить("ИмяФайлаРезультатов", Параметры.КаталогВременныхФайлов
+ "result.log");
@ -1024,6 +1010,73 @@
КонецФункции
// Формирует полное имя файла лога конвертации хранилища
//
// Параметры:
// КаталогВременныхФайлов - Строка - Каталог временных файлов хранилища
// Возвращаемое значение:
// Строка - Полное имя файла лога конвертации хранилища
Функция ИмяФайлаЛогаКонвертацииХранилища(КаталогВременныхФайлов) Экспорт
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов) + "log.txt";
КонецФункции
// Формирует полное имя файла лога обработки версии
//
// Параметры:
// КаталогВременныхФайлов - Строка - Каталог временных файлов версии
// Возвращаемое значение:
// Строка - Полное имя файла лога обработки версии
Функция ИмяФайлаЛогаОбработкиВерсии(КаталогВременныхФайлов) Экспорт
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов)
+ "log.txt";
КонецФункции
// Формирует полное имя файла лога коммита версии
//
// Параметры:
// КодВерсии - Строка - Код версии хранилища
// КаталогВыгрузкиВерсий - Строка - Каталог выгрузки версий хранилища
// Возвращаемое значение:
// Строка - Полное имя файла лога коммита версии
Функция ИмяФайлаЛогаКоммитаВерсии(КодВерсии, КаталогВыгрузкиВерсий) Экспорт
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВыгрузкиВерсий)
+ "git_log_ver_" + Формат(КодВерсии, "ЧДЦ=; ЧГ=0") + ".txt";
КонецФункции
// Формирует полное имя файла команды коммита версии для запуска в системе
//
// Параметры:
// КодВерсии - Строка - Код версии хранилища
// КаталогВыгрузкиВерсий - Строка - Каталог выгрузки версий хранилища
// ЭтоWindowsСервер - Булево - Признак текущей операционной системы, Истина - это ОС Windows,
// Ложь - это ОС Linux или macOS
// Возвращаемое значение:
// Строка - Полное имя файла команды коммита версии
Функция ИмяФайлаКомандыКоммитаВерсии(КодВерсии, КаталогВыгрузкиВерсий, ЭтоWindowsСервер) Экспорт
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВыгрузкиВерсий)
+ "git_command_" + Формат(КодВерсии, "ЧДЦ=; ЧГ=0")
+ ?(ЭтоWindowsСервер, ".bat", ".sh");
КонецФункции
// Формирует полное имя файла комментария коммита версии
//
// Параметры:
// КодВерсии - Строка - Код версии хранилища
// КаталогВыгрузкиВерсий - Строка - Каталог выгрузки версий хранилища
// Возвращаемое значение:
// Строка - Полное имя файла комментария коммита версии
Функция ИмяФайлаКомментарияКоммитаВерсии(КодВерсии, КаталогВыгрузкиВерсий) Экспорт
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВыгрузкиВерсий)
+ "git_comment_" + Формат(КодВерсии, "ЧДЦ=; ЧГ=0") + ".txt";
КонецФункции
// Выгружает версию хранилища в файлы
//
// Параметры:
@ -1885,12 +1938,8 @@
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ИмяФайлаКомандыGit = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(РеквизитыХранилища.КаталогВыгрузкиВерсий)
+ "git_command_" + Формат(ВыборкаДетальныеЗаписи.Код, "ЧДЦ=; ЧГ=0")
+ ?(ЭтоWindowsСервер, ".bat", ".sh");
ИмяФайлКомментария = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(РеквизитыХранилища.КаталогВыгрузкиВерсий)
+ "git_comment_" + Формат(ВыборкаДетальныеЗаписи.Код, "ЧДЦ=; ЧГ=0")
+ ".txt";
ИмяФайлаКомандыGit = ИмяФайлаКомандыКоммитаВерсии(ВыборкаДетальныеЗаписи.Код, РеквизитыХранилища.КаталогВыгрузкиВерсий, ЭтоWindowsСервер);
ИмяФайлКомментария = ИмяФайлаКомментарияКоммитаВерсии(ВыборкаДетальныеЗаписи.Код, РеквизитыХранилища.КаталогВыгрузкиВерсий);
ФайлКомандыGit = Новый Файл(ИмяФайлаКомандыGit);
ФайлКомментария = Новый Файл(ИмяФайлКомментария);
@ -2099,11 +2148,10 @@
ДобавитьЗаписьВЛог(Параметры, НСтр("ru='Окончание формирования отчета по хранилищу.'"), "Код возврата: "
+ ?(КодВозврата = Неопределено, "Неопределено", КодВозврата));
// Проверить успешность выполнения
// Если выполнение операции содержит ошибки - далее не продолжаем
Если КодВозврата <> 0 Тогда
ВызватьИсключение "При формирования отчета по хранилищу конфигураций возникли ошибки.";
ВызватьИсключение СтрШаблон(НСтр("ru = 'При формирования отчета по хранилищу конфигураций возникли ошибки. Подробнее см. файл лога:
|%1'", Параметры.ИмяФайлаЛогов));
КонецЕсли;
КонецЕсли;
@ -2181,21 +2229,10 @@
ДобавитьЗаписьВЛог(Параметры, НСтр("ru='Окончание обновления базы из хранилища.'"), "Код возврата: "
+ ?(КодВозврата = Неопределено, "Неопределено", КодВозврата));
// Проверить успешность выполнения
// Если выполнение операции содержит ошибки - далее не продолжаем
Если КодВозврата <> 0 Тогда
Лог = Новый ТекстовыйДокумент;
Лог.Прочитать(Параметры.ИмяФайлаЛогов);
ТекстЛога = Лог.ПолучитьТекст();
Если НЕ Параметры.Свойство("Лог") Тогда
Параметры.Вставить("Лог", "");
КонецЕсли;
Параметры.Лог = Параметры.Лог + ТекстЛога;
ДобавитьЗаписьВЖурналРегистрации(НСтр("ru = 'Пакетная операция.Обновление из хранилища'"), "Ошибка", , НСтр("ru = 'Ошибка выполнения пакетной операции.'"), ТекстЛога);
ВызватьИсключение "При обновлении из хранилища конфигураций возникли ошибки (см. Журнал регистрации).";
ВызватьИсключение СтрШаблон(НСтр("ru = 'При обновлении ИБ из хранилища конфигураций возникли ошибки. Подробнее см. файл лога:
|%1'", Параметры.ИмяФайлаЛогов));
КонецЕсли;
КонецЕсли;
@ -2264,20 +2301,10 @@
ДобавитьЗаписьВЛог(Параметры, НСтр("ru='Окончание выгрузки конфигурации в файлы.'"), "Код возврата: "
+ ?(КодВозврата = Неопределено, "Неопределено", КодВозврата));
// Проверить успешность выполнения
// Если выполнение операции содержит ошибки - далее не продолжаем
Если КодВозврата <> 0 Тогда
Лог = Новый ТекстовыйДокумент;
Лог.Прочитать(Параметры.ИмяФайлаЛогов);
ТекстЛога = Лог.ПолучитьТекст();
Если НЕ Параметры.Свойство("Лог") Тогда
Параметры.Вставить("Лог", "");
КонецЕсли;
Параметры.Лог = Параметры.Лог + ТекстЛога;
ДобавитьЗаписьВЖурналРегистрации(НСтр("ru = 'Пакетная операция.Выгрузка конфигурации в файлы'"), "Ошибка", , НСтр("ru = 'Ошибка выполнения пакетной операции.'"), ТекстЛога);
ВызватьИсключение НСтр("ru = 'При выгрузке конфигурации в файлы возникли ошибки (см. Журнал регистрации).'");
ВызватьИсключение СтрШаблон(НСтр("ru = 'При выгрузке конфигурации в файлы возникли ошибки. Подробнее см. файл лога:
|%1'", Параметры.ИмяФайлаЛогов));
КонецЕсли;
КонецЕсли;
@ -2327,8 +2354,7 @@
Параметры.Вставить("Ключ", Ключ);
Параметры.Вставить("ФайлПараметровПакетнойОперации", Параметры.КаталогВременныхФайлов
+ "params_" + Параметры.Ключ + ".txt");
Параметры.Вставить("ИмяФайлаЛогов", Параметры.КаталогВременныхФайлов
+ "log.txt");
Параметры.Вставить("ИмяФайлаЛогов", ИмяФайлаЛогаКонвертацииХранилища(Параметры.КаталогВременныхФайлов));
Параметры.Вставить("ИмяФайлаРезультатов", Параметры.КаталогВременныхФайлов
+ "result.log");

View File

@ -281,4 +281,34 @@
Возврат СериализаторXDTO.ПрочитатьXML(ЧтениеXML);
КонецФункции
// Счтитывает в память текстовый файл на сервере в объект "ТектовыйДокумент" для отображения на клиенте
//
// Параметры:
// ПутьКФайлу - Строка - Путь к файлу на сервере
// Текст - ТекстовыйДокумент- Текстовый документ, в который будет считан файл на сервере
// ИмяФайла - Строка - Возвращаемое значение имени файла
// ИспользоватьКодировкуСистемы - Булево - Истина - использовать кодировку системы,
// Ложь - считать файл в кодировке UTF-8
Процедура ПрочитатьТекстовыйФайл(ПутьКФайлу, Текст, ИмяФайла, ИспользоватьКодировкуСистемы = Ложь) Экспорт
Файл = новый Файл(ПутьКФайлу);
ИмяФайла = Файл.Имя;
Если Файл.Существует() Тогда
Если ИспользоватьКодировкуСистемы Тогда
СистемнаяИнформация = Новый СистемнаяИнформация;
ЭтоWindowsСервер = (СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86
Или СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86_64);
Если ЭтоWindowsСервер Тогда
Текст.Прочитать(ПутьКФайлу, КодировкаТекста.OEM);
Иначе
Текст.Прочитать(ПутьКФайлу, КодировкаТекста.Системная);
КонецЕсли;
Иначе
Текст.Прочитать(ПутьКФайлу, КодировкаТекста.UTF8);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
#КонецОбласти

View File

@ -241,7 +241,7 @@
// Только для внутреннего использования.
//
Функция ТаблицаСвойствФоновыхЗаданийВФоне(Параметры, АдресХранилища) Экспорт
Процедура ТаблицаСвойствФоновыхЗаданийВФоне(Параметры, АдресХранилища) Экспорт
ТаблицаСвойств = ПолучитьТаблицуСвойствФоновыхЗаданий(Параметры.Отбор);
@ -250,7 +250,7 @@
ПоместитьВоВременноеХранилище(Результат, АдресХранилища);
КонецФункции
КонецПроцедуры
// Возвращает таблицу свойств фоновых заданий.
// Структуру таблицы смотри в функции ПустаяТаблицаСвойствФоновыхЗаданий().

View File

@ -21,7 +21,7 @@
<defaultRoles>Role.АдминистраторСистемы</defaultRoles>
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
<vendor>Фирма &quot;1С&quot;</vendor>
<version>1.0.4.1</version>
<version>1.0.4.2</version>
<updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
<includeHelpInContents>true</includeHelpInContents>
<help>

View File

@ -739,27 +739,10 @@
КонецФункции
&НаСервереБезКонтекста
Процедура ПрочитатьТекстовыйФайлНаСервере(ПутьКФайлу, Текст, ИмяФайла, КодировкаСистемы = Ложь)
Файл = новый Файл(ПутьКФайлу);
ИмяФайла = Файл.Имя;
Если Файл.Существует() Тогда
Если КодировкаСистемы Тогда
СистемнаяИнформация = Новый СистемнаяИнформация;
ЭтоWindowsСервер = (СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86
Или СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86_64);
Если ЭтоWindowsСервер Тогда
Текст.Прочитать(ПутьКФайлу, КодировкаТекста.OEM);
Иначе
Текст.Прочитать(ПутьКФайлу, КодировкаТекста.Системная);
КонецЕсли;
Иначе
Текст.Прочитать(ПутьКФайлу, КодировкаТекста.UTF8);
КонецЕсли;
КонецЕсли;
ОбщегоНазначения.ПрочитатьТекстовыйФайл(ПутьКФайлу, Текст, ИмяФайла, КодировкаСистемы);
КонецПроцедуры

View File

@ -419,6 +419,36 @@
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
</items>
<items xsi:type="form:Button">
<name>ТаблицаРегламентныеЗаданияОбновитьДанные</name>
<id>146</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<skipOnInput>false</skipOnInput>
<extendedTooltip>
<name>ТаблицаРегламентныеЗаданияОбновитьДанныеExtendedTooltip</name>
<id>185</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ОбновитьРегламентныеЗадания</commandName>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
</items>
<items xsi:type="form:Button">
<name>ТаблицаРегламентныеЗаданияНастроитьРасписание</name>
<id>135</id>
@ -539,36 +569,6 @@
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
</items>
<items xsi:type="form:Button">
<name>ТаблицаРегламентныеЗаданияОбновитьДанные</name>
<id>146</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<skipOnInput>false</skipOnInput>
<extendedTooltip>
<name>ТаблицаРегламентныеЗаданияОбновитьДанныеExtendedTooltip</name>
<id>185</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ОбновитьРегламентныеЗадания</commandName>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
</items>
<items xsi:type="form:Button">
<name>ТаблицаРегламентныеЗаданияИзменитьФорму</name>
<id>244</id>
@ -2729,6 +2729,10 @@
<event>BeforeLoadDataFromSettingsAtServer</event>
<name>ПриЗагрузкеДанныхИзНастроекНаСервере</name>
</handlers>
<handlers>
<event>OnLoadDataFromSettingsAtServer</event>
<name>ПриЗагрузкеДанныхИзНастроекНаСервере</name>
</handlers>
<excludedCommands>Abort</excludedCommands>
<excludedCommands>Cancel</excludedCommands>
<excludedCommands>Ignore</excludedCommands>
@ -3644,7 +3648,7 @@
<name>ОбновитьФоновыеЗадания</name>
</handler>
</action>
<representation>Text</representation>
<representation>TextPicture</representation>
</formCommands>
<formCommands>
<name>ОткрытьФоновоеЗадание</name>
@ -3790,11 +3794,15 @@
<use>
<common>true</common>
</use>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.Refresh</picture>
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ОбновитьРегламентныеЗадания</name>
</handler>
</action>
<representation>TextPicture</representation>
</formCommands>
<formCommands>
<name>ПоказатьВсеЗадания</name>