1
0
mirror of https://github.com/firstBitSportivnaya/PSSL.git synced 2024-11-24 08:42:27 +02:00

Исправлены ошибки выявленные дымовым тестированием. Добавлены исключения в синтакс-контроль

This commit is contained in:
Ivan Smirnov 2022-12-22 16:16:48 +03:00
parent 615d78cb67
commit 0dbd6d86c0
10 changed files with 196 additions and 4 deletions

View File

@ -44,7 +44,7 @@
Функция ПолучитьРегламентноеЗадание()
// ++ Обход ошибки отстутствия модуля БСП, не переносить
РегламентныеЗаданияСервер = Неопределено;
РегламентныеЗаданияСервер = __ВспомогательныйМодульНеПереносить;
// -- Обход ошибки отстутствия модуля БСП, не переносить
ПараметрыЗадания = Новый Структура;

View File

@ -0,0 +1,23 @@
<?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.14">
<CommonModule uuid="40a03817-9e3e-44c3-b9de-9de3ec32e0d3">
<Properties>
<Name>__ВспомогательныйМодульНеПереносить</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Вспомогательный модуль (не переносить)</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Global>false</Global>
<ClientManagedApplication>false</ClientManagedApplication>
<Server>true</Server>
<ExternalConnection>false</ExternalConnection>
<ClientOrdinaryApplication>false</ClientOrdinaryApplication>
<ServerCall>false</ServerCall>
<Privileged>false</Privileged>
<ReturnValuesReuse>DontUse</ReturnValuesReuse>
</Properties>
</CommonModule>
</MetaDataObject>

View File

@ -0,0 +1,76 @@
Функция НайтиЗадания(ПараметрыЗадания) Экспорт
МассивЗаданий = Новый Массив;
МассивЗаданий.Добавить(Новый Структура("Использование, Расписание", Ложь, Новый РасписаниеРегламентногоЗадания()));
Возврат МассивЗаданий;
КонецФункции
Функция РазложитьСтрокуВМассивПодстрок(Знач Значение, Знач Разделитель = ",", Знач ПропускатьПустыеСтроки = Неопределено,
СокращатьНепечатаемыеСимволы = Ложь) Экспорт
Если СтрДлина(Разделитель) = 1
И ПропускатьПустыеСтроки = Неопределено
И СокращатьНепечатаемыеСимволы Тогда
Результат = СтрРазделить(Значение, Разделитель, Ложь);
Для Индекс = 0 По Результат.ВГраница() Цикл
Результат[Индекс] = СокрЛП(Результат[Индекс])
КонецЦикла;
Возврат Результат;
КонецЕсли;
Результат = Новый Массив;
// Для обеспечения обратной совместимости.
Если ПропускатьПустыеСтроки = Неопределено Тогда
ПропускатьПустыеСтроки = ?(Разделитель = " ", Истина, Ложь);
Если ПустаяСтрока(Значение) Тогда
Если Разделитель = " " Тогда
Результат.Добавить("");
КонецЕсли;
Возврат Результат;
КонецЕсли;
КонецЕсли;
//
Позиция = СтрНайти(Значение, Разделитель);
Пока Позиция > 0 Цикл
Подстрока = Лев(Значение, Позиция - 1);
Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Подстрока) Тогда
Если СокращатьНепечатаемыеСимволы Тогда
Результат.Добавить(СокрЛП(Подстрока));
Иначе
Результат.Добавить(Подстрока);
КонецЕсли;
КонецЕсли;
Значение = Сред(Значение, Позиция + СтрДлина(Разделитель));
Позиция = СтрНайти(Значение, Разделитель);
КонецЦикла;
Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Значение) Тогда
Если СокращатьНепечатаемыеСимволы Тогда
Результат.Добавить(СокрЛП(Значение));
Иначе
Результат.Добавить(Значение);
КонецЕсли;
КонецЕсли;
Возврат Результат;
КонецФункции
Процедура ВыполнитьМетодКонфигурации(Знач ИмяМетода, Знач Параметры = Неопределено) Экспорт
ПараметрыСтрока = "";
Если Параметры <> Неопределено И Параметры.Количество() > 0 Тогда
Для Индекс = 0 По Параметры.ВГраница() Цикл
ПараметрыСтрока = ПараметрыСтрока + "Параметры[" + XMLСтрока(Индекс) + "],";
КонецЦикла;
ПараметрыСтрока = Сред(ПараметрыСтрока, 1, СтрДлина(ПараметрыСтрока) - 1);
КонецЕсли;
Выполнить ИмяМетода + "(" + ПараметрыСтрока + ")";
КонецПроцедуры

View File

@ -17,7 +17,7 @@
Процедура ПриСозданииНаСервере(Форма, Отказ, СтандартнаяОбработка, ДополнительныеПараметры = Неопределено) Экспорт
// ++ Обход ошибки отстутствия модуля БСП, не переносить
ОбщегоНазначения = Неопределено;
ОбщегоНазначения = __ВспомогательныйМодульНеПереносить;
// -- Обход ошибки отстутствия модуля БСП, не переносить
Если Отказ Тогда
@ -547,7 +547,7 @@
Функция ПолучитьИмяМетода(Форма, ИмяПроцедурыВход)
// ++ Обход ошибки отстутствия модуля БСП, не переносить
СтроковыеФункцииКлиентСервер = Неопределено;
СтроковыеФункцииКлиентСервер = __ВспомогательныйМодульНеПереносить;
// -- Обход ошибки отстутствия модуля БСП, не переносить
ИмяФормы = Форма.ИмяФормы;

View File

@ -7,6 +7,9 @@
//
Процедура Документ_ДемоКаркасФормаФормаДокументаПриСозданииНаСервере(Форма, Отказ, СтандартнаяОбработка, ДополнительныеПараметры = Неопределено) Экспорт
// Демо-пример можно запустить на конфигурации БСП, в каркасной конфигурации отсутствуют необходимые _Демо объекты
Возврат;
#Область ДемоПример
#Область РаботаСРеквизитамиФормы

View File

@ -229,6 +229,7 @@
<CommonPicture>__ПодсистемаУправлениеИнтеграциями</CommonPicture>
<CommonPicture>__Реквизит</CommonPicture>
<CommonPicture>__Реквизиты</CommonPicture>
<Role>__РедактированиеДокументаДемоКаркас</Role>
<Role>__РедактированиеНастроекИнтеграции</Role>
<Role>__РедактированиеПланаВидовХарактеристикПредопределенныеЗначения</Role>
<Role>__РедактированиеПользовательскихФункций</Role>
@ -239,6 +240,7 @@
<Role>ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</Role>
<Role>ПолныеПрава</Role>
<CommonTemplate>__BSLEditor</CommonTemplate>
<CommonModule>__ВспомогательныйМодульНеПереносить</CommonModule>
<CommonModule>__ДокументыОбработкаЗаполнения</CommonModule>
<CommonModule>__ДокументыОбработкаПроведения</CommonModule>
<CommonModule>__ДокументыПередЗаписью</CommonModule>

View File

@ -0,0 +1,15 @@
<?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.14">
<Role uuid="f1015356-e9ba-4844-98c3-f87a9af465ea">
<Properties>
<Name>__РедактированиеДокументаДемоКаркас</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Редактирование документа "Демо каркас"</v8:content>
</v8:item>
</Synonym>
<Comment/>
</Properties>
</Role>
</MetaDataObject>

View File

@ -0,0 +1,65 @@
<?xml version="1.0" encoding="UTF-8"?>
<Rights xmlns="http://v8.1c.ru/8.2/roles" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="Rights" version="2.14">
<setForNewObjects>false</setForNewObjects>
<setForAttributesByDefault>true</setForAttributesByDefault>
<independentRightsOfChildObjects>false</independentRightsOfChildObjects>
<object>
<name>Document._ДемоКаркас</name>
<right>
<name>Read</name>
<value>true</value>
</right>
<right>
<name>Insert</name>
<value>true</value>
</right>
<right>
<name>Update</name>
<value>true</value>
</right>
<right>
<name>Posting</name>
<value>true</value>
</right>
<right>
<name>UndoPosting</name>
<value>true</value>
</right>
<right>
<name>View</name>
<value>true</value>
</right>
<right>
<name>InteractiveInsert</name>
<value>true</value>
</right>
<right>
<name>Edit</name>
<value>true</value>
</right>
<right>
<name>InteractiveSetDeletionMark</name>
<value>true</value>
</right>
<right>
<name>InteractiveClearDeletionMark</name>
<value>true</value>
</right>
<right>
<name>InteractivePosting</name>
<value>true</value>
</right>
<right>
<name>InteractivePostingRegular</name>
<value>true</value>
</right>
<right>
<name>InteractiveUndoPosting</name>
<value>true</value>
</right>
<right>
<name>InputByString</name>
<value>true</value>
</right>
</object>
</Rights>

View File

@ -22,6 +22,7 @@
<xr:Item xsi:type="xr:MDObjectRef">CommonModule.__РаботаСФормами</xr:Item>
<xr:Item xsi:type="xr:MDObjectRef">Document._ДемоКаркас</xr:Item>
<xr:Item xsi:type="xr:MDObjectRef">CommonModule.__МодификацияКонфигурацииПереопределяемыйДокумент</xr:Item>
<xr:Item xsi:type="xr:MDObjectRef">Role.__РедактированиеДокументаДемоКаркас</xr:Item>
</Content>
</Properties>
<ChildObjects/>

View File

@ -1 +1,8 @@
ОбщаяКартинка.Информация: Имя не уникально!
Справочник.__ПользовательскиеФункции.Форма.ФормаЭлемента.Форма Использование синхронного вызова: "Прочитать"
Справочник.__ПользовательскиеФункции.Форма.ФормаЭлемента.Форма Использование синхронного вызова: "НайтиФайлы"
Справочник.__ПользовательскиеФункции.Форма.ФормаЭлемента.Форма Использование синхронного вызова: "Существует"
Справочник.__ПользовательскиеФункции.Форма.ФормаЭлемента.Форма Использование синхронного вызова: "Существует"
Справочник.__ПользовательскиеФункции.Форма.ФормаЭлемента.Форма Использование синхронного вызова: "Существует"
Документ._ДемоКаркас.Форма.ФормаДокумента.Форма Не обнаружено ссылок на процедуру: "ПодсказатьКогдаОбед"
Документ._ДемоКаркас.Форма.ФормаДокумента.Форма Не обнаружено ссылок на процедуру: "ПоказатьОтца"
Документ._ДемоКаркас.Форма.ФормаДокумента.Форма Не обнаружено ссылок на процедуру: "СкрытьОтца"