Прикладные экономические пакеты

Высокий уровень конкуренции предполагает необходимость совершенствования обслуживания клиентов, увеличение скорости обслуживания, формирования отчетных документов. Автоматизация оптовых продаж предполагает решение задач, связанных с учетом деятельности, связанной с учетом наличия товара на складе, заказов клиентов, работы с поставщиками. Решены следующие задачи:Проведен анализ операций по продажам в условиях салона связи ООО «Мобиленд»;Проанализированы бизнес-процессы технологии оптовых продаж, определены недостатки существующей технологии работы специалистов;Проведена постановка целей и задач автоматизации учета оптовых продаж;Проведено проектирование логической и физической моделей данных;Разработано приложение автоматизации деятельности информационного отдела с использованием языка программирования «1С: Предприятие».СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВКузнецов В. С. Предметно-ориентированные экономические информационные системы. Администрирование 1С: учебное пособие / В. С. Кузнецов. - Чита: Забайкальский государственный университет, 2018. - 182 с.Гантц И. С. Разработка конфигураций в среде «1С: Предприятие»: учебно-методическое пособие / И. С. Гантц. - Москва: МИРЭА - Российский технологический университет, 2020. - 63 с.Дадян Э. Г. Основы языка программирования 1С 8.3: учебное пособие/ Э.Г. Дадян. - Москва : Вузовский учебник : ИНФРА-М, 2017. – 132с.Дадян Э. Г. Конфигурирование и моделирование в системе "1С: Предприятие": учебник: / Э.Г. Дадян. - Москва: Вузовский учебник: ИНФРА-М, 2018 . - 416 сМарченко И. О., Перевертайло М. Л. Разработка системы управления предприятием на платформе "1С: Предприятие 8.3" : учебно-методическое пособие / И.О. Марченко, М.Л. Перевертайло. - Новосибирск: Изд-во НГТУ, 2018. – 113с.Широкова Е. В. Разработка простых отчетов в "1C: Предприятие 8.3" с использованием системы компоновки данных: учебное пособие / Е. В. Широкова. - Калуга: Манускрипт, 2017. - 83 с.Макаровских Т. А. Автоматизация деятельности предприятия: [учебное пособие] / Т.А. Макаровских. - Челябинск: Издательский центр ЮУрГУ, 2017. – 115с.Уфимцева О. В. Информационные технологии в профессиональной деятельности : учебное пособие / О. В. Уфимцева. - Челябинск: издательский центр ЮУрГУ, 2018. – 234с.Михед А. Д., Подлевских А. П. Применение платформы 1C: Предприятие для автоматизации информационных систем учета: учебное пособие / А. Д. Михед, А. П. Подлевских. - Москва: Изд-во МТИ, 2019. - 139 с.Слесарева Е. А. Информационные системы в экономики. Разработка прикладного решения средствами "1C: Предприятие 8.3" : учебное пособие / Е. А. Слесарева. - Москва: Московский университет МВД России имени В.Я. Кикотя, 2018. - 179 с.ПриложениеФрагменты программного кодаПроцедура Печать(ТабДок, Ссылка) Экспорт//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)Макет = Документы.Заказы.ПолучитьМакет("Печать");Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|Заказы.Дата,|Заказы.Доставка,|Заказы.Клиент,|Заказы.Номер,|Заказы.Статус,|Заказы.Товар.(|НомерСтроки,|НаименованиеТовара,|Количество|)|ИЗ|Документ.Заказы КАК Заказы|ГДЕ|Заказы.Ссылка В (&Ссылка)";Запрос.Параметры.Вставить("Ссылка", Ссылка);Выборка = Запрос.Выполнить().Выбрать();ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");Шапка = Макет.ПолучитьОбласть("Шапка");ОбластьТоварШапка = Макет.ПолучитьОбласть("ТоварШапка");ОбластьТовар = Макет.ПолучитьОбласть("Товар");ТабДок.Очистить();ВставлятьРазделительСтраниц = Ложь;Пока Выборка.Следующий() ЦиклЕсли ВставлятьРазделительСтраниц ТогдаТабДок.ВывестиГоризонтальныйРазделительСтраниц();КонецЕсли;ТабДок.Вывести(ОбластьЗаголовок);Шапка.Параметры.Заполнить(Выборка);ТабДок.Вывести(Шапка, Выборка.Уровень());ТабДок.Вывести(ОбластьТоварШапка);ВыборкаТовар = Выборка.Товар.Выбрать();Пока ВыборкаТовар.Следующий() ЦиклОбластьТовар.Параметры.Заполнить(ВыборкаТовар);ТабДок.Вывести(ОбластьТовар, ВыборкаТовар.Уровень());КонецЦикла;ВставлятьРазделительСтраниц = Истина;КонецЦикла;//}}КонецПроцедурыПроцедура ОбработкаПроведения(Отказ, Режим)// регистр ТоварВНаличии РасходДвижения.ТоварВНаличии.Записывать = Истина;Для Каждого ТекСтрокаДетализация Из Детализация ЦиклДвижение = Движения.ТоварВНаличии.Добавить();Движение.ВидДвижения = ВидДвиженияНакопления.Расход;Движение.Период = Дата;Движение.Продукция = ТекСтрокаДетализация.Продукция;Движение.Количество = ТекСтрокаДетализация.Количество;КонецЦикла;//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВКонецПроцедуры&НаКлиентеПроцедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)ТабДок = Новый ТабличныйДокумент;Печать(ТабДок, ПараметрКоманды);ТабДок.ОтображатьСетку = Ложь;ТабДок.Защита = Ложь;ТабДок.ТолькоПросмотр = Ложь;ТабДок.ОтображатьЗаголовки = Ложь;ТабДок.Показать();//}}КонецПроцедуры&НаСервереПроцедура Печать(ТабДок, ПараметрКоманды)Справочники.Товары.Печать(ТабДок, ПараметрКоманды);КонецПроцедурыВЫБРАТЬТовары.Наименование КАК Наименование,Заказы.Статус КАК Статус,СУММА(ЗаказыТовар.Количество) КАК Количество,Товары.Стоимость КАК Стоимость,Товары.Стоимость * ЗаказыТовар.Количество КАК Поле1ИЗДокумент.Заказы.Товар КАК ЗаказыТоварЛЕВОЕ СОЕДИНЕНИЕ Справочник.Товары КАК ТоварыПО ЗаказыТовар.НаименованиеТовара = Товары.СсылкаЛЕВОЕ СОЕДИНЕНИЕ Документ.Заказы КАК ЗаказыПО ЗаказыТовар.Ссылка = Заказы.СсылкаСГРУППИРОВАТЬ ПОТовары.Наименование,Заказы.Статус,Товары.Стоимость,Товары.Стоимость * ЗаказыТовар.КоличествоВЫБРАТЬКлиенты.Наименование КАК Наименование,Заказы.Дата КАК Дата,Заказы.Статус КАК Статус,Клиенты.Адрес КАК АдресИЗДокумент.Заказы КАК ЗаказыЛЕВОЕ СОЕДИНЕНИЕ Справочник.Клиенты КАК КлиентыПО Заказы.Клиент = Клиенты.СсылкаВЫБРАТЬТоварВНаличии.Товар.Наименование КАК ТоварНаименование,ТоварВНаличии.Количество КАК КоличествоИЗРегистрНакопления.ТоварВНаличии КАК ТоварВНаличии