Skip to content

Commit

Permalink
Fixed bugs
Browse files Browse the repository at this point in the history
  • Loading branch information
denisushakov committed Oct 10, 2024
1 parent a5569b1 commit 00a86f6
Show file tree
Hide file tree
Showing 21 changed files with 123 additions and 24 deletions.
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
// Библиотека проектных подсистем для упрощения разработки архитектуры на 1С: Предприятие 8,
// Библиотека проектных подсистем для упрощения разработки архитектуры на 1С: Предприятие 8,
// включая доработку типовых конфигураций.
//
// Copyright First BIT company
Expand Down Expand Up @@ -62,6 +62,20 @@
КонецЕсли;
КонецЕсли;

ДополнительныеСвойства.Вставить("ЭтоНовый", ЭтоНовый());

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

Процедура ПриЗаписи(Отказ)

Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;

Если Не пбп_ОбщегоНазначенияСлужебныйКлиентСервер.СвойствоСтруктуры(ДополнительныеСвойства, "ЭтоНовый", Ложь) Тогда
РегистрыСведений.пбп_СостоянияПредопределенныхЭлементов.ОбновитьХешЭлемента(ЭтотОбъект.Ссылка, ЭтотОбъект.ЭтоГруппа);

Check notice on line 76 in src/cf/Catalogs/пбп_ИнтеграционныеПотоки/Ext/ObjectModule.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/Catalogs/пбп_ИнтеграционныеПотоки/Ext/ObjectModule.bsl#L76

Избавьтесь от избыточного обращения внутри модуля через его имя или псевдоним ЭтотОбъект

Check notice on line 76 in src/cf/Catalogs/пбп_ИнтеграционныеПотоки/Ext/ObjectModule.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/Catalogs/пбп_ИнтеграционныеПотоки/Ext/ObjectModule.bsl#L76

Избавьтесь от избыточного обращения внутри модуля через его имя или псевдоним ЭтотОбъект
КонецЕсли;

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

#КонецОбласти // ОбработчикиСобытий
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -12,6 +12,9 @@
</Button>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="NotificationProcessing">ОбработкаОповещения</Event>
</Events>
<ChildItems>
<UsualGroup name="СписокКомпоновщикНастроекПользовательскиеНастройки" id="1">
<Title>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -20,22 +20,24 @@

#Область ОбработчикиСобытийФормы

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

Если ИмяСобытия = "ОбновитьСписокПредопределенных" Тогда
Элементы.Список.Обновить();
КонецЕсли;

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

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

#Область ОбработчикиКомандФормы

&НаСервереБезКонтекста
Процедура ЗаполнитьПредопределенныеНаСервере()
пбп_ПредопределенныеЗначения.ИнициализироватьПредопределенныеЗначения(Справочники.пбп_ИнтеграционныеПотоки);
КонецПроцедуры

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

пбп_ПредопределенныеЗначенияКлиент.СоздатьОбновитьПредопределенныеЗначения(ЭтотОбъект);

Элементы.Список.Обновить();

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

#КонецОбласти
Original file line number Diff line number Diff line change
Expand Up @@ -3,13 +3,25 @@
#Область ОбработчикиСобытий

Процедура ПередЗаписью(Отказ)

Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;

ДополнительныеСвойства.Вставить("ЭтоНовый", ЭтоНовый());

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

Процедура ПриЗаписи(Отказ)

Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;

Если Не пбп_ОбщегоНазначенияСлужебныйКлиентСервер.СвойствоСтруктуры(ДополнительныеСвойства, "ЭтоНовый", Ложь) Тогда
РегистрыСведений.пбп_СостоянияПредопределенныхЭлементов.ОбновитьХешЭлемента(ЭтотОбъект.Ссылка, ЭтотОбъект.ЭтоГруппа);

Check notice on line 22 in src/cf/Catalogs/пбп_ИнтегрируемыеСистемы/Ext/ObjectModule.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/Catalogs/пбп_ИнтегрируемыеСистемы/Ext/ObjectModule.bsl#L22

Избавьтесь от избыточного обращения внутри модуля через его имя или псевдоним ЭтотОбъект

Check notice on line 22 in src/cf/Catalogs/пбп_ИнтегрируемыеСистемы/Ext/ObjectModule.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/Catalogs/пбп_ИнтегрируемыеСистемы/Ext/ObjectModule.bsl#L22

Избавьтесь от избыточного обращения внутри модуля через его имя или псевдоним ЭтотОбъект
КонецЕсли;

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

#КонецОбласти
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -12,6 +12,9 @@
</Button>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="NotificationProcessing">ОбработкаОповещения</Event>
</Events>
<ChildItems>
<UsualGroup name="СписокКомпоновщикНастроекПользовательскиеНастройки" id="1">
<Title>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -20,6 +20,15 @@

#Область ОбработчикиСобытийФормы

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

Если ИмяСобытия = "ОбновитьСписокПредопределенных" Тогда
Элементы.Список.Обновить();
КонецЕсли;

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

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

#Область ОбработчикиКомандФормы
Expand All @@ -29,8 +38,6 @@

пбп_ПредопределенныеЗначенияКлиент.СоздатьОбновитьПредопределенныеЗначения(ЭтотОбъект);

Элементы.Список.Обновить();

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

#КонецОбласти
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
// Библиотека проектных подсистем для упрощения разработки архитектуры на 1С: Предприятие 8,
// Библиотека проектных подсистем для упрощения разработки архитектуры на 1С: Предприятие 8,
// включая доработку типовых конфигураций.
//
// Copyright First BIT company
Expand Down Expand Up @@ -119,9 +119,15 @@
КонецПроцедуры

Процедура ПриЗаписи(Отказ)

Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;

Если Не пбп_ОбщегоНазначенияСлужебныйКлиентСервер.СвойствоСтруктуры(ДополнительныеСвойства, "ЭтоНовый", Ложь) Тогда
РегистрыСведений.пбп_СостоянияПредопределенныхЭлементов.ОбновитьХешЭлемента(ЭтотОбъект.Ссылка, ЭтотОбъект.ЭтоГруппа);

Check notice on line 128 in src/cf/Catalogs/пбп_НастройкиИнтеграции/Ext/ObjectModule.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/Catalogs/пбп_НастройкиИнтеграции/Ext/ObjectModule.bsl#L128

Избавьтесь от избыточного обращения внутри модуля через его имя или псевдоним ЭтотОбъект

Check notice on line 128 in src/cf/Catalogs/пбп_НастройкиИнтеграции/Ext/ObjectModule.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/Catalogs/пбп_НастройкиИнтеграции/Ext/ObjectModule.bsl#L128

Избавьтесь от избыточного обращения внутри модуля через его имя или псевдоним ЭтотОбъект
КонецЕсли;

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

#КонецОбласти // ОбработчикиСобытий
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -12,6 +12,9 @@
</Button>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="NotificationProcessing">ОбработкаОповещения</Event>
</Events>
<ChildItems>
<UsualGroup name="СписокКомпоновщикНастроекПользовательскиеНастройки" id="1">
<Title>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -20,6 +20,15 @@

#Область ОбработчикиСобытийФормы

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

Если ИмяСобытия = "ОбновитьСписокПредопределенных" Тогда
Элементы.Список.Обновить();
КонецЕсли;

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

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

#Область ОбработчикиКомандФормы
Expand All @@ -28,8 +37,6 @@
Процедура ЗаполнитьПредопределенные(Команда)

пбп_ПредопределенныеЗначенияКлиент.СоздатьОбновитьПредопределенныеЗначения(ЭтотОбъект);

Элементы.Список.Обновить();

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

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -4,13 +4,25 @@
#Область ОбработчикиСобытий

Процедура ПередЗаписью(Отказ)

Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;

ДополнительныеСвойства.Вставить("ЭтоНовый", ЭтоНовый());

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

Процедура ПриЗаписи(Отказ)

Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;

Если Не пбп_ОбщегоНазначенияСлужебныйКлиентСервер.СвойствоСтруктуры(ДополнительныеСвойства, "ЭтоНовый", Ложь) Тогда
РегистрыСведений.пбп_СостоянияПредопределенныхЭлементов.ОбновитьХешЭлемента(ЭтотОбъект.Ссылка, ЭтотОбъект.ЭтоГруппа);

Check notice on line 23 in src/cf/Catalogs/пбп_ТипСоответствияОбъектовИБ/Ext/ObjectModule.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/Catalogs/пбп_ТипСоответствияОбъектовИБ/Ext/ObjectModule.bsl#L23

Избавьтесь от избыточного обращения внутри модуля через его имя или псевдоним ЭтотОбъект

Check notice on line 23 in src/cf/Catalogs/пбп_ТипСоответствияОбъектовИБ/Ext/ObjectModule.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/Catalogs/пбп_ТипСоответствияОбъектовИБ/Ext/ObjectModule.bsl#L23

Избавьтесь от избыточного обращения внутри модуля через его имя или псевдоним ЭтотОбъект
КонецЕсли;

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

#КонецОбласти
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,9 @@
</Button>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="NotificationProcessing">ОбработкаОповещения</Event>
</Events>
<ChildItems>
<UsualGroup name="СписокКомпоновщикНастроекПользовательскиеНастройки" id="1">
<Title>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -20,6 +20,15 @@

#Область ОбработчикиСобытийФормы

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

Если ИмяСобытия = "ОбновитьСписокПредопределенных" Тогда
Элементы.Список.Обновить();
КонецЕсли;

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

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

#Область ОбработчикиКомандФормы
Expand All @@ -29,8 +38,6 @@

пбп_ПредопределенныеЗначенияКлиент.СоздатьОбновитьПредопределенныеЗначения(ЭтотОбъект);

Элементы.Список.Обновить();

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

#КонецОбласти
Original file line number Diff line number Diff line change
Expand Up @@ -4,13 +4,25 @@
#Область ОбработчикиСобытий

Процедура ПередЗаписью(Отказ)

Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;

ДополнительныеСвойства.Вставить("ЭтоНовый", ЭтоНовый());

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

Процедура ПриЗаписи(Отказ)

Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;

Если Не пбп_ОбщегоНазначенияСлужебныйКлиентСервер.СвойствоСтруктуры(ДополнительныеСвойства, "ЭтоНовый", Ложь) Тогда
РегистрыСведений.пбп_СостоянияПредопределенныхЭлементов.ОбновитьХешЭлемента(ЭтотОбъект.Ссылка, ЭтотОбъект.ЭтоГруппа);

Check notice on line 23 in src/cf/ChartsOfCharacteristicTypes/пбп_ПредопределенныеЗначения/Ext/ObjectModule.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/ChartsOfCharacteristicTypes/пбп_ПредопределенныеЗначения/Ext/ObjectModule.bsl#L23

Избавьтесь от избыточного обращения внутри модуля через его имя или псевдоним ЭтотОбъект

Check notice on line 23 in src/cf/ChartsOfCharacteristicTypes/пбп_ПредопределенныеЗначения/Ext/ObjectModule.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/ChartsOfCharacteristicTypes/пбп_ПредопределенныеЗначения/Ext/ObjectModule.bsl#L23

Избавьтесь от избыточного обращения внутри модуля через его имя или псевдоним ЭтотОбъект
КонецЕсли;

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

#КонецОбласти
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -18,6 +18,7 @@
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="NotificationProcessing">ОбработкаОповещения</Event>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -8,6 +8,15 @@

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

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

Если ИмяСобытия = "ОбновитьСписокПредопределенных" Тогда
Элементы.Список.Обновить();
КонецЕсли;

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

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

#Область ОбработчикиКомандФормы
Expand All @@ -17,8 +26,6 @@

пбп_ПредопределенныеЗначенияКлиент.СоздатьОбновитьПредопределенныеЗначения(ЭтотОбъект);

Элементы.Список.Обновить();

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

#КонецОбласти
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -29,6 +29,7 @@

Если ОбработатьЭлементы Тогда
ОбработатьПредопределенныеЭлементы();
Оповестить("ОбновитьСписокПредопределенных");
КонецЕсли;

КонецПроцедуры
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -44,5 +44,5 @@
#КонецОбласти

#Область СлужебныеПроцедурыИФункции

Check notice on line 46 in src/cf/CommonModules/пбп_ПредопределенныеЗначенияКлиент/Ext/Module.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/CommonModules/пбп_ПредопределенныеЗначенияКлиент/Ext/Module.bsl#L46

Область "СлужебныеПроцедурыИФункции" не содержит функций или процедур
// Код процедур и функций

#КонецОбласти
Original file line number Diff line number Diff line change
Expand Up @@ -214,7 +214,7 @@

КонецФункции

Функция КолонкиМетодыИнтеграции() Экспорт
Функция КолонкиИнтеграционныеПотоки() Экспорт

Check notice on line 217 in src/cf/CommonModules/пбп_ПредопределенныеЗначенияПереопределяемый/Ext/Module.bsl

View check run for this annotation

sonar.openbsl.ru qa-bot / 1C: Project SubSystems Library Sonarqube Results

src/cf/CommonModules/пбп_ПредопределенныеЗначенияПереопределяемый/Ext/Module.bsl#L217

Добавьте описание метода программного интерфейса

Колонки = ОбщиеКолонки();

Expand Down Expand Up @@ -308,7 +308,7 @@

Результат = Новый ТаблицаЗначений;

Колонки = КолонкиМетодыИнтеграции();
Колонки = КолонкиИнтеграционныеПотоки();

СоздатьКолонкиТаблицыПредопределенныхЭлементов(Колонки, Результат);

Expand Down
1 change: 0 additions & 1 deletion src/cf/Configuration.xml
Original file line number Diff line number Diff line change
Expand Up @@ -343,7 +343,6 @@
<Constant>пбп_ИспользоватьПользовательскиеФункции</Constant>
<CommonForm>пбп_ФормаВыбораПоля</CommonForm>
<CommonForm>пбп_ФормаРазрешенияКонфликтовПредопределенныхЭлементов</CommonForm>
<CommonForm>пбп_ФормаВыбораПоля</CommonForm>
<Catalog>пбп_ИнтеграционныеПотоки</Catalog>
<Catalog>пбп_ИнтегрируемыеСистемы</Catalog>
<Catalog>пбп_ИсторияИнтеграции</Catalog>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,7 @@
<v8:Type>cfg:CatalogRef.пбп_ТипСоответствияОбъектовИБ</v8:Type>
<v8:Type>cfg:CatalogRef.пбп_ИнтегрируемыеСистемы</v8:Type>
<v8:Type>cfg:ChartOfCharacteristicTypesRef.пбп_ПредопределенныеЗначения</v8:Type>
<v8:Type>cfg:CatalogRef.пбп_МетодыИнтеграции</v8:Type>
<v8:Type>cfg:CatalogRef.пбп_ИнтеграционныеПотоки</v8:Type>
</Type>
</Properties>
</DefinedType>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -17,8 +17,8 @@
СтруктураСКолонками = пбп_ПредопределенныеЗначенияПереопределяемый.КолонкиПредопределенныеЗначения();
ИначеЕсли ТипЗначения = Тип("СправочникСсылка.пбп_ИнтегрируемыеСистемы") Тогда
СтруктураСКолонками = пбп_ПредопределенныеЗначенияПереопределяемый.КолонкиИнтегрируемыеСистемы();
ИначеЕсли ТипЗначения = Тип("СправочникСсылка.пбп_МетодыИнтеграции") Тогда
СтруктураСКолонками = пбп_ПредопределенныеЗначенияПереопределяемый.КолонкиМетодыИнтеграции();
ИначеЕсли ТипЗначения = Тип("СправочникСсылка.пбп_ИнтеграционныеПотоки") Тогда
СтруктураСКолонками = пбп_ПредопределенныеЗначенияПереопределяемый.КолонкиИнтеграционныеПотоки();
ИначеЕсли ТипЗначения = Тип("СправочникСсылка.пбп_НастройкиИнтеграции") Тогда
СтруктураСКолонками = пбп_ПредопределенныеЗначенияПереопределяемый.КолонкиНастройкиИнтеграции();
ИначеЕсли ТипЗначения = Тип("СправочникСсылка.пбп_ТипСоответствияОбъектовИБ") Тогда
Expand Down

0 comments on commit 00a86f6

Please sign in to comment.