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