Курсовые работы / ПРИС К_6

|

ЗаработнаяПлата,

Если ВставлятьРазделительСтраниц

|

ДругиеУсловия,

Тогда

|

КоличествоМест

ТабДок.ВывестиГоризонтальныйРаздели

|

)

тельСтраниц();

|ИЗ

КонецЕсли;

|

Документ.ЗаявкаРаботодателя

КАК ЗаявкаРаботодателя

ТабДок.Вывести(ОбластьЗаголовок);

|ГДЕ

|

ЗаявкаРаботодателя.Ссылка В

Шапка.Параметры.Заполнить(Выборка);

(&Ссылка)";

ТабДок.Вывести(Шапка,

Запрос.Параметры.Вставить("Ссылка",

Выборка.Уровень());

Ссылка);

Выборка =

ТабДок.Вывести(ОбластьСпецификация

Запрос.Выполнить().Выбрать();

Шапка);

ВыборкаСпецификация =

ОбластьЗаголовок =

Выборка.Спецификация.Выбрать();

Макет.ПолучитьОбласть("Заголовок");

Пока

Шапка =

ВыборкаСпецификация.Следующий()

Макет.ПолучитьОбласть("Шапка");

Цикл

ОбластьСпецификацияШапка =

ОбластьСпецификация.Параметры.Запол

Макет.ПолучитьОбласть("Спецификация

нить(ВыборкаСпецификация);

Шапка");

ТабДок.Вывести(ОбластьСпецификация,

ОбластьСпецификация =

ВыборкаСпецификация.Уровень());

Макет.ПолучитьОбласть("Спецификация

КонецЦикла;

");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

ВставлятьРазделительСтраниц = Ложь;

//}}

Пока Выборка.Следующий() Цикл

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

Процедура Печать(ТабДок, Ссылка)

|

НаименованиеВакансии,

Экспорт

|

ТребуемоеОбразование,

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

|

ТребуемыйСтаж,

Макет = Документы.Менеджер по

|

Пол,

заказам.ПолучитьМакет("Печать");

|

Возраст,

Запрос = Новый Запрос;

|

ЗаработнаяПлата,

Запрос.Текст =

|

ДругиеУсловия,

"ВЫБРАТЬ

|

КоличествоМест

|

Менеджер по заказам.Дата,

|

)

|

Менеджер по заказам.Мест,

|ИЗ

|

Менеджер по заказам.Номер,

|

Документ.ЗаявкаРаботодателя

|

Менеджер по

КАК ЗаявкаРаботодателя

заказам.Работодатель,

|ГДЕ

|

Менеджер по заказам.Статус,

|

ЗаявкаРаботодателя.Ссылка В

|

Менеджер по

(&Ссылка)";

заказам.Спецификация.(

Запрос.Параметры.Вставить("Ссылка",

|

НомерСтроки,

Ссылка);

Выборка =

ТабДок.Вывести(ОбластьЗаголовок);

Запрос.Выполнить().Выбрать();

Шапка.Параметры.Заполнить(Выборка);

ОбластьЗаголовок =

ТабДок.Вывести(Шапка,

Макет.ПолучитьОбласть("Заголовок");

Выборка.Уровень());

Шапка =

Макет.ПолучитьОбласть("Шапка");

ТабДок.Вывести(ОбластьСпецификация

ОбластьСпецификацияШапка =

Шапка);

Макет.ПолучитьОбласть("Спецификация

ВыборкаСпецификация =

Шапка");

Выборка.Спецификация.Выбрать();

ОбластьСпецификация =

Пока

Макет.ПолучитьОбласть("Спецификация

ВыборкаСпецификация.Следующий()

");

Цикл

ТабДок.Очистить();

ОбластьСпецификация.Параметры.Запол

нить(ВыборкаСпецификация);

ВставлятьРазделительСтраниц = Ложь;

ТабДок.Вывести(ОбластьСпецификация,

Пока Выборка.Следующий() Цикл

ВыборкаСпецификация.Уровень());

Если ВставлятьРазделительСтраниц

КонецЦикла;

Тогда

ТабДок.ВывестиГоризонтальныйРаздели

ВставлятьРазделительСтраниц = Истина;

тельСтраниц();

КонецЦикла;

КонецЕсли;

//}}

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

Процедура ОбработкаПроведения(Отказ,

=

Режим)

ТекСтрокаСпецификация.ДатаПостановк

//{{__КОНСТРУКТОР_ДВИЖЕН

иНаУчет;

ИЙ_РЕГИСТРОВ

// Данный фрагмент построен

Движение.ДатаСнятияСУчета =

конструктором.

ТекСтрокаСпецификация.ДатаСнятияСУ

// При повторном использовании

чета;

конструктора, внесенные вручную

Движение.Количество =

изменения будут утеряны!!!

ТекСтрокаСпецификация.НомерСтроки;

КонецЦикла;

// регистр БазаКлиентов Расход

Движения.БазаКлиентов.Записыва

//}}__КОНСТРУКТОР_ДВИЖЕН

ть = Истина;

ИЙ_РЕГИСТРОВ

Для Каждого

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

ТекСтрокаСпецификация Из

Спецификация Цикл

Движение =

Процедура Печать(ТабДок, Ссылка)

Движения.БазаКлиентов.Добавить();

Экспорт

Движение.ВидДвижения =

//{{_КОНСТРУКТОР_ПЕЧАТИ(П

ВидДвиженияНакопления.Расход;

ечать)

Движение.Период = Дата;

Макет =

Документы.НаправлениеНаРаботу.Получ

Движение.ДатаПостановкиНаУчет

итьМакет("Печать");

63

Запрос = Новый Запрос;

ОбластьСпецификацияШапка =

Запрос.Текст =

Макет.ПолучитьОбласть("Спецификация

"ВЫБРАТЬ

Шапка");

|

ОбластьСпецификация =

НаправлениеНаРаботу.Дата,

Макет.ПолучитьОбласть("Спецификация

|

");

НаправлениеНаРаботу.КодЗаявки,

ТабДок.Очистить();

|

НаправлениеНаРаботу.КодЗаявки

ВставлятьРазделительСтраниц =

Работодателя,

Ложь;

|

Пока Выборка.Следующий() Цикл

НаправлениеНаРаботу.Номер,

Если

|

ВставлятьРазделительСтраниц Тогда

НаправлениеНаРаботу.Работодате

ль,

ТабДок.ВывестиГоризонтальныйР

|

азделительСтраниц();

НаправлениеНаРаботу.Статус,

КонецЕсли;

|

НаправлениеНаРаботу.Специфика

ция.(

ТабДок.Вывести(ОбластьЗаголово

|

НомерСтроки,

к);

|

ФИО,

|

Образование,

|

Профессия,

Шапка.Параметры.Заполнить(Выб

|

орка);

ДолжностьПоПоследнемуМестуРа

ТабДок.Вывести(Шапка,

боты,

Выборка.Уровень());

|

СтажРаботы,

|

РекомендуетсяНаДолжность,

ТабДок.Вывести(ОбластьСпецифи

|

кацияШапка);

ДатаПостановкиНаУчет,

ВыборкаСпецификация =

|

ДатаСнятияСУчета

Выборка.Спецификация.Выбрать();

|

)

Пока

|ИЗ

ВыборкаСпецификация.Следующий()

|

Цикл

Документ.НаправлениеНаРаботу

КАК НаправлениеНаРаботу

ОбластьСпецификация.Параметры

|ГДЕ

.Заполнить(ВыборкаСпецификация);

|

НаправлениеНаРаботу.Ссылка В

ТабДок.Вывести(ОбластьСпецифи

(&Ссылка)";

кация,

Запрос.Параметры.Вставить("Ссы

ВыборкаСпецификация.Уровень());

лка", Ссылка);

КонецЦикла;

Выборка =

Запрос.Выполнить().Выбрать();

ВставлятьРазделительСтраниц =

ОбластьЗаголовок =

Истина;

Макет.ПолучитьОбласть("Заголовок");

КонецЦикла;

Шапка =

//}}

Макет.ПолучитьОбласть("Шапка");

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

64

Процедура ОбработкаПроведения(Отказ,

Запрос.Текст =

Режим)

"ВЫБРАТЬ

//{{__КОНСТРУКТОР_ДВИЖЕН

|

ИЙ_РЕГИСТРОВ

НаправлениеНаРаботу.Дата,

// Данный фрагмент построен

|

конструктором.

НаправлениеНаРаботу.КодЗаявки,

// При повторном использовании

|

конструктора, внесенные вручную

НаправлениеНаРаботу.КодЗаявки

изменения будут утеряны!!!

Работодателя,

|

// регистр БазаКлиентов Расход

НаправлениеНаРаботу.Номер,

Движения.БазаКлиентов.Записыва

|

ть = Истина;

НаправлениеНаРаботу.Работодате

Для Каждого

ль,

ТекСтрокаСпецификация Из

|

Спецификация Цикл

НаправлениеНаРаботу.Статус,

Движение =

|

Движения.БазаКлиентов.Добавить();

НаправлениеНаРаботу.Специфика

Движение.ВидДвижения =

ция.(

ВидДвиженияНакопления.Расход;

|

НомерСтроки,

Движение.Период = Дата;

|

ФИО,

|

Образование,

Движение.ДатаПостановкиНаУчет

|

Профессия,

=

|

ТекСтрокаСпецификация.ДатаПостановк

ДолжностьПоПоследнемуМестуРа

иНаУчет;

боты,

|

СтажРаботы,

Движение.ДатаСнятияСУчета =

|

ТекСтрокаСпецификация.ДатаСнятияСУ

РекомендуетсяНаДолжность,

чета;

|

Движение.Количество =

ДатаПостановкиНаУчет,

ТекСтрокаСпецификация.НомерСтроки;

|

ДатаСнятияСУчета

КонецЦикла;

|

)

|ИЗ

//}}__КОНСТРУКТОР_ДВИЖЕН

|

ИЙ_РЕГИСТРОВ

Документ.НаправлениеНаРаботу

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

КАК НаправлениеНаРаботу

|ГДЕ

|

Процедура Печать(ТабДок, Ссылка)

НаправлениеНаРаботу.Ссылка В

Экспорт

(&Ссылка)";

//{{_КОНСТРУКТОР_ПЕЧАТИ(П

Запрос.Параметры.Вставить("Ссы

ечать)

лка", Ссылка);

Макет =

Выборка =

Документы.НаправлениеНаРаботу.Получ

Запрос.Выполнить().Выбрать();

итьМакет("Печать");

Запрос = Новый Запрос;

ОбластьЗаголовок =

Макет.ПолучитьОбласть("Заголовок");

орка);

Шапка =

ТабДок.Вывести(Шапка,

Макет.ПолучитьОбласть("Шапка");

Выборка.Уровень());

ОбластьСпецификацияШапка =

Макет.ПолучитьОбласть("Спецификация

Шапка");

ТабДок.Вывести(ОбластьСпецифи

ОбластьСпецификация =

кацияШапка);

Макет.ПолучитьОбласть("Спецификация

ВыборкаСпецификация =

");

Выборка.Спецификация.Выбрать();

ТабДок.Очистить();

Пока

ВыборкаСпецификация.Следующий()

ВставлятьРазделительСтраниц =

Цикл

Ложь;

Пока Выборка.Следующий() Цикл

ОбластьСпецификация.Параметры

Если

.Заполнить(ВыборкаСпецификация);

ВставлятьРазделительСтраниц Тогда

ТабДок.Вывести(ОбластьСпецифи

ТабДок.ВывестиГоризонтальныйР

кация,

азделительСтраниц();

ВыборкаСпецификация.Уровень());

КонецЕсли;

КонецЦикла;

ТабДок.Вывести(ОбластьЗаголово

ВставлятьРазделительСтраниц =

к);

Истина;

КонецЦикла;

//}}

Шапка.Параметры.Заполнить(Выб

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

Процедура ОбработкаПроведения(Отказ,

Движение.ВидДвижения =

Режим)

ВидДвиженияНакопления.Расход;

//{{__КОНСТРУКТОР_ДВИЖЕН

Движение.Период = Дата;

ИЙ_РЕГИСТРОВ

// Данный фрагмент построен

Движение.ДатаПостановкиНаУчет

конструктором.

=

// При повторном использовании

ТекСтрокаСпецификация.ДатаПостановк

конструктора, внесенные вручную

иНаУчет;

изменения будут утеряны!!!

Движение.ДатаСнятияСУчета =

// регистр БазаКлиентов Расход

ТекСтрокаСпецификация.ДатаСнятияСУ

Движения.БазаКлиентов.Записыва

чета;

ть = Истина;

Движение.Количество =

Для Каждого

ТекСтрокаСпецификация.НомерСтроки;

ТекСтрокаСпецификация Из

КонецЦикла;

Спецификация Цикл

Движение =

//}}__КОНСТРУКТОР_ДВИЖЕН

Движения.БазаКлиентов.Добавить();

ИЙ_РЕГИСТРОВ

66

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

Запрос.Параметры.Вставить("Ссы

лка", Ссылка);

Выборка =

Процедура Печать(ТабДок, Ссылка)

Запрос.Выполнить().Выбрать();

Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(П

ОбластьЗаголовок =

ечать)

Макет.ПолучитьОбласть("Заголовок");

Макет =

Шапка =

Документы.НаправлениеНаРаботу.Получ

Макет.ПолучитьОбласть("Шапка");

итьМакет("Печать");

ОбластьСпецификацияШапка =

Запрос = Новый Запрос;

Макет.ПолучитьОбласть("Спецификация

Запрос.Текст =

Шапка");

"ВЫБРАТЬ

ОбластьСпецификация =

|

Макет.ПолучитьОбласть("Спецификация

НаправлениеНаРаботу.Дата,

");

|

ТабДок.Очистить();

НаправлениеНаРаботу.КодЗаявки,

|

ВставлятьРазделительСтраниц =

НаправлениеНаРаботу.КодЗаявки

Ложь;

Работодателя,

Пока Выборка.Следующий() Цикл

|

Если

НаправлениеНаРаботу.Номер,

ВставлятьРазделительСтраниц Тогда

|

НаправлениеНаРаботу.Работодате

ТабДок.ВывестиГоризонтальныйР

ль,

азделительСтраниц();

|

КонецЕсли;

НаправлениеНаРаботу.Статус,

|

НаправлениеНаРаботу.Специфика

ТабДок.Вывести(ОбластьЗаголово

ция.(

к);

|

НомерСтроки,

|

ФИО,

|

Образование,

Шапка.Параметры.Заполнить(Выб

|

Профессия,

орка);

|

ТабДок.Вывести(Шапка,

ДолжностьПоПоследнемуМестуРа

Выборка.Уровень());

боты,

|

СтажРаботы,

|

ТабДок.Вывести(ОбластьСпецифи

РекомендуетсяНаДолжность,

кацияШапка);

|

ВыборкаСпецификация =

ДатаПостановкиНаУчет,

Выборка.Спецификация.Выбрать();

|

ДатаСнятияСУчета

Пока

|

)

ВыборкаСпецификация.Следующий()

|ИЗ

Цикл

|

Документ.НаправлениеНаРаботу

ОбластьСпецификация.Параметры

КАК НаправлениеНаРаботу

.Заполнить(ВыборкаСпецификация);

|ГДЕ

|

ТабДок.Вывести(ОбластьСпецифи

НаправлениеНаРаботу.Ссылка В

кация,

(&Ссылка)";

ВыборкаСпецификация.Уровень());

67

КонецЦикла;

Истина;

КонецЦикла;

//}}

ВставлятьРазделительСтраниц =

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

Процедура ОбработкаПроведения(Отказ,

Экспорт

Режим)

//{{_КОНСТРУКТОР_ПЕЧАТИ(П

//{{__КОНСТРУКТОР_ДВИЖЕН

ечать)

ИЙ_РЕГИСТРОВ

Макет =

// Данный фрагмент построен

Документы.НаправлениеНаРаботу.Получ

конструктором.

итьМакет("Печать");

// При повторном использовании

Запрос = Новый Запрос;

конструктора, внесенные вручную

Запрос.Текст =

изменения будут утеряны!!!

"ВЫБРАТЬ

|

// регистр БазаКлиентов Расход

НаправлениеНаРаботу.Дата,

Движения.БазаКлиентов.Записыва

|

ть = Истина;

НаправлениеНаРаботу.КодЗаявки,

Для Каждого

|

ТекСтрокаСпецификация Из

НаправлениеНаРаботу.КодЗаявки

Спецификация Цикл

Работодателя,

Движение =

|

Движения.БазаКлиентов.Добавить();

НаправлениеНаРаботу.Номер,

Движение.ВидДвижения =

|

ВидДвиженияНакопления.Расход;

НаправлениеНаРаботу.Работодате

Движение.Период = Дата;

ль,

|

Движение.ДатаПостановкиНаУчет

НаправлениеНаРаботу.Статус,

=

|

ТекСтрокаСпецификация.ДатаПостановк

НаправлениеНаРаботу.Специфика

иНаУчет;

ция.(

|

НомерСтроки,

Движение.ДатаСнятияСУчета =

|

ФИО,

ТекСтрокаСпецификация.ДатаСнятияСУ

|

Образование,

чета;

|

Профессия,

Движение.Количество =

|

ТекСтрокаСпецификация.НомерСтроки;

ДолжностьПоПоследнемуМестуРа

КонецЦикла;

боты,

|

СтажРаботы,

//}}__КОНСТРУКТОР_ДВИЖЕН

|

ИЙ_РЕГИСТРОВ

РекомендуетсяНаДолжность,

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

|

ДатаПостановкиНаУчет,

|

ДатаСнятияСУчета

Процедура Печать(ТабДок, Ссылка)

|

)

68

|ИЗ

|

Документ.НаправлениеНаРаботу

ТабДок.Вывести(ОбластьЗаголово

КАК НаправлениеНаРаботу

к);

|ГДЕ

|

НаправлениеНаРаботу.Ссылка В

Шапка.Параметры.Заполнить(Выб

(&Ссылка)";

орка);

Запрос.Параметры.Вставить("Ссы

ТабДок.Вывести(Шапка,

лка", Ссылка);

Выборка.Уровень());

Выборка =

Запрос.Выполнить().Выбрать();

ТабДок.Вывести(ОбластьСпецифи

ОбластьЗаголовок =

кацияШапка);

Макет.ПолучитьОбласть("Заголовок");

ВыборкаСпецификация =

Шапка =

Выборка.Спецификация.Выбрать();

Макет.ПолучитьОбласть("Шапка");

Пока

ОбластьСпецификацияШапка =

ВыборкаСпецификация.Следующий()

Макет.ПолучитьОбласть("Спецификация

Цикл

Шапка");

ОбластьСпецификация =

ОбластьСпецификация.Параметры

Макет.ПолучитьОбласть("Спецификация

.Заполнить(ВыборкаСпецификация);

");

ТабДок.Очистить();

ТабДок.Вывести(ОбластьСпецифи

кация,

ВставлятьРазделительСтраниц =

ВыборкаСпецификация.Уровень());

Ложь;

КонецЦикла;

Пока Выборка.Следующий() Цикл

Если

ВставлятьРазделительСтраниц Тогда

ВставлятьРазделительСтраниц =

Истина;

ТабДок.ВывестиГоризонтальныйР

КонецЦикла;

азделительСтраниц();

//}}

КонецЕсли;

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

ВЫБРАТЬ

ЦенаОсновногоТовара,

ОплатаПоЗаказам.МенеджерПоЗак

азам КАК МенеджерПоЗаказам,

ЦенаДополнительногоТовара,

ОплатаПоЗаказам.Спецификация.(

ОбщаяСумма

ФИОЗаказчика,

)

ДатаОплаты,

ИЗ

Документ.ОплатаПоЗаказам КАК

НаименованиеОсновногоТовара,

ОплатаПоЗаказам

НаименованиеДополнительногоТо

УПОРЯДОЧИТЬ ПО

вара,

МенеджерПоЗаказам

ПлановаяДатаВыполнения,

ВЫБРАТЬ

ФактическаяДатаВыполнения

НевыполненныеВСрокЗаказыДопо

),

лнительныхУслуг.МенеджерПоЗаказам

НевыполненныеВСрокЗаказыДопо

КАК МенеджерПоЗаказам,

лнительныхУслуг.Дата

НевыполненныеВСрокЗаказыДопо

ИЗ

лнительныхУслуг.Спецификация.(

Документ.НевыполненныеВСрокЗ

Ссылка,

аказыДополнительныхУслуг КАК

НомерСтроки,

НевыполненныеВСрокЗаказыДополнител

ФИОЗаказчика,

ьныхУслуг

НаименованиеДополнительнойУс

УПОРЯДОЧИТЬ ПО

луги,

МенеджерПоЗаказам

ВЫБРАТЬ

ПВХ.Вид

СведенияОПластиковыхИзделиях

ИЗ

ПВХ.Наименование,

Справочник.СведенияОПластиков

СведенияОПластиковыхИзделиях

ыхИзделияхПВХ КАК

ПВХ.ДатаИзготовления,

СведенияОПластиковыхИзделияхПВХ

СведенияОПластиковыхИзделиях

Листинг Е.15 – Отчет «Доход»: Основная схема компоновки данных

ВЫБРАТЬ

)

ОплатаПоЗаказам.Спецификация.(

ИЗ

Документ.ОплатаПоЗаказам КАК

МАКСИМУМ(НаименованиеОсно

ОплатаПоЗаказам

вногоТовара),

СГРУППИРОВАТЬ ПО

НаименованиеДополнительногоТо

ОплатаПоЗаказам.Спецификация.(

вара,

НаименованиеДополнительногоТовара,

ОбщаяСумма,

ОбщаяСумма,

ВидОсновногоТовара,

ВидОсновногоТовара,

ДатаОплаты

ДатаОплаты)

ВЫБРАТЬ

ЗаказыПВХОконИДверейОтКлиен

тов.Дата,

)

ЗаказыПВХОконИДверейОтКлиен

ИЗ

тов.МенеджерПоЗаказам,

Документ.ЗаказыПВХОконИДвере

ЗаказыПВХОконИДверейОтКлиен

йОтКлиентов КАК

тов.Спецификация.(

ЗаказыПВХОконИДверейОтКлиентов

НаименованиеТовара