Курсовые работы / ПРИС К_15
.pdfПРИЛОЖЕНИЕ Д Текст модулей объектов
Листинг Д.1 – Документ «Заявка на трудоустройство»
Процедура Печать(ТабДок, Ссылка) Экспорт //{{_КОНСТРУКТОР_ПЕЧАТИ(Печа
ть)
Макет = Документы.Заявка_на_трудоустройство.Полу читьМакет("Печать");
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ
|
Заявка_на_трудоустройство.Дата,
|
Заявка_на_трудоустройство.Номер,
|
Заявка_на_трудоустройство.Статус_з
аявки,
|
Заявка_на_трудоустройство.ФИО,
|
Заявка_на_трудоустройство.Специфи
кация.( |
|
| |
НомерСтроки, |
| |
ДатаРождения, |
| |
Возраст, |
| |
Образование, |
| |
Профессия, |
| |
Стаж, |
| |
Адрес, |
| |
Контактный_телефон, |
| |
ТекущаяДата |
| |
) |
|ИЗ |
|
|
Документ.Заявка_на_трудоустройств о КАК Заявка_на_трудоустройство
|ГДЕ
|
Заявка_на_трудоустройство.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка ", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
72
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьСпецификацияШапка = Макет.ПолучитьОбласть("СпецификацияШа пка");
ОбластьСпецификация = Макет.ПолучитьОбласть("Спецификация");
ТабДок.Очистить();
ВставлятьРазделительСтраниц =
Ложь;
Пока Выборка.Следующий() Цикл Если
ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазд елительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборк
а);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьСпецификац ияШапка);
ВыборкаСпецификация = Выборка.Спецификация.Выбрать();
Пока ВыборкаСпецификация.Следующий() Цикл
ОбластьСпецификация.Параметры.За полнить(ВыборкаСпецификация);
ТабДок.Вывести(ОбластьСпецификац ия, ВыборкаСпецификация.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц
= Истина; КонецЦикла;
//}}
КонецПроцедуры
Листинг Д.2 – Документ «Временные работы»
Процедура Печать(ТабДок, Ссылка) Экспорт //{{_КОНСТРУКТОР_ПЕЧАТИ(Печа
ть) Макет =
Документы.Временные_работы.ПолучитьМа кет("Печать");
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ
|
Временные_работы.Временная_вакан
|
сия, |
| |
Временные_работы.Дата, |
|
| |
Временные_работы.Наименование_ор ганизации,
|
Временные_работы.Необходимость_в
|
ыполнения, |
| |
Временные_работы.Номер, |
|
| |
Временные_работы.Статус_заявки,
|
Временные_работы.Спецификация.(
| |
НомерСтроки, |
| |
Юридический_адрес, |
| |
Контактный_телефон, |
| |
Пол, |
| |
Возраст, |
| |
Количество_мест, |
|
| |
Требуемое_образование,
| |
Период_занятости |
| |
) |
|ИЗ | Документ.Временные_работы
КАК Временные_работы |ГДЕ
| Временные_работы.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка ", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьСпецификацияШапка = Макет.ПолучитьОбласть("СпецификацияШа
пка"); ОбластьСпецификация =
Макет.ПолучитьОбласть("Спецификация"); ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл Если
ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазд елительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборк а);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьСпецификац ияШапка); ВыборкаСпецификация =
Выборка.Спецификация.Выбрать(); Пока
ВыборкаСпецификация.Следующий() Цикл
ОбластьСпецификация.Параметры.За полнить(ВыборкаСпецификация);
ТабДок.Вывести(ОбластьСпецификац ия, ВыборкаСпецификация.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц
=Истина; КонецЦикла;
//}}
КонецПроцедуры
Листинг Д.3 – Документ «Заявка работодателя»
73
Процедура Печать(ТабДок, Ссылка) Экспорт |
ОбластьСпецификацияШапка = |
||
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печа |
Макет.ПолучитьОбласть("СпецификацияШа |
||
|
ть) |
пка"); |
|
|
Макет = |
ОбластьСпецификация = |
|
Документы.ЗаявкаРаботодателя.ПолучитьМа |
Макет.ПолучитьОбласть("Спецификация"); |
||
|
кет("Печать"); |
ТабДок.Очистить(); |
|
|
Запрос = Новый Запрос; |
|
|
|
Запрос.Текст = |
ВставлятьРазделительСтраниц = |
|
|
"ВЫБРАТЬ |
Ложь; |
|
| |
ЗаявкаРаботодателя.Дата, |
Пока Выборка.Следующий() Цикл |
|
| |
ЗаявкаРаботодателя.Мест, |
Если |
|
| |
ЗаявкаРаботодателя.Номер, |
ВставлятьРазделительСтраниц Тогда |
|
|
|
| |
|
ЗаявкаРаботодателя.Работодатель, |
ТабДок.ВывестиГоризонтальныйРазд |
||
| |
ЗаявкаРаботодателя.Статус, |
елительСтраниц(); |
|
|
|
| |
КонецЕсли; |
ЗаявкаРаботодателя.Спецификация.( |
|
||
| |
|
НомерСтроки, |
|
|
| |
|
ТабДок.Вывести(ОбластьЗаголовок); |
|
НаименованиеВакансии, |
|
|
|
| |
|
|
|
ТребуемоеОбразование, |
Шапка.Параметры.Заполнить(Выборк |
|
| |
|
ТребуемыйСтаж, |
а); |
|
| |
Пол, |
ТабДок.Вывести(Шапка, |
|
| |
Возраст, |
Выборка.Уровень()); |
| |
|
ЗаработнаяПлата, |
|
| |
|
ДругиеУсловия, |
|
| |
|
КоличествоМест |
ТабДок.Вывести(ОбластьСпецификац |
|
| |
) |
ияШапка); |
|
|
|ИЗ |
ВыборкаСпецификация = |
| |
Документ.ЗаявкаРаботодателя |
Выборка.Спецификация.Выбрать(); |
|
КАК ЗаявкаРаботодателя |
Пока |
||
|
|
|ГДЕ |
ВыборкаСпецификация.Следующий() Цикл |
| |
ЗаявкаРаботодателя.Ссылка В |
|
|
|
(&Ссылка)"; |
ОбластьСпецификация.Параметры.За |
|
Запрос.Параметры.Вставить("Ссылка |
полнить(ВыборкаСпецификация); |
||
|
", Ссылка); |
|
|
|
Выборка = |
ТабДок.Вывести(ОбластьСпецификац |
|
Запрос.Выполнить().Выбрать(); |
ия, ВыборкаСпецификация.Уровень()); |
||
|
|
|
КонецЦикла; |
|
ОбластьЗаголовок = |
|
|
Макет.ПолучитьОбласть("Заголовок"); |
ВставлятьРазделительСтраниц |
||
|
Шапка = |
= Истина; |
|
Макет.ПолучитьОбласть("Шапка"); |
КонецЦикла; |
||
|
|
|
//}} |
|
|
|
КонецПроцедуры |
Листинг Д.4 – Документ «Клиенты на учете»
Процедура ОбработкаПроведения(Отказ, |
// Данный фрагмент построен |
Режим) |
конструктором. |
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ |
// При повторном использовании |
_РЕГИСТРОВ |
конструктора, внесенные вручную изменения |
|
будут утеряны!!! |
74
// регистр БазаКлиентов Приход Движения.БазаКлиентов.Записывать
=Истина; Движение =
Движения.БазаКлиентов.Добавить(); Движение.ВидДвижения =
ВидДвиженияНакопления.Приход; Движение.Период = Дата;
Движение.ДатаПостановкиНаУчет = ДатаПостановкиНаУчет;
Движение.Количество = КодЗаявки;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ _РЕГИСТРОВ
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт //{{_КОНСТРУКТОР_ПЕЧАТИ(Печа
ть) Макет =
Документы.КлиентыНаУчете.ПолучитьМаке
|
т("Печать"); |
|
Запрос = Новый Запрос; |
|
Запрос.Текст = |
|
"ВЫБРАТЬ |
| |
КлиентыНаУчете.Дата, |
|
| |
КлиентыНаУчете.ДатаПостановкиНа
|
|
Учет, |
| |
КлиентыНаУчете.КодЗаявки, |
|
|
| |
КлиентыНаУчете.Номер, |
|
| |
КлиентыНаУчете.Статус, |
|
|
| |
|
КлиентыНаУчете.Спецификация.( |
|
|
| |
НомерСтроки, |
|
| |
ФИО, |
|
| |
Пол, |
|
| |
Возраст, |
|
| |
Адрес, |
|
| |
Образование, |
|
| |
Профессия, |
|
| |
СтажРаботы, |
|
|
| |
КоличествоМесяцевБезРаботы,
|
КоличествоОтклоненныхПредложени
й
| )
|ИЗ | Документ.КлиентыНаУчете
КАК КлиентыНаУчете |ГДЕ
| КлиентыНаУчете.Ссылка В (&Ссылка)";
75
Запрос.Параметры.Вставить("Ссылка ", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьСпецификацияШапка = Макет.ПолучитьОбласть("СпецификацияШа
пка"); ОбластьСпецификация =
Макет.ПолучитьОбласть("Спецификация"); ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл Если
ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазд елительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборк а);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьСпецификац ияШапка); ВыборкаСпецификация =
Выборка.Спецификация.Выбрать(); Пока
ВыборкаСпецификация.Следующий() Цикл
ОбластьСпецификация.Параметры.За полнить(ВыборкаСпецификация);
ТабДок.Вывести(ОбластьСпецификац ия, ВыборкаСпецификация.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц
=Истина; КонецЦикла;
//}}
КонецПроцедуры
Листинг Д.5 – Документ «Направление на работу»
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ _РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения
будут утеряны!!!
// регистр БазаКлиентов Расход Движения.БазаКлиентов.Записывать
=Истина; Для Каждого
ТекСтрокаСпецификация Из Спецификация Цикл
Движение = Движения.БазаКлиентов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.ДатаПостановкиНаУчет = ТекСтрокаСпецификация.ДатаПостановкиНа
Учет; Движение.ДатаСнятияСУчета
=
ТекСтрокаСпецификация.ДатаСнятияСУчета
;
Движение.Количество = ТекСтрокаСпецификация.НомерСтроки;
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ _РЕГИСТРОВ
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт //{{_КОНСТРУКТОР_ПЕЧАТИ(Печа
ть) Макет =
Документы.НаправлениеНаРаботу.Получить Макет("Печать"); Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| НаправлениеНаРаботу.Дата,
|
НаправлениеНаРаботу.КодЗаявки,
76
|
НаправлениеНаРаботу.КодЗаявкиРаб
|
отодателя, |
| |
НаправлениеНаРаботу.Номер, |
|
| |
НаправлениеНаРаботу.Работодатель,
| |
НаправлениеНаРаботу.Статус, |
|
| |
НаправлениеНаРаботу.Спецификация
|
.( |
| |
НомерСтроки, |
| |
ФИО, |
| |
Образование, |
| |
Профессия, |
|
ДолжностьПоПоследнемуМестуРабот ы,
| |
СтажРаботы, |
|
| |
РекомендуетсяНаДолжность,
|
ДатаПостановкиНаУчет,
| |
ДатаСнятияСУчета |
| |
) |
|ИЗ
|
Документ.НаправлениеНаРаботу КАК НаправлениеНаРаботу
|ГДЕ | НаправлениеНаРаботу.Ссылка
В (&Ссылка)"; Запрос.Параметры.Вставить("Ссылка
", Ссылка); Выборка =
Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьСпецификацияШапка = Макет.ПолучитьОбласть("СпецификацияШа
пка"); ОбластьСпецификация =
Макет.ПолучитьОбласть("Спецификация"); ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл Если
ВставлятьРазделительСтраниц Тогда
|
ВыборкаСпецификация = |
ТабДок.ВывестиГоризонтальныйРазд |
Выборка.Спецификация.Выбрать(); |
елительСтраниц(); |
Пока |
КонецЕсли; |
ВыборкаСпецификация.Следующий() Цикл |
|
ОбластьСпецификация.Параметры.За |
ТабДок.Вывести(ОбластьЗаголовок); |
полнить(ВыборкаСпецификация); |
|
ТабДок.Вывести(ОбластьСпецификац |
Шапка.Параметры.Заполнить(Выборк |
ия, ВыборкаСпецификация.Уровень()); |
а); |
КонецЦикла; |
ТабДок.Вывести(Шапка, |
|
Выборка.Уровень()); |
ВставлятьРазделительСтраниц |
|
= Истина; |
|
КонецЦикла; |
ТабДок.Вывести(ОбластьСпецификац |
//}} |
ияШапка); |
КонецПроцедуры |
Листинг Д.6 – Документ «Направление на временную работу»
Процедура Печать(ТабДок, Ссылка) Экспорт |
| |
|
|
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печа |
НаправляетсяНаДолжность, |
||
|
ть) |
| |
ПериодЗанятости |
|
Макет = |
| |
) |
Документы.НаправлениеНаВременнуюРабот |
|
|ИЗ |
|
у.ПолучитьМакет("Печать"); |
|
| |
|
Запрос = Новый Запрос; |
Документ.НаправлениеНаВременную |
||
|
Запрос.Текст = |
Работу КАК |
|
|
"ВЫБРАТЬ |
НаправлениеНаВременнуюРаботу |
|
|
| |
|
|ГДЕ |
НаправлениеНаВременнуюРаботу.Да |
|
| |
|
|
та, |
НаправлениеНаВременнуюРаботу.Сс |
|
|
| |
ылка В (&Ссылка)"; |
|
НаправлениеНаВременнуюРаботу.Ко |
Запрос.Параметры.Вставить("Ссылка |
||
дЗаявкиНаВременнуюРаботу, |
", Ссылка); |
||
|
| |
Выборка = |
|
НаправлениеНаВременнуюРаботу.Ко |
Запрос.Выполнить().Выбрать(); |
||
|
дКлиента, |
|
|
|
| |
ОбластьЗаголовок = |
|
НаправлениеНаВременнуюРаботу.Но |
Макет.ПолучитьОбласть("Заголовок"); |
||
|
мер, |
Шапка = |
|
|
| |
Макет.ПолучитьОбласть("Шапка"); |
|
НаправлениеНаВременнуюРаботу.Ра |
ОбластьСпецификацияШапка = |
||
|
ботодатель, |
Макет.ПолучитьОбласть("СпецификацияШа |
|
|
| |
пка"); |
|
НаправлениеНаВременнуюРаботу.Ст |
ОбластьСпецификация = |
||
|
атус, |
Макет.ПолучитьОбласть("Спецификация"); |
|
|
| |
ТабДок.Очистить(); |
|
НаправлениеНаВременнуюРаботу.Сп |
|
|
|
ецификация.( |
ВставлятьРазделительСтраниц = |
||
| |
НомерСтроки, |
Ложь; |
|
| |
ФИО, |
Пока Выборка.Следующий() Цикл |
|
| |
Образование, |
|
Если |
| |
Профессия, |
ВставлятьРазделительСтраниц Тогда |
|
77
|
ВыборкаСпецификация = |
ТабДок.ВывестиГоризонтальныйРазд |
Выборка.Спецификация.Выбрать(); |
елительСтраниц(); |
Пока |
КонецЕсли; |
ВыборкаСпецификация.Следующий() Цикл |
|
ОбластьСпецификация.Параметры.За |
ТабДок.Вывести(ОбластьЗаголовок); |
полнить(ВыборкаСпецификация); |
|
ТабДок.Вывести(ОбластьСпецификац |
Шапка.Параметры.Заполнить(Выборк |
ия, ВыборкаСпецификация.Уровень()); |
а); |
КонецЦикла; |
ТабДок.Вывести(Шапка, |
|
Выборка.Уровень()); |
ВставлятьРазделительСтраниц |
|
= Истина; |
|
КонецЦикла; |
ТабДок.Вывести(ОбластьСпецификац |
//}} |
ияШапка); |
КонецПроцедуры |
Листинг Д.7 – Отчет «Вакансии»: Основная схема компоновки данных
ВЫБРАТЬ |
Вакансии.Профессия, |
Вакансии.НаименованиеВакансии, |
Вакансии.СтажРаботы, |
Вакансии.НаименованиеРаботодателя |
Вакансии.Пол |
, |
ИЗ |
Вакансии.КонктактныйТелефон, |
РегистрСведений.Вакансии КАК |
Вакансии.Возраст, |
Вакансии |
Вакансии.ТребуемоеОбразование, |
|
Листинг Д.8 – Отчет «Клиенты на учете»: Основная схема компоновки данных
ВЫБРАТЬ |
КоличествоМесяцевБезРаботы, |
КлиентыНаУчете.КодЗаявки, |
ФИО |
КлиентыНаУчете.ДатаПостановкиНа |
) |
Учет, |
ИЗ |
КлиентыНаУчете.Статус, |
Документ.КлиентыНаУчете КАК |
КлиентыНаУчете.Спецификация.( |
КлиентыНаУчете |
Листинг Д.9 – Отчет «Поиск клиентов»: Основная схема компоновки данных
ВЫБРАТЬ |
Профессия, |
КлиентыНаУчете.Спецификация.( |
СтажРаботы |
ФИО, |
) |
Пол, |
ИЗ |
Возраст, |
Документ.КлиентыНаУчете КАК |
Образование, |
КлиентыНаУчете |
Листинг Д.10 – Отчет «Статистика по клиентам»: Основная схема компоновки данных
|
КлиентыНаУчете.Дата, |
ВЫБРАТЬ |
КлиентыНаУчете.Спецификация.( |
78
ФИО, |
) |
Пол, |
ИЗ |
Возраст, |
Документ.КлиентыНаУчете КАК |
Образование |
КлиентыНаУчете |
Листинг Д.11 – Отчет «Статистика по работодателям»: Основная схема компоновки данных
ВЫБРАТЬ |
ИЗ |
ЗаявкаРаботодателя.Дата, |
Документ.ЗаявкаРаботодателя КАК |
ЗаявкаРаботодателя.Работодатель, |
ЗаявкаРаботодателя |
ЗаявкаРаботодателя.Мест |
|
Листинг Д.12 – Отчет «Заявки»: Основная схема компоновки данных
ВЫБРАТЬ Заявка_на_трудоустройство.Номер, Заявка_на_трудоустройство.ФИО,
Заявка_на_трудоустройство.Статус_з аявки,
Заявка_на_трудоустройство.Дата ИЗ
Документ.Заявка_на_трудоустройств о КАК Заявка_на_трудоустройство
79