Разработка автоматической информационной системы оперативного учёта сопровождения учебных курсов по правилам техники безопасности ООО НПП "НФЛ"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?ть. Параметры. Кем Выдан = РезТаб[0]. Документ Кем Выдан;
Конец Если;
Область. Параметры. Вид Образования = Вид Образования;
Область. Параметры. Направление Подготовки = Направление Подготовки;
Область. Параметры. Дата = Формат(Дата,"ДФ=dd.MM.yyyy");
ТабДок. Вывести(Область);
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Ложь;
ТабДок. Только Просмотр = Ложь;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать();
Конец Процедуры
Процедура Заполнить Шапку Документа заполняет реквизиты шапки документа данными из приказа о зачислении клиентов данной группы. При этом все имеющиеся реквизиты шапки заполняются данными из справочника пользователей.
Процедура Печать (Элемент)
ТабДок = Новый Табличный Документ;
Макет = Документы. ОплатаЗа Обучение. Получить Макет ("Печать");
Область = Макет. Получить Область ("Заголовок");
Область. Параметры. Учебная Группа = Учебная Группа;
ТабДок. Вывести (Область);
Область = Макет. Получить Область ("Данные Слушателей Шапка");
ТабДок. Вывести (Область);
Для Каждого ТекСтрока Данные Слушателей Из Данные Слушателей Цикл
Область = Макет. Получить Область("Данные Слушателей");
Область. Параметры. ФизЛицо = ТекСтрока Данные Слушателей. ФизЛицо;
Область. Параметры. Начислено За 1 Семестр = ТекСтрока Данные Слушателей. Начислено За 1 Семестр;
Область. Параметры. Дата Начисления За 1 Семестр = ТекСтрока Данные Слушателей. Дата Начисления За 1 Семестр;
Область. Параметры. Оплачено За 1 Семестр = ТекСтрока Данные Слушателей. Оплачено За 1 Семестр;
Область. Параметры. Дата Оплата За 1 Семестр = ТекСтрока Данные Слушателей. Дата Оплата За 1 Семестр;
Область. Параметры. Начислено За 2 Семестр = ТекСтрока Данные Слушателей. Начислено За 2 Семестр;
Область. Параметры. Дата Начисления За 2 Семестр = ТекСтрока Данные Слушателей. Дата Начисления За 2 Семестр;
Область. Параметры. Оплачено За 2 Семестр = ТекСтрока Данные Слушателей. Оплачено За 2 Семестр;
Область. Параметры. Дата Оплата За 2 Семестр = ТекСтрока Данные Слушателей. Дата Оплата За 2 Семестр;
ТабДок. Вывести (Область);
Конец Цикла;
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Ложь;
ТабДок. Только Просмотр = Ложь;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать();
Конец Процедуры
Процедура Печать - в этой процедуре заполняется печатная форма документа оплаты за обучение.
Процедура Заполнить заполняет табличную часть документа Оплата за обучение данными из приказа на зачисление слушателей.
Процедура КоманднаяПанель1Заполнить(Кнопка)
Запрос = Новый Запрос;
Запрос. Текст =
"ВЫБРАТЬ
|Приказ Зачисление Слушателей Учащиеся. Физлицо,
|Приказ Зачисление Слушателей Учащиеся. Номер Зачетной Книжки,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.Начислено
|ИНАЧЕ 0
|КОНЕЦ КАК Начислено1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.Оплачено
|ИНАЧЕ 0
|КОНЕЦ КАК Оплачено1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.ДатаНачисления
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаНачисления1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.ДатаОплаты
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаОплаты1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.Начислено
|ИНАЧЕ 0
|КОНЕЦ КАК Начислено2сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.Оплачено
|ИНАЧЕ 0
|КОНЕЦ КАК Оплачено2сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.ДатаНачисления
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаНачисления2сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.ДатаОплаты
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаОплаты2сем
|ИЗ
|Документ. Приказ Зачисление Слушателей. Учащиеся КАК Приказ Зачисление Слушателей Учащиеся
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Накопления. Оплата За Обучение КАК Оплата За Обучение 1 семестр
|ПО Приказ Зачисление Слушателей Учащиеся. Ссылка = ОплатаЗаОбучение1семестр.Регистратор
|И Приказ Зачисление Слушателей Учащиеся. Физлицо = ОплатаЗаОбучение1семестр.Физлицо
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Накопления. Оплата За Обучение КАК ОплатаЗаОбучение2семестр
|ПО Приказ Зачисление Слушателей Учащиеся. Ссылка = Оплата За Обучение 2 семестр. Регистратор
|И Приказ Зачисление Слушателей Учащиеся. Физлицо = Оплата За Обучение 2семестр.Физлицо
|ГДЕ
|Приказ Зачисление Слушателей Учащиеся. Ссылка = &Ссылка";
Запрос. Установить Параметр ("Ссылка", Учебная Группа. Приказ Зачисление Слушателей);
РезТаб = Запрос. Выполнить ().Выгрузить();
Для Каждого РезСтр Из РезТаб Цикл
Если Данные Слушателей. Найти (РезСтр. Физлицо, "Физлицо") = Неопределено Тогда
ТекСтр = Данные Слушателей. Добавить();
ТекСтр. ФизЛицо = РезСтр. ФизЛицо;
ТекСтр. Номер Зачетной Книжки = РезСтр. Номер Зачетной Книжки;
Конец Если;
Конец Цикла;
Конец Процедуры
В процедуре Обработка проведения данные переносятся из текущего документа в регистр накопления Оплата за обучение.
В процедуре Печать - создаётся но