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

Заключение

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

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

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

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

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

1. Култыгин О.П., Сапожкова Т.Е. Методология и технология проектирова-ния информационных систем и технологий. М.: Учебная программа, 2013. – 95с.
2. Диго С.М. Базы данных. Проектирование и создание: Учебно-методический комплекс. – М.: Изд. Центр ЕАОИ. 2008. – 171 с
3. Гвоздева В.А. Основы построения автоматизированных информационных систем. - М.: ИНФРА-М, 2007. – 320с.
4. А.А. Емельянов. Прикладная информатика: журнал – Москва: Университет «Университет», 2018. – № 1(73). – 145 с.
5. Бартеньев, О.В. 1С: Предприятие: программирование для всех: базовые объекты и расчеты на одной дискете: практическое пособие / О.В. Бартеньев. – Москва: Диалог-МИФИ, 2005. – 460 с.
6. М.Г. Радченко, Е.Ю. Хрусталева. 1С: Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы. изд. 1С-Паблишинг. 2013.-943с.
7. Габец, А. П., Гончаров, Д. И. 1С: Предприятие 8.1. Простые примеры разработки [Текст] / А.П. Габец, Д.И. Гончаров. – Питер: "1С-Паблишинг", 2009. – 383 стр.
8. Маклаков, С. В. BPwin и ERwin. CASE - средства разработки информационных систем. Учебное пособие [Текст] / С.В. Маклаков. – Москва: Диалог – МИФИ, 1999. – 256с.
9. Хрусталева, Е. Ю. Разработка сложных отчетов в 1С: Предприятии 8 Система компоновки данных [Текст] / Е.Ю. Хрусталева – Питер: "1С-Паблишинг", 2009. – 489 стр.
10. Борисов, В.В. Компьютерная поддержка сложных организационно- технических систем. [Текст]:/ В.В. Борисов, И.А. Бычков, А.В. Дементьев. - Горячая линия - Телеком, 2002 -300с.
11. Сайт компании 1с [Электронный ресурс] URL: https://1c.ru/

Приложение 1

Рисунок 20 – Отчет “Материалы”

Рисунок 20.1 – Отчет “Остатки материалов по свойствам”

Рисунок 20.2 – Отчёт “Оборотно-сальдовая ведомость”

Приложение 2

Листинг программного кода модулей.

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

&НаКлиенте

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

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

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

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

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

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

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

Движения.Управленческий.Записывать = Истина;

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

// Регистр ОстаткиМатериалов Приход

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

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

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

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

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

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

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

// Регистр Стоимость Материалов Приход

Движение = Движения.СтоимостьМатериалов.Добавить();

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

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

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

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

// Регистр Управленческий

Движение = Движения.Управленческий.Добавить();

Движение.СчетДт = ПланыСчетов.Основной.Товары;

Движение.СчетКт = ПланыСчетов.Основной.РасчетыСПоставщиками;

Движение.Период = Дата; Движение.Сумма = ТекСтрокаМатериалы.Сумма;

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

Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Материалы] =

ТекСтрокаМатериалы.Материал;

КонецЦикла;

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

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

&НаКлиенте

Процедура МатериалыКоличествоПриИзменении(Элемент)

СтрокаТабличнойЧасти = Элементы.Материалы.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);

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

&НаКлиенте

Процедура МатериалыЦенаПриИзменении(Элемент)

СтрокаТабличнойЧасти = Элементы.Материалы.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);

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

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

КонецЕсли;

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

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

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

// регистр ОстаткиМатериалов Расход

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

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

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

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

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

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

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

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

КонецЦикла;

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

Документ «Расходная накладная», модуль формы:

&НаКлиенте

Процедура ВыбытиеЦенаПриИзменении(Элемент)

СтрокаТабличнойЧасти = Элементы.Выбытие.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти)

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

&НаКлиенте

Процедура ВыбытиеКоличествоПриИзменении(Элемент)

СтрокаТабличнойЧасти = Элементы.Выбытие.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти)

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

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

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

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

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

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

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

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

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