Файл: Разработка эскизного и технического проекта программы.pdf
Добавлен: 29.06.2023
Просмотров: 188
Скачиваний: 7
В связи с поставленной целью мною были выполнены следующие задачи:
1. Исследовать назначение программы и разработать её спецификацию.
2. Рассмотреть разработанные объекты информационной системы.
3. Разработать экономическую информационную систему, включающую систему управления базами данных на примере MS SQL Express 2012 и приложение на платформе 1С на примере системы «1С: Предприятие 8.3».
4. Описать разработанную экономическую информационную систему, а также привести экономическое обоснование её внедрения.
Таким образом, цель, обозначенная во введении, была достигнута за счет решения обозначенных задач.
1. Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем: Учебник. -. М.: Финансы и статистика, 2005. – 512 с.
2. Балдин К.В., Уткин В.Б. Информационные системы в экономике: Учебник. – М.: Издательско-торговая корпорация «Дашков и К», 2007. – 395 с.
3. Проектирование информационных систем. Учебное пособие по курсу «Проектирование информационных систем» / Уфимск. гос. авиац. техн. ун-т; В.В. Мартынов, Н.О. Никулина, Е.И. Филосова – Уфа: УГАТУ, 2008. – 381 с.
4. Методические указания к лабораторным работам по дисциплине «Проектирование информационных систем» для студентов направления подготовки бакалавров 080700 «Бизнес-информатика» Сост. Е.И.Филосова, Н.О. Никулина.
5. 1С: Предприятие 8.2 Руководство разработчика часть 1 Москва фирма «1С» 2011
6. 1C:Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы (артикул 4601546108722). Печатная и электронная версии.
7. Язык запросов "1С:Предприятия 8" (+диск) (артикул 4601546108029). Печатная и электронная версии.
8. Профессиональная разработка в системе 1С:Предприятие 8" (+DVD-ROM). Издание 2 (артикул 4601546101853).
9. Разработка сложных отчетов в "1С:Предприятии 8.2". Система компоновки данных". Издание 2 (+ CD) (артикул 4601546097569).
10. Решение специальных прикладных задач в "1С:Предприятии 8.2". Серия "1С:Профессиональная разработка" (артикул 4601546092694)
11. Архитектура и работа с данными "1С:Предприятия 8.2". Серия "1С:Профессиональная разработка" (артикул 4601546090690)
- Приложение
- Текст программы
Процедура Печать (ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ЗаказКлиента.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗаказКлиента.Дата,
| ЗаказКлиента.ДатаЗаказа,
| ЗаказКлиента.Клиент,
| ЗаказКлиента.Менеджер,
| ЗаказКлиента.Номер,
| ЗаказКлиента.Склад,
| ЗаказКлиента.Товары (
| НомерСтроки,
| Наименование,
| Количество,
| Цена,
| Стоимость
| )
|ИЗ
| Документ.ЗаказКлиента КАК ЗаказКлиента
|ГДЕ
| ЗаказКлиента.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить(). Выбрать ();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТоварыШапка);
ВыборкаТовары = Выборка.Товары.Выбрать();
Пока ВыборкаТовары.Следующий() Цикл
ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЗаказКлиента") Тогда
// Заполнение шапки
ДатаЗаказа = ДанныеЗаполнения.ДатаЗаказа;
Клиент = ДанныеЗаполнения.Клиент;
Менеджер = ДанныеЗаполнения.Менеджер;
Склад = ДанныеЗаполнения.Склад;
Для Каждого ТекСтрокаТовары Из ДанныеЗаполнения.Товары Цикл
НоваяСтрока = Товары.Добавить();
НоваяСтрока.Количество = ТекСтрокаТовары.Количество;
НоваяСтрока.Наименование = ТекСтрокаТовары.Наименование;
НоваяСтрока.Стоимость = ТекСтрокаТовары.Стоимость;
НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
КонецЦикла;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Процедура Печать (ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ЗаказПоставщику.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗаказПоставщику.Дата,
| ЗаказПоставщику.ДатаЗаказа,
| ЗаказПоставщику.ДатаПоставки,
| ЗаказПоставщику.Клиент,
| ЗаказПоставщику.Менеджер,
| ЗаказПоставщику.Номер,
| ЗаказПоставщику.Поставщик,
| ЗаказПоставщику.Склад,
| ЗаказПоставщику.Товары.(
| НомерСтроки,
| Наименование,
| Количество,
| Цена,
| Стоимость
| )
|ИЗ
| Документ.ЗаказПоставщику КАК ЗаказПоставщику
|ГДЕ
| ЗаказПоставщику.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТоварыШапка);
ВыборкаТовары = Выборка.Товары.Выбрать();
Пока ВыборкаТовары.Следующий() Цикл
ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр Продажи
Движения.Продажи.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.Продажи.Добавить();
Движение.Период = Дата;
Движение.Клиент = Клиент;
Движение.Менеджер = Менеджер;
Движение.Наименование = ТекСтрокаТовары.Наименование;
Движение.Склад = Склад;
Движение.Стоимость = ТекСтрокаТовары.Стоимость;
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЗаказПоставщику") Тогда