Файл: В. В. Зыков Н. И. Юмагулов 2017 г.pdf

Лист
121 09.03.01.2017.057.ПЗ
Продолжение приложения А
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
ЗаказКлиента.Дата,
|
ЗаказКлиента.Договор,
|
ЗаказКлиента.Инженер,
|
ЗаказКлиента.НаименованиеКлиента,
|
ЗаказКлиента.Номер,
|
ЗаказКлиента.ПриоритетЗаказа,
|
ЗаказКлиента.СтатусЗаказа,
|
ЗаказКлиента.ИнформацияОЗаказе.(
|
НомерСтроки,
|
Услуга,
|
СтоимостьУслуги
|
)
|ИЗ
|
Документ.ЗаказКлиента КАК ЗаказКлиента
|ГДЕ
|
ЗаказКлиента.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьИнформацияОЗаказеШапка =
Макет.ПолучитьОбласть("ИнформацияОЗаказеШапка");
ОбластьИнформацияОЗаказе =
Макет.ПолучитьОбласть("ИнформацияОЗаказе");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьИнформацияОЗаказеШапка);
ВыборкаИнформацияОЗаказе =
Выборка.ИнформацияОЗаказе.Выбрать();
Пока ВыборкаИнформацияОЗаказе.Следующий() Цикл

Лист
122 09.03.01.2017.057.ПЗ
Продолжение приложения А
ОбластьИнформацияОЗаказе.Параметры.Заполнить(ВыборкаИнформацияОЗаказ е);
ТабДок.Вывести(ОбластьИнформацияОЗаказе,
ВыборкаИнформацияОЗаказе.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЗаказКлиента")
Тогда
// Заполнение шапки
Договор = ДанныеЗаполнения.Договор;
Инженер = ДанныеЗаполнения.Инженер;
НаименованиеКлиента = ДанныеЗаполнения.НаименованиеКлиента;
Для Каждого ТекСтрокаИнформацияОЗаказе Из
ДанныеЗаполнения.ИнформацияОЗаказе Цикл
НоваяСтрока = ИнформацияОЗаказе.Добавить();
НоваяСтрока.СтоимостьУслуги =
ТекСтрокаИнформацияОЗаказе.СтоимостьУслуги;
НоваяСтрока.Услуга = ТекСтрокаИнформацияОЗаказе.Услуга;
КонецЦикла;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// регистр Прибыль Расход
Движения.Прибыль.Записывать = Истина;
Для Каждого ТекСтрокаИнформацияОЗаказе Из ИнформацияОЗаказе Цикл
Движение = Движения.Прибыль.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.НаименованиеКлиента = НаименованиеКлиента;
Движение.Договор = Договор;
Движение.Услуга = ТекСтрокаИнформацияОЗаказе.Услуга;
Движение.Инженер = Инженер;
Движение.Прибыль =
ТекСтрокаИнформацияОЗаказе.СтоимостьИздержекНаОказаниеУслуги;

Лист
123 09.03.01.2017.057.ПЗ
Продолжение приложения А
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ОказаниеУслуги.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
ОказаниеУслуги.Дата,
|
ОказаниеУслуги.Договор,
|
ОказаниеУслуги.Инженер,
|
ОказаниеУслуги.НаименованиеКлиента,
|
ОказаниеУслуги.Номер,
|
ОказаниеУслуги.СтоимостьИздержекНаОказаниеУслуги,
|
ОказаниеУслуги.ИнформацияОЗаказе.(
|
НомерСтроки,
|
Услуга,
|
СтоимостьУслуги,
|
СтоимостьИздержекНаОказаниеУслуги
|
)
|ИЗ
|
Документ.ОказаниеУслуги КАК ОказаниеУслуги
|ГДЕ
|
ОказаниеУслуги.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьИнформацияОЗаказеШапка =
Макет.ПолучитьОбласть("ИнформацияОЗаказеШапка");
ОбластьИнформацияОЗаказе =
Макет.ПолучитьОбласть("ИнформацияОЗаказе");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);

Лист
124 09.03.01.2017.057.ПЗ
Продолжение приложения А
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьИнформацияОЗаказеШапка);
ВыборкаИнформацияОЗаказе =
Выборка.ИнформацияОЗаказе.Выбрать();
Пока ВыборкаИнформацияОЗаказе.Следующий() Цикл
ОбластьИнформацияОЗаказе.Параметры.Заполнить(ВыборкаИнформацияОЗ
аказе);
ТабДок.Вывести(ОбластьИнформацияОЗаказе,
ВыборкаИнформацияОЗаказе.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЗаказКлиента")
Тогда
// Заполнение шапки
Договор = ДанныеЗаполнения.Договор;
Инженер = ДанныеЗаполнения.Инженер;
НаименованиеКлиента = ДанныеЗаполнения.НаименованиеКлиента;
Для Каждого ТекСтрокаИнформацияОЗаказе Из
ДанныеЗаполнения.ИнформацияОЗаказе Цикл
НоваяСтрока = ИнформацияОЗаказе.Добавить();
НоваяСтрока.СтоимостьУслуги =
ТекСтрокаИнформацияОЗаказе.СтоимостьУслуги;
НоваяСтрока.Услуга = ТекСтрокаИнформацияОЗаказе.Услуга;
КонецЦикла;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// регистр Прибыль Расход
Движения.Прибыль.Записывать = Истина;
Для Каждого ТекСтрокаИнформацияОЗаказе Из ИнформацияОЗаказе Цикл

Движение = Движения.Прибыль.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Лист
125 09.03.01.2017.057.ПЗ
Продолжение приложения А
Движение.Период = Дата;
Движение.НаименованиеКлиента = НаименованиеКлиента;
Движение.Договор = Договор;
Движение.Услуга = ТекСтрокаИнформацияОЗаказе.Услуга;
Движение.Инженер = Инженер;
Движение.Прибыль =
ТекСтрокаИнформацияОЗаказе.СтоимостьИздержекНаОказаниеУслуги;
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ОказаниеУслуги.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
ОказаниеУслуги.Дата,
|
ОказаниеУслуги.Договор,
|
ОказаниеУслуги.Инженер,
|
ОказаниеУслуги.НаименованиеКлиента,
|
ОказаниеУслуги.Номер,
|
ОказаниеУслуги.СтоимостьИздержекНаОказаниеУслуги,
|
ОказаниеУслуги.ИнформацияОЗаказе.(
|
НомерСтроки,
|
Услуга,
|
СтоимостьУслуги,
|
СтоимостьИздержекНаОказаниеУслуги
|
)
|ИЗ
|
Документ.ОказаниеУслуги КАК ОказаниеУслуги
|ГДЕ
|
ОказаниеУслуги.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьИнформацияОЗаказеШапка =
Макет.ПолучитьОбласть("ИнформацияОЗаказеШапка");
ОбластьИнформацияОЗаказе =
Макет.ПолучитьОбласть("ИнформацияОЗаказе");
ТабДок.Очистить();

Лист
126 09.03.01.2017.057.ПЗ
Продолжение приложения А
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьИнформацияОЗаказеШапка);
ВыборкаИнформацияОЗаказе =
Выборка.ИнформацияОЗаказе.Выбрать();
Пока ВыборкаИнформацияОЗаказе.Следующий() Цикл
ОбластьИнформацияОЗаказе.Параметры.Заполнить(ВыборкаИнформацияОЗ
аказе);
ТабДок.Вывести(ОбластьИнформацияОЗаказе,
ВыборкаИнформацияОЗаказе.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
ВЫБРАТЬ
ИнтересыКлиентов.НаименованиеКлиента,
ИнтересыКлиентов.ИнтересКлиента,
ИнтересыКлиентов.ИсточникПервичногоИнтереса
ИЗ
РегистрСведений.ИнтересыКлиентов КАК ИнтересыКлиентов
ВЫБРАТЬ
ОбратнаяСвязь.НаименованиеКлиента,
ОбратнаяСвязь.ИнтересКлиента,
ОбратнаяСвязь.УдовлетворенностьКлиента,
ОбратнаяСвязь.ПолучениеУслуги
ИЗ
РегистрСведений.ОбратнаяСвязь КАК ОбратнаяСвязь
ВЫБРАТЬ
УтверждениеПроекта.ОписаниеПроекта,
УтверждениеПроекта.ПараметрыПроекта.(
ЦельПроекта,
ЗаказчикПроекта,
РуководительПроекта,

Лист
127 09.03.01.2017.057.ПЗ
Продолжение приложения А
БюджетПроекта,
СрокНачалаПроекта,
СрокОкончанияПроекта
)
ИЗ
Документ.УтверждениеПроекта КАК УтверждениеПроекта
ВЫБРАТЬ
Клиенты.Наименование,
Клиенты.ОбщаяИнформация.(
Адрес,
КонтактнаяИнформация
),
Клиенты.ПрофильКлиента.(
ВидЛица,
ТипЛица
)
ИЗ
Справочник.Клиенты КАК Клиенты
ВЫБРАТЬ
ПродажиОбороты.НаименованиеКлиента,
ПродажиОбороты.Договор,
ПродажиОбороты.Услуга,
ПродажиОбороты.Инженер,
ПродажиОбороты.ВыручкаОборот
ИЗ
РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты
ВЫБРАТЬ
ЗаказКлиента.НаименованиеКлиента,
ЗаказКлиента.ПриоритетЗаказа,
ЗаказКлиента.СтатусЗаказа,
ЗаказКлиента.Инженер,
ЗаказКлиента.Договор,
ЗаказКлиента.ИнформацияОЗаказе.(
Услуга,
СтоимостьУслуги
)
ИЗ
Документ.ЗаказКлиента КАК ЗаказКлиента
ВЫБРАТЬ
ПрибыльОстаткиИОбороты.НаименованиеКлиента,
ПрибыльОстаткиИОбороты.Договор,
ПрибыльОстаткиИОбороты.Услуга,

Лист
128 09.03.01.2017.057.ПЗ
Продолжение приложения А
ПрибыльОстаткиИОбороты.Инженер,
ПрибыльОстаткиИОбороты.ПрибыльПриход,
ПрибыльОстаткиИОбороты.ПрибыльРасход,
ПрибыльОстаткиИОбороты.ПрибыльКонечныйОстаток
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ОказаниеУслуги.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
ОказаниеУслуги.Дата,
|
ОказаниеУслуги.Договор,
|
ОказаниеУслуги.Инженер,
|
ОказаниеУслуги.НаименованиеКлиента,
|
ОказаниеУслуги.Номер,
|
ОказаниеУслуги.СтоимостьИздержекНаОказаниеУслуги,
|
ОказаниеУслуги.ИнформацияОЗаказе.(
|
НомерСтроки,
|
Услуга,
|
СтоимостьУслуги,
|
СтоимостьИздержекНаОказаниеУслуги
|
)
|ИЗ
|
Документ.ОказаниеУслуги КАК ОказаниеУслуги
|ГДЕ
|
ОказаниеУслуги.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьИнформацияОЗаказеШапка =
Макет.ПолучитьОбласть("ИнформацияОЗаказеШапка");
ОбластьИнформацияОЗаказе =
Макет.ПолучитьОбласть("ИнформацияОЗаказе");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда

Лист
129 09.03.01.2017.057.ПЗ
Продолжение приложения А
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьИнформацияОЗаказеШапка);
ВыборкаИнформацияОЗаказе =
Выборка.ИнформацияОЗаказе.Выбрать();
Пока ВыборкаИнформацияОЗаказе.Следующий() Цикл
ОбластьИнформацияОЗаказе.Параметры.Заполнить(ВыборкаИнформацияОЗ
аказе);
ТабДок.Вывести(ОбластьИнформацияОЗаказе,
ВыборкаИнформацияОЗаказе.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
ВЫБРАТЬ
ИнтересыКлиентов.НаименованиеКлиента,
ИнтересыКлиентов.ИнтересКлиента,
ИнтересыКлиентов.ИсточникПервичногоИнтереса
ИЗ
РегистрСведений.ИнтересыКлиентов КАК ИнтересыКлиентов
ВЫБРАТЬ
ОбратнаяСвязь.НаименованиеКлиента,
ОбратнаяСвязь.ИнтересКлиента,
ОбратнаяСвязь.УдовлетворенностьКлиента,
ОбратнаяСвязь.ПолучениеУслуги
ИЗ
РегистрСведений.ОбратнаяСвязь КАК ОбратнаяСвязь
ВЫБРАТЬ
УтверждениеПроекта.ОписаниеПроекта,
УтверждениеПроекта.ПараметрыПроекта.(
ЦельПроекта,
ЗаказчикПроекта,
РуководительПроекта,
БюджетПроекта,
СрокНачалаПроекта,
СрокОкончанияПроекта

Лист
130 09.03.01.2017.057.ПЗ
Продолжение приложения А
)
ИЗ
Документ.УтверждениеПроекта КАК УтверждениеПроекта
ВЫБРАТЬ
Клиенты.Наименование,
Клиенты.ОбщаяИнформация.(
Адрес,
КонтактнаяИнформация
),
Клиенты.ПрофильКлиента.(
ВидЛица,
ТипЛица
)
ИЗ
Справочник.Клиенты КАК Клиенты
ВЫБРАТЬ
ПродажиОбороты.НаименованиеКлиента,
ПродажиОбороты.Договор,
ПродажиОбороты.Услуга,
ПродажиОбороты.Инженер,
ПродажиОбороты.ВыручкаОборот
ИЗ
РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты
ВЫБРАТЬ
ЗаказКлиента.НаименованиеКлиента,
ЗаказКлиента.ПриоритетЗаказа,
ЗаказКлиента.СтатусЗаказа,
ЗаказКлиента.Инженер,
ЗаказКлиента.Договор,
ЗаказКлиента.ИнформацияОЗаказе.(
Услуга,
СтоимостьУслуги
ИЗ
Документ.ЗаказКлиента КАК ЗаказКлиента
ВЫБРАТЬ
ПрибыльОстаткиИОбороты.НаименованиеКлиента,
ПрибыльОстаткиИОбороты.Договор,
ПрибыльОстаткиИОбороты.Услуга,
ПрибыльОстаткиИОбороты.Инженер,
ПрибыльОстаткиИОбороты.ПрибыльПриход,
ПрибыльОстаткиИОбороты.ПрибыльРасход,
ПрибыльОстаткиИОбороты.ПрибыльКонечныйОстаток

Лист
131 09.03.01.2017.057.ПЗ
ПРИЛОЖЕНИЕ Б. КОМПАКТ ДИСК
Содержание:
1)
Пояснительная записка к ВКР;
2)
Презентация.