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

Скачать

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

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

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

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