отключение назойливого окна интернет-поддержки в типовых конфигурациях

BullJeep · Apr 25, 2019 · 9b8768e · 9b8768e
1 parent ecae824
commit 9b8768e
Show file tree

Hide file tree

Showing 4 changed files with 107 additions and 0 deletions.
diff --git a/...тернетПоддержкиВТиповыхКонфигурациях/ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях.xml b/...тернетПоддержкиВТиповыхКонфигурациях/ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях.xml
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.4">
+	<ExternalDataProcessor uuid="287e0b64-c2d0-44e9-9fa0-bf1d5907b79c">
+		<InternalInfo>
+			<xr:ContainedObject>
+				<xr:ClassId>c3831ec8-d8d5-4f93-8a22-f9bfae07327f</xr:ClassId>
+				<xr:ObjectId>1ed670c2-f478-4517-af91-3a12e22693d7</xr:ObjectId>
+			</xr:ContainedObject>
+			<xr:GeneratedType name="ExternalDataProcessorObject.ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях" category="Object">
+				<xr:TypeId>e8ce522d-e530-4297-8371-c026d9012556</xr:TypeId>
+				<xr:ValueId>74af48a8-157d-4cb2-9352-aa31edae9687</xr:ValueId>
+			</xr:GeneratedType>
+		</InternalInfo>
+		<Properties>
+			<Name>ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях</Name>
+			<Synonym>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Отключение интернет поддержки в типовых конфигурациях</v8:content>
+				</v8:item>
+			</Synonym>
+			<Comment/>
+			<DefaultForm>ExternalDataProcessor.ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях.Form.Форма</DefaultForm>
+			<AuxiliaryForm/>
+		</Properties>
+		<ChildObjects>
+			<Form>Форма</Form>
+		</ChildObjects>
+	</ExternalDataProcessor>
+</MetaDataObject>
diff --git a/...жкиВТиповыхКонфигурациях/ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях/Forms/Форма.xml b/...жкиВТиповыхКонфигурациях/ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях/Forms/Форма.xml
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.4">
+	<Form uuid="75fddb6a-6dd3-4f7c-bd11-dab58334324b">
+		<Properties>
+			<Name>Форма</Name>
+			<Synonym>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Форма</v8:content>
+				</v8:item>
+			</Synonym>
+			<Comment/>
+			<FormType>Managed</FormType>
+			<IncludeHelpInContents>false</IncludeHelpInContents>
+			<UsePurposes>
+				<v8:Value xsi:type="app:ApplicationUsePurpose">PersonalComputer</v8:Value>
+				<v8:Value xsi:type="app:ApplicationUsePurpose">MobileDevice</v8:Value>
+			</UsePurposes>
+			<ExtendedPresentation/>
+		</Properties>
+	</Form>
+</MetaDataObject>
diff --git a/...ыхКонфигурациях/ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях/Forms/Форма/Ext/Form.xml b/...ыхКонфигурациях/ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях/Forms/Форма/Ext/Form.xml
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Form xmlns="http://v8.1c.ru/8.3/xcf/logform" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core" xmlns:dcsset="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.4">
+	<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
+	<Events>
+		<Event name="OnOpen">ПриОткрытии</Event>
+		<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
+	</Events>
+	<Attributes>
+		<Attribute name="Объект" id="1">
+			<Type>
+				<v8:Type>cfg:ExternalDataProcessorObject.ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях</v8:Type>
+			</Type>
+			<MainAttribute>true</MainAttribute>
+		</Attribute>
+	</Attributes>
+	<Commands>
+		<Command name="ОтключитьИнтернетПоддержкуУВсехПользователей" id="1">
+			<Title>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Отключить интернет поддержку у всех пользователей</v8:content>
+				</v8:item>
+			</Title>
+			<ToolTip>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Отключить интернет поддержку у всех пользователей</v8:content>
+				</v8:item>
+			</ToolTip>
+			<Action>ОтключитьИнтернетПоддержкуУВсехПользователей</Action>
+		</Command>
+	</Commands>
+</Form>
diff --git a/...гурациях/ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях/Forms/Форма/Ext/Form/Module.bsl b/...гурациях/ОтключениеИнтернетПоддержкиВТиповыхКонфигурациях/Forms/Форма/Ext/Form/Module.bsl
@@ -0,0 +1,22 @@
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+	ОтключитьИнтернетПоддержкуУВсехПользователейНаСервере();
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОтключитьИнтернетПоддержкуУВсехПользователей(Команда)
+    ОтключитьИнтернетПоддержкуУВсехПользователейНаСервере();
+КонецПроцедуры
+
+&НаСервере
+Процедура ОтключитьИнтернетПоддержкуУВсехПользователейНаСервере()
+
+    Перем Пользователи;
+
+    Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей();
+    Для Каждого Пользователь Из Пользователи Цикл
+        ХранилищеОбщихНастроек.Сохранить("ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы", Ложь, , Пользователь.Имя);
+        Сообщить("Для пользователя " + Пользователь.Имя + " интернет-поддержка отключена");
+    КонецЦикла;
+
+КонецПроцедуры