Merge pull request plastinin#19 from aplastinin/feature/plastinin#17-…

…refactor plastinin#17 - рефакоринг
KrapivinAndrey · May 5, 2022 · c0cda03 · c0cda03
2 parents 9a8ecec + 9694ed2
commit c0cda03
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 7 deletions.
diff --git a/Let's code/src/DataProcessors/ИТК_ПроведениеТестирования/Forms/Форма/Module.bsl b/Let's code/src/DataProcessors/ИТК_ПроведениеТестирования/Forms/Форма/Module.bsl
@@ -185,13 +185,8 @@
 &НаСервере
 Процедура ОпубликоватьРешениеНаСервере()
 
-	НоваяЗапись = РегистрыСведений.ИТК_РезультатыТестирования.СоздатьМенеджерЗаписи();   
-	НоваяЗапись.Задача = ТекущаяЗадача;
-	НоваяЗапись.Пользователь = Пользователь;
-	НоваяЗапись.Выполнена = Истина;
-	НоваяЗапись.Код = ТекстАлгоритмаСервер;
-	НоваяЗапись.КоличествоБаллов = Баллы;
-	НоваяЗапись.Записать(Истина);
+	МенеджерРегистра = РегистрыСведений.ИТК_РезультатыТестирования;
+	МенеджерРегистра.Добавить(ТекущаяЗадача, Пользователь, Истина, ТекстАлгоритмаСервер, Баллы);
 
 	ТекущаяЗадача = Справочники.ИТК_Задачи.ПустаяСсылка();
 	ПостановкаЗадачи = РазметкаВыбериЗадачу();

diff --git a/Let's code/src/InformationRegisters/ИТК_РезультатыТестирования/ManagerModule.bsl b/Let's code/src/InformationRegisters/ИТК_РезультатыТестирования/ManagerModule.bsl
@@ -0,0 +1,28 @@
+#Если Сервер или ТолстыйКлиентОбычноеПриложение или ВнешнееСоединение Тогда
+
+#Область ПрограммныйИнтерфейс
+
+// Процедура добавляет резульатат тестирования в регистр
+// 
+// Параметры:
+//  Задача - СправочникСсылка.ИТК_Задача - задача тестирования
+//  Пользователь - Строка - участник тестирования
+//  Выполнена - Булево - тесты по задаче завершены успешно
+//  ТекстАлгоритмаСервер - Строка - код алгоритма
+//  Баллы - Число - количество баллов за верное решение
+//
+Процедура Добавить(Задача, Пользователь, Выполнена, ТекстАлгоритмаСервер, Баллы) Экспорт
+
+	НоваяЗапись = РегистрыСведений.ИТК_РезультатыТестирования.СоздатьМенеджерЗаписи();   
+	НоваяЗапись.Задача = Задача;
+	НоваяЗапись.Пользователь = Пользователь;
+	НоваяЗапись.Выполнена = Выполнена;
+	НоваяЗапись.Код = ТекстАлгоритмаСервер;
+	НоваяЗапись.КоличествоБаллов = Баллы;
+	НоваяЗапись.Записать(Истина);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#КонецЕсли