Теми рефератів

> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти

Реферати, твори, дипломи, практика » Статьи » Інформаційна система коледжу. Розклад

Реферат Інформаційна система коледжу. Розклад

Тема: Статьи

tify"> НовСтр.Дні=Пари;

КонецПроцедури

Функція ПроверкаГруппаПара2 (Група, Дата_, Пара). Ця функція перевіряє чи можна зазначеній групі, у зазначений день і зазначену пару ставити заняття повертає 1-якщо можна (в справвочнікеЗанГруппа такої інформації немає), 0 - якщо не можна ставити.

Функція ПроверкаГруппаПара2 (Група, Дата_, Пара)

Якщо ПариОтсутствіяГрупп=Не визначено тоді

ПроверкаЗанГруппи2_1 ();

КонецЕсли;

РезСтр=ПариОтсутствіяГрупп.Найті (Група, Група );

Якщо РезСтр lt; gt; Не визначено тоді

ТабліцаЗн=РезСтр [1];

Довжина=ТабліцаЗн.Колічество () - 1;

Для н=0 справжність цикл

День_=ТабліцаЗн [н] .День;

Пари=ТабліцаЗн [н] Пару;

Якщо День_=Дата_ тоді

Дліна2=Пари.Колічество () - 1;

Для п=0 по Дліна2 цикл

Ном=Пари [п];

Якщо Ном=Пара тоді

Результат=0;

КонецЕсли;

КонецЦікла;

КонецЕсли;

КонецЦікла;

КонецЕсли;

Повернення Результат;

КонецФункции

Процедура ПроверкаПрепПара2_1. Дана процедура перевіряє, на якій парі викладач зайнятий, за допомогою довідника «ОтсутствіеПреподавателяПари».

Процедура ПроверкаПрепПара2_1

Якщо Пара1=1 тоді

Сп2_1.Добавіть (1);

КонецЕсли;

Якщо Пара2=1 тоді

Сп2_1.Добавіть (2);

КонецЕсли;

Якщо Пара3=1 тоді

Сп2_1.Добавіть (3);

КонецЕсли;

Якщо Пара4=1 тоді

Сп2_1.Добавіть (4);

КонецЕсли;

Якщо Пара5=1 тоді

Сп2_1.Добавіть (5);

КонецЕсли;

Якщо Пара6=1 тоді

Сп2_1.Добавіть (6);

КонецЕсли;

НовСтр.Пари=Сп2_1;

КонецПроцедури

Функція ПроверкаПрепПара2 (Викладач, Дата_, Пара). Функція перевіряє в довіднику чи немає отстутствия викладача в довіднику ОтсутствіеПреподавателяПари.

Функція ПроверкаПрепПара2 (Викладач, Дата_, Пара)

Якщо ПариОтсутствіяПреподавателей=Не визначено тоді

ПроверкаПрепПара2_1 ();

КонецЕсли;

Відбір=Новий Структура ();

Отбор.Вставить(laquo;Преподавательraquo;,Преподаватель);

Отбор.Вставіть ( День , Дата _);

Рядки=ПариОтсутствіяПреподавателей.НайтіСтрокі (Відбір);

Якщо Строкі.Колічество () gt; 0 тоді

Пари=Рядки [0] Пару;

Довжина=Пари.Колічество ();

Для н=0 по Довжина - 1 цикл

Ст=Пари [н];

Якщо Ст=Пара тоді

Результат=0;

КонецЕсли;

КонецЦікла;

КонецЕсли;

Повернення Результат;

КонецФункции

Функція ПроверкаВозможностіЗанятьПреподавателей2 (Предмет, Зсув). Дана функція повертає інформацію які викладачі повинні бути задіяні для видачі дисципліни на розрахунковий номер пари (підстава таблиці - ПредметВсе (поле номерпари) і ПредметиПоставленние).

Функція ПроверкаВозможностіЗанятьПреподавателей2 (Предмет, Зсув)

Результ=Новий ( Масив );

РезСтр=ПредметыВсе.Найти(Предмет,laquo;Предметraquo;);

Якщо РезСтр lt; gt; Не визначено тоді

НомерПариНаНачало=РезСтр.НомерПари;

НомерПариВДокументе=0;

РезСтр=ПредметыПоставленные.Найти(Предмет,laquo;Предметraquo;);

Якщо РезСтр lt; gt; Не визначено тоді

НомерПариВДокументе=РезСтр.КолвоПар;

КонецЕсли;

ОбщКолвоПар=НомерПарыНаНачало+НомерПарыВДокументе+Смещение;

Препод1=Предмет.КТП[ОбщКолвоПар].Преподаватель1;