>
Якщо РезСтр lt; gt; Не визначено тоді
Колпь=РезСтр.КолічествоПар;
Треба=Окр (ЧіслоПарПреп (Викладач) * 6);
Якщо (Треба-Колпь) gt; 0 тоді
Спис=РезСтр.Предмети;
Спіс.Сортіровать ( Кіл убуваючи );
Дліна2=Спіс.Колічество () - 1;
Різн=Треба-Колпь;
Для в=0 по Дліна2 цикл
Предм_=Спис [в] [0];
Якщо Предм_.Тіп=Перечісленія.Тіп_Предмета.Предмет тоді
РезТабГр=ТабГр.Найті (Предм_, Предмет );
Якщо РезТабГр lt; gt; Не визначено тоді
НовоеКолПар=РезТабГр.КолвоПар + 1;
РезТабГр.КолвоПар=НовоеКолПар;
Різн=Різн - 1;
Якщо Різн lt;=0 тоді
Перервати;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦікла;
КонецЕсли;
КонецЕсли;
КонецЦікла;
КонецПродедури
Функція Переклад (Дата_). Ця функція переводить день тижня в числове значення.
Функція Переклад (Дата _)
Перем Результат;
Якщо Дата_=Перечісленія.Дні.Понедельнік тоді
Результат=ДатаВидач1;
КонецЕсли;
Якщо Дата_=Перечісленія.Дні.Вторнік тоді
Результат=ДатаВидач1 + 60 * 60 * 24;
КонецЕсли;
Якщо Дата_=Перечісленія.Дні.Среда тоді
Результат=ДатаВидач1 + 2 * 60 * 60 * 24;
КонецЕсли;
Якщо Дата_=Перечісленія.Дні.Четверг тоді
Результат=ДатаВидач1 + 3 * 60 * 60 * 24;
КонецЕсли;
Якщо Дата_=Перечісленія.Дні.Пятніца тоді
Результат=ДатаВидач1 + 4 * 60 * 60 * 24;
КонецЕсли;
Якщо Дата_=Перечісленія.Дні.Суббота тоді
Результат=ДатаВидач1 + 5 * 60 * 60 * 24;
КонецЕсли;
Повернення Результат;
КонецФункции
Функція ПроверкаПрепДень2 (Преподаватель2, Дата_). Функція перевіряє в довіднику ОтсутствіяПреподавателяДні не вказано чи що викладач вихідний.
Функція ПроверкаПрепДень2 (Преподаватель2, Дата _)
Перемстр, стр2;
Результат=1;
Якщо ДніОтсутствіяПреподавателей=Не визначено тоді
КолвоДнейОтсутствіеПреподавателей ();
КонецЕсли;
РезСтр=ДниОтсутствияПреподавателей.Найти(Преподаватель2);
Якщо РезСтр lt; gt; Не визначено тоді
Дні=РезСтр [1];
Довжина=Дні.Колічество () - 1;
Для а=0 по Довжина цикл
День=Дні [а] .Значеніе;
Якщо День=Дата_ тоді
Результат=0;
КонецЕсли;
Якщо День gt; Дата_ тоді
Перервати;
КонецЕсли;
КонецЦікла;
КонецЕсли;
Повернення Результат;
КонецФункции
Процедура ПроверкаЗанГруппи2_1. Процедура перевіряє зайнятість груп на кожен день з обраного інтервалу.
Процедура ПроверкаЗанГруппи2_1 ()
Якщо Пара1=1 тоді
НовСтр.Пари.Добавіть (1);
КонецЕсли;
Якщо Пара2=1 тоді
НовСтр.Пари.Добавіть (2);
КонецЕсли;
Якщо Пара3=1 тоді
НовСтр.Пари.Добавіть (3);
КонецЕсли;
Якщо Пара4=1 тоді
НовСтр.Пари.Добавіть (4);
КонецЕсли;
Якщо Пара5=1 тоді
НовСтр.Пари.Добавіть (5);
КонецЕсли;
Якщо Пара6=1 тоді
НовСтр.Пари.Добавіть (6);
КонецЕсли;
НовСтр=ПариОтсутствіяГрупп.Добавіть ();
НовСтр.Группа=Група;
