Файл: Проектирование реализации операций бизнес-процесса «Взаиморасчеты с клиентами» (на примере ООО «Тат Телеком».).pdf

Список литературы

1. 1С: Предприятие 8.2 Руководство разработчика часть 1 Москва фирма «1С» 2013 г.
2. 1С: Предприятие 8.2 Руководство разработчика часть 2 Москва фирма «1С» 2013 г.
3. 1C:Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы (артикул 4601546108722). Печатная и электронная версии 2014 г.
4. Архитектура и работа с данными "1С:Предприятия 8.2". Серия "1С: Профессиональная разработка" (артикул 4601546090690) 2012 г.
5. Голицына О. Л., Максимов Н. В., Попов И. И. Базы данных: учебное пособие. - М.: ФОРУМ: ИНФРА-М, 2011. - 400 с.
6. Диго С. М. Базы данных: проектирование и использование: учебник для вузов. - М.: Финансы и статистика, 2011. - 592 с.
7. Дейт К.Дж., Дарвен Хью. Основы будущих систем баз данных: Третий манифест. - Издательство Янус-К, 2012. – 656 с.
8. Дейт К. Дж. Введение в системы баз данных (седьмое издание). Вильямс, 2011 - 1072 с.
9. Илюшечкин В. М. Основы проектирования и использования баз данных: учеб. пособие. - М.: Высшее образование, 2012. - 213 с.
10. Инструменты для создания тиражируемых приложений "1С: Предприятия 8.2". Серия "1С: Профессиональная разработка" (артикул 4601546090706 2012 г.
11. Каленик А. И. Использование новых возможностей Microsoft SQL Server 2012. - М.: «Русская редакция», 2012. - 334 с.
12. Когаловский М.Р. Энциклопедия технологий баз данных. М.: Финансы и статистика, 2009. –800 c.
13. Когаловский М.Р. Теория реляционных баз данных. М.: Финансы и статистика, 2011. –500 c.
14. Кодд Е.Ф. Перевод: Когаловский М.Р. Реляционная модель данных для больших совместно используемых банков данных. М.: Финансы и статистика, 2011 – c.48
15. Кодд Е.Ф. Перевод: Когаловский М.Р. Реляционная модель данных для больших совместно используемых банков данных. М.: Финансы и статистика, 2011 – c.76
16. Кодд Е.Ф. Перевод: Когаловский М.Р. Реляционная модель данных для больших совместно используемых банков данных. М.: Финансы и статистика, 2011 – c.112
17. Кодд Е.Ф. Перевод: Когаловский М.Р. Реляционная модель данных для больших совместно используемых банков данных. М.: Финансы и статистика, 2011 – c. 256
18. Коннолли Т., Бегг К. Базы данных: проектирование, реализация и сопровождение. Издательство: Диалектика, 2012 – с.24.
19. Коннолли Т., Бегг К. Базы данных: проектирование, реализация и сопровождение. Издательство: Диалектика, 2011 – с.36.
20. Крёнке Д. Теория и практика построения баз данных. - М.: Питер, 2009. - 800 с.
21. Крёнке Д. Практический опыт программирования в реляционных базах данных. - М.: Питер, 2011. - 400 с.
22. Кузин А.В. Базы данных: учебное пособие для вузов. - М.: Академия, 2012. - 30 с.
23. Кузин А.В. Базы данных: учебное пособие для вузов. - М.: Академия, 2012. - 54 с.
24. Кузнецов С. Д. Основы баз данных: курс лекций: учеб. пособие для студентов, обучающихся по специальностям в обл. информ. технологий. - М.: Интернет - университет информационных технологий, 2011. - 488 с.
25. Полякова Л. Н. Основы SQL: Курс лекций. Учебное пособие. - М.: Интернет - университет информационных технологий, 2011. - 368 с.
26. Профессиональная разработка в системе 1С:Предприятие 8" (+DVD-ROM). Издание 2 (артикул 4601546101853). 2013 г.
27. Роберт Дж. Мюллер. Базы данных и UML. - М.: Лори, 2008. - 420 с.
28. Роберт Дж. Мюллер. Реляционные базы данных. - М.: Лори, 2011. - 420 с.
29. Райордан Ребекка М. Основы реляционных баз данных. Базовый курс: Теория и практика. - М.: Русская Редакция, 2011 – 384 с.
30. Райордан Ребекка М. Аналитические системы транзакций. Базовый курс: Теория и практика. - М.: Русская Редакция, 2012 – 400 с.
31. Разработка сложных отчетов в "1С:Предприятии 8.2". Система компоновки данных". Издание 2 (+ CD) (артикул 4601546097569). 2013 г.
32. Решение специальных прикладных задач в "1С:Предприятии 8.2". Серия "1С:Профессиональная разработка" (артикул 4601546092694) 2014 г.
33. Хомоненко А. Д., Цыганков В. М., Мальцев М. Г. Базы данных: Учебник для высших учебных заведений. - М.: Бином-Пресс, 2012. - 736 с.
34. Чубукова И. А. Data Mining: Учебное пособие. - М.: Интернет-университет информационных технологий; БИНОМ. Лаборатория знаний, 2009. - 382 с.
35. Чубукова И. А. Создание реляционных баз данных: Учебное пособие. - М.: Интернет-университет информационных технологий; БИНОМ. Лаборатория знаний, 2011. - 382 с.
36. М.Г. Радченко Е. Ю. Хрусталева. 1С: Предприятие 8.2 Практическое пособие разработчика. Диск прилагается. Москва 2011 г.
37. И. Ф. Астахов. СУБД: Язык SQL в примерах и задачах. 2015 г.
38. Знакомство с разработкой мобильных приложений на платформе «1С: Предприятие 8» (+CD) (артикул 4601546111241) 2014 г.
39. Настольная книга 1С: Эксперта по технологическим вопросам (артикул 4601546110060) 2013 г.
40. Язык запросов "1С:Предприятия 8" (+диск) (артикул 4601546108029). Печатная и электронная версии. 2012 г.

---

ПРИЛОЖЕНИЯ

Программный код

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ПервичныйИнтересКлиента") Тогда

// Заполнение шапки

ИнтересКлиента = ДанныеЗаполнения.ИнтересКлиента;

ИсточникПервичногоИнтереса = ДанныеЗаполнения.ИсточникПервичногоИнтереса;

НаименованиеКлиента = ДанныеЗаполнения.НаименованиеКлиента;

КонецЕсли;

//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

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

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр ОбратнаяСвязь

Движения.ОбратнаяСвязь.Записывать = Истина;

Движение = Движения.ОбратнаяСвязь.Добавить();

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

Движение.НаименованиеКлиента = НаименованиеКлиента;

Движение.ИнтересКлиента = ИнтересКлиента;

Движение.УдовлетворенностьКлиента = УдовлетворенностьКлиента;

Движение.ПолучениеУслуги = ПолучениеУслуги;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.ОбратнаяСвязьСКлиентом.ПолучитьМакет("Печать");

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

Запрос.Текст =

"ВЫБРАТЬ

| ОбратнаяСвязьСКлиентом.Дата,

| ОбратнаяСвязьСКлиентом.ИнтересКлиента,

| ОбратнаяСвязьСКлиентом.ИсточникПервичногоИнтереса,

| ОбратнаяСвязьСКлиентом.НаименованиеКлиента,

| ОбратнаяСвязьСКлиентом.Номер,

| ОбратнаяСвязьСКлиентом.ПолучениеУслуги,

| ОбратнаяСвязьСКлиентом.УдовлетворенностьКлиента

|ИЗ

| Документ.ОбратнаяСвязьСКлиентом КАК ОбратнаяСвязьСКлиентом

|ГДЕ

| ОбратнаяСвязьСКлиентом.Ссылка В (&Ссылка)";

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

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

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

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

---

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

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

&НаКлиенте

Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

ТабДок = Новый ТабличныйДокумент;

Печать(ТабДок, ПараметрКоманды);

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Ложь;

ТабДок.ТолькоПросмотр = Ложь;

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

//}}

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

&НаСервере

Процедура Печать(ТабДок, ПараметрКоманды)

Документы.ОбратнаяСвязьСКлиентом.Печать(ТабДок, ПараметрКоманды);

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

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

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр ИнтересыКлиентов

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

Движение = Движения.ИнтересыКлиентов.Добавить();

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

Движение.НаименованиеКлиента = НаименованиеКлиента;

Движение.ИнтересКлиента = ИнтересКлиента;

Движение.ИсточникПервичногоИнтереса = ИсточникПервичногоИнтереса;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.ПервичныйИнтересКлиента.ПолучитьМакет("Печать");

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

Запрос.Текст =

"ВЫБРАТЬ

| ПервичныйИнтересКлиента.Дата,

| ПервичныйИнтересКлиента.ИнтересКлиента,

| ПервичныйИнтересКлиента.ИсточникПервичногоИнтереса,

| ПервичныйИнтересКлиента.НаименованиеКлиента,

| ПервичныйИнтересКлиента.Номер

|ИЗ

| Документ.ПервичныйИнтересКлиента КАК ПервичныйИнтересКлиента

|ГДЕ

| ПервичныйИнтересКлиента.Ссылка В (&Ссылка)";

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

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

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

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ВставлятьРазделительСтраниц = Истина;

---

КонецЦикла;

//}}

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

&НаКлиенте

Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

ТабДок = Новый ТабличныйДокумент;

Печать(ТабДок, ПараметрКоманды);

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Ложь;

ТабДок.ТолькоПросмотр = Ложь;

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

//}}

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

&НаСервере

Процедура Печать(ТабДок, ПараметрКоманды)

Документы.ПервичныйИнтересКлиента.Печать(ТабДок, ПараметрКоманды);

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

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.УтверждениеПроекта.ПолучитьМакет("Печать");

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

Запрос.Текст =

"ВЫБРАТЬ

| УтверждениеПроекта.Дата,

| УтверждениеПроекта.Номер,

| УтверждениеПроекта.ОписаниеПроекта,

| УтверждениеПроекта.ПараметрыПроекта.(

| НомерСтроки,

| ЦельПроекта,

| ЗаказчикПроекта,

| РуководительПроекта,

| БюджетПроекта,

| СрокНачалаПроекта,

| СрокОкончанияПроекта

| )

|ИЗ

| Документ.УтверждениеПроекта КАК УтверждениеПроекта

|ГДЕ

| УтверждениеПроекта.Ссылка В (&Ссылка)";

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

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ОбластьПараметрыПроектаШапка = Макет.ПолучитьОбласть("ПараметрыПроектаШапка");

ОбластьПараметрыПроекта = Макет.ПолучитьОбласть("ПараметрыПроекта");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

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

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьПараметрыПроектаШапка);

ВыборкаПараметрыПроекта = Выборка.ПараметрыПроекта.Выбрать();

Пока ВыборкаПараметрыПроекта.Следующий() Цикл

ОбластьПараметрыПроекта.Параметры.Заполнить(ВыборкаПараметрыПроекта);

ТабДок.Вывести(ОбластьПараметрыПроекта, ВыборкаПараметрыПроекта.Уровень());

КонецЦикла;

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

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

&НаКлиенте

Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

ТабДок = Новый ТабличныйДокумент;

---

Печать(ТабДок, ПараметрКоманды);

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Ложь;

ТабДок.ТолькоПросмотр = Ложь;

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

//}}

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

&НаСервере

Процедура Печать(ТабДок, ПараметрКоманды)

Документы.УтверждениеПроекта.Печать(ТабДок, ПараметрКоманды);

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

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

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр Продажи

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

Для Каждого ТекСтрокаИнформацияОЗаказе Из ИнформацияОЗаказе Цикл

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

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

Движение.НаименованиеКлиента = НаименованиеКлиента;

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

Движение.Услуга = ТекСтрокаИнформацияОЗаказе.Услуга;

Движение.Инженер = Инженер;

Движение.Выручка = ТекСтрокаИнформацияОЗаказе.СтоимостьУслуги;

КонецЦикла;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр Прибыль Приход

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

Для Каждого ТекСтрокаИнформацияОЗаказе Из ИнформацияОЗаказе Цикл

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

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

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

Движение.НаименованиеКлиента = НаименованиеКлиента;

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

Движение.Услуга = ТекСтрокаИнформацияОЗаказе.Услуга;

Движение.Инженер = Инженер;

Движение.Прибыль = ТекСтрокаИнформацияОЗаказе.СтоимостьУслуги;

КонецЦикла;

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

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.ЗаказКлиента.ПолучитьМакет("Печать");

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

Запрос.Текст =

"ВЫБРАТЬ

| ЗаказКлиента.Дата,

| ЗаказКлиента.Договор,

| ЗаказКлиента.Инженер,

| ЗаказКлиента.НаименованиеКлиента,

| ЗаказКлиента.Номер,

| ЗаказКлиента.ПриоритетЗаказа,

| ЗаказКлиента.СтатусЗаказа,

| ЗаказКлиента.ИнформацияОЗаказе.(

| НомерСтроки,

| Услуга,

| СтоимостьУслуги

| )

|ИЗ

| Документ.ЗаказКлиента КАК ЗаказКлиента

|ГДЕ

| ЗаказКлиента.Ссылка В (&Ссылка)";

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

---