Инженерный тур. 2 этап

Основной ход решения на базе 1С:Предприятие 8:

1. Создать информационную базу для разработки приложения.
2. В конфигураторе сразу создать три подсистемы: Коммерческая служба, Служба технолога, Коммерческая служба.
3. Создать справочник Виды лесопродукции со стандартными реквизитами, поместить его во все три подсистемы.

4. Создать справочник Клиенты со стандартными реквизитами, поместить его в подсистему Коммерческая служба.

   
   Рис. 1.1.

5. Создать документ Заказ на лесопродукцию с реквизитами, указанными в постановке задачи, рис. 1.1:

   • Реализовать алгоритм проверки правильности заполнения реквизита Дата выпуска лесопродукции, дата должна быть больше даты регистрации заказа (даты документа).
   • Для хранения статусов заказа необходимо создать перечисление Статусы заказа на лесопродукцию.
   • Реализовать заполнение по умолчанию поля Статус заказа — должно сразу проставляться значение Черновик.
   • Реализовать проверку заполнения реквизитов при проведении документа Заказ на лесопродукцию со статусом Согласован клиентом.

   Структура документа будет выглядеть следующим образом, см. рис. 1.1.

   Внешний вид документа на рис.  1.2.

   
   Рис. 1.2.

6. Реализовать выделение цветом в списке документов Заказ на лесопродукцию. Для этого необходимо создать форму списка документа Заказ клиента — рис. 1.3.

   
   Рис. 1.3.

   На открывшейся форме находим свойство реквизита Список — Настройка списка: рис. 1.4.

   
   Рис. 1.4.

   В появившемся окне выбираем вкладку Настройки, а в ней вкладку — Условное оформление. По кнопке добавляем новый элемент условного оформления. В поле оформления выбираем цвет фона для заказов в статусе Согласован с клиентом — рис. 1.5

   
   Рис. 1.5.

   В качестве условия оформления указываем, что статус заказа должен быть равен Согласован с клиентом, рис. 1.6.

   
   Рис. 1.6.

   В колонке Оформляемые поля ничего не указываем, так как нам нужно выделить всю строку.

   Аналогичное условное оформление делаем для статусов заказа Принят в производство и Черновик — рис. 1.7.

   
   Рис. 1.7.

7. Заполнить приложение данными согласно постановке задачи:

   • Виды лесопродукции (названия взяли из легенды): рис. 1.8.

     
     Рис. 1.8.

   • Клиенты: рис. 1.9.

     
     Рис. 1.9.

   • Три заказа со статусом Согласован с клиентом с видами лесопродукции: рис. 1.10.

     
     Рис. 1.10.

Видеоразбор задачи: https://dzen.ru/video/watch/67a2ff7b26d5cb05b05205d1.

Основной ход решения на базе 1С:Предприятие 8.

1. Создать справочник Производственные цеха.

2. Создать справочник Рабочие участки (владельцем этого справочника будет справочник Производственные цеха): рис. 1.11.

   
   Рис. 1.11.

3. Создать документ Задание на производство с реквизитами, указанными в постановке задачи: рис. 1.12.

   
   Рис. 1.12.

   • Реализовать возможность создания задания на производство вводом на основании заказа на лесопродукцию: рис. 1.13.

     
     Рис. 1.13.

   • Реализовать проверку заполнения всех полей, кроме многострочного поля, где вводится дополнительная информация. Для этого у каждого реквизита (на закладке Данные) необходимо установить значение свойства Проверка заполнения — Выдавать ошибку: рис. 1.14.

     
     Рис. 1.14.

   • Реализовать проверку даты выполнения (она должна быть больше даты регистрации задания). Алгоритм будем делать в Модуле объекта: рис. 1.15.

     
     Рис. 1.15.

     Проверку будем осуществлять перед записью документа. Для этого в Модуле объекта нужно выбрать соответствующую процедуру — Перед записью: рис. 1.16.

     
     Рис. 1.16.

     Программный код процедуры будет выглядеть как на рис. 1.17.

     
     Рис. 1.17.

4. Создать документ Задание на подготовку рабочего участка с реквизитами согласно постановке задачи, осуществить проверку заполнения полей и проверку правильности указания даты выполнения.

   Вид документа в пользовательском режиме: рис. 1.18.

   
   Рис. 1.18.

   Структура документа в конфигураторе: рис. 1.19.

   
   Рис. 1.19.

   Проверка правильности указания даты выполнения делается в модуле объекта документа Задание на подготовку участка. Программный код будет выглядеть как на рис. 1.20.

   
   Рис. 1.20.

5. Реализовать интерфейс — рабочий стол для удобной работы с заданиями на подготовку рабочих участков. Реализация может быть на личное усмотрение. Внешне рабочий стол может выглядеть примерно как на рис. 1.21.

   
   Рис. 1.21.

   В нашем решении он реализован в виде формы списка документа Задание на подготовку рабочего участка: рис. 1.22, 1.23.

   
   Рис. 1.22.
   
   Рис. 1.23.

Видеоразбор задачи: https://dzen.ru/video/watch/67a3233079a95e5d4ed28138.

Основной ход решения на базе 1С:Предприятие 8.

1. Создать документ Задание на смену со всеми реквизитами, указанными в задании, рис. 1.24.

   
   Рис. 1.24.

2. В разделе Служба производства создать рабочий стол или календарь, где показываются свободные участки. Реализация на личное усмотрение, примерный вид календаря на рис. 1.25.

   
   Рис. 1.25.

   Реализован он был через обработку, рис. 1.26.

   
   Рис. 1.26.

   Была создана форма обработки, рис. 1.27.

   
   Рис. 1.27.

   Процедуры модуля формы приведены ниже.

   1C

   &НаКлиенте
   Процедура ЗаполнитьРасписание(Команда)
       РабочиеДаты = ПолучитьСписокРабочихДней();    
       
       Если ЕстьМастерВБригаде() 
           И НЕ СотрудникиВходятВДругиеБригады() 
           И НЕ СотрудникиОтносятсяКДругомуЦеху() 
           И НЕ ПересеченияВРасписании() Тогда
               ЗаписатьДанныеВРасписание();
          КонецЕсли;
       
   КонецПроцедуры
   
   &НаСервере
   Функция ПересеченияВРасписании()
           
       Запрос = Новый Запрос;
       Запрос.Текст = 
           "ВЫБРАТЬ
           |    Расписание.Дата КАК Дата,
           |    Расписание.РабочийУчасток КАК РабочийУчасток,
           |    Расписание.НомерБригады КАК НомерБригады
           |ИЗ
           |    РегистрСведений.Расписание КАК Расписание
           |ГДЕ
           |    Расписание.Дата В(&СписокДат)
           |    И Расписание.РабочийУчасток = &РабочийУчасток
           |    И Расписание.НомерБригады <> &НомерБригады
           |
           |СГРУППИРОВАТЬ ПО
           |    Расписание.НомерБригады,
           |    Расписание.Дата,
           |    Расписание.РабочийУчасток";
       
       Запрос.УстановитьПараметр("НомерБригады", Объект.НомерБригады);
       Запрос.УстановитьПараметр("РабочийУчасток", Объект.РабочийУчасток);
       Запрос.УстановитьПараметр("СписокДат", РабочиеДаты.ВыгрузитьЗначения());
       
       РезультатЗапроса = Запрос.Выполнить();  
       
       Если РезультатЗапроса.Пустой() Тогда
           Возврат Ложь;
       КонецЕсли;
   
       ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
       
       Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
           Сообщить(СтрШаблон("%1 рабочий участок %2 уже занят бригадой %3."
               "Расписание не может быть сформировано.", 
               Формат(ВыборкаДетальныеЗаписи.Дата,"ДЛФ=D"), ВыборкаДетальныеЗаписи.РабочийУчасток, ВыборкаДетальныеЗаписи.НомерБригады));
       КонецЦикла;
       
       Возврат Истина;
       
   КонецФункции
   
   &НаСервере
   Функция СотрудникиОтносятсяКДругомуЦеху() 
       
       НесоответствиеЦехов = Ложь; 
       Для каждого Строка Из Объект.СоставБригады.Выгрузить(,"Сотрудник") Цикл
           Если Строка.Сотрудник.Владелец <> Объект.ВидБригады.Владелец Тогда
               Сообщить(СтрШаблон("Сотрудник %1 не может входить в состав бригады %2, поскольку он относится к цеху %3."
               "Расписание не может быть сформировано.", Строка.Сотрудник, Объект.ВидБригады, Строка.Сотрудник.Владелец));        
               НесоответствиеЦехов = Истина;    
           КонецЕсли;
           Если Строка.Сотрудник.Владелец <> Объект.РабочийУчасток.Владелец Тогда
               Сообщить(СтрШаблон("Сотрудник %1 не может выполнять работы на участке %2, поскольку он относится к цеху %3."
               "Расписание не может быть сформировано.", Строка.Сотрудник, Объект.РабочийУчасток, Строка.Сотрудник.Владелец));        
               НесоответствиеЦехов = Истина;    
           КонецЕсли;
       КонецЦикла;
       
       Возврат НесоответствиеЦехов;
   
   КонецФункции 
   
   
   &НаСервере
   Функция СотрудникиВходятВДругиеБригады()
       
       Запрос = Новый Запрос;
       Запрос.Текст = 
           "ВЫБРАТЬ
           |    Расписание.Сотрудник КАК Сотрудник,
           |    Расписание.НомерБригады КАК НомерБригады
           |ИЗ
           |    РегистрСведений.Расписание КАК Расписание
           |ГДЕ
           |    Расписание.Сотрудник В(&МассивСотрудников)
           |    И Расписание.НомерБригады <> &НомерБригады
           |
           |СГРУППИРОВАТЬ ПО
           |    Расписание.Сотрудник,
           |    Расписание.НомерБригады";
       
       Запрос.УстановитьПараметр("МассивСотрудников", Объект.СоставБригады.Выгрузить(, "Сотрудник"));
       Запрос.УстановитьПараметр("НомерБригады", Объект.НомерБригады);
       
       РезультатЗапроса = Запрос.Выполнить(); 
       
       Если РезультатЗапроса.Пустой() Тогда
           Возврат Ложь;    
       КонецЕсли;
       
       ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
       
       Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
           Сообщить(СтрШаблон("Сотрудник %1 значится в бригаде %2."
               "Расписание не может быть сформировано.", 
               ВыборкаДетальныеЗаписи.Сотрудник, ВыборкаДетальныеЗаписи.НомерБригады));
       КонецЦикла;
   
       Возврат Истина;
   
   КонецФункции
   
   &НаСервере
   Функция ЕстьМастерВБригаде() 
       
       Если КоличествоМастеров = 0 Тогда
           Сообщить("В бригаде должен быть хотя бы один мастер!" "Расписание не может быть сформировано.");
           Возврат Ложь;
       ИначеЕсли КоличествоМастеров > 1 Тогда
           Сообщить("В бригаде не может быть более одного мастера!" "Расписание не может быть сформировано.");
           Возврат Ложь;
       КонецЕсли;    
       Возврат Истина;  
       
   КонецФункции
   
   
   &НаСервере
   Функция ПолучитьСписокРабочихДней()    
       СписокДат = Новый СписокЗначений();    
       РабочийДень = Объект.ДатаНачалаРаботы;   
       ПоследнийДень = ДобавитьМесяц(РабочийДень, 1);
       ЗавтраРабочийДень = Истина; 
       Пока РабочийДень <= ПоследнийДень Цикл
           СписокДат.Добавить(РабочийДень);
           Если Объект.РежимРаботы = Перечисления.РежимыРаботы.ОдинЧерезОдин Тогда
               РабочийДень = РабочийДень + 2 * 86400;
           ИначеЕсли Объект.РежимРаботы = Перечисления.РежимыРаботы.ДваЧерезДва Тогда
               Если ЗавтраРабочийДень Тогда
                   РабочийДень = РабочийДень + 86400;
                   ЗавтраРабочийДень = Ложь;
               Иначе
                   РабочийДень = РабочийДень + 3 * 86400;
                   ЗавтраРабочийДень = Истина;
               КонецЕсли;    
           КонецЕсли;
       КонецЦикла;
       Возврат СписокДат;
   КонецФункции 
   
   
   &НаСервере
   Процедура ЗаписатьДанныеВРасписание()
       
       Для каждого РабочийДень Из РабочиеДаты Цикл
           Для каждого Строка Из Объект.СоставБригады Цикл
               НоваяЗапись = РегистрыСведений.Расписание.СоздатьМенеджерЗаписи();
               НоваяЗапись.Дата = РабочийДень.Значение;
               НоваяЗапись.РабочийУчасток = Объект.РабочийУчасток;
               НоваяЗапись.Сотрудник = Строка.Сотрудник; 
               НоваяЗапись.НомерБригады = Объект.НомерБригады;
               НоваяЗапись.Записать();
           КонецЦикла;
       КонецЦикла; 
       Сообщить("Расписание заполнено!");  
   
   КонецПроцедуры
   
   
   &НаКлиенте
   Процедура СоставБригадыМастерПриИзменении(Элемент) 
       
       ЭтоМастер =  Элементы.СоставБригады.ТекущиеДанные.Мастер;
       Если ЭтоМастер Тогда
           КоличествоМастеров = КоличествоМастеров + 1;
       Иначе    
           КоличествоМастеров = КоличествоМастеров - 1;
       КонецЕсли; 
     
   КонецПроцедуры
   

3. Создать возможность введения ограничений производственных участков. Для регистрации ограничений рабочих участков был использован регистр сведений, рис. 1.28, 1.29.

   
   Рис. 1.28.
   
   Рис. 1.29.

   У измерения Рабочий участок тип данных СправочникСсылка.РабочиеУчастка.

4. Реализовать алгоритм, который позволяет использовать участок еще раз, если требуемое количество лесопродукции меньше производительности за смену. Для фиксации данных о требуемой мощности участков за смену потребуется регистр накопления, рис. 1.30.

   
   Рис. 1.30.

   Регистратором данных этого регистра будет документ Задание на смену, рис. 1.31.

   
   Рис. 1.31.

   Алгоритм записи данных регистр делается через конструктор движения документа Задание на смену, рис. 1.32.

   
   Рис. 1.32.

   Проверка ограничений делается в модуле объекта документа Задание на смену в обработчике ОбработкаПроведения, рис. 1.33.

   
   Рис. 1.33.

   Полный программный код процедуры ОбработкаПроведения (вместе с алгоритмом, заданным конструктором движения).

   1C

   Процедура ОбработкаПроведения(Отказ, Режим)
   
       // регистр ПроизводительностьРабочихУчастковЗаСмену 
       Движения.ПроизводительностьРабочихУчастковЗаСмену.Записывать = Истина;
       Движение = Движения.ПроизводительностьРабочихУчастковЗаСмену.Добавить();
       Движение.Период = Дата;
       Движение.Смена = Смена;
       Движение.РабочийУчасток = РабочийУчасток;
       Движение.Производительность = Количество; 
       
       Движения.ПроизводительностьРабочихУчастковЗаСмену.Записать();
       Движения.ПроизводительностьРабочихУчастковЗаСмену.БлокироватьДляИзменения = Истина;  
           
       Отбор1 = Новый Структура("РабочийУчасток", РабочийУчасток);    
       МаксПроизводительность = РегистрыСведений.МаксимальнаяПроизводительностьРабочихУчастков.Получить(Отбор1).Производительность;
       
       Если МаксПроизводительность = 0 Тогда
              Сообщить("Не задана максимальная производственная мощность выбранного рабочего участка!"
                    "Невозможно зарегистрировать задание на смену!");
           Отказ = Истина;
           Возврат;
       КонецЕсли;
       
       Отбор2 = Новый Структура("РабочийУчасток,Смена", РабочийУчасток, Смена);
       ФактПроизводительность = РегистрыНакопления.ПроизводительностьРабочихУчастковЗаСмену.Обороты(,, Отбор2).Получить(0).Производительность;    
       
       Остаток = МаксПроизводительность - ФактПроизводительность;
       
       Если Остаток < 0 Тогда 
           Сообщить("На текущую смену уже достигнут предел использования выбранного участка!");
           Отказ = Истина;
       КонецЕсли;
   
   КонецПроцедуры

Видеоразбор задачи: https://dzen.ru/video/watch/67a349e8d50dbe55bf479da5.

Основной ход решения на базе 1С:Предприятие 8.

1. Создать новую подсистему Персонал.
2. Создать справочник Сотрудники со стандартными реквизитами.
3. Создать справочник Виды бригад со стандартными реквизитами.

4. Создать объект Расписание работы бригады с реквизитами согласно заданию. На рис. 1.34 реализация этого с помощью регистра сведений (можно было использовать документ).

   
   Рис. 1.34.

   В регистре будут храниться только измерения, рис. 1.35.

   
   Рис. 1.35.

   Вид регистра для пользователя, рис. 1.36.

   
   Рис. 1.36.

5. Реализовать заполнение расписания на месяц при выборе варианта смены 1/1 день или 2/2 дня.

   Заполнение расписания осуществляется с помощью соответствующей обработки — Заполнение расписания работы бригады. Ее внешний вид для пользователя на рис. 1.37.

   
   Рис. 1.37.

   Форма обработки выглядит так, как на рис. 1.38.

   
   Рис. 1.38.
   Приводим полный программный код модуля формы этой обработки.
   1C

   &НаКлиенте
   Процедура ЗаполнитьРасписание(Команда)
       РабочиеДаты = ПолучитьСписокРабочихДней();    
       
       Если ЕстьМастерВБригаде() 
           И НЕ СотрудникиВходятВДругиеБригады() 
           И НЕ СотрудникиОтносятсяКДругомуЦеху() 
           И НЕ ПересеченияВРасписании() Тогда
               ЗаписатьДанныеВРасписание();
          КонецЕсли;
       
   КонецПроцедуры
   
   &НаСервере
   Функция ПересеченияВРасписании()
           
       Запрос = Новый Запрос;
       Запрос.Текст = 
           "ВЫБРАТЬ
           |    Расписание.Дата КАК Дата,
           |    Расписание.РабочийУчасток КАК РабочийУчасток,
           |    Расписание.НомерБригады КАК НомерБригады
           |ИЗ
           |    РегистрСведений.Расписание КАК Расписание
           |ГДЕ
           |    Расписание.Дата В(&СписокДат)
           |    И Расписание.РабочийУчасток = &РабочийУчасток
           |    И Расписание.НомерБригады <> &НомерБригады
           |
           |СГРУППИРОВАТЬ ПО
           |    Расписание.НомерБригады,
           |    Расписание.Дата,
           |    Расписание.РабочийУчасток";
       
       Запрос.УстановитьПараметр("НомерБригады", Объект.НомерБригады);
       Запрос.УстановитьПараметр("РабочийУчасток", Объект.РабочийУчасток);
       Запрос.УстановитьПараметр("СписокДат", РабочиеДаты.ВыгрузитьЗначения());
       
       РезультатЗапроса = Запрос.Выполнить();  
       
       Если РезультатЗапроса.Пустой() Тогда
           Возврат Ложь;
       КонецЕсли;
   
       ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
       
       Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
           Сообщить(СтрШаблон("%1 рабочий участок %2 уже занят бригадой %3."
                               "Расписание не может быть сформировано.", 
                               Формат(ВыборкаДетальныеЗаписи.Дата,"ДЛФ=D"), ВыборкаДетальныеЗаписи.РабочийУчасток, ВыборкаДетальныеЗаписи.НомерБригады));
       КонецЦикла;
       
       Возврат Истина;
       
   КонецФункции
   
   &НаСервере
   Функция СотрудникиОтносятсяКДругомуЦеху() 
       
       НесоответствиеЦехов = Ложь; 
       Для каждого Строка Из Объект.СоставБригады.Выгрузить(,"Сотрудник") Цикл
           Если Строка.Сотрудник.Владелец <> Объект.ВидБригады.Владелец Тогда
               Сообщить(СтрШаблон("Сотрудник %1 не может входить в состав бригады %2, поскольку он относится к цеху %3."
               "Расписание не может быть сформировано.", Строка.Сотрудник, Объект.ВидБригады, Строка.Сотрудник.Владелец));        
               НесоответствиеЦехов = Истина;    
           КонецЕсли;
           Если Строка.Сотрудник.Владелец <> Объект.РабочийУчасток.Владелец Тогда
               Сообщить(СтрШаблон("Сотрудник %1 не может выполнять работы на участке %2, поскольку он относится к цеху %3."
               "Расписание не может быть сформировано.", Строка.Сотрудник, Объект.РабочийУчасток, Строка.Сотрудник.Владелец));        
               НесоответствиеЦехов = Истина;    
           КонецЕсли;
       КонецЦикла;
       
       Возврат НесоответствиеЦехов;
   
   КонецФункции 
   
   
   &НаСервере
   Функция СотрудникиВходятВДругиеБригады()
       
       Запрос = Новый Запрос;
       Запрос.Текст = 
           "ВЫБРАТЬ
           |    Расписание.Сотрудник КАК Сотрудник,
           |    Расписание.НомерБригады КАК НомерБригады
           |ИЗ
           |    РегистрСведений.Расписание КАК Расписание
           |ГДЕ
           |    Расписание.Сотрудник В(&МассивСотрудников)
           |    И Расписание.НомерБригады <> &НомерБригады
           |
           |СГРУППИРОВАТЬ ПО
           |    Расписание.Сотрудник,
           |    Расписание.НомерБригады";
       
       Запрос.УстановитьПараметр("МассивСотрудников", Объект.СоставБригады.Выгрузить(, "Сотрудник"));
       Запрос.УстановитьПараметр("НомерБригады", Объект.НомерБригады);
       
       РезультатЗапроса = Запрос.Выполнить(); 
       
       Если РезультатЗапроса.Пустой() Тогда
           Возврат Ложь;    
       КонецЕсли;
       
       ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
       
       Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
           Сообщить(СтрШаблон("Сотрудник %1 значится в бригаде %2."
                               "Расписание не может быть сформировано.", 
                               ВыборкаДетальныеЗаписи.Сотрудник, ВыборкаДетальныеЗаписи.НомерБригады));
       КонецЦикла;
   
       Возврат Истина;
   
   КонецФункции
   
   &НаСервере
   Функция ЕстьМастерВБригаде() 
       
       Если КоличествоМастеров = 0 Тогда
           Сообщить("В бригаде должен быть хотя бы один мастер!" "Расписание не может быть сформировано.");
           Возврат Ложь;
       ИначеЕсли КоличествоМастеров > 1 Тогда
           Сообщить("В бригаде не может быть более одного мастера!" "Расписание не может быть сформировано.");
           Возврат Ложь;
       КонецЕсли;    
       Возврат Истина;  
       
   КонецФункции
   
   
   &НаСервере
   Функция ПолучитьСписокРабочихДней()    
       СписокДат = Новый СписокЗначений();    
       РабочийДень = Объект.ДатаНачалаРаботы;   
       ПоследнийДень = ДобавитьМесяц(РабочийДень, 1);
       ЗавтраРабочийДень = Истина; 
       Пока РабочийДень <= ПоследнийДень Цикл
           СписокДат.Добавить(РабочийДень);
           Если Объект.РежимРаботы = Перечисления.РежимыРаботы.ОдинЧерезОдин Тогда
               РабочийДень = РабочийДень + 2 * 86400;
           ИначеЕсли Объект.РежимРаботы = Перечисления.РежимыРаботы.ДваЧерезДва Тогда
               Если ЗавтраРабочийДень Тогда
                   РабочийДень = РабочийДень + 86400;
                   ЗавтраРабочийДень = Ложь;
               Иначе
                   РабочийДень = РабочийДень + 3 * 86400;
                   ЗавтраРабочийДень = Истина;
               КонецЕсли;    
           КонецЕсли;
       КонецЦикла;
       Возврат СписокДат;
   КонецФункции 
   
   
   &НаСервере
   Процедура ЗаписатьДанныеВРасписание()
       
       Для каждого РабочийДень Из РабочиеДаты Цикл
           Для каждого Строка Из Объект.СоставБригады Цикл
               НоваяЗапись = РегистрыСведений.Расписание.СоздатьМенеджерЗаписи();
               НоваяЗапись.Дата = РабочийДень.Значение;
               НоваяЗапись.РабочийУчасток = Объект.РабочийУчасток;
               НоваяЗапись.Сотрудник = Строка.Сотрудник; 
               НоваяЗапись.НомерБригады = Объект.НомерБригады;
               НоваяЗапись.Записать();
           КонецЦикла;
       КонецЦикла; 
       Сообщить("Расписание заполнено!");  
   
   КонецПроцедуры
   
   
   &НаКлиенте
   Процедура СоставБригадыМастерПриИзменении(Элемент) 
       
       ЭтоМастер =  Элементы.СоставБригады.ТекущиеДанные.Мастер;
       Если ЭтоМастер Тогда
           КоличествоМастеров = КоличествоМастеров + 1;
       Иначе    
           КоличествоМастеров = КоличествоМастеров - 1;
       КонецЕсли; 
     
   КонецПроцедуры
   

Основной ход решения на базе 1С:Предприятие 8.

1. Создать отчет Расписание работы бригад Лесозавода. Вариант реализации отчета может быть любым, в соответствии со знаниями и навыками участника — можно использовать стандартный объект Отчет и Схему компоновки данных. Можно использовать объект Обработка с выводом информации в Макет — вариантов может быть много. Отчет был создан через специальный объект, который так и называется — Отчеты, рис. 1.39.

   
   Рис. 1.39.

   В открывшемся окне схемы компоновки данных создадим новый набор данных при помощи запроса. Сам запрос создадим при помощи конструктора, рис. 1.40.

   
   Рис. 1.40.

   Запрос будет пакетным, рис. 1.41.

   
   Рис. 1.41.

   Таблицы первого пакета запроса, рис. 1.42.

   
   Рис. 1.42.

   Второй пакет запроса, рис. 1.43.

   
   Рис. 1.43.

   На закладке Условия второго пакета запроса зададим условие выбора данных, рис. 1.44.

   
   Рис. 1.44.

   Третий пакет запроса, рис. 1.45.

   
   Рис. 1.45.

   Поскольку тут две таблицы, нужно указать, как они взаимосвязаны (закладка Связи), рис. 1.46.

   
   Рис. 1.46.
   
   Рис. 1.47.

   Нажимаем, ОК, запрос сформирован. Далее на закладке Настройки схемы компоновки данных нужно настроить сам отчет. Это также делается с помощью специального конструктора, рис. 1.47.

2. В отчет добавить отбор по цеху и сотруднику, делается также на закладке Настройки схемы компоновки данных, рис. 1.48.

   
   Рис. 1.48.

   Итоговый вид отчета для пользователя, рис. 1.49.

   Видеоразбор задачи: https://dzen.ru/video/watch/67a35775f0df3a28fc8abf9b.

   
   Рис. 1.49.