121
Таблица П1.16
Структура таблицы базы данных «Статус»
Наименование поля
Идентификатор
Тип данных
(длина поля)
Прочее
Код статуса
Код_статуса
integer
Ключевое поле
Наименование
Наименование
varchar(20)
Таблица П1.17
Структура таблицы базы данных «Студенты»
Наименование поля
Идентификатор
Тип данных
(длина поля)
Прочее
Код обучающегося
Код_обучающегося
integer
Ключевое поле
ФИО
ФИО
varchar(18)
Дата рождения
Дата_рождения
datetime
Адрес
Адрес
varchar(20)
Таблица П1.18
Структура таблицы базы данных «Тип показателя»
Наименование поля
Идентификатор
Тип данных
(длина поля)
Прочее
Код типа показателя
Код_типа_показателя
integer
Ключевое поле
Тип показателя
Тип_показателя
varchar(20)
Таблица П1.19
Структура таблицы базы данных «Дополнительное образование»
Наименование поля
Идентификатор
Тип данных
(длина поля)
Прочее
Код услуги
Код_услуги
integer
Ключевое поле
Наименование услуги
Наименование_услуг
и
varchar(20)
Стоимость
Стоимость
integer
Длительность часов
Длительность_часов
integer
122
Таблица П1.20
Структура таблицы базы данных «Форма обучения»
Наименование поля
Идентификатор
Тип данных
(длина поля)
Прочее
Код формы обучения
Код_формы_обучени
я
integer
Ключевое поле
Форма обучения
Форма_обучения
varchar(20)
123
Приложение 2
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Общие_показатели.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Общие_показатели.Дата,
| Общие_показатели.Дата_проверки,
| Общие_показатели.Номер,
| Общие_показатели.Сотрудник,
| Общие_показатели.Статус,
| Общие_показатели.Общие_показатели.(
| НомерСтроки,
| Показатель,
| Значение
| )
|ИЗ
| Документ.Общие_показатели КАК Общие_показатели
|ГДЕ
| Общие_показатели.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьОбщие_показателиШапка =
Макет.ПолучитьОбласть("Общие_показателиШапка");
ОбластьОбщие_показатели =
Макет.ПолучитьОбласть("Общие_показатели");
Подвал = Макет.ПолучитьОбласть("Подвал");
124
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьОбщие_показателиШапка);
ВыборкаОбщие_показатели =
Выборка.Общие_показатели.Выбрать();
Пока ВыборкаОбщие_показатели.Следующий() Цикл
ОбластьОбщие_показатели.Параметры.Заполнить(ВыборкаОбщие_показа
тели);
ТабДок.Вывести(ОбластьОбщие_показатели,
ВыборкаОбщие_показатели.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
125
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную
изменения будут утеряны!!!
// регистр Регистр_суммы_оплаты Расход
Движения.Регистр_суммы_оплаты.Записывать = Истина;
Движение = Движения.Регистр_суммы_оплаты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Студент = Студент;
Движение.Сумма = Сумма;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную
изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.Поступление") Тогда
// Заполнение шапки
Дата_начисления = ДанныеЗаполнения.Дата_поступления;
Сотрудник = ДанныеЗаполнения.Сотрудник;
Учебный_год = ДанныеЗаполнения.Учебный_год;
126
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Начисление_оплаты.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Начисление_оплаты.Дата,
| Начисление_оплаты.Дата_начисления,
| Начисление_оплаты.Номер,
| Начисление_оплаты.Номер_документа,
| Начисление_оплаты.Сотрудник,
| Начисление_оплаты.Студент,
| Начисление_оплаты.Сумма,
| Начисление_оплаты.Учебный_год
|ИЗ
| Документ.Начисление_оплаты КАК Начисление_оплаты
|ГДЕ
| Начисление_оплаты.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
127
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную
изменения будут утеряны!!!
// регистр Регистр_суммы_оплаты Приход
Движения.Регистр_суммы_оплаты.Записывать = Истина;
Движение = Движения.Регистр_суммы_оплаты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Студент = Студент;
Движение.Учебный_год = Учебный_год;
Движение.Сумма = Сумма;
// регистр Регистр_оплат Приход
128
Движения.Регистр_оплат.Записывать = Истина;
Движение = Движения.Регистр_оплат.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Студент = Студент;
Движение.Учебный_год = Учебный_год;
Движение.Сумма = Сумма;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную
изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.Начисление_оплаты") Тогда
// Заполнение шапки
Номер_докумнета_начисления =
ДанныеЗаполнения.Номер_документа;
Сотрудник = ДанныеЗаполнения.Сотрудник;
Студент = ДанныеЗаполнения.Студент;
Сумма = ДанныеЗаполнения.Сумма;
Учебный_год = ДанныеЗаполнения.Учебный_год;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
129
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет =
Документы.Поступление_оплаты.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Поступление_оплаты.Дата,
| Поступление_оплаты.Дата_оплаты,
| Поступление_оплаты.Номер,
| Поступление_оплаты.Номер_докумнета_начисления,
| Поступление_оплаты.Сотрудник,
| Поступление_оплаты.Студент,
| Поступление_оплаты.Сумма,
| Поступление_оплаты.Учебный_год
|ИЗ
| Документ.Поступление_оплаты КАК Поступление_оплаты
|ГДЕ
| Поступление_оплаты.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
130
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры