1С Психологическая помощь на экзамене 1

@KrazzyDay · Регистрация: 05.04.2023

Студворк — интернет-сервис помощи студентам

Модуль 1:
1. Блок-схема: расчет количества заявок (код):
2. Блок-схема (целая): учет заявок на ремонт бытовой техники (анализ ТЗ):
3. База 1С
4. Отладка модуля (word файл + скриншоты)
5. Функциональное тестирование (хотябы 1 тест. КлиентТестирования, МенеджерТестирования)

Модуль 2:
1. ER-диаграмма:
2. Импорт данных (1. Кодом, 2. Вручную). Редактируем файл Заявок: удаляем null, подставляем по ID пользователей
3. Сделать выгрузку базы
4. Создать роли + регистрация + настроить доступы

Роли:
1. Менеджер - админ (полные права)
2. Оператор - доступ на создание Заявки, Справочникам, Отчётам
3. Техник - Комментарий, СтатусЗаявки, ДатаЗавершения, МодельУстройства, Комментарий, Комплектующие, ВремяВыполненияЗаявки, ТипНеисправности
4. Заказчик (клиент) - просмотр Заявок, редактировать (ОписаниеПроблемы)

Уведомления о изменении статуса:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
&НаКлиенте
Процедура СтатусЗаявкиПриИзменении(Элемент)
    СтатусЗаявкиПриИзмененииНаСервере();
КонецПроцедуры 
 
&НаСервере
Процедура СтатусЗаявкиПриИзмененииНаСервере()
    ЭтотОбъект.Записать();
    Сообщить("В заявке: " + Объект.Ссылка + " изменён статус на " + Объект.СтатусЗаявки);    
    
    Если Объект.СтатусЗаявки = Перечисления.СтатусыЗаказа.ГотоваКВыдаче Тогда  
        Объект.ДатаЗавершения = Дата(ТекущаяДата());
    КонецЕсли;   
    
КонецПроцедуры

Функция Истории статусов:

1C
1
2
3
4
5
6
7
8
9
Функция ИсторияСтатусов()
    Движения = РегистрыСведений.ИсторияСтатусов.СоздатьМенеджерЗаписи();
    Движения.Заказ = Объект.Ссылка;
    Движения.Номер = Объект.Номер;
    Движения.ДатаДобавления = Объект.ДатаДобавления;    
    Движения.Статус = Объект.СтатусЗаявки;
    
    Движения.Записать();
КонецФункции

Группа 1. Импорт - Пользователи

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
&НаКлиенте
Процедура ИмпортироватьДанные(Команда)
 
     ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    ДиалогВыбора.Заголовок = "Обязательно выбрать Файл";
    ДиалогВыбора.Фильтр = ("Табличный документ (.xls;.xlsx)|.xls;.xlsx");
    ДиалогВыбора.МножественныйВыбор = Ложь;
    Описание = Новый ОписаниеОповещения("ИмпортироватьДанныеНаСервере",ЭтотОбъект);
    ДиалогВыбора.Показать(Описание);
 
КонецПроцедуры
 
 
&НаСервере
 
Процедура ИмпортироватьДанныеНаСервере(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
 
        ТабДок = Новый ТабличныйДокумент;
        ТабДок.Прочитать(ВыбранныеФайлы[0]);
 
        Для Строка=2 По ТабДок.ВысотаТаблицы  Цикл
 
            Ссылкаtype = Справочники.Роли.НайтиПоНаименованию(ТабДок.Область(Строка,6).Текст, Истина); 
 
            Если  Ссылкаtype = Справочники.Роли.ПустаяСсылка() И ТабДок.Область(Строка,6).Текст <>"" Тогда
 
                 НовЭлементtype = Справочники.Роли.СоздатьЭлемент();
                 НовЭлементtype.Наименование = ТабДок.Область(Строка,6).Текст;
                 НовЭлементtype.Записать();
                 Элементы.Список.Обновить();
 
             КонецЕсли;
 
                НовЭлемент = Справочники.Пользователи.СоздатьЭлемент();
                НовЭлемент.Код = ТабДок.Область(Строка,1).Текст;
                НовЭлемент.Наименование = ТабДок.Область(Строка,2).Текст;
                НовЭлемент.Телефон= ТабДок.Область(Строка,3).Текст;
                НовЭлемент.Логин = ТабДок.Область(Строка,4).Текст;
                НовЭлемент.Пароль = ТабДок.Область(Строка,5).Текст;
                НовЭлемент.Роль = Справочники.Роли.НайтиПоНаименованию(ТабДок.Область(Строка,6).Текст, Истина);
 
                НовЭлемент.Записать();
 
        КонецЦикла;
 
        Элементы.Список.Обновить();
 
КонецПроцедуры

Группа 1. Импорт - Заявки

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
&НаКлиенте
Процедура ИмпортироватьДанные(Команда)
  
   ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
  ДиалогВыбора.Заголовок = "Обязательно выбрать Файл";
  ДиалогВыбора.Фильтр = ("Табличный документ (*.xls; *.xlsx)|*.xls;*.xlsx");
  ДиалогВыбора.МножественныйВыбор = Ложь;
  Описание = Новый ОписаниеОповещения("ИмпортироватьДанныеНаСервере",ЭтотОбъект);
  ДиалогВыбора.Показать(Описание);
  
КонецПроцедуры
 
 
&НаСервере
 
Процедура ИмпортироватьДанныеНаСервере(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
  
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.Прочитать(ВыбранныеФайлы[0]);
    
    Для Строка=2 По ТабДок.ВысотаТаблицы  Цикл
      
      СсылкаcomputerTechType = Справочники.ТипыУстройств.НайтиПоНаименованию(ТабДок.Область(Строка,3).Текст, Истина); 
      СсылкаcomputerTechModel = Справочники.МодельУстройства.НайтиПоНаименованию(ТабДок.Область(Строка,4).Текст, Истина);
      СсылкаrepairParts = Справочники.Запчасти.НайтиПоНаименованию(ТабДок.Область(Строка,8).Текст, Истина);
 
      Если  СсылкаcomputerTechType = Справочники.ТипыУстройств.ПустаяСсылка() И ТабДок.Область(Строка,3).Текст <>"" Тогда
 
         НовЭлементcomputerTechType = Справочники.ТипыУстройств.СоздатьЭлемент();
         НовЭлементcomputerTechType.Наименование = ТабДок.Область(Строка,3).Текст;
         НовЭлементcomputerTechType.Записать();
         Элементы.Список.Обновить();
 
       КонецЕсли;
       
       Если  СсылкаcomputerTechModel = Справочники.МодельУстройства.ПустаяСсылка() И ТабДок.Область(Строка,4).Текст <>"" Тогда
 
         НовЭлементcomputerTechModel = Справочники.МодельУстройства.СоздатьЭлемент();
         НовЭлементcomputerTechModel.Наименование = ТабДок.Область(Строка,4).Текст;
         НовЭлементcomputerTechModel.Записать();
         Элементы.Список.Обновить();
 
       КонецЕсли;
          
       Если  СсылкаrepairParts = Справочники.Запчасти.ПустаяСсылка() И ТабДок.Область(Строка,8).Текст <>"" Тогда
 
         НовЭлементrepairParts = Справочники.МодельУстройства.СоздатьЭлемент();
         НовЭлементrepairParts.Наименование = ТабДок.Область(Строка,8).Текст;
         НовЭлементrepairParts.Записать();
         Элементы.Список.Обновить();
 
       КонецЕсли;
 
        НовЭлемент = Документы.Заявки.СоздатьДокумент();
        НовЭлемент.Номер = ТабДок.Область(Строка,1).Текст;
        НовЭлемент.Дата = ТекущаяДата();
      
        НовЭлемент.ДатаДобавления = ТекущаяДата();
        НовЭлемент.ТипУстройства = Справочники.ТипыУстройств.НайтиПоНаименованию(ТабДок.Область(Строка,3).Текст, Истина);
        НовЭлемент.МодельУстройства = Справочники.МодельУстройства.НайтиПоНаименованию(ТабДок.Область(Строка,4).Текст, Истина);
        НовЭлемент.ОписаниеПроблемы = ТабДок.Область(Строка,5).Текст;
        НовЭлемент.СтатусЗаявки = ТабДок.Область(Строка,6).Текст;
           НовЭлемент.ДатаЗавершения = ТабДок.Область(Строка,7).Текст; 
              НовЭлемент.Мастер = Справочники.Пользователи.НайтиПоНаименованию(ТабДок.Область(Строка,9).Текст, Истина);
              НовЭлемент.Клиент = Справочники.Пользователи.НайтиПоНаименованию(ТабДок.Область(Строка,10).Текст, Истина);
        НовЭлемент.Комплектующие = Справочники.Запчасти.НайтиПоНаименованию(ТабДок.Область(Строка,8).Текст, Истина);
        
        НовЭлемент.Записать();
 
    КонецЦикла;
 
    Элементы.Список.Обновить();
    
КонецПроцедуры

Группа 1. Тестовые шаблоны

Тестовый пример #1:

Тестовый пример #: TC_UI_1
Приоритет тестирования: Высокий
Заголовок/название теста: Добавление элемента Модель устройства
Краткое изложение теста: Тест должен проверить возможность создания нового элемента справочника Модули Устройства
Этапы теста: Нажать кнопку «Создать»
Тестовые данные: 1. Код (автомотический)
2. Hp 257
Ожидаемый результат: В результате должен появиться новый элемент справочника МодульУстройства
1. Код 00000003
2. Наименование Hp 257
Фактический результат: Фактический результат после выполнения тестирования полностью соответствует ожидаемому результату.
Статус: Зачёт
Предварительное условие: Запустить Менеджер Тестирования
Постусловие: После создания нового элемента система должна продолжить свою работу
Примечания/комментарии: Не прилагаются

Тестовый пример #2:

Тестовый пример #: TC_UI_2
Приоритет тестирования: Высокий
Заголовок/название теста: Добавление сотрудника
Краткое изложение теста: Тест должен проверить возможность создания нового Типа устройствав справочнике «ТипыУстройств»
Этапы теста: Нажать кнопку «Создать»
Тестовые данные: 1. Наименование: Планшет
Ожидаемый результат: В результате должен появиться новый тип устройствав справочнике «ТипыУстройств» с исходными данными:
1. Наименование: Планшет
Фактический результат: Фактический результат после выполнения тестирования полностью соответствует ожидаемому результату.
Статус: Зачёт
Предварительное условие: Запустить Менеджер Тестирования
Постусловие: После создания нового типа устройств система должна продолжить свою работу
Примечания/комментарии: Не прилагаются

Тестовый пример #3:

Тестовый пример #: TC_UI_3
Приоритет тестирования: Высокий
Заголовок/название теста: Формирование отчёта
Краткое изложение теста: Тест должен проверить формирование отчёта «Количество выполненных заявок»
Этапы теста: Нажать на кнопку «Формирование отчёта»
Тестовые данные: Не прилагаются
Ожидаемый результат: В результате теста должны появиться данные на экране, формированные в отчёте
Фактический результат: Фактический результат после выполнения тестирования полностью соответствует ожидаемому результату.
Статус: Зачёт
Предварительное условие: Запустить Менеджер тестирования
Постусловие: После формирования отчёта система должна продолжить работу
Примечания/комментарии: Не прилагаются

Добавлено через 11 минут
Hjg84G8j
gLsW3LXy
4YdJbP1Y

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .