Файл: Автоматизация складского учета на примере «Keramissimo».pdf

Рисунок 49 – Формирование документа «Реализация товаров»

В зависимости от склада (оптовый или розничный) печатаются накладные

Рисунок 50 – Печать накладной оптовой торговли

Разработка и формирование документа «Установка цен номенклатуры»

Рисунок 51 – Разработка документа «Установка цен номенклатуры»

Таблица 13

Структура документа «Установка цен номенклатуры»

Рисунок 52 – Формирование документа «Установка цен номенклатуры»

Рисунок 53 – Результат проведения документа «Установка цен номенклатуры»

Разработка регистров конфигурации

Рисунок 54– Разработка регистра «Остатки номенклатуры»

Рисунок 55 – Данные регистра накопления «Остатки номенклатуры»

Рисунок 56 – Разработка регистра накопления «Продажи»

Рисунок 57 – Данные регистра накопления «Продажи»

Рисунок 58– Разработка регистра сведений «Цены номенклатуры»

Рисунок 59 – Данные регистра сведений «Цены номенклатуры»

1. Разработка и формирование отчетов

Рисунок 60 – Разработка отчета «Прайс-лист»

Рисунок 61 – Формирование отчета «Прайс-лист»

Рисунок 61 – Разработка отчета «Остатки номенклатуры»

Рисунок 64 – Разработка отчета «Отче по продажам»

Заключение

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

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

Был проведен:

1. анализ деятельности склада компании, выделены и описаны имеющиеся там бизнес-процессы,
2. анализ характеристики продукта,

Исходя из имеющихся на рынке программных продуктов, предназначенных для автоматизации бизнес-процессов, после их анализа, определения достоинств и недостатков, была выбрана платформа разработки – 1С.

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

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

1. ГОСТ 7.32- 2001 Структура и правила оформления 22с.
2. ГОСТ Р 50922-2006 Защита информации. Основные термины и определения.
3. ГОСТ Р ИСО/МЭК 12207-2010 Информационная технология. Системная и программная инженерия. Процессы жизненного цикла программных средств.
4. Криницкий Н.А., Миронов Г.Д., Фролов Г.Д. Автоматизированные информационные системы - М.: Наука, 1982.- 384 с.
5. Беликова Т.Н., Бухгалтерский учёт и отчётность [Текст] / Т.Н.Беликова, Е.Н.Егерева.- Санкт-Петербург: Питер, 2015.- 240 с.
6. Гаджинский А.М Современный склад. Организация, технология, управление и логистика[Текст] / А.М.Гаджинский. - Москва: Проспект, 2005.- 175 с.
7. Алешин Л.И., Максимов Н.В.-М.: ММИЭИФП, 2004.- 561 с. Информационные технологии.
8. Баранов В.В. и др. / Автоматизация управления предприятием / ИФРА – М,. – Петров В. Н. / Информационные системы, учебник \ ПИТЕР, 2011.
9. Семенихина В.В.. –М.: Изд-во Эксмо (Портфель бухгалтера). Организация складского учета 2006.-80c.
10. Волгин В.В. Склад стандарты управления. Учебник 2009.
11. Федоров, Л. С. Общий курс логистики : учеб. пособие / Л. С. Федоров, М. В. Кравченко. – М. : Кнорус, 2010. – 224 с.
12. Как автоматизировать склад [Электронный ресурс] / Сайт о логистике - Режим доступа: http://logistic-forum.lv/sklad/avtomatizacija-sklada/

Приложение Код программы

Процедура ПечатьНакладной(ТабДок, Ссылка) Экспорт

Макет = Документы.РеализацияТоваров.ПолучитьМакет("Печать накладной");

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

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

"ВЫБРАТЬ

| РеализацияТоваров.Дата,

| РеализацияТоваров.Номер,

| РеализацияТоваров.Ответственный,

| РеализацияТоваров.Покупатель,

| РеализацияТоваров.Склад,

| РеализацияТоваров.Товары.(

| НомерСтроки,

| Номенклатура,

| Количество,

| Цена,

| Сумма

| )

|ИЗ

| Документ.РеализацияТоваров КАК РеализацияТоваров

|ГДЕ

| РеализацияТоваров.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");

ОбластьТовары = Макет.ПолучитьОбласть("Товары");

Подвал = Макет.ПолучитьОбласть("Подвал");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

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

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

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

ОбластьЗаголовок.Параметры.ПараметрРеализации = "Накладная оптовой реализации";

Иначе

ОбластьЗаголовок.Параметры.ПараметрРеализации = "Накладная розничной реализации";

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьТоварыШапка);

ВыборкаТовары = Выборка.Товары.Выбрать();

Пока ВыборкаТовары.Следующий() Цикл

ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);

ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());

КонецЦикла;

Подвал.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Подвал);

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

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

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

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

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

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

// регистр ЦеныНоменклатуры

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

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

Движение = Движения.ЦеныНоменклатуры.Добавить();

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

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

Движение.ТипЦен = ТипЦен;

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

КонецЦикла;

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

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

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

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

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

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

// регистр ОстаткиНоменклатуры Расход

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

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

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

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

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

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

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

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

КонецЦикла;

// регистр Продажи

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

// регистр ОстаткиНоменклатуры Расход

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

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

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

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

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

Движение.Склад = СкладИсточник;

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

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

КонецЦикла;

// регистр ОстаткиНоменклатуры Приход

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

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

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

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

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

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

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

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

КонецЦикла;

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