Разработка подсистемы формирования документов и Анализ эффективности оказания услуг ООО «Арбат-Т»

Автор работы: Пользователь скрыл имя, 15 Июня 2011 в 22:52, курсовая работа

Описание

Целью выполненной дипломной работы было разработка подсистемы автоматизации формировании договоров и анализ эффективности работы ООО «Арбат-Т».

В период выполнения дипломной работы передо мной была поставлена задача разработки на базе типовой конфигурации платформы «1С: Предприятие 8.2» автоматизированной подсистемы по организации документооборота в организации ООО «Арбат - Т» , метод, помогающие в принятии решений по работе с клиентами, а также анализ их эффективности.

Содержание

Введение 3
ГЛАВА 1. ОПИСАНИЕ ПРЕДМЕТНОЙ ОБЛАСТИ 5
1.1 Анализ деятельности ООО «Арбат-Т» 5
1.2.Введение в систему 1С:Предприятие. 7
1.3. Метод анализа предпочтений и удовлетворенности потребителей 17
ГЛАВА 2. ПОСТАНОВКА ЗАДАЧИ И ПРОЕКТИРОВАНИЕ КОНФИГУРАЦИИ. 19
2.1. Постановка задачи 19
2.2.Объект конфигурации «Справочники» 20
2.3.Объект конфигурации «Документы». 27
2.3.Дополнительные объекты конфигурации. 32
ГЛАВА 3. РАЗРАБОТКА КОНФИГУРАЦИИ. 33
3.1. Разработка объектов конфигурации «Справочники» 33
3.2.Разработка объектов конфигурации «Документы» 41
3.3. Схема данных 47
3.4. Описание пользовательского интерфейса 47
Заключение 63
Список литературы 65
Приложение 1 67

Работа состоит из  1 файл

Диплом_jn АНИ .doc

— 1.30 Мб (Скачать документ)

                  Характеристики.Получить(Индекс1).СуммарнаяОценка = 0;

                  Характеристики.Получить(Индекс1).КоличествоОценок = 0;

                  Характеристики.Получить(Индекс1).СредняяОценка = 0; 

            КонецЦикла;   

            КоличествоАнкет = Анкеты.Количество(); 

            Если КоличествоАнкет > 0 Тогда    
 

            Для Индекс1 = 0 По КоличествоАнкет - 1 Цикл     

                  Опросник = Анкеты.Получить(Индекс1).Анкета; 

                  КоличествоХарактеристикВОпроснике = Опросник.ОценкаХарактеристик.Количество(); 

                  Для Индекс2 = 0 По КоличествоХарактеристикВОпроснике - 1 Цикл         

                        СтрокаОпросника = Опросник.ОценкаХарактеристик.Получить(Индекс2); 
 

                        СтрокаХарактеристики = Характеристики.Найти(СтрокаОпросника.Характеристика, "Характеристика"); 

                        Если( СтрокаХарактеристики <> Неопределено) и  

      (СтрокаОпросника.ОценкаХарактеристики = Перечисления.ОценкаХарактеристики.Низкий) Тогда  
 

                              Оценка = 0; 

                              Если СтрокаОпросника.ОценкаХарактеристики = Перечисления.ОценкаХарактеристики.Средний Тогда  

                                    Оценка = 0.5; 

                              Иначе  

                                    Если СтрокаОпросника.ОценкаХарактеристики = Перечисления.ОценкаХарактеристики.Высокий Тогда  

                                          Оценка = 1; 

                                    КонецЕсли; 

                              КонецЕсли; 

                              СтрокаХарактеристики.СуммарнаяОценка = СтрокаХарактеристики.СуммарнаяОценка + Оценка;

                              СтрокаХарактеристики.КоличествоОценок = СтрокаХарактеристики.КоличествоОценок + 1; 
 

                        КонецЕсли; 
 

                  КонецЦикла; 
 
 
 

            НачПериода = НачалоПериода;

            КонПериода = КонецПериода; 
 
 

            КоличествоХарактеристик = Характеристики.Количество(); 

            Для Индекс2 = 0 По КоличествоХарактеристик - 1 Цикл 
 

                  СтрокаХарактеристики = Характеристики.Получить(Индекс2); 

                  Если СтрокаХарактеристики.КоличествоОценок <> 0 Тогда 

                        СтрокаХарактеристики.СредняяОценка = СтрокаХарактеристики.СуммарнаяОценка/СтрокаХарактеристики.КоличествоОценок; 

                  КонецЕсли; 
 

            КонецЦикла;  

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

Информация о работе Разработка подсистемы формирования документов и Анализ эффективности оказания услуг ООО «Арбат-Т»