Skip to content

Commit

Permalink
Обновление версии конфигурации поставщика на 3.1.10.383
Browse files Browse the repository at this point in the history
Страница релиза:
https://releases.1c.ru/version_files?nick=SSL31&ver=3.1.10.383
Версии для обновления:
  • Loading branch information
1c committed Nov 27, 2024
1 parent 05cc57e commit 8b02fa2
Show file tree
Hide file tree
Showing 81 changed files with 1,726 additions and 751 deletions.
6 changes: 3 additions & 3 deletions description.json
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
{
"Версия": "3.1.10.369",
"Дата": "2024-11-15T00:00:00",
"Путь": "/version_files?nick=SSL31&ver=3.1.10.369",
"Версия": "3.1.10.383",
"Дата": "2024-11-28T00:00:00",
"Путь": "/version_files?nick=SSL31&ver=3.1.10.383",
"ВерсииДляОбновления": [],
"Бета": false,
"Имя": "1С:Библиотека стандартных подсистем, редакция 3.1",
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -183,6 +183,22 @@
</Title>
<CommandSource>Form</CommandSource>
<ExtendedTooltip name="КоманднаяПанельРасширеннаяПодсказка" id="38"/>
<ChildItems>
<Popup name="ПодменюОрганайзер" id="57">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Органайзер</v8:content>
</v8:item>
</Title>
<Picture>
<xr:Ref>CommonPicture.Органайзер</xr:Ref>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
<Representation>Picture</Representation>
<ExtendedTooltip name="ПодменюОрганайзерРасширеннаяПодсказка" id="58"/>
</Popup>
</ChildItems>
</CommandBar>
<Table name="Список" id="1">
<CommandBarLocation>None</CommandBarLocation>
Expand Down Expand Up @@ -248,6 +264,9 @@
<ContextMenu name="СписокУправлениеПоискомКонтекстноеМеню" id="52"/>
<ExtendedTooltip name="СписокУправлениеПоискомРасширеннаяПодсказка" id="53"/>
</SearchControlAddition>
<Events>
<Event name="OnActivateRow">СписокПриАктивизацииСтроки</Event>
</Events>
<ChildItems>
<LabelField name="Тема" id="20">
<DataPath>Список.Description</DataPath>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,14 @@
Список.Параметры.УстановитьЗначениеПараметра("ПоказыватьУдаленные", Ложь);

ЗаполнитьСписокВыбораФильтраПоПредмету();

// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

КонецПроцедуры

&НаКлиенте
Expand Down Expand Up @@ -54,6 +62,18 @@
Список.Параметры.УстановитьЗначениеПараметра("ПоказыватьУдаленные", ПоказыватьУдаленные);
КонецПроцедуры

&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)

// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

КонецПроцедуры

#КонецОбласти

#Область СлужебныеПроцедурыИФункции
Expand Down Expand Up @@ -109,4 +129,43 @@

КонецПроцедуры

// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)

Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);
КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт

ВыполнитьКомандуНаСервере(ПараметрыВыполнения);

КонецПроцедуры

&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)

Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);
КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()

Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецЕсли;

КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

#КонецОбласти
Original file line number Diff line number Diff line change
Expand Up @@ -47,6 +47,22 @@
</Title>
<CommandSource>Form</CommandSource>
<ExtendedTooltip name="КоманднаяПанельРасширеннаяПодсказка" id="42"/>
<ChildItems>
<Popup name="ПодменюОрганайзер" id="60">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Органайзер</v8:content>
</v8:item>
</Title>
<Picture>
<xr:Ref>CommonPicture.Органайзер</xr:Ref>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
<Representation>Picture</Representation>
<ExtendedTooltip name="ПодменюОрганайзерРасширеннаяПодсказка" id="61"/>
</Popup>
</ChildItems>
</CommandBar>
<Table name="Список" id="1">
<Representation>List</Representation>
Expand Down Expand Up @@ -121,6 +137,7 @@
</SearchControlAddition>
<Events>
<Event name="BeforeAddRow">СписокПередНачаломДобавления</Event>
<Event name="OnActivateRow">СписокПриАктивизацииСтроки</Event>
</Events>
<ChildItems>
<LabelField name="Наименование" id="45">
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -27,6 +27,13 @@
Элементы.ПоказыватьЗаметкиДругихПользователей.Видимость = Ложь;
КонецЕсли;

// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

КонецПроцедуры

&НаСервере
Expand Down Expand Up @@ -62,6 +69,18 @@
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)

// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

КонецПроцедуры

#КонецОбласти

#Область СлужебныеПроцедурыИФункции
Expand All @@ -86,5 +105,44 @@

КонецПроцедуры

// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)

Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);
КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт

ВыполнитьКомандуНаСервере(ПараметрыВыполнения);

КонецПроцедуры

&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)

Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);
КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()

Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецЕсли;

КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

#КонецОбласти

Original file line number Diff line number Diff line change
Expand Up @@ -50,6 +50,20 @@
<LocationInCommandBar>InCommandBarAndInAdditionalSubmenu</LocationInCommandBar>
<ExtendedTooltip name="ФормаОбщаяКомандаНапомнитьРасширеннаяПодсказка" id="16"/>
</Button>
<Popup name="ПодменюОрганайзер" id="50">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Органайзер</v8:content>
</v8:item>
</Title>
<Picture>
<xr:Ref>CommonPicture.Органайзер</xr:Ref>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
<Representation>Picture</Representation>
<ExtendedTooltip name="ПодменюОрганайзерРасширеннаяПодсказка" id="51"/>
</Popup>
<SearchStringAddition name="СтрокаПоиска" id="47">
<AdditionSource>
<Item>Список</Item>
Expand Down Expand Up @@ -196,6 +210,9 @@
<ContextMenu name="СписокSearchControlContextMenu" id="45"/>
<ExtendedTooltip name="СписокSearchControlExtendedTooltip" id="46"/>
</SearchControlAddition>
<Events>
<Event name="OnActivateRow">СписокПриАктивизацииСтроки</Event>
</Events>
<ChildItems>
<ColumnGroup name="Содержание" id="8">
<Title>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -15,6 +15,29 @@

Список.Параметры.УстановитьЗначениеПараметра("Пользователь", Пользователи.ТекущийПользователь());

// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

КонецПроцедуры

#КонецОбласти

#Область ОбработчикиСобытийЭлементовШапкиФормы

&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)

// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

КонецПроцедуры

#КонецОбласти
Expand All @@ -39,4 +62,43 @@

КонецПроцедуры

// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)

Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);
КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт

ВыполнитьКомандуНаСервере(ПараметрыВыполнения);

КонецПроцедуры

&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)

Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);
КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()

Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецЕсли;

КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

#КонецОбласти
Original file line number Diff line number Diff line change
Expand Up @@ -4,6 +4,20 @@
<UseForFoldersAndItems>Items</UseForFoldersAndItems>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
<ChildItems>
<Popup name="ПодменюОрганайзер" id="121">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Органайзер</v8:content>
</v8:item>
</Title>
<Picture>
<xr:Ref>CommonPicture.Органайзер</xr:Ref>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
<Representation>Picture</Representation>
<ExtendedTooltip name="ПодменюОрганайзерРасширеннаяПодсказка" id="122"/>
</Popup>
<ButtonGroup name="КоманднаяПанельРедактирования" id="79">
<Title>
<v8:item>
Expand All @@ -20,6 +34,7 @@
<Event name="AfterWrite">ПослеЗаписи</Event>
<Event name="AfterWriteAtServer">ПослеЗаписиНаСервере</Event>
<Event name="OnReadAtServer">ПриЧтенииНаСервере</Event>
<Event name="OnOpen">ПриОткрытии</Event>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
<Event name="BeforeWriteAtServer">ПередЗаписьюНаСервере</Event>
</Events>
Expand Down
Loading

0 comments on commit 8b02fa2

Please sign in to comment.