Skip to content

Commit

Permalink
добавлена функция-заглушка "добавить задание"
Browse files Browse the repository at this point in the history
  • Loading branch information
denisushakov committed Apr 9, 2024
1 parent aed102a commit eb76da7
Showing 1 changed file with 62 additions and 0 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -197,3 +197,65 @@
Возврат;

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

Функция ДобавитьЗадание(Параметры) Экспорт

Check notice on line 201 in src/CommonModules/__ВспомогательныйМодульНеПереносить/Ext/Module.bsl

View check run for this annotation

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

src/CommonModules/__ВспомогательныйМодульНеПереносить/Ext/Module.bsl#L201

Переместите код в область

Задание = ДобавитьРегламентноеЗадание(Параметры);

Возврат Задание;

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

Функция ДобавитьРегламентноеЗадание(Параметры) Экспорт

Check notice on line 209 in src/CommonModules/__ВспомогательныйМодульНеПереносить/Ext/Module.bsl

View check run for this annotation

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

src/CommonModules/__ВспомогательныйМодульНеПереносить/Ext/Module.bsl#L209

Переместите код в область

МетаданныеЗадания = Параметры.Метаданные;
Задание = РегламентныеЗадания.СоздатьРегламентноеЗадание(МетаданныеЗадания);

Если Параметры.Свойство("Наименование") Тогда
Задание.Наименование = Параметры.Наименование;
Иначе
Задание.Наименование = МетаданныеЗадания.Наименование;
КонецЕсли;

Если Параметры.Свойство("Использование") Тогда
Задание.Использование = Параметры.Использование;
Иначе
Задание.Использование = МетаданныеЗадания.Использование;
КонецЕсли;

Если Параметры.Свойство("Ключ") Тогда
Задание.Ключ = Параметры.Ключ;
Иначе
Задание.Ключ = МетаданныеЗадания.Ключ;
КонецЕсли;

Если Параметры.Свойство("ИмяПользователя") Тогда
Задание.ИмяПользователя = Параметры.ИмяПользователя;
КонецЕсли;

Если Параметры.Свойство("ИнтервалПовтораПриАварийномЗавершении") Тогда
Задание.ИнтервалПовтораПриАварийномЗавершении = Параметры.ИнтервалПовтораПриАварийномЗавершении;
Иначе
Задание.ИнтервалПовтораПриАварийномЗавершении = МетаданныеЗадания.ИнтервалПовтораПриАварийномЗавершении;
КонецЕсли;

Если Параметры.Свойство("КоличествоПовторовПриАварийномЗавершении") Тогда
Задание.КоличествоПовторовПриАварийномЗавершении = Параметры.КоличествоПовторовПриАварийномЗавершении;
Иначе
Задание.КоличествоПовторовПриАварийномЗавершении = МетаданныеЗадания.КоличествоПовторовПриАварийномЗавершении;
КонецЕсли;

Если Параметры.Свойство("Параметры") Тогда
Задание.Параметры = Параметры.Параметры;
КонецЕсли;

Если Параметры.Свойство("Расписание") Тогда
Задание.Расписание = Параметры.Расписание;
КонецЕсли;

Задание.Записать();

Возврат Задание;

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

Check notice on line 261 in src/CommonModules/__ВспомогательныйМодульНеПереносить/Ext/Module.bsl

View check run for this annotation

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

src/CommonModules/__ВспомогательныйМодульНеПереносить/Ext/Module.bsl#L261

Удалите лишние последовательные пустые строки

0 comments on commit eb76da7

Please sign in to comment.