Курсовая работа на тему: Описание предметной области и круга задач для автоматизации

Введение

Материально-техническое снабжение (МТС) - это вид коммерческой деятельности по обеспечению материально-техническими ресурсами процесса производства, осуществляемый до начала производства - от момента возникновения потребности в ресурсах вплоть до их использования при изготовлении продукции.

Цель МТС - доведение до производственных потребителей конкретных ресурсов требуемых конструктивных, технологических свойств в необходимых количествах (объемах), в точный срок, в определенном месте с минимально допустимыми затратами.

Предмет МТС - материально-технические ресурсы (мтр), необходимые для обеспечения производственного процесса предприятия.

Субъектами МТС являются, с одной стороны, потребитель (как правило, производственное предприятие), с другой - поставщики материально-технических ресурсов (производственные и посреднические структуры).

Объекты МТС - потребители материально-технических ресурсов.

Целью курсового проекта является разработка АРМ "Отдел материально-технического снабжения" предназначенной для автоматизации учета проведения выставок племенных животных.

Курсовой проект выполнялся с помощью программы "1С: Предприятие". Главной целью создаваемой программы является упрощение хранения необходимой информации о поставках МТС, поставщиках МТС, внутрихозяйственных операций с МТС, товарно-транспортных операциях МТС. Продукт позволит работнику упростить работу по учету МТС.

При учете МТС через работника предприятия проходит большой объем данных, сведенья о поставщиках, информация о товаре, информация о движении материалов.

В ходе создания курсового проекта для правильной работы системы необходимо создать: справочники, документы, отчеты, а так же печатные формы, предусмотренные по документам.

Готовый курсовой проект должен отвечать всем требованиям, предъявляемым к нему и решать все поставленные задачи. Быть простым и понятным в использовании, а документы и их печатные формы соответствовать документам, используемым на предприятии.

Задачами курсового проекта являются:

автоматизация справочной системы;

формирование и проведение документов;

формирование отчетов;

разработка удобного интерфейса.

Оглавление

- Введение

- Описание предметной области и круга задач для автоматизации

- Описание предметной области

- Описание круга задач для автоматизации

- Проектирование задачи

- Разработка концептуальной модели предметной области

- Разработка конфигурации в 1СПредприятии

- Создание констант и перечислений

- Создание справочников, написание программных модулей

- Создание журналов и документов, описание обработки проведения и вывода на печать

- Создание отчетов

- Администрирование

- Создание пользователя и пользовательского интерфейса Заключение

- Список использованных источников

- Приложение А Листинг справочников, печатных форм и проводок

- Приложение Б Листинг запросов на создание отчетов

Заключение

В результате выполнения курсового проекта была разработана система, которая позволяет вести учет работы отдела материально технического снабжения. Данная система отвечает всем требованиям, предъявленным в задании курсового проекта.

Система содержит все необходимое для учета работы справочники, отчеты документы и печатные формы. Разработанная система позволяет вести поступления материалов, внутри хозяйственные операции, отгрузку материалов потребителям, выводить данные из справочников, документов на печатную форму, формировать отчет.

Разработанная система по учету работы отдела материально технического снабжения имеет пользовательский интерфейс и простоту ориентирования.

Наличие дополнительных справочников в которых содержится информация о контрагентах, складах, работниках, материалах, благодаря которым упрощается ввод данных, что несомненно является плюсом разработанной системы.

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

1. Харитонов, С.А. Учебник по 1С Предприятие 7.7 С.А. Харитонов, 2010. - 49с.

2. Рязанцева, Н.Б., Рязанцев, А.А. 1С: Предприятие. Зарплата и кадры. Секреты работы / Н.Б. Рязанцева, А.А. Рязанцев, 2012. - 204с.

. Митичкин, С.А. Практика программирования в среде 1С: Предприятие 7.7 / С.А. Митичкин, 2010. - 272с.

. Шубина, Е.В. Работаем в 1С: Предприятие 7.7. Настройка, эксплуатация, конфигурирование и программирование / Е.В. Шубина, 2011 - 400с.

. Герасимова, Л.Г., Смоляк, Р.В. 1С: Зарплата и Кадры 7.7. Повседневные операции. Советы опытного бухгалтера / Л.Г. Герасимова, Р.В. Смоляков, 2013. - 236с.

ПРИЛОЖЕНИЕ А

Листинг справочников, печатных форм и проводок документов

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

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

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

Процедура Печать()

Спр = СоздатьОбъект("Справочник.Материалы");

Спр.ИспользоватьДату(ИспользоватьДату());

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент() = 1 Цикл

Если Спр.ЭтоГруппа() = 1 Тогда

Таб.ВывестиСекцию("Группа");

Иначе

Таб.ВывестиСекцию("Строка");

КонецЕсли;

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать Животные","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

Процедура Печать()

Спр = СоздатьОбъект("Справочник.Контрагенты");

Спр.ИспользоватьДату(ИспользоватьДату());

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент() = 1 Цикл

Если Спр.ЭтоГруппа() = 1 Тогда

Таб.ВывестиСекцию("Группа");

Иначе

Таб.ВывестиСекцию("Строка");

КонецЕсли;

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать Контрагенты","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

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

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

Процедура Печать()

Спр = СоздатьОбъект("Справочник.Машины");

Спр.ИспользоватьДату(ИспользоватьДату());

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент() = 1 Цикл

Если Спр.ЭтоГруппа() = 1 Тогда

Таб.ВывестиСекцию("Группа");

Иначе

Таб.ВывестиСекцию("Строка");

КонецЕсли;

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать Место_Проведения_Выставки","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

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

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

Процедура Печать()

Спр = СоздатьОбъект("Справочник.Сотрудники");

Спр.ИспользоватьДату(ИспользоватьДату());

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент() = 1 Цикл

Если Спр.ЭтоГруппа() = 1 Тогда

Таб.ВывестиСекцию("Группа");

Иначе

Таб.ВывестиСекцию("Строка");

КонецЕсли;

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать Сотрудники","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

Процедура ПриОткрытии()

ПриЗаписиПерепроводить(1);

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

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

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

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

Процедура Печать()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,0,0);

ВыбратьСтроки();

Пока ПолучитьСтроку() = 1 Цикл

Таб.ВывестиСекцию("Строка");

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать ТТН","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

Процедура ПриОткрытии()

ПриЗаписиПерепроводить(1);

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

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

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

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

Процедура Печать()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,0,0);

ВыбратьСтроки();

Пока ПолучитьСтроку() = 1 Цикл

Таб.ВывестиСекцию("Строка");

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать Выставки","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

Процедура ПриОткрытии()

ПриЗаписиПерепроводить(1);

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

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

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

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

Процедура Печать()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,0,0);

ВыбратьСтроки();

Пока ПолучитьСтроку() = 1 Цикл

Таб.ВывестиСекцию("Строка");

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать Командировочные","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

Процедура ПриОткрытии()

ПриЗаписиПерепроводить(1);

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

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

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

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

Процедура Печать()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,0,0);

ВыбратьСтроки();

Пока ПолучитьСтроку() = 1 Цикл

Таб.ВывестиСекцию("Строка");

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать План_выставок","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

ПРИЛОЖЕНИЕ Б

Листинг запросов на создание отчетов

// Процедура генерации запроса Сформировать.

Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ВыбНачПериода по ВыбКонПериода;

|Обрабатывать НеПомеченныеНаУдаление;

|Материал = Документ.Поступление.Материал;

|Количество = Документ.Поступление.Количество;

|Стоимость = Документ.Поступление.Стоимость;

|Функция КоличествоСумма = Сумма(Количество);

|Функция СтоимостьСумма = Сумма(Стоимость);

|Группировка Материал;

|"//}}ЗАПРОС

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей Материал

Таб.ВывестиСекцию("Материал");

КонецЦикла;

// Заполнение полей "Итого"

Таб.ВывестиСекцию("Итого");

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать", "");

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

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей Фамилия

Таб.ВывестиСекцию("Фамилия");

КонецЦикла;

// Заполнение полей "Итого"

Таб.ВывестиСекцию("Итого");

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать", "");

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

// Процедура генерации запроса Сформировать.

Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ВыбНачПериода по ВыбКонПериода;

|Материал = Документ.ВнутриХозПеремещение.Материал;

|Количество = Документ.ВнутриХозПеремещение.Количество;

|Функция КоличествоСумма = Сумма(Количество);

|Группировка Материал;

|"//}}ЗАПРОС

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей Материал

Таб.ВывестиСекцию("Материал");

КонецЦикла;

// Заполнение полей "Итого"

Таб.ВывестиСекцию("Итого");

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать", "");

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

// Процедура генерации запроса Сформировать.

Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ВыбНачПериода по ВыбКонПериода;

|Обрабатывать НеПомеченныеНаУдаление;

|Материал = Документ.ТТН.Материал;

|Количетсво = Документ.ТТН.Количетсво;

|Отпускная_стоим = Документ.ТТН.Отпускная_стоим;

|Стоимость = Документ.ТТН.Стоимость;

|Стоимость_перевозки = Документ.ТТН.Стоимость_перевозки;

|Функция КоличетсвоСумма = Сумма(Количетсво);

|Функция Отпускная_стоимСумма = Сумма(Отпускная_стоим);

|Функция СтоимостьСумма = Сумма(Стоимость);

|Функция Стоимость_перевозкиСумма = Сумма(Стоимость_перевозки);

|Группировка Материал;

|"//}}ЗАПРОС

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей Материал

Таб.ВывестиСекцию("Материал");

КонецЦикла;

// Заполнение полей "Итого"

Таб.ВывестиСекцию("Итого");

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать", "");

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