Дипломная работа: Автоматизация обработки заявок ПАО "Ростелеком"

Скачать

Заказать новую работу

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

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал