НоваяСтрока.СтоимостьУслуги = ТекСтрокаИнформацияОЗаказе.СтоимостьУслуги;

НоваяСтрока.Услуга = ТекСтрокаИнформацияОЗаказе.Услуга;

КонецЦикла;

КонецЕсли;

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

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

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

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

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

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр Прибыль Расход

Движения.Прибыль.Записывать = Истина;

Для Каждого ТекСтрокаИнформацияОЗаказе Из ИнформацияОЗаказе Цикл

Движение = Движения.Прибыль.Добавить();

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

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

Движение.НаименованиеКлиента = НаименованиеКлиента;

Движение.Договор = Договор;

Движение.Услуга = ТекСтрокаИнформацияОЗаказе.Услуга;

Движение.Инженер = Инженер;

Движение.Прибыль = ТекСтрокаИнформацияОЗаказе.СтоимостьИздержекНаОказаниеУслуги;

КонецЦикла;

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

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

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

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

Макет = Документы.ОказаниеУслуги.ПолучитьМакет("Печать");

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

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

"ВЫБРАТЬ

| ОказаниеУслуги.Дата,

| ОказаниеУслуги.Договор,

| ОказаниеУслуги.Инженер,

| ОказаниеУслуги.НаименованиеКлиента,

| ОказаниеУслуги.Номер,

| ОказаниеУслуги.СтоимостьИздержекНаОказаниеУслуги,

| ОказаниеУслуги.ИнформацияОЗаказе.(

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

| Услуга,

| СтоимостьУслуги,

| СтоимостьИздержекНаОказаниеУслуги

| )

|ИЗ

| Документ.ОказаниеУслуги КАК ОказаниеУслуги

|ГДЕ

| ОказаниеУслуги.Ссылка В (&Ссылка)";

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

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

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

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

ОбластьИнформацияОЗаказеШапка = Макет.ПолучитьОбласть("ИнформацияОЗаказеШапка");

ОбластьИнформацияОЗаказе = Макет.ПолучитьОбласть("ИнформацияОЗаказе");

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

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

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

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

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

КонецЕсли;

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

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

ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьИнформацияОЗаказеШапка);

---

ВыборкаИнформацияОЗаказе = Выборка.ИнформацияОЗаказе.Выбрать();

Пока ВыборкаИнформацияОЗаказе.Следующий() Цикл

ОбластьИнформацияОЗаказе.Параметры.Заполнить(ВыборкаИнформацияОЗаказе);

ТабДок.Вывести(ОбластьИнформацияОЗаказе, ВыборкаИнформацияОЗаказе.Уровень());

КонецЦикла;

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

КонецЦикла;

//}}

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

ВЫБРАТЬ

ИнтересыКлиентов.НаименованиеКлиента,

ИнтересыКлиентов.ИнтересКлиента,

ИнтересыКлиентов.ИсточникПервичногоИнтереса

ИЗ

РегистрСведений.ИнтересыКлиентов КАК ИнтересыКлиентов

ВЫБРАТЬ

ОбратнаяСвязь.НаименованиеКлиента,

ОбратнаяСвязь.ИнтересКлиента,

ОбратнаяСвязь.УдовлетворенностьКлиента,

ОбратнаяСвязь.ПолучениеУслуги

ИЗ

РегистрСведений.ОбратнаяСвязь КАК ОбратнаяСвязь

ВЫБРАТЬ

УтверждениеПроекта.ОписаниеПроекта,

УтверждениеПроекта.ПараметрыПроекта.(

ЦельПроекта,

ЗаказчикПроекта,

РуководительПроекта,

БюджетПроекта,

СрокНачалаПроекта,

СрокОкончанияПроекта

)

ИЗ

Документ.УтверждениеПроекта КАК УтверждениеПроекта

ВЫБРАТЬ

Клиенты.Наименование,

Клиенты.ОбщаяИнформация.(

Адрес,

КонтактнаяИнформация

),

Клиенты.ПрофильКлиента.(

ВидЛица,

ТипЛица

)

ИЗ

Справочник.Клиенты КАК Клиенты

ВЫБРАТЬ

ПродажиОбороты.НаименованиеКлиента,

ПродажиОбороты.Договор,

ПродажиОбороты.Услуга,

ПродажиОбороты.Инженер,

ПродажиОбороты.ВыручкаОборот

ИЗ

РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты

ВЫБРАТЬ

ЗаказКлиента.НаименованиеКлиента,

ЗаказКлиента.ПриоритетЗаказа,

ЗаказКлиента.СтатусЗаказа,

ЗаказКлиента.Инженер,

ЗаказКлиента.Договор,

ЗаказКлиента.ИнформацияОЗаказе.(

Услуга,

СтоимостьУслуги

)

ИЗ

Документ.ЗаказКлиента КАК ЗаказКлиента

ВЫБРАТЬ

ПрибыльОстаткиИОбороты.НаименованиеКлиента,

ПрибыльОстаткиИОбороты.Договор,

ПрибыльОстаткиИОбороты.Услуга,

ПрибыльОстаткиИОбороты.Инженер,

ПрибыльОстаткиИОбороты.ПрибыльПриход,

ПрибыльОстаткиИОбороты.ПрибыльРасход,

ПрибыльОстаткиИОбороты.ПрибыльКонечныйОстаток

---

Смотрите также файлы

• московский технический университет связи и информатики.docx

• Урока Тема Оказание первой помощи при укусах змей и насекомых Тип урока изучение и первичное закрепление.docx

• Практическая работа 1 Составьте таблицу (см образец), запишите в первый столбец все изученные вами теории и модели мотивации.docx

• Есептеу графикалы жмыс 1.docx

• Программа Карточка 2 фи класс.docx