Файл: Разработка прикладного решения для автоматизации складского учета для компании Coffee like..pdf

КонецЦикла;

// регистр ИсполнениеЗаказовПоставщиками Приход

Движения.ИсполнениеЗаказовПоставщиками.Записывать = Истина;

Для Каждого ТекСтрокаПоставка Из Поставка Цикл

Движение = Движения.ИсполнениеЗаказовПоставщиками.Добавить();

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

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

Движение.Поставщик = Поставщик;

Движение.Товар = ТекСтрокаПоставка.Наименование;

Движение.Количество = ТекСтрокаПоставка.Количество;

КонецЦикла;

// регистр ПоступлениеТовараНаСклад Приход

Движения.ПоступлениеТовараНаСклад.Записывать = Истина;

Для Каждого ТекСтрокаПоставка Из Поставка Цикл

Движение = Движения.ПоступлениеТовараНаСклад.Добавить();

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

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

Движение.Склад = Склад;

Движение.Наименование = ТекСтрокаПоставка.Наименование;

Движение.Поставщик = Поставщик;

Движение.Сотрудник = Сотрудник;

Движение.Количество = ТекСтрокаПоставка.Количество;

Движение.Цена = ТекСтрокаПоставка.Цена;

Движение.Стоимость = ТекСтрокаПоставка.Сумма;

КонецЦикла;

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

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

Рис. 3.2.2. Форма документа «Заказ поставщику»

Документ «Заказ поставщику», модуль объекта

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

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

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

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

// регистр ИсполнениеЗаказовПоставщиками Приход

Движения.ИсполнениеЗаказовПоставщиками.Записывать = Истина;

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

Движение = Движения.ИсполнениеЗаказовПоставщиками.Добавить();

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

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

Движение.Поставщик = Поставщик;

Движение.Товар = ТекСтрокаЗаказ.Наименование;

Движение.Количество = ТекСтрокаЗаказ.Количество;

КонецЦикла;

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

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

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

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

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

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

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

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

Поставщик = ДанныеЗаполнения.Ссылка;

---

ОбъектОснование = ДанныеЗаполнения.Ссылка;

КонецЕсли;

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

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

Документ «Расходная накладная» предназначен для ввода сбытых товаров (рис. 3.2.3.). Данный документ двигает регистр накопления «Остатки на складе», вид движения – расход.

Рис. 3.2.3. Форма документа «Расходная накладная»

Документ «Расходная накладная», модуль объекта

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

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

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

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

// регистр ОстаткиНаСкладе Расход

Движения.ОстаткиНаСкладе.Записывать = Истина;

Для Каждого ТекСтрокаВыбытие Из Выбытие Цикл

Движение = Движения.ОстаткиНаСкладе.Добавить();

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

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

Движение.Склад = Склад;

Движение.Товар = ТекСтрокаВыбытие.Товар;

Движение.МОЛ = МОЛ2;

Движение.Количество = ТекСтрокаВыбытие.Количество;

КонецЦикла;

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

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

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

Документ «Прайс лист» предназначен для ввода цен на товары (рис. 3.2.4.). Данный документ двигает регистр накопления «Прайс лист», вид движения – приход.

Рис. 3.2.4. Форма документа «Прайс лист»

Документ «Прайс лист», модуль объекта

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

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

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

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

// регистр ПрайсЛист Приход

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

Для Каждого ТекСтрокаПрайс Из Прайс Цикл

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

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

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

Движение.Наименование = ТекСтрокаПрайс.Товар;

Движение.ЕдиницаИзмерения = ТекСтрокаПрайс.ЕдиницаИзмерения;

Движение.Цена = ТекСтрокаПрайс.Цена;

КонецЦикла;

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

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

Документ «Заказ на склад» предназначен для заказа товаров на склад (рис. 3.2.5.).

Рис. 3.2.5. Форма документа «Заказ на склад»

Документ «Ввод начальных остатков» предназначен для ввода начальных остатков товара (рис. 3.2.6.).

---

Рис. 3.2.6. Форма документа «Прайс лист»

Документ «Прайс лист», модуль объекта

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

// Определить, нужно ли обновлять дату в движениях

ОбновитьДатуДвижений = ЭтоНовый() ИЛИ Движения.ОстаткиНаСкладе.Модифицированность();

Если Не ОбновитьДатуДвижений Тогда

// Проверить, что дата изменилась

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

Запрос.УстановитьПараметр("ТекущийДокумент", Ссылка);

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

"ВЫБРАТЬ

Дата

ИЗ

Документ.ВводНачальныхОстатков

ГДЕ Ссылка = &ТекущийДокумент";

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

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

ОбновитьДатуДвижений = Выборка.Дата <> Дата;

КонецЕсли;

// Установить всем новую дату, если нужно

Если ОбновитьДатуДвижений Тогда

Если Не Движения.ОстаткиНаСкладе.Выбран() И

Не Движения.ОстаткиНаСкладе.Модифицированность() Тогда

Движения.ОстаткиНаСкладе.Прочитать();

КонецЕсли;

Для Каждого ЗаписьРегистра Из Движения.ОстаткиНаСкладе Цикл

ЗаписьРегистра.Период = Дата;

КонецЦикла;

КонецЕсли;

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

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

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

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

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

// регистр ОстаткиНаСкладе Приход

Движения.ОстаткиНаСкладе.Записывать = Истина;

Для Каждого ТекСтрокаВвод Из Ввод Цикл

Движение = Движения.ОстаткиНаСкладе.Добавить();

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

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

Движение.Склад = Склад;

Движение.Товар = ТекСтрокаВвод.Товар;

Движение.МОЛ = ТекСтрокаВвод.Сотрудники;

Движение.Количество = ТекСтрокаВвод.Количество;

КонецЦикла;

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

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

3.3 Разработка отчетов

Для простоты работы с имеющейся информацией, в информационной системе были созданы следующие отчеты: Движение товара за период, Остатки товаров по свойствам, Поступление товара. Отчет «Движение товара за период» содержит сведения об остатках продуктов на складе за определенный период (рис. 3.3.1.). «Остатки товаров по свойствам» содержит сведения об остатках определенных продуктов на складе, которые соответствуют заданным свойствам (рис. 3.3.2.). «Поступление товара» позволяет получить информацию о поступлении товара на склад (рис. 3.3.4.).

---

Рис. 3.3.1. Отчет «Движение товара за период»

Рис. 3.3.2. Отчет «Остатки товаров по свойствам»

Рис. 3.3.3. Отчет «Поступление товара»

Тестирование разработанного прикладного решения

3.4 Роли пользователей

Для разделения полномочий используются роли, которым назначаются права. Рассмотрим 2 роли.

Роль директор (рис. 3.4.1.). Права:

- просмотр и чтение документов;

- возможность изменять реквизиты организации.

Рис.3.4.1. Документ «Роль: Директор». Вкладка Права

Роль кладовщик (рис. 3.4.2.). Права на возможность изменять такие документы, как:

- заказ на склад;

- приходная накладная;

- расходная накладная;

- остатки на склад;

- поступление на склад;

- ввод начальных остатков;

- просмотр прайс-листов.

Рис.3.4.2. Документ «Роль: Кладовщик». Вкладка Права

Заключение

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

В результате выполнения данного курсового проекта все поставленные цели и задачи были выполнены. Были описаны технологии функционирования ИС, выполнено физическое проектирование БД, разработаны экранные форм ввода-вывода и отчеты, разработаны функциональные модули.

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

Информационная система разработана на платформе «1С: Предприятие» версии 8.2. Данный выбор обусловлен широкими возможностями по ведению учета хозяйственных операций, предоставляемыми системой.

Список использованной литературы

1. Информационный сервер "Фирма 1С". Электр. ресурс 1: 1С: Управление торговлей 8. Режим доступа: http://softrm.ru/ut8general/storage

---

2. Белоусов, П.Н., Островерх, А.Д. 1С: Предприятие: от 8.0 к 8.1 [Текст] / П.Н. Белоусов, А.Д. Островерх. – Питер: "1С-Паблишинг", 2008. – 577 стр.

3. Вендров, А.М. Проектирование программного обеспечения экономических информационных систем: Учебник для студентов, обучающихся по специальности «Прикладная информатика» и «Прикладная математика и информатика [Текст] / А.М. Вендров. – М.: Финансы и статистика, 2001. – 221 с.

4. Габец, А.П., Гончаров, Д.И. 1С: Предприятие 8.1. Простые примеры разработки [Текст] / А.П. Габец, Д.И. Гончаров. – Питер: "1С-Паблишинг", 2009. – 383 стр.

5. Информационные системы в экономике в вопросах и ответах: Учебн. пособие. – М.: ТК Велби, Издательство «Проспект», 2004. – 280 с.

6.Радченко, М. А. 1С: Предприятие 8.1. Практическое пособие разработчика. Примеры и типовые приемы [Текст] / М.А. Радченко. – Питер: "1С-Паблишинг", 2009. – 512 стр.

7. Хрусталева, Е.Ю. Разработка сложных отчетов в 1С:Предприятии 8 Система компоновки данных [Текст] / Е.Ю. Хрусталева – Питер: "1С-Паблишинг", 2009. – 489 стр.

8. Гайдамакин, Н.А. Автоматизированные информационные системы, базы и банки данных, ввод. курс [Текст]: учеб. пособие для вузов./ Н.А. Гайдамакин - М.: Гелиос АРВ, 2002. - 101 с.

9. Баженова, И. Ю. Основы проектирования приложений баз данных. [Текст]: учеб. пособие./ И.Ю.Баженова - М.: Интернет-Ун-т Информ Технологий БИНОМ. Лаб. знаний, 2006. - 252 с.

10. Сайт компании 1с [Электронный ресурс] URL: http://www.1с.ru

Приложения

Общий модуль «Работа с документами»: НаКлиенте

Процедура РассчитатьСумму(СтрокаТабличнойЧасти)Экспорт

СтрокаТабличнойЧасти.Сумма=СтрокаТабличнойЧасти.Количество * СтрокаТабличнойЧасти.Цена;

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

Документ «Приходная накладная», модуль объекта:

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

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

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

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

// регистр ОстаткиНаСкладе Приход

Движения.ОстаткиНаСкладе.Записывать = Истина;

Для Каждого ТекСтрокаПоставка Из Поставка Цикл

Движение = Движения.ОстаткиНаСкладе.Добавить();

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

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

Движение.Склад = Склад;

Движение.Товар = ТекСтрокаПоставка.Наименование;

Движение.НаборСвойств=ТекСтрокаПоставка.НаборСвойств;

Движение.МОЛ = Сотрудник;

Движение.Количество = ТекСтрокаПоставка.Количество;

КонецЦикла;

// регистр ИсполнениеЗаказовПоставщиками Приход

---