
Заключение
В разработке курсовой работы было проведено исследование и получены ценные практические навыки, которые значительно обогатили мои знания и опыт в данной области.
Важным аспектом разработки курсовой работы было приобретение новых знаний и навыков в области, которая необходима для моего будущего профессионального роста. Это позволило мне лучше понять, какие навыки и знания требуются для успешной карьеры в данной сфере.
Кроме того, курсовая работа позволила мне узнать больше о самом себе и своих интересах.
В целом, разработка курсовой работы оказалась очень полезной и позволила мне применить полученные знания на практике, развить навыки и приобрести новый опыт.
Список использованых источников
1 StudFiles [Электронный ресурс] Статья – режим доступа: https://studfile.net/preview/6354126/page:11/– 05.06.2024
2 Beseller [Электронный ресурс] Статья – режим доступа: https://beseller.by/blog/tselevaya-auditoriya/– 05.06.2024
3 IBS training center [Электронный ресурс] Статья – режим доступа: https://ibstraining.ru/kurs/bpmn_modelirovanie_biznesprotsessov_osnovy.html?utm_source=yandex&utm_medium=search&utm_term=autotargeting&utm_campaign=107807607&utm_content=15876773889&yclid=7595681777848680447 – 05.06.2024
4 1С предприятие [Электронный ресурс] статья – Режим доступа:
https://v8.1c.ru/tekhnologii/opisanie-funktsionalnykh-vozmozhnostey-platformy-1s-predpriyatie-8/ - 05.06.2024
5 Википедия. IDEF0 [Электронный ресурс] статья – Режим доступа:
https://ru.wikipedia.org/wiki/IDEF0 - 05.06.2024
6 Википедия. Диаграмма классов [Электронный ресурс ] статья – Режим доступа: https://ru.wikipedia.org/wiki/Диаграмма_классов - 05.06.2024
7 1С предприятие официальный сайт [Электронный ресурс] статья – Режим доступа: https://1c.ru/- 05.06.2024
8 Систематика и обобщение методологий моделирования и языков про-граммирования [Электронный ресурс] статья – режим доступа: http://www.sciteclibrary.ru/rus/catalog/pages/10764.html - 05.06.2024
ПРИЛОЖЕНИЕ
ПРИЛОЖЕНИЕ А
Листинг кода
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
запрос = новый запрос
запрос.Текст = "ВЫБРАТЬ
|Пользователи.Логин КАК Логин,
|Пользователи.УникальныйИдентификатор КАК УникальныйИдентификатор,
|ИЗ
|Справочник.Пользователи КАК Пользователи,
|Где
|Пользователи.Логин = &Логин";
Запрос.УстановитьПараметр("Логин",Объект.Логин);
Результат = запрос.Выполнить().Выбрать();
ЕслиРезультат.следующий() Тогда
ЕслиРезультат.Количесство() = 0 ИЛИ ТекущийОбъект.УникальныйИдентификатор = Результат.УникальныйИдентификатор Тогда
ПользовательСсылка = ПользователиИнвормационнойБазы.НайтиПоУникальномуИдентификатору(ТекущийОбъект.УникальныйИдентификатор);
Если ПользовательСсылка = Неопределено тогда
НовыйПользователь = ПользователиИнформационнойБазы.СоздатьПользователя();
НовыйПользователь.Имя = Обьект.Логин;
НовыйПользователь.Пароль = Обьект.Пароль;
НовыйПользователь.ПолноеИмя = Обьект.Наименование;
Если Обьект.Роль = Перечисления.Роли.Админ Тогда
НовыйПользователь.Роли.Добавить(Метаданные.Роли.Админ);
КонецЕсли;
НовыйПользователь.ПоказыватьВСпискеВыбора = Ложь;
НовыйПользователь.Записать();
ТекущийОбъект.УникальныйИдентификатор = НовыйПользователь.УникальныйИдентификатор;
Иначе
ПользовательСсылка.Пароль = Объект.Пароль;
ПользовательСсылка.ПолноеИмя = Объект.Наименование;
ПользовательСсылка.Роли.Очистить();
Если Объект.Роль = Перечисления.Роли.Администратор Тогда
ПользовательСсылка.Роли.Добавить(Метаданные.Роли.Администратор);
КонецЕсли;
ПользовательСсылка.Записать();
КонецЕсли
Иначе
Сообщ = Новый.СообщениеПользователю;
Сообщ.Текст = "Пользователь с таким логином уже существует";
Сообщ.Сообщить();
Отказ = Истина;
КонецЕсли
Иначе
НовыйПользователь = ПользователиИнформационнойБазы.СоздатьПользователя();
НовыйПользователь.Имя = Объект.Логин;
НовыйПользователь.Пароль = Объект.Пароль;
НовыйПользователь.ПолноеИмя = Объект.Наименование;
Если Объект.Роль = Перечисления.Роли.Администратор Тогда
ПользовательСсылка.Роли.Добавить(Метаданные.Роли.Администратор);
КонецЕсли;
НовыйПользователь.ПоказыватьВСпискеВыбора = Ложь;
НовыйПользователь.Записать();
ТекщийОбъект.УникальныйИдентификатор = НовыйПользователь.УникальныйИдентификатор;
КонецЕсли
КонецПроцедуры