@milanse #198 Загрузка изменений из хранилища по TCP и загрузка изменений по расширениям

src/cf/Catalogs/узКонфигурации.xml

@@ -804,7 +804,7 @@ D:\Dev\Storage\
 					<ExtendedEdit>false</ExtendedEdit>
 					<MinValue xsi:nil="true"/>
 					<MaxValue xsi:nil="true"/>
-					<FillFromFillingValue>false</FillFromFillingValue>
+					<FillFromFillingValue>true</FillFromFillingValue>
 					<FillValue xsi:nil="true"/>
 					<FillChecking>DontCheck</FillChecking>
 					<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
@@ -857,7 +857,10 @@ D:\Dev\Storage\
 					<QuickChoice>Auto</QuickChoice>
 					<CreateOnInput>Auto</CreateOnInput>
 					<ChoiceForm/>
-					<LinkByType/>
+					<LinkByType>
+						<xr:DataPath>Catalog.узКонфигурации.Attribute.ЭтоРасширение</xr:DataPath>
+						<xr:LinkItem>0</xr:LinkItem>
+					</LinkByType>
 					<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
 					<Use>ForItem</Use>
 					<Indexing>DontIndex</Indexing>
@@ -888,7 +891,7 @@ D:\Dev\Storage\
 					<ExtendedEdit>false</ExtendedEdit>
 					<MinValue xsi:nil="true"/>
 					<MaxValue xsi:nil="true"/>
-					<FillFromFillingValue>false</FillFromFillingValue>
+					<FillFromFillingValue>true</FillFromFillingValue>
 					<FillValue xsi:nil="true"/>
 					<FillChecking>DontCheck</FillChecking>
 					<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
@@ -897,7 +900,10 @@ D:\Dev\Storage\
 					<QuickChoice>Auto</QuickChoice>
 					<CreateOnInput>Auto</CreateOnInput>
 					<ChoiceForm/>
-					<LinkByType/>
+					<LinkByType>
+						<xr:DataPath>Catalog.узКонфигурации.Attribute.ЭтоРасширение</xr:DataPath>
+						<xr:LinkItem>0</xr:LinkItem>
+					</LinkByType>
 					<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
 					<Use>ForItem</Use>
 					<Indexing>DontIndex</Indexing>

src/cf/Catalogs/узКонфигурации/Forms/ФормаЭлемента/Ext/Form.xml

@@ -3,6 +3,7 @@
 	<UseForFoldersAndItems>Items</UseForFoldersAndItems>
 	<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
 	<Events>
+		<Event name="AfterWriteAtServer">ПослеЗаписиНаСервере</Event>
 		<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
 	</Events>
 	<ChildItems>
@@ -26,6 +27,24 @@
 				</InputField>
 			</ChildItems>
 		</UsualGroup>
+		<UsualGroup name="Группа7" id="156">
+			<Representation>None</Representation>
+			<ShowTitle>false</ShowTitle>
+			<ExtendedTooltip name="Группа7РасширеннаяПодсказка" id="157"/>
+			<ChildItems>
+				<CheckBoxField name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория" id="86">
+					<DataPath>Объект.ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория</DataPath>
+					<TitleLocation>Right</TitleLocation>
+					<ToolTipRepresentation>Button</ToolTipRepresentation>
+					<CheckBoxType>Auto</CheckBoxType>
+					<ContextMenu name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияКонтекстноеМеню" id="87"/>
+					<ExtendedTooltip name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияРасширеннаяПодсказка" id="88"/>
+					<Events>
+						<Event name="OnChange">ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияПриИзменении</Event>
+					</Events>
+				</CheckBoxField>
+			</ChildItems>
+		</UsualGroup>
 		<UsualGroup name="ГруппаВыгрузкиФайлаЛистаЗадач" id="102">
 			<ToolTip>
 				<v8:item>
@@ -61,24 +80,6 @@
 				</CheckBoxField>
 			</ChildItems>
 		</UsualGroup>
-		<UsualGroup name="Группа7" id="156">
-			<Representation>None</Representation>
-			<ShowTitle>false</ShowTitle>
-			<ExtendedTooltip name="Группа7РасширеннаяПодсказка" id="157"/>
-			<ChildItems>
-				<CheckBoxField name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория" id="86">
-					<DataPath>Объект.ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория</DataPath>
-					<TitleLocation>Right</TitleLocation>
-					<ToolTipRepresentation>Button</ToolTipRepresentation>
-					<CheckBoxType>Auto</CheckBoxType>
-					<ContextMenu name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияКонтекстноеМеню" id="87"/>
-					<ExtendedTooltip name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияРасширеннаяПодсказка" id="88"/>
-					<Events>
-						<Event name="OnChange">ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияПриИзменении</Event>
-					</Events>
-				</CheckBoxField>
-			</ChildItems>
-		</UsualGroup>
 		<UsualGroup name="ГруппаРасширение" id="128">
 			<Title>
 				<v8:item>
@@ -436,7 +437,6 @@
 			<Representation>List</Representation>
 			<HeightInTableRows>3</HeightInTableRows>
 			<UseAlternationRowColor>true</UseAlternationRowColor>
-			<VerticalStretch>false</VerticalStretch>
 			<EnableStartDrag>true</EnableStartDrag>
 			<EnableDrag>true</EnableDrag>
 			<DataPath>Расширения</DataPath>
@@ -525,7 +525,6 @@
 	Справочник.узКонфигурации КАК узКонфигурации
 ГДЕ
 	узКонфигурации.ЭтоРасширение
-	И узКонфигурации.РасширениеДляКонфигурации = &amp;РасширениеДляКонфигурации
 	И НЕ узКонфигурации.ЭтоГруппа</QueryText>
 				<MainTable>Catalog.узКонфигурации</MainTable>
 				<ListSettings>

src/cf/Catalogs/узКонфигурации/Forms/ФормаЭлемента/Ext/Form/Module.bsl

@@ -6,10 +6,22 @@
 
 &НаСервере
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
-	Расширения.Параметры.УстановитьЗначениеПараметра("РасширениеДляКонфигурации",Объект.Ссылка);
+	//{[+] #198 milanse 31.05.2020
+	УстановитьОтборСпискаРасширений(Объект.Ссылка);
+	//}[+] #198 milanse 31.05.2020
 	УстановитьВидимостьДоступность();
 КонецПроцедуры
 
+//{[+] #198 milanse 31.05.2020
+&НаСервере
+Процедура УстановитьОтборСпискаРасширений(СсылкаНаОсновнуюКонфигурацию)
+	
+	ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Расширения,"РасширениеДляКонфигурации",СсылкаНаОсновнуюКонфигурацию);
+	ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Расширения,"ЭтоРасширение",Истина);	
+	
+КонецПроцедуры
+//}[+] #198 milanse 31.05.2020
+
 &НаСервере
 Процедура УстановитьВидимостьДоступность()
 	Элементы.ГруппаНастройкиДляПолученияИзмененийИзХранилища.Видимость = Ложь;
@@ -53,6 +65,12 @@
 	Конецесли;
 	//- #198 Иванов А.Б. 2020-05-23 
 	
+	//+ #206 Иванов А.Б. 2020-06-06 @milanse 
+	Элементы.Расширения.ТолькоПросмотр = Ложь;
+	Если НЕ ЗначениеЗаполнено(Объект.РасширениеДляКонфигурации) Тогда
+		Элементы.Расширения.ТолькоПросмотр = Истина;
+	Конецесли;
+	//- #206 Иванов А.Б. 2020-06-06 @milanse 
 	
 	
 	Если Объект.ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория Тогда
@@ -212,3 +230,10 @@
 	УстановитьВидимостьДоступность();
 КонецПроцедуры
 
+//{[+] #198 milanse 31.05.2020
+&НаСервере
+Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
+	УстановитьОтборСпискаРасширений(ТекущийОбъект.Ссылка);
+КонецПроцедуры
+//}[+] #198 milanse 31.05.2020
+