Обеспечение автоматизации работы с клиентами при помощи информационной подсистемы "ЮГСтрой-Заказ"

|

|СГРУППИРОВАТЬ ПО

| АктОбОказанииУслугУслуги.Ссылка";

Запрос.УстановитьПараметр("НаДату", Дата);

Запрос.УстановитьПараметр("Сотрудник",Сотрудник);

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

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

Если Выборка.Количество() > 0 тогда

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

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

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

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

Движение.Сотрудник = Сотрудник;

Движение.Сумма = Выборка.Сумма;

КонецЕсли;

Движения.Взаиморасчеты.Записывать = Истина;

Для Каждого ТекСтрокаУслуги Из Услуги Цикл

Движение = Движения.Взаиморасчеты.Добавить();

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

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

Движение.Клиент = Клиент;

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

Движение.Номенклатура = ТекСтрокаУслуги.Номенклатура;

Движение.Сумма = ТекСтрокаУслуги.Сумма;

КонецЦикла;

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

Б.4 - Листинг модуля документа «Реализация»

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

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

Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1

| АктОбОказанииУслугУслуги.Ссылка,

| СУММА(АктОбОказанииУслугУслуги.Сумма * (Проценты.Процент / 100)) КАК Сумма

|ИЗ

| Документ.Реализация.Товары КАК АктОбОказанииУслугУслуги

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПроцентыОтПродажУслуг.СрезПоследних(

| &НаДату,

| Сотрудник = &Сотрудник

| И ВидНачисления = ЗНАЧЕНИЕ(Перечисление.ВидНачисления.Продажа)) КАК Проценты

| ПО АктОбОказанииУслугУслуги.Ссылка.Сотрудник = Проценты.Сотрудник

|ГДЕ

| АктОбОказанииУслугУслуги.Ссылка = &ВыбДокумент

|

|СГРУППИРОВАТЬ ПО

| АктОбОказанииУслугУслуги.Ссылка";

Запрос.УстановитьПараметр("НаДату", Дата);

Запрос.УстановитьПараметр("Сотрудник",Сотрудник);

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

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

Если Выборка.Количество() > 0 тогда

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

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

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

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

Движение.Сотрудник = Сотрудник;

Движение.Сумма = Выборка.Сумма;

КонецЕсли;

Движения.Взаиморасчеты.Записывать = Истина;

Для Каждого ТекСтрокаУслуги Из Товары Цикл

Движение = Движения.Взаиморасчеты.Добавить();

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

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

Движение.Клиент = Клиент;

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

Движение.Номенклатура = ТекСтрокаУслуги.Номенклатура;

Движение.Сумма = ТекСтрокаУслуги.Сумма;

КонецЦикла;

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

Б.5 - Листинг модуля отчета «Продажи»

ВЫБРАТЬ

ВзаиморасчетыОстаткиИОбороты.Номенклатура,

СУММА(ВзаиморасчетыОстаткиИОбороты.СуммаНачальныйОстаток) КАК СуммаНачальныйОстаток,

СУММА(ВзаиморасчетыОстаткиИОбороты.СуммаКонечныйОстаток) КАК СуммаКонечныйОстаток,

СУММА(ВзаиморасчетыОстаткиИОбороты.СуммаПриход) КАК СуммаПриход,

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

Договоры.Наименование КАК Наименование1

ИЗ

РегистрНакопления.Взаиморасчеты.ОстаткиИОбороты КАК ВзаиморасчетыОстаткиИОбороты

ПОЛНОЕ СОЕДИНЕНИЕ Справочник.Клиенты КАК Клиенты

ПО ВзаиморасчетыОстаткиИОбороты.Клиент = Клиенты.Ссылка

ПОЛНОЕ СОЕДИНЕНИЕ Справочник.Договоры КАК Договоры

ПО ВзаиморасчетыОстаткиИОбороты.Договор = Договоры.Ссылка

ГДЕ

ВзаиморасчетыОстаткиИОбороты.Клиент = &ВыбКлиент

И ВзаиморасчетыОстаткиИОбороты.Договор = &ВыбДоговор

СГРУППИРОВАТЬ ПО

ВзаиморасчетыОстаткиИОбороты.Номенклатура,

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

Договоры.Наименование.

Б.6 - Листинг модуля отчета «СписокКлиентов»

ВЫБРАТЬ

Клиенты.ТипКлиента,

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

Клиенты.ЮрАдрес,

Клиенты.Телефон

ИЗ

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

ГДЕ

(НЕ Клиенты.ПометкаУдаления)

УПОРЯДОЧИТЬ ПО

Клиенты.ТипКлиента,

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

Б.7 - Листинг модуля отчета «ДоговорыКлиента»

ВЫБРАТЬ

Договоры.Наименование,

Договоры.ВидДоговора,

Договоры.ДатаЗаключения,

Договоры.СрокДействия

ИЗ

Справочник.Договоры КАК Договоры

ГДЕ

Договоры.Владелец = &ВыбКлиент.

Б.8 - Листинг модуля отчета «ДоговорыСотрудника»

ВЫБРАТЬ

Договоры.Владелец,

Договоры.ВидДоговора,

Договоры.Наименование,

Договоры.ДатаЗаключения,

Договоры.СрокДействия

ИЗ

Справочник.Договоры КАК Договоры

ГДЕ

Договоры.Сотрудник = &Сотрудник.

Б.9 - Листинг модуля отчета «ЗаработнаяПлата»

ВЫБРАТЬ

ЗаработнаяПлатаОбороты.Сотрудник,

ЗаработнаяПлатаОбороты.Регистратор,

СУММА(ЗаработнаяПлатаОбороты.СуммаОборот) КАК Зарплата

ИЗ

РегистрНакопления.ЗаработнаяПлата.Обороты(&НачДата, &КонДата, Регистратор, ) КАК ЗаработнаяПлатаОбороты

ГДЕ

ЗаработнаяПлатаОбороты.Сотрудник = &Сотрудник

СГРУППИРОВАТЬ ПО

ЗаработнаяПлатаОбороты.Регистратор,

ЗаработнаяПлатаОбороты.Сотрудник.

Приложение В

Копии слайдов презентации

Слайд 1 - Тема дипломного проекта, ФИО дипломника, ученая степень, ученое звание и ФИО руководителя

Слайд 2 - Актуальность, цель и задачи дипломного проекта



Слайд 3 - Диаграмма вариантов использования информационной подсистемы

Слайд 4 - Даталогическая модель информационной базы

Слайд 5 - Интерфейс информационной подсистемы

Слайд 6 - Интерфейс информационной подсистемы

Слайд 7 - Пример отчета «Договоры сотрудников», формируемого информационной подсистемой

Слайд 8 - Показатели технико-экономической эффективности проекта

Слайд 9 - Показатели технико-экономической эффективности проекта

Слайд 10 - Итоги

Размещено на Allbest