Обеспечение автоматизации работы с клиентами при помощи информационной подсистемы "ЮГСтрой-Заказ"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
µтр("НаДату", Дата);
Запрос.УстановитьПараметр("Сотрудник",Сотрудник);
Запрос.УстановитьПараметр("ВыбДокумент",Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Количество() > 0 тогда
Выборка.Следующий();
Движения.ЗаработнаяПлата.Записывать = Истина;
Движение = Движения.ЗаработнаяПлата.Добавить();
Движение.Период = Дата;
Движение.Сотрудник = Сотрудник;
Движение.Сумма = Выборка.Сумма;
КонецЕсли;
Движения.Взаиморасчеты.Записывать = Истина;
Для Каждого ТекСтрокаУслуги Из Услуги Цикл
Движение = Движения.Взаиморасчеты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Клиент = Клиент;
Движение.Договор = Договор;
Движение.Номенклатура = ТекСтрокаУслуги.Номенклатура;
Движение.Сумма = ТекСтрокаУслуги.Сумма;
КонецЦикла;
КонецПроцедуры.
Б.4 - Листинг модуля документа Реализация
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
|АктОбОказанииУслугУслуги.Ссылка,
|СУММА(АктОбОказанииУслугУслуги.Сумма * (Проценты.Процент / 100)) КАК Сумма
|ИЗ
|Документ.Реализация.Товары КАК АктОбОказанииУслугУслуги
|ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПроцентыОтПродажУслуг.СрезПоследних(
|&НаДату,
|Сотрудник = &Сотрудник
|И ВидНачисления = ЗНАЧЕНИЕ(Перечисление.ВидНачисления.Продажа)) КАК Проценты
|ПО АктОбОказанииУслугУслуги.Ссылка.Сотрудник = Проценты.Сотрудник
|ГДЕ
|АктОбОказанииУслугУслуги.Ссылка = &ВыбДокумент
|
|СГРУППИРОВАТЬ ПО
|АктОбОказанииУслугУслуги.Ссылка";
Запрос.УстановитьПараметр("НаДату", Дата);
Запрос.УстановитьПараметр("Сотрудник",Сотрудник);
Запрос.УстановитьПараметр("ВыбДокумент",Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Количество() > 0 тогда
Выборка.Следующий();
Движения.ЗаработнаяПлата.Записывать = Истина;
Движение = Движения.ЗаработнаяПлата.Добавить();
Движение.Период = Дата;
Движение.Сотрудник = Сотрудник;
Движение.Сумма = Выборка.Сумма;
КонецЕсли;
Движения.Взаиморасчеты.Записывать = Истина;
Для Каждого ТекСтрокаУслуги Из Товары Цикл
Движение = Движения.Взаиморасчеты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Клиент = Клиент;
Движение.Договор = Договор;
Движение.Номенклатура = ТекСтрокаУслуги.Номенклатура;
Движение.Сумма = ТекСтрокаУслуги.Сумма;
КонецЦикла;
КонецПроцедуры.
Б.5 - Листинг модуля отчета Продажи
ВЫБРАТЬ
ВзаиморасчетыОстаткиИОбороты.Номенклатура,
СУММА(ВзаиморасчетыОстаткиИОбороты.СуммаНачальныйОстаток) КАК СуммаНачальныйОстаток,
СУММА(ВзаиморасчетыОстаткиИОбороты.СуммаКонечныйОстаток) КАК СуммаКонечныйОстаток,
СУММА(ВзаиморасчетыОстаткиИОбороты.СуммаПриход) КАК СуммаПриход,
Клиенты.Наименование,
Договоры.Наименование КАК Наименование1
ИЗ
РегистрНакопления.Взаиморасчеты.ОстаткиИОбороты КАК ВзаиморасчетыОстаткиИОбороты
ПОЛНОЕ СОЕДИНЕНИЕ Справочник.Клиенты КАК Клиенты
ПО ВзаиморасчетыОстаткиИОбороты.Клиент = Клиенты.Ссылка
ПОЛНОЕ СОЕДИНЕНИЕ Справочник.Договоры КАК Договоры
ПО ВзаиморасчетыОстаткиИОбороты.Договор = Договоры.Ссылка
ГДЕ
ВзаиморасчетыОстаткиИОбороты.Клиент = &ВыбКлиент
И ВзаиморасчетыОстаткиИОбороты.Договор = &ВыбДоговор
СГРУППИРОВАТЬ ПО
ВзаиморасчетыОстаткиИОбороты.Номенклатура,
Клиенты.Наименование,
Договоры.Наименование.
Б.6 - Листинг модуля отчета СписокКлиентов
ВЫБРАТЬ
Клиенты.ТипКлиента,
Клиенты.Наименование,
Клиенты.ЮрАдрес,
Клиенты.Телефон
ИЗ
Справочник.Клиенты КАК Клиенты
ГДЕ
(НЕ Клиенты.ПометкаУдаления)
УПОРЯДОЧИТЬ ПО
Клиенты.ТипКлиента,
Клиенты.Наименование.
Б.7 - Листинг модуля отчета ДоговорыКлиента
ВЫБРАТЬ
Договоры.Наименование,
Договоры.ВидДоговора,
Договоры.ДатаЗаключения,
Договоры.СрокДействия
ИЗ
Справочник.Договоры КАК Договоры
ГДЕ
Договоры.Владелец = &ВыбКлиент.
Б.8 - Листинг модуля отчета ДоговорыСотрудника
ВЫБРАТЬ
Договоры.Владелец,
Договоры.ВидДоговора,
Договоры.Наименование,
Договоры.ДатаЗаключения,
Договоры.СрокДействия
ИЗ
Справочник.Договоры КАК Договоры
ГДЕ
Договоры.Сотрудник = &Сотрудник.
Б.9 - Листинг модуля отчета ЗаработнаяПлата
ВЫБРАТЬ
ЗаработнаяПлатаОбороты.Сотрудник,
ЗаработнаяПлатаОбороты.Регистратор,
СУММА(ЗаработнаяПлатаОбороты.СуммаОборот) КАК Зарплата
ИЗ
РегистрНакопления.ЗаработнаяПлата.Обороты(&НачДата, &КонДата, Регистратор, ) КАК ЗаработнаяПлатаОбороты
ГДЕ
ЗаработнаяПлатаОбороты.Сотрудник = &Сотрудник
СГРУППИРОВАТЬ ПО
ЗаработнаяПлатаОбороты.Регистратор,
ЗаработнаяПлатаОбороты.Сотрудник.
Приложение В
Копии слайдов презентации
Слайд 1 - Тема дипломного проекта, ФИО дипломника, ученая степень, ученое звание и ФИО руководителя
Слайд 2 - Актуальность, цель и задачи дипломного проекта
Слайд 3 - Диаграмма вариантов использования информационной подсистемы
<