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