Якщо Рез lt; gt; Не визначено тоді
Результ=Рез.Оставш_Часи;
КонецЕсли;
Повернення Результ;
КонецФункции
Функція ЧіслоПарПреп (Викладач). Функція визначає середня кількість пар, яке треба ставити викладачеві для видачі необхідних годин.
Функція ЧіслоПарПреп (Викладач) Експорт
Якщо ТабліцаПарНадоСт.Колічество () gt; 0 тоді
РезСтр=ТабліцаПарНадоСт.Найті (Викладач, Викладач );
Якщо РезСтр lt; gt; Не визначено тоді
Результат=РезСтр [1];
флаг2=1;
КонецЕсли;
КонецЕсли;
Якщо флаг2=0 тоді
РезСтр=ПреподавателіВсе.Найті (Викладач, Викладач );
Якщо РезСтр lt; gt; Не визначено тогдаДень=РезСтр.Мах_Дата;
Оставш_Часи=РезСтр.Оставш_Часи;
Колво_Нераб=НерабочиеДниРасписаниеНеделя(ДатаВыдач1, MaxДень);
КолОтсутствиеДнейПреподователя=КолвоДнейОтсутствие2(Преподаватель, MaxДень);
Різниця=((MaxДень-ДатаВидач1)/(60 * 60 * 24)) + 1;
Разница2=Разница-Колво_Нераб-КолОтсутствиеДнейПреподователя;
Дільник=ВсегоОсталось (Викладач);
Подільне=Разніца2 * 2;
Якщо Подільне gt; 0 тоді
Приватне=Дільник/Подільне;
Інакше
Приватне=0;
КонецЕсли;
Результат=Приватне;
НовСтр=ТабліцаПарНадоСт.Добавіть ();
НовСтр.Преподаватель=Викладач;
НовСтр.Надо=Результат;
КонецЕсли;
КонецЕсли;
Повернення Результат;
КонецФункции
Процедура ЗаполнітьДанние (Групи). Дана процедура виконується «НаСервере», тобто не в самому конфігураторі, коли як всі інші «НаКліенте». Ця процедура перебирає всі дні тижня і записує в таблиці значень дані про групи і їх парах на певний день.
Процедура ЗаполнітьДанние (Групи)
ПеремТабГрОбщ;
//ТабГр.Очістіть ();
ТабПрепод.Очістіть ();
Знач_=Перечісленія.Дні.Понедельнік;
Для н=0 по Группи.Колічество () - 1 цикл
НоваяСтрока=ТабОбщ.Добавіть ();
НоваяСтрока.День=Знач _;
НоваяСтрока.Группа=Групи [н];
ТабГрОбщ=Новий ТабліцаЗначеній;
ТабГрОбщ.Колонкі.Добавіть ( Перша );
ТабГрОбщ.Колонкі.Добавіть ( Друга );
ТабГрОбщ.Колонкі.Добавіть ( Третя );
ТабГрОбщ.Колонкі.Добавіть ( Четверта );
ТабГрОбщ.Колонкі.Добавіть ( П'ята );
ТабГрОбщ.Колонкі.Добавіть ( Шоста );
НоваяСтрока.ІнфоГрупп=ТабГрОбщ;
КонецЦікла;
Знач_=Перечісленія.Дні.Вторнік;
Знач_=Перечісленія.Дні.Среда;
Знач_=Перечісленія.Дні.Четверг;
Знач_=Перечісленія.Дні.Пятніца;
Знач_=Перечісленія.Дні.Суббота
КонецПроцедури;
Процедура Підготовка. Дана процедура спочатку отримує список предметів в порядку убування кількості видаваних годин, потім отримує список предметів групи, потім для кожної групи, для кожного предмета фіксую скільки разів на тиждень цей предмет треба ставити, після цього визначаю скільки разів на тиждень необхідно ставити предмет викладачеві, і вже потім перевіряю, щоб викладачі видавали в день потрібну кількість пар,
з тим щоб укластися з видачею своїх годин
Процедура Підготовка ()
ГруппыВсе=СписокПредметовВыдаваемыхОСтаб(ДатаВыдач1, ДатаВ2);
ГруппыВРегистре=ГруппыВсе.ВыгрузитьКолонку(laquo;Группаraquo;);
Список=ГруппиВсе [п] [1];
КолПарНедель=Оставш_Часи/(КолНедель * 2);
Результат=ОКР (КолПарНедель);
Довжина=ПреподавателіВсе.Колічество () - 1;
Для н=0 справжність цикл
НомСтр=0;
Викладач=ПреподавателіВсе [н] [0];
РезСтр=ПреподН.Найті (Викладач, Препод );
