Удалены лишние объекты и код, добавлены роли, исправлены ошибки

firstBitSportivnaya · Apr 1, 2024 · 897797c · 897797c
1 parent bd5bd07
commit 897797c
Show file tree

Hide file tree

Showing 46 changed files with 386 additions and 1,831 deletions.
diff --git a/src/Catalogs/__ИсторияИнтеграции/Forms/ФормаСписка/Ext/Form/Module.bsl b/src/Catalogs/__ИсторияИнтеграции/Forms/ФормаСписка/Ext/Form/Module.bsl
@@ -66,11 +66,9 @@
 &НаСервере
 Функция ПолучитьРегламентноеЗадание()
 
-	Если __БазоваяФункциональностьБИТВызовСервера.ПодсистемаСуществует("СтандартныеПодсистемы") Тогда
-		РегламентныеЗаданияСервер = РегламентныеЗаданияСервер;
-	Иначе
-		РегламентныеЗаданияСервер = __БазоваяФункциональностьБИТ;
-	КонецЕсли;
+	// ++ Обход ошибки отстутствия модуля БСП, не переносить
+	РегламентныеЗаданияСервер = Неопределено;
+	// -- Обход ошибки отстутствия модуля БСП, не переносить
 
 	ПараметрыЗадания = Новый Структура;
 	ПараметрыЗадания.Вставить("Ключ"		, "__ОчисткаИсторииИнтеграции");

diff --git a/src/Catalogs/__ИсторияИнтеграции/Forms/ФормаЭлемента/Ext/Form/Module.bsl b/src/Catalogs/__ИсторияИнтеграции/Forms/ФормаЭлемента/Ext/Form/Module.bsl
@@ -68,11 +68,9 @@
 &НаКлиенте
 Процедура ПриОткрытии(Отказ)
 
-	Если __БазоваяФункциональностьБИТВызовСервера.ПодсистемаСуществует("СтандартныеПодсистемы") Тогда
-		ОбщегоНазначенияКлиент = ОбщегоНазначенияКлиент;
-	Иначе
-		ОбщегоНазначенияКлиент = __БазоваяФункциональностьБИТКлиент;
-	КонецЕсли;
+	// ++ Обход ошибки отстутствия модуля БСП, не переносить
+	ОбщегоНазначенияКлиент = __ВспомогательныйМодульНеПереноситьКлиент;
+	// -- Обход ошибки отстутствия модуля БСП, не переносить
 
 	Если ЗначениеЗаполнено(Объект.ФорматЗапросаИнтеграции) И Объект.ФорматЗапросаИнтеграции <> ОбщегоНазначенияКлиент.ПредопределенныйЭлемент("Перечисление.__ФорматыЗапросовИнтеграции.ПроизвольныйФормат") Тогда
 		ИнициализироватьБазовыйФайлРедактора(ПолучитьФорматИнтеграции(Объект.ФорматЗапросаИнтеграции));

diff --git a/src/Catalogs/__ПользовательскиеФункции/Forms/ФормаЭлемента/Ext/Form/Module.bsl b/src/Catalogs/__ПользовательскиеФункции/Forms/ФормаЭлемента/Ext/Form/Module.bsl
@@ -431,11 +431,9 @@
 &НаСервере
 Процедура ВыполнитьКодСервер(ЗначенияПараметров)
 
-	Если __БазоваяФункциональностьБИТ.ПодсистемаСуществует("СтандартныеПодсистемы") Тогда
-		МодульОбщегоНазначения = __БазоваяФункциональностьБИТ.ОбщийМодуль("ОбщегоНазначения");
-	Иначе
-		МодульОбщегоНазначения = __БазоваяФункциональностьБИТ;
-	КонецЕсли;
+	// ++ Обход ошибки отстутствия модуля БСП, не переносить
+	ОбщегоНазначения = Неопределено;
+	// -- Обход ошибки отстутствия модуля БСП, не переносить
 
 	СтрПеременные = Новый Структура;
 
@@ -466,7 +464,7 @@
 
 		Результат = __ОбщегоНазначенияСервер.ВыполнитьПользовательскуюФункциюСПараметрами(ТекстФункции, 
 			ТабПараметров, СтрПеременные);
-		МодульОбщегоНазначения.СообщитьПользователю(Строка(Результат));
+		ОбщегоНазначения.СообщитьПользователю(Строка(Результат));
 	Исключение
 
 		ТекстСообщения = СтрШаблон(НСтр("ru = 'Ошибка при выполнении функции по причине: %1'; 

diff --git a/src/Catalogs/__ТипСоответствияОбъектовИБ/Ext/ManagerModule.bsl b/src/Catalogs/__ТипСоответствияОбъектовИБ/Ext/ManagerModule.bsl
@@ -1,4 +1,28 @@
-
+// Библиотека проектных подсистем для упрощения разработки архитектуры на 1С: Предприятие 8, включая доработку типовых конфигураций.
+//
+// Copyright 2017-2024 First BIT company
+//
+//   Licensed under the Apache License, Version 2.0 (the "License");
+//   you may not use this file except in compliance with the License.
+//   You may obtain a copy of the License at
+//
+//       http://www.apache.org/licenses/LICENSE-2.0
+//
+//   Unless required by applicable law or agreed to in writing, software
+//   distributed under the License is distributed on an "AS IS" BASIS,
+//   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+//   See the License for the specific language governing permissions and
+//   limitations under the License.
+//
+//
+// URL:    https://github.com/firstBitSportivnaya/PSSL/
+// e-mail: [email protected]
+// Версия: 1.0.0.1
+//
+// Требования: платформа 1С версии 8.3.17 и выше
+
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
 #Область ПрограммныйИнтерфейс
 
 Функция ЗначениеСоответствияПоИдентиифкатору(Идентификатор) Экспорт
@@ -28,18 +52,20 @@
 
 КонецФункции
 
-Процедура ЗаполнитьПредопределенныеЗначения() Экспорт
+Процедура ЗаполнитьПредопределенныеСоответствия() Экспорт
 
 	ТЗПредопределенныхЗначений = __ТипСоответствияОбъектовИБПереопределяемый.ПредопределенныеЗначения();
 
 	ТЗПредопределенныхЗначенийКСозданию = __ПредопределенныеЗначения.ПредопределенныеЗначенияКСозданию(ТЗПредопределенныхЗначений, "Справочник.__ТипСоответствияОбъектовИБ");
 
 	Пока ТЗПредопределенныхЗначенийКСозданию.Следующий() Цикл
 
-		__ПредопределенныеЗначения.СоздатьПредопределенноеЗначение(ТЗПредопределенныхЗначенийКСозданию, "Справочники.__ТипСоответствияОбъектовИБ");
+		__ПредопределенныеЗначения.СоздатьПредопределенноеЗначение(ТЗПредопределенныхЗначенийКСозданию, Справочники.__ТипСоответствияОбъектовИБ);
 
 	КонецЦикла;
 
 КонецПроцедуры
 
-#КонецОбласти
+#КонецОбласти
+
+#КонецЕсли
diff --git a/src/Catalogs/__ТипСоответствияОбъектовИБ/Forms/ФормаСписка/Ext/Form/Module.bsl b/src/Catalogs/__ТипСоответствияОбъектовИБ/Forms/ФормаСписка/Ext/Form/Module.bsl
@@ -1,4 +1,26 @@
-
+// Библиотека проектных подсистем для упрощения разработки архитектуры на 1С: Предприятие 8, включая доработку типовых конфигураций.
+//
+// Copyright 2017-2024 First BIT company
+//
+//   Licensed under the Apache License, Version 2.0 (the "License");
+//   you may not use this file except in compliance with the License.
+//   You may obtain a copy of the License at
+//
+//       http://www.apache.org/licenses/LICENSE-2.0
+//
+//   Unless required by applicable law or agreed to in writing, software
+//   distributed under the License is distributed on an "AS IS" BASIS,
+//   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+//   See the License for the specific language governing permissions and
+//   limitations under the License.
+//
+//
+// URL:    https://github.com/firstBitSportivnaya/PSSL/
+// e-mail: [email protected]
+// Версия: 1.0.0.1
+//
+// Требования: платформа 1С версии 8.3.17 и выше
+
 #Область ОбработчикиСобытийФормы
 
 #КонецОбласти
@@ -8,7 +30,7 @@
 &НаСервереБезКонтекста
 Процедура ЗаполнитьПредопределенныеНаСервере()
 
-	Справочники.__ТипСоответствияОбъектовИБ.ЗаполнитьПредопределенныеЗначения();
+	Справочники.__ТипСоответствияОбъектовИБ.ЗаполнитьПредопределенныеСоответствия();
 
 КонецПроцедуры
 

diff --git a/...sOfCharacteristicTypes/__ПредопределенныеЗначения/Forms/ФормаЭлемента/Ext/Form/Module.bsl b/...sOfCharacteristicTypes/__ПредопределенныеЗначения/Forms/ФормаЭлемента/Ext/Form/Module.bsl
@@ -34,11 +34,7 @@
 Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
 
 	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	Если __БазоваяФункциональностьБИТ.ПодсистемаСуществует("СтандартныеПодсистемы") Тогда
-		МодульОбщегоНазначения = __БазоваяФункциональностьБИТ.ОбщийМодуль("ОбщегоНазначения");;
-	Иначе
-		МодульОбщегоНазначения = __БазоваяФункциональностьБИТ;
-	КонецЕсли;
+	ОбщегоНазначения = Неопределено;
 	// -- Обход ошибки отстутствия модуля БСП, не переносить
 
 	ДанныеХранилища = Неопределено;
@@ -47,11 +43,11 @@
 
 	Если Объект.Пароль Тогда
 		ДанныеХранилища = Новый Структура("bit_password", Объект.Значение);
-		МодульОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(
+		ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(
 			Строка(ТекущийОбъект.Ссылка.УникальныйИдентификатор()), ДанныеХранилища);
 		ТекущийОбъект.Значение = "";
 	Иначе
-		МодульОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(
+		ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(
 			Строка(ТекущийОбъект.Ссылка.УникальныйИдентификатор()), Неопределено);
 	КонецЕсли;
 
@@ -80,17 +76,14 @@
 Процедура ПарольПриИзменении(Элемент)
 
 	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	Если __БазоваяФункциональностьБИТВызовСервера.ПодсистемаСуществует("СтандартныеПодсистемы") Тогда
-		МодульОбщегоНазначенияКлиент = __БазоваяФункциональностьБИТВызовСервера.ОбщийМодуль("ОбщегоНазначенияКлиент");;
-	Иначе
-		МодульОбщегоНазначенияКлиент = __БазоваяФункциональностьБИТКлиент;
-	КонецЕсли;
+	ОбщегоНазначенияКлиент = Неопределено;
+	// -- Обход ошибки отстутствия модуля БСП, не переносить
 
 	Если ТипЗнч(Объект.Значение) <> Тип("Строка") Тогда
 
 		Объект.Пароль = Ложь;
 
-		МодульОбщегоНазначенияКлиент.СообщитьПользователю(
+		ОбщегоНазначенияКлиент.СообщитьПользователю(
 			НСтр("ru='Пароль может использовать только тип ""Строка"".';
 			| en='The password can only use the type ""String"".'"),
 			Объект.Ссылка, "ТипЗначения", "Объект.ТипЗначения");
@@ -101,7 +94,7 @@
 
 		Объект.Пароль = Ложь;
 
-		МодульОбщегоНазначенияКлиент.СообщитьПользователю(
+		ОбщегоНазначенияКлиент.СообщитьПользователю(
 			НСтр("ru='Использование пароля недоступен для списка значений.';
 			| en='Password usage is not available for the list of values.'"),
 			Объект.Ссылка, "СписокЗначений", "Объект.СписокЗначений");
@@ -189,25 +182,23 @@
 &НаСервере
 Процедура УправлениеФормой()
 
-	Если __БазоваяФункциональностьБИТ.ПодсистемаСуществует("СтандартныеПодсистемы") Тогда
-		МодульОбщегоНазначенияКлиентСервер = __БазоваяФункциональностьБИТ.ОбщийМодуль("ОбщегоНазначенияКлиентСервер");
-	Иначе
-		МодульОбщегоНазначенияКлиентСервер = __БазоваяФункциональностьБИТ;
-	КонецЕсли;
+	// ++ Обход ошибки отстутствия модуля БСП, не переносить
+	ОбщегоНазначенияКлиентСервер = Неопределено;
+	// -- Обход ошибки отстутствия модуля БСП, не переносить
 
-	МодульОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
+	ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
 		Элементы, "НадписьНаличиеПароля", "Видимость", Объект.Пароль);
-	МодульОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
+	ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
 		Элементы, "Значение", "Видимость", Не Объект.СписокЗначений);
-	МодульОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
+	ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
 		Элементы, "Значение", "КнопкаВыбора", Не Объект.Пароль);
-	МодульОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
+	ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
 		Элементы, "Значение", "РежимПароля", Объект.Пароль);
-	МодульОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
+	ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
 		Элементы, "Значение", "КнопкаОткрытия", Не Объект.Пароль);
-	МодульОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
+	ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
 		Элементы, "ЗначенияЭлементов", "Видимость", Объект.СписокЗначений);
-	МодульОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
+	ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
 		Элементы, "СписокЗначений", "ТолькоПросмотр", Объект.Пароль);
 
 	УстановитьНаличиеПароля();