Материал: Автоматизация рабочего места менеджера отдела продаж для ООО РЕМ

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
70
КАК
отличительным
Доход
ПродажиОбороты.Покупатель.Представление КАК
первой
Клиент,
поставка
ПродажиОбороты.СуммаОборот -
предоставление
ПродажиОбороты.СебестоимостьОборот
ИЗ
РегистрНакопления.Продажи.Обороты КАК
предприятия
ПродажиОбороты
ЭлементыФормы.ПереченьНоменклатуры.ТекущиеДанные;
СтрокаТабличнойЧасти.Сумма =
СтрокаТабличнойЧасти.Количество*СтрокаТабличнойЧасти.Цена;
КонецПроцедуры
Процедура
особенности
Печать(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)
//
относятся
Данный
первой
фрагмент
поставка
построен
предоставление
конструктором.
//
предприятия
При
представлено
повторном
представляют
использовании
прибыли
конструктора,
продвижении
внесенные
производитель
вручную
процесс
изменения
развивающейся
будут
разделение
утеряны!!!
ТабДок
разделении
=
распределение
Новый
распределением
ТабличныйДокумент;
Макет
связанные
=
связаны
Документы.ОказаниеУслуг.ПолучитьМакет("Печать1");
//
системе
Заголовок
Область
сопровождаются
=
спроса
Макет.ПолучитьОбласть("Заголовок");
ТабДок.Вывести(Область);
//
степени
Шапка
Шапка
товаров
=
только
Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(Шапка);
//
торгового
ПереченьНоменклатуры
Область
увязать
=
удобством
Макет.ПолучитьОбласть("ПереченьНоменклатурыШапка");
ТабДок.Вывести(Область);
ОбластьПереченьНоменклатуры
управление
=
услуг
Макет.ПолучитьОбласть("ПереченьНоменклатуры");
Для
установление
Каждого
уходящие
ТекСтрокаПереченьНоменклатуры
факторов
Из
целом
ПереченьНоменклатуры
широкого
Цикл
ОбластьПереченьНоменклатуры.Параметры.Заполнить(ТекСтрокаПереченьНоменклатуры
);
ТабДок.Вывести(ОбластьПереченьНоменклатуры);
КонецЦикла;
Область
элемент
=
элементов
Макет.ПолучитьОбласть("Всего");
Область.Параметры.ВсегоПоДокументу =
элементы
ПереченьНоменклатуры.Итог("Сумма");
ТабДок.Вывести(Область);
ТабДок.ОтображатьСетку =
этапом
Ложь;
ТабДок.Защита =
являясь
Ложь;
ТабДок.ТолькоПросмотр =
более
Ложь;
ТабДок.ОтображатьЗаголовки =
внутренней
Ложь;
ТабДок.Показать();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
КонецПроцедуры
Отчет
воздействуют
«Рейтинг
деятельности
Клиентов»,
зависимости
код
заключение
формы
закупочной
отчета
Процедура
информационное
Сформировать()
коммерческая
Запрос
конечному
=
конечный
Новый
мероприятий
Запрос;
места
Запрос.Текст =
обеспечивающие
"ВЫБРАТЬ
[УПОРЯДОЧИТЬ
представляют
ПО
прибыли
| Доход
продвижении
УБЫВ";
ЭлементыФормы.Диаграмма1.ИсточникДанных
=
процесс
Запрос.Выполнить().Выгрузить();
КонецПроцедуры
Процедура
развивающейся
ПередОткрытием(Отказ,
разделение
СтандартнаяОбработка)
ПолеВыбора
распределение
=
распределением
ТипДиаграммы.Гистограмма;
ЭлементыФормы.Диаграмма1.ТипДиаграммы =
розничной
ПолеВыбора;
Сформировать();
КонецПроцедуры
Процедура
связаны
ПолеВыбораПриИзменении(Элемент)
ЭлементыФормы.Диаграмма1.ТипДиаграммы =
системы
ПолеВыбора;
КонецПроцедуры
СписокВыбора
спроса
=
степени
ЭлементыФормы.ПолеВыбора.СписокВыбора;
СписокВыбора.Добавшъ(ТипДиаграммы.График, "График");
также
СписокВыбора.Добавить(ТипДиаграммы.Гистограмма, "Гистограмма");
товаров
СписокВыбора.Добавить(ТипДиаграммы.ГистограммаОбъемная, "Гистограмма
только
3D");
торгового
СписокВыбора.Добавить(ТипДиаграммы.ГистограммаГоризонтальная, "Гистограмма
торговых
горизонтальная");
СписокВыбора.Добавить(ТипДиаграммы.Круговая, "Круговая");
удобством
СписокВыбора.Добавить(ТипДиаграммы.КруговаяОбъемная, "Круговая
управление
объемная");
услуг
СписокВыбора.Добавить(ТипДиаграммы.ИзометрическаяНепрерывная, "Изометрическая
установление
непрерывная");
СписокВыбора.Добавить(ТипДиаграммы.Изометрическаяпирамида, "Изометрическая
факторов
пирамида");
СписокВыбора.Добавить(ТипДиаграммы.Изометрическаялента, "Изометрическая
лента");
Отчет
экономическая
«РеестрДокументовОказаниеУслуги»,
элемент
код
элементов
формы
элементы
отчета
Процедура
этом
ДействияФормыРеестрДокументовОказаниеУслугиСформировать(Кнопка)
являясь
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА(РеестрДокум
активную
ентовОказаниеУслуги)
//
внешней
Данный
внутренней
фрагмент
воздействие
построен
воздействуют
конструктором.
//
деятельности
При
зависимости
повторном
заключение
использовании
закупочной
конструктора,
изыскание
внесенные
информационное
вручную
коммерческая
изменения
конечному
будут
конечный
утеряны!!!
ТабДок
мероприятий
=
места
ЭлементыФормы.ПолеТабличногоДокумента;
РеестрДокументовОказаниеУслуги(Т
обеспечивающие
абДок);
//}}
отличительным
КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА
относятся
КонецПроцедуры
Процедура
поставка
РеестрДокументовОказаниеУслуги(ТабДок)
предоставление
Экспорт
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ(РеестрДокументовОказаниеУслуги)
//
представлено
Данный
представляют
фрагмент
прибыли
построен
продвижении
конструктором.
//
производитель
При
процесс
повторном
развивающейся
использовании
разделение
конструктора,
разделении
внесенные
распределение
вручную
распределением
изменения
розничной
будут
связанные
утеряны!!!
Макет
связаны
=
системе
ОтчетОбъект.ПолучитьМакет("РеестрДокументовОказаниеУслуги");
Запрос
системы
=
сопровождаются
Новый
спроса
Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ОказаниеУслуг
товаров
.Дата КАК
только
Дата,
| ОказаниеУслуг.Номер КАК
торговых
Номер,
| ОказаниеУслуг.Склад,
| ПРЕДСТАВЛЕНИЕ(ОказаниеУслуг
удобством
Склад),
70
| ОказаниеУслуг.Мастер,
| ПРЕДСТАВЛЕНИЕ(ОказаниеУслуг.Мастер),
| ОказаниеУслуг
услуг
.Клиент,
| ПРЕДСТАВЛЕНИЕ(ОказаниеУслуг.Клиент)
|ИЗ
| Документ.ОказаниеУслуг КАК ОказаниеУслуг
|
УПОРЯДОЧИТЬ
установление
ПО
| Дата,
| Номер";
Результат
факторов
=
целом
Запрос.Вьшолншъ();
ОбластьЗаголовок
широкого
=
экономическая
Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал
элемент
=
элементов
Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы
элементы
=
этапом
Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы
этом
=
являясь
Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей
активную
=
более
Макет.ПолучитьОбласть("Детали");
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаДетальныеЗаписи
внешней
=
внутренней
Результат.Выбрать();
Пока
воздействие
ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
ТабДок.Вывести(ОбластьДетальныхЗаписей,
ВыборкаДетальныеЗаписи.Уровень());
КонецЦикла;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьПодвал);
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ
КонецПроцедуры
Отчет
деятельности
«Перечень
зависимости
услуг»,
заключение
код
закупочной
формы
изыскание
отчета
Процедура
коммерческая
ДействияФормыПереченьУслугСформировать(Кнопка)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА(ПереченьУсл
уг)
//
конечный
Данный
мероприятий
фрагмент
места
построен
обеспечивающие
конструктором.
//
особенности
При
отличительным
повторном
относятся
использовании
первой
конструктора,
поставка
внесенные
предоставление
вручную
предприятия
изменения
представлено
будут
представляют
утеряны!!!
ТабДок
прибыли
=
продвижении
ЭлементыФормы.ПолеТабличногоДокумента;
ПереченьУслуг(ТабДок,
производитель
Неопределено,
процесс
ДатаОтчета);
//}}
разделение
КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА
разделении
КонецПроцедуры
Процедура
распределением
ПереченьУслуг(ТабДок,
розничной
ВидНоменклатуры,
связанные
ДатаОтчета)
связаны
Экспорт
71
73
ИЗ
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ(ПереченьУслуг)
//
системы
Данный
сопровождаются
фрагмент
спроса
построен
степени
конструктором.
//
также
При
товаров
повторном
только
использовании
торгового
конструктора,
торговых
внесенные
увязать
вручную
удобством
изменения
управление
будут
услуг
утеряны!!!
Макет
установление
=
уходящие
ОтчетОбъект.ПолучитьМакет("ПереченьУслуг"); Запрос
факторов
=
целом
Новый
широкого
Запрос;
Запрос.УстановшъПараметр("ВидНоменклатуры", Перечисления
элемент
.ВидыНоменклатуры.Услуга);
Запрос.УстановитьПараметр("ДатаОтчета", ДатаОтчета);
элементов
Запрос.Текст =
"ВЫБРАТЬ
СпрНоменклатура.Родитель КАК
этапом
ГруппаУслуг,
этом
ПРЕДСТАВЛЕНИЕ(СпрНоменклатура.Родитель),
СпрНоменклатура.Ссылка КАК
являясь
Услуга,
активную
СпрНоменклатура.Представление, ЦеныСрезПоследних.Цена
Справочник.Номенклатура КАК
более
СпрНоменклатура
внешней
ЛЕВОЕ
внутренней
СОЕДИНЕНИЕ
воздействие
РегистрСведений.Цены.СрезПоследних(&ДатаОтчета, )
воздействуют
КАК
деятельности
ЦеныСрезПоследних
ПО
заключение
ЦеныСрезПоследних.Номенклатура =
закупочной
СпрНоменклатура.Ссылка
|ГДЕ
СпрНоменклатура.ВидНоменклатуры =
изыскание
&ВидНоменклатуры
информационное
ИТОГИ
коммерческая
ПО
ГруппаУслуг
конечный
ИЕРАРХИЯ";
Запрос.УстановитьПараметр("ВидНоменклатуры", Неопределено);
места
Запрос.УстановитьПараметр("ДатаОтчета", ДатаОтчета);
Результат
особенности
=
отличительным
Запрос.Выполнить();
ОбластьЗаголовок
относятся
=
первой
Макет.ПолучитьОбласть("Заголовок"); ОбластьПодвал
поставка
=
предоставление
Макет.ПолучитьОбласть("Подвал"); ОбластьШапкаТаблицы
предприятия
=
представлено
Макет.ПолучитьОбласть("ШапкаТаблицы"); ОбластьПодвалТаблицы
представляют
=
прибыли
Макет.ПолучитьОбласть("ПодвалТаблицы"); ОбластьГруппаУслугИерархия
продвижении
=
производитель
Макет.ПолучитьОбласть("ГруппаУслугИерархия");
ОбластьГруппаУслуг
процесс
=
развивающейся
Макет.ПолучитьОбласть("ГруппаУслуг");
ОбластьДетальныхЗаписей
разделение
=
разделении
Макет.ПолучитьОбласть("Детали");
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаГруппаУслуг
распределение
=
Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока
розничной
ВыборкаГруппаУслуг.Следующий() Цикл
связанные
Если
связаны
ВыборкаГруппаУслуг.ТипЗаписи() =
системе
ТипЗаписиЗапроса.ИтогПоИерархии Тогда
Область
сопровождаются
=
спроса
ОбластьГруппаУслугИерархия;
Иначе
Область
также
=
товаров
ОбластьГруппаУслуг;
только
КонецЕсли;
74
"ВЫБРАТЬ
I
|ИЗ
Область.Параметры.Зашлнить(ВыборкаГруппаУслуг);
ТабДок.Вывести(Область, ВыборкаГруппаУслуг.Уровень());
ВыборкаДетальныеЗаписи
торговых
=
увязать
ВыборкаГруппаУслуг.Выбрать();
Пока
удобством
ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
ТабДок.Вывести(ОбластьДетальныхЗаписей,
ВыборкаДетальныеЗаписи.Уровень());
КонецЦикла;
КонецЦикла;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьПодвал);
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ
КонецПроцедуры
Отчет
услуг
«Рейтинг
установление
услуг»,
уходящие
код
факторов
формы
целом
отчета
Процедура
экономическая
ДействияФормыРейтингУслугСформировать(Кнопка)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА(РейтингУслу
г)
//
элементов
Данный
элементы
фрагмент
этапом
построен
этом
конструктором.
//
являясь
При
активную
повторном
более
использовании
внешней
конструктора,
внутренней
внесенные
воздействие
вручную
воздействуют
изменения
деятельности
будут
зависимости
утеряны!!!
ТабДок
заключение
=
закупочной
ЭлементыФормы.ПолеТабличногоДокумента;
РейтингУслуг(ТабДок,
изыскание
Неопределено,
информационное
ДатаНачала,
коммерческая
КонецДня(ДатаОкончания));
//}}
конечный
КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА
мероприятий
КонецПроцедуры
Процедура
обеспечивающие
РейтингУслуг(ТабДок,
особенности
ВидНоменклатуры,
отличительным
ДатаНачала,
относятся
ДатаОкончания)
Экспорт
//{{
поставка
КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ(РейтингУслуг)
//
предприятия
Данный
представлено
фрагмент
представляют
построен
прибыли
конструктором.
//
продвижении
При
производитель
повторном
процесс
использовании
развивающейся
конструктора,
разделение
внесенные
разделении
вручную
распределение
изменения
распределением
будут
розничной
утеряны!!!
Макет
связанные
=
связаны
ОтчетОбъект.ПолучитьМакет("РейтингУслуг"); Запрос
системе
=
системы
Новый
сопровождаются
Запрос;
Запрос.Текст =
СпрНоменклатура.Ссылка КАК
также
Услуга,
товаров
СпрНоменклатура.Представление,
ПродажиОбороты.СуммаОборот КАК
только
Выручка
I Справочник.Номенклатура КАК
торговых
СпрНоменклатура
| ЛЕВОЕ
удобством
СОЕДИНЕНИЕ
РегистрНакопления.Продажи.Обороты(&ДатаНачала, &ДатаОкончания,
услуг
,
установление
)
уходящие
КАК
факторов
ПродажиОбороты
| ПО
широкого
ПродажиОбороты.Номенклатура =
экономическая
СпрНоменклатура.Ссылка
|ГДЕ
| (СпрНоменклатура.ЭтоГруппа =
элемент
ЛОЖЬ)
Источник: https://baza.diplomsite.ru/previewfile/2177

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

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
налогу на добавленную стоимость
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы