Файл: Разработка и реализация конфигурации «Продуктовый магазин» на платформе 1С:Предприятие.pdf

Рисунок 20 - Работа с конструктором движения

Аналогично настраивается регистр накопления для документа «РасходТоваров». В качестве типа движения регистра необходимо выбрать «Расход». Вид регистра «Обороты» (Рисунок 21).

Рисунок 21 - Создание регистра накопления «ПродажиТоваров»

Помимо регистра накопления в информационной системе созданы регистры сведений «Цены» и «ПоступлениеТоваров», позволяющих производить максимальную автоматизацию деятельности магазина.

Рисунок 22 - Создание регистра сведений «Цены»

Кроме того, были созданы планы счетов, планы видов характеристик, а также регистр бухгалтерского учета (рисунок 21,22, 23).

Рисунок 23 - Создание плана счетов «ПланСчетовБухучета»

Рисунок 24 – План видов характеристик «СубконтоБухучета»

Рисунок 25 – Регистр бухгалтерии «РегистрБухгалтерскогоУчета»

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

На рисунке 24 показано создание отчета «ОборотноСальдоваяВедомость» с использованием схемы компоновки.

Этапы создания отчета представлены на рисунке 25. Программный код представлен в (программный код).

Рисунок 26 - Создание отчета "ОборотноСальдоваяВедомость"

Рисунок 27 - Создание отчета в режиме схемы компоновки данных

По аналогии создаются остальные отчеты.

Для автоматизации работы информационной системы был создан ввод на основании. На рисунке 26 представлена настройка Конструктора ввода на основании. Заполнение выражения происходит автоматически.

Рисунок 28 - Создание конструктора ввода на основании

Кроме того, автоматизация деятельности продуктового магазина заключается также в автоматическом выводе документов на печать ().

Рисунок 29 – Вывод документа на печать

---

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

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

Так, на Рисунок 30 представлено главное окно информационной системы в режиме 1С.

Рисунок 30 – Главное меню «Продуктового магазина»

На Рисунок 32 показано заполнение документа «ПоступлениеТоваров». Вычисление суммы и суммы по документу вычисляется автоматически.

Рисунок 31 – Главное меню «Продуктового магазина»

На Рисунок 32 показано заполнение документа «ПродажаТоваров». Заполнение цены происходит автоматически. Вычисление суммы и суммы по документу также вычисляется автоматически. Выбор тарифа происходит исходя из вида предоставляемой услуги.

Рисунок 32 - Заполнение документа «Продажа товаров покупателям»

Создание документа на основании представлено на рисунке 31.

Рисунок 33 - Заполнение документа «Оплата поставщику» на основании

Нажатие кнопки Печать обеспечит вывод документа на печать (Рисунок 34).

Рисунок 34 - Вывод документа «Продажа товаров покупателям» на печать

Вывод отчета «ОбротноСальдоваяВедомость» (Рисунок 35).

Рисунок 35 - Отчет «ОборотноСальдоваяВедомость»

Заключение

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

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

---

В результате выполнения курсовой работы все поставленные цели достигнуты.

Изучение литературы по теме курсовой работы показало, что в данное время существует достаточный выбор программных продуктов, позволяющих автоматизировать работу «Продуктовый магазин».

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

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

Все поставленные задачи курсовой работы были решены.

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

Учебно-методическая литература

1. Бойко Э.В., 1С: Предприятие 8.0. Универсальный самоучитель
2. Варкентин В.В. Информационные системы на базе 1 С:Предприятие//Научное сообщество студентов XXI столетия. Технические науки: сб. ст. по мат. XXXIX междунар.студ.науч.-практ. Конф. № 2(39) https://sibac.info/studconf/tech/xxxix/47278 (дата обращения: 15.04.2019)

Интернет-ресурсы

1. Официальный сайт 1С: Предприятие — № 6 [электронный ресурс] — Режим доступа. — URL: http://v8.1c.ru/ (дата обращения 13.04.2019)
2. Электронная книга 1С Предприятие 8.3., https://freesoft.ru/windows/elektr_kniga_1s_predpriyatie_83
3. https://solutions.1c.ru/catalog/retail/features

ПРИЛОЖЕНИЕ

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

Код вычисления «Суммы»

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

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

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

Код вычисления «СуммыСНДС»

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

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

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

Модуль выбора цен

Функция РозничнаяЦена(АктуальнаяДата, ЭлементНоменклатуры) экспорт

//Создать вспомогательный объект "Отбор"

Отбор = Новый Структура ("Номенклатура", ЭлементНоменклатуры);

//Получить актуальные значения ресурсов регистра

ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее(АктуальнаяДата, Отбор);

---

Возврат ЗначенияРесурсов.Цена;

КонецФункции

Код конструктора движения регистров документа «ПоступлениеТоваров»

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

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

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

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

// регистр ЗапасыТоваров Приход

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

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

Движение = Движения.ЗапасыТоваров.Добавить();

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

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

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

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

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

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

КонецЦикла;

// регистр ПоступлениеТоваров

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

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

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

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

Движение.Дата = Дата;

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

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

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

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

КонецЦикла;

// регистр РегистрБухгалтерскогоУчета

Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;

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

Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();

Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.Товары;

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

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

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

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

Движение.СодержаниеОперации = "Стоимость товаров без НДС";

Движение.СубконтоДт[ПланыВидовХарактеристик.СубконтоБухучета.Товары] = ТекСтрокаПереченьТоваров.Номенклатура;

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

Движение.СубконтоКт[ПланыВидовХарактеристик.СубконтоБухучета.Контрагенты] = Поставщик;

КонецЦикла;

// регистр РегистрБухгалтерскогоУчета

Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;

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

Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();

---

Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.НДСПоПриобретениям;

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

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

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

Движение.СодержаниеОперации = "Сумма НДС";

Движение.СубконтоКт[ПланыВидовХарактеристик.СубконтоБухучета.Контрагенты] = Поставщик;

КонецЦикла;

// регистр РегистрБухгалтерскогоУчета

Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;

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

Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();

Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.РасчетыСБюджетомПоНДС;

Движение.СчетКт = ПланыСчетов.ПланСчетовБухучета.НДСПоПриобретениям;

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

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

Движение.СодержаниеОперации = "НДС к вычету";

КонецЦикла;

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

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

Код конструктора печати «ПоступлениеТоваров»

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

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.ПоступленияТоваров.ПолучитьМакет("Печать");

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

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

"ВЫБРАТЬ

| ПоступленияТоваров.Дата,

| ПоступленияТоваров.Договор,

| ПоступленияТоваров.Номер,

| ПоступленияТоваров.Поставщик,

| ПоступленияТоваров.Склад,

| ПоступленияТоваров.СуммаДокумента,

| ПоступленияТоваров.ПереченьТоваров.(

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

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

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

| Цена,

| Сумма,

| СтавкаНДС,

| СуммаНДС,

| ВсегоСНДС

| )

|ИЗ

| Документ.ПоступленияТоваров КАК ПоступленияТоваров

|ГДЕ

| ПоступленияТоваров.Ссылка В (&Ссылка)";

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

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

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

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

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

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

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

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

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

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

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

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

КонецЕсли;

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

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

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

---