Автоматизированная информационная система "Справочная служба магазина"

Размещено на http://www.allbest.ru/

Частное образовательное учреждение среднего профессионального образования

«Техникум информатики, экономики и управления»

Курсовой проект

на тему Разработка информационной системы «Справочная служба магазина»

г. Ульяновск 2011 год

Введение

В современном мире моделирование и автоматизация бизнес-процессов являются залогом успешного функционирования компании. Данная технология требует квалифицированного подхода и понимания всех нюансов деятельности конкретного предприятия. Впоследствии профессиональные знания воплощаются в описании бизнес-процессов и выражаются в упрощенном управлении ими.

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

Успешное решение проблемы эффективного управления бизнесом во многом зависит от правильного выбора программного продукта для автоматизации учета и управления. Одним из таких продуктов, успешно зарекомендовавших себя на рынке для широкого спектра предприятий (от малых, средних и даже крупных предприятий), являются программные продукты фирмы 1С. Продукты 1С как товары способны удовлетворять потребностям рынка со всех точек зрения.

Целью данной курсовой работы является разработка автоматизированной информационной системы «Справочная служба магазина».

Основные задачи, которые должны быть решены в процессе разработки, следующие:

- автоматизировать ввод и хранение информации об обороте товаров.

1. Этапы типового проектирования информационных систем

Выбор типовой информационной системы - анализ требований

Формирование требований к ИС обоснование необходимости создания ИС

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

ИС «Справочная служба магазина» предназначена для ввода, хранения и просмотра информации о:

товаре: код, наименование, цена закупочная;

магазинах: код, наименование, адрес, телефон, руководитель;

покупателях: код, наименование.

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

Формирование требований к ИС, разработка концепции

Выявление акторов

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

Выбор типовой информационной системы

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

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

1) Наиболее важным фактором является сама система распространения и обслуживания данного семейства программно обеспечения. Тщательно изучив иностранный опыт распространения сложных по своему функционалы программных продуктов, специалисты фирмы 1С пришли к однозначному выводу, что из всех существующих схем распространения, является система распространения посредством фирм партнеров. Взяв эту идею за основу, 1С разработала максимально эффективную по своей сути систему контроля за распространением и внедрением разрабатываемых ею продуктов.

2) Жесткая система контроля за работой партнера. Так, одним из обязательных условий для успешного заключения договора о партнерстве с фирмой 1С, является наличие прошедших обучение и сертифицированных непосредственно в аттестованных фирмой 1С учебных центрах, специалистов.

3) Максимально открытая архитектура самой программной платформы, на которой основана любая конфигурация, предлагаемая для решения экономических задач. То есть, купив типовую конфигурацию, вы можете полностью модифицировать ее под специфику вашей организации и отрасли в целом.

Таким образом, в качестве платформы для разработки информационной системы была выбрана платформа системы «1С:Предприятие».

2. Техническое задание

Полное наименование системы и ее условное обозначение.

Полное наименование: информационная система «Справочная служба магазина».

Краткое наименование: ИС «Справочная служба магазина»

Основание для разработки системы

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

Назначение разработки системы

Информационная система «Справочная служба магазина» предназначена для облегчения отслеживания о товарообороте в магазине.

Требования к программе

Разрабатываемая система должна удовлетворять следующим требованиям:

Ведение справочников магазинов, товаров, покупателей;

Вывод информации о товаре;

Ведение истории прихода и реализации товара.

Требования к составу и параметрам технических и программных средств

Pentium III 300 MHz, 128 MB RAM;

Microsoft Windows 98, NT 4.0 SP6a, Me, 2000 SP2, XP, Vista, Server 2003 или более новая;

Microsoft Internet Explorer 5.01 или выше;

Доступ в Интернет - для обмена данными с туроператором;

Дополнительное ПО: 1С Предприятие 7.7;

Другое аппаратное обеспечение: клавиатура, мышь.

Требования к программной документации

Руководство оператора:

Общие сведения о программном продукте;

Описание установки, запуска;

Порядок работы с программой;

Сообщение пользователю.

Руководство программиста:

Общие сведения о программном продукте;

Структура программы;

Настройка программы;

Проверка программы;

Дополнительные возможности программы;

Сообщения системному программисту.

Технико-экономические показатели

Все необходимые технико-экономические показатели рассчитаны и приведены в разделе «Оценка экономической эффективности».

3. Разработка проектной модели

Технический проект

Справочники

Магазины

Атрибут	Тип атрибута
Адрес	Строка
Телефон	Строка
ФИО руководителя	Строка

Товар

Атрибут	Тип атрибута
Цена закупочная	Число
Единица измерения	Перечисление.ЕдИзм
Цена оптовая	Число

Покупатель

Атрибут	Тип атрибута

Документы

Приход

Шапка	Табличная часть
Магазин	Товар
	Цена
	Количество

Расход

Шапка	Табличная часть
Покупатель	Товар
Магазин	Цена
	Количество

Журналы

Приход-расход товаров

Описание проекта

Описание справочников

Справочник Магазины:

Данный справочник содержит сведения о магазинах.

Справочник Товар:

Данный справочник содержит сведения о товаре.

Справочник Покупатель:

Данный справочник содержит данные о покупателях.

Описание документов

Документ Приход:

С помощью данного документа можно оприходовать поступивший товар на определенный магазин.

Документ Расход:

С помощью данного документа можно списать товар клиенту.

Описание журналов

Журнал Приход-расход товаров:

Данный документ содержит информацию обо всем товарообороте.

Реализация проекта

Рабочая документация

Руководство оператора

Общие сведения о программном продукте

Данный программный продукт предназначен для автоматизации работы магазина.

Описание запуска программного продукта

Для запуска программного продукта потребуется программа 1С «Предприятие 7.7». При нажатии на ярлык программы 1С «Предприятие 7.7» появится окно, в котором потребуется выбрать информационную базу, нужно выбрать соответствующую, выбрать режим 1С «Предприятие». Если вы хотите добавить новую информационную базу, то нужно нажать кнопку «добавить» и выбрать (создать) папку в которой храниться информационная база.

После запуска программа запросит ввести пароль.

Работа с программным продуктом

После того, как выбрана (создана) информационная база, можно приступить к заполнению справочников, документов. Так для добавления нового покупателя в справочник «Покупатели» нужно выбрать в меню раздел «Справочники» и выбрать справочник «Покупатели».

Затем можно перейти к заполнению справочника. Для этого в меню справочника нажимаем кнопку «Новая строка» и заполняем необходимые реквизиты, после чего нажимаем кнопку «Enter».

Для добавления объектов в справочник «Товар» необходимо открыть данный справочник. Нажимаем кнопку «Новая строка» и заполняем необходимые реквизиты, после чего нажимаем кнопку «Ок».

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

Для добавления объектов в справочник «Магазины» и его заполнения необходимо выполнить аналогичные операции.

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

Пример:

В магазин «Одежда для семьи» поступил товар.

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

После выбора данного документа откроется форма, в которую необходимо занести весь поступивший товар.

После заполнение всех необходимых реквизитов и сохранения документа «Поступление товара» данные будут занесены в базу. Система выдаст окно «Сохранение документа», необходимо нажать «Да».

После этого система выдаст окно» Время документа, необходимо выбрать время проведения данного документа.

После этого система выдаст окно» Проведение документа», необходимо нажать «Да».

Документ сохранен и проведен.

Работа с документом «Реализация товара» выполняется аналогично.

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

После оформления документов можно посмотреть журнал «Поступление и реализация товаров». Для открытия журнала необходимо выбрать в меню раздел «Журналы» и выбрать журнал «Поступление и реализация товаров»

После открытия журнала откроется список операций по приходу и реализации товаров.

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

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

автоматизация оборот товар программный экономический

4. Экономический раздел

4.1 Обоснование экономической эффективности

Экономическая эффективность - это получение максимума возможных благ от имеющихся ресурсов. Для этого нужно постоянно соотносить выгоды (блага) и затраты, или, говоря по-другому, вести себя рационально.

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

Экономическая эффективность - результативность экономической деятельности, экономических программ и мероприятий, характеризуемая отношением полученного экономического эффекта, результата к затратам факторов, ресурсов, обусловившим получение этого результата, достижение наибольшего объема производства с применением ресурсов определенной стоимости.

4.2 Методика расчёта экономической эффективности

Стоимость решения задачи (Сз) складывается из двух частей: стоимости разработки программ (Спр) и стоимости непосредственного решения (Ср):

Смз = Спр+Ср

Стоимость разработки программ (Спр) можно определить по следующей формуле:

Спр=Qпр*Фпр*Кпр+Смч*tотл

где Qпр - трудоемкость работ программиста при разработке программы (час);

Фпр - затрата программиста в единицу времени (руб);

Кпрм - коэффициент накладных расходов к заработной плате (Кпрм >1<2);

tотл - машинное время отладки программы (час);

Смч - стоимость 1 машинно-часа (руб).

Время вывода информации

Время вывода информации рассчитывается по формуле:

Тавт=tотл+tввода+tреш+tкорр+tвывода

где tотл - время отладки программы;

tввода - время вывода информации;

tреш - время решения задачи на ЭВМ;

tкорр - время изменения информации;

tвывода - время вывода информации на печать или на экран.

Стоимость затрат на решение задачи на ЭВМ

Стоимость затрат на решение задачи на ЭВМ определяется по формуле:

См=Смр+Смавт

где Смр - стоимость ручных работ;

Смавт - оклад программиста, умноженный на коэффициент накладных расходов;

Смавт = ( tотл+tввода+tреш+tкорр)*Смч*Кн

где Смч - стоимость 1 машинно-часа;

Кн - коэффициент накладных расходов (от 3 до 4).

Методика расчета трудоемкости ручного способа обработки информации

Оценка решения задачи на ЭВМ проводится в сравнении с ручным способом обработки информации. Поэтому, прежде всего необходимо определить трудовые и стоимостные затраты ручного труда при обработке информации и с использованием ЭВМ.

Общая трудоемкость ручного способа обработки информации равна:

n

Тр= ti*Кi / qi * К

i=1

где ti - трудоемкость обработки группы документов вида i;

Кi - годовое количество групп документов вида i;

qi - количество документов вида i в группе;

n - количество наименований документов;

К - поправочный коэффициент для учета полной загрузки персонала, занятого обработкой информации. Его значение от 2 до 3.

Общие стоимостные затраты ручного способа обработки информации

Общие стоимостные затраты ручного способа обработки информации (Ср) определяют по формуле:

Ср=Тр*Пчас*(1+Ксс+Кнр)

где Пчас - тарифная среднегодовая ставка работников, занятых обработкой информации;

Ксс - коэффициент, определяющий отчисления на социальные нужды. Он равен 0,13-0,15;

Кнр - коэффициент накладных расходов. Он равен 0,4-0,7.

Затраты времени на обработку информации по данной задаче

Затраты времени на обработку информации по данной задаче на ЭВМ складываются из времени на обработку выполнения ручных операций (Трм), машинноручных (Тмрм) и автоматических (Тавтм) операций:

Тм= Трм + Тмрм+ Тавтм

К ручным операциям относятся операции, выполняемые работниками - это постановка задачи, кодирование информации и т.д. Трудоемкость ручных операций определяется по изложенному выше порядку.

Расчет экономической эффективности

Для определения экономической эффективности необходимо рассчитать следующие показатели: срок окупаемости (Ток) и расчетный коэффициент эффективности (Ер).

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

Коэффициент эффективности - это доля капитальных вложений на единицу текущих затрат.

Нормативный коэффициент эффективности (Ен) должен находиться в пределах от 0,15 до 2, а в срок окупаемости нормативный (Тн) находится в пределах от 0,6 до 1 года.

Срок окупаемости определяется по следующей формуле:

Ток=Кмод / Эмод

где Кмод - капитальные вложения на устройства;

Эмод - годовая экономия от внедрения устройства.

Коэффициент эффективности капитальных вложений рассчитывается по формуле:

Ер=1/ Ток > 0,15

Годовая экономия от внедрения устройства рассчитывается по формуле:

Эгод =Эмод-Ен*Кмод

4.3 Расчёт экономической эффективности

Расчёт стоимости решения задачи на ЭВМ

Стоимость решения задачи (Сз) складывается из двух частей: стоимости разработки программ (Спр) и стоимости непосредственного решения (Ср):

Смз = Спр+Ср = 131250+30000=161250 руб.

Стоимость разработки программ (Спр) можно определить по следующей формуле:

Спр=Qпр*Фпр*Кпр+Смч*tотл = 20*30000*1,3+50*6=780300 руб.

где Qпр - трудоемкость работ программиста при разработке программы = 20 (час);

Фпр - затрата программиста в единицу времени (руб) = 30000;

Кпрм - коэффициент накладных расходов к заработной плате = 1,3;

tотл - машинное время отладки программы (час) = 6;

Смч - стоимость 1 машинно-часа (руб) = 50 .

Время вывода информации

Время вывода информации рассчитывается по формуле:

Тавт=tотл+tввода+tреш+tкорр+tвывода = 6+1+6+2+0,5=15,5 часов

где tотл - время отладки программы = 6;

tввода - время вывода информации = 1;

tреш - время решения задачи на ЭВМ = 6;

tкорр - время изменения информации = 2;

tвывода - время вывода информации на печать или на экран =0,5.

Стоимость затрат на решение задачи на ЭВМ

Стоимость затрат на решение задачи на ЭВМ определяется по формуле:

См=Смр+Смавт = 17000+27325=44325 руб.

где Смр - стоимость ручных работ = 17000;

Смавт - оклад программиста, умноженный на коэффициент накладных расходов = 21019*1,3=27325;

Смавт = ( tотл+tввода+tреш+tкорр)*Смч*Кн = 15,5*50*3,4=2635 руб.

где Смч - стоимость 1 машинно-часа = 50;

Кн - коэффициент накладных расходов = 3,4.

Методика расчета трудоемкости ручного способа обработки информации

Оценка решения задачи на ЭВМ проводится в сравнении с ручным способом обработки информации.

Поэтому, прежде всего необходимо определить трудовые и стоимостные затраты ручного труда при обработке информации и с использованием ЭВМ.

Общая трудоемкость ручного способа обработки информации равна:

n

Тр= ti*Кi / qi * К = 10*6/2*2,5=75 часов.

i=1

где ti - трудоемкость обработки группы документов вида I = 10;

Кi - годовое количество групп документов вида I = 6;

qi - количество документов вида i в группе = 2;

n - количество наименований документов;

К - поправочный коэффициент для учета полной загрузки персонала, занятого обработкой информации = 2,5.

Общие стоимостные затраты ручного способа обработки информации

Общие стоимостные затраты ручного способа обработки информации (Ср) определяют по формуле:

Ср=Тр*Пчас*(1+Ксс+Кнр) = 75*400*(1+0,138+0,46)=30000*1,60=30001.60 руб.

где Пчас - тарифная среднегодовая ставка работников, занятых обработкой информации = 400;

Ксс - коэффициент, определяющий отчисления на социальные нужды = 0,138;

Кнр - коэффициент накладных расходов = 0,46.

Затраты времени на обработку информации по данной задаче

Затраты времени на обработку информации по данной задаче на ЭВМ складываются из времени на обработку выполнения ручных операций (Трм), машинноручных (Тмрм) и автоматических (Тавтм) операций:

Тм= Трм + Тмрм+ Тавтм = 75+20+15,5=110,5 часов

К ручным операциям относятся операции, выполняемые работниками - это постановка задачи, кодирование информации и т.д. Трудоемкость ручных операций определяется по изложенному выше порядку.

Расчёт экономической эффективности

Для определения экономической эффективности необходимо рассчитать следующие показатели: срок окупаемости (Ток) и расчетный коэффициент эффективности (Ер).

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

Коэффициент эффективности - это доля капитальных вложений на единицу текущих затрат.

Нормативный коэффициент эффективности (Ен) должен находиться в пределах от 0,15 до 2, а в срок окупаемости нормативный (Тн) находится в пределах от 0,6 до 1 года.

Срок окупаемости определяется по следующей формуле:

Ток=Кмод / Эмод = 350000/480000=0,7 года

где Кмод - капитальные вложения на устройства;

Эмод - годовая экономия от внедрения устройства.

Коэффициент эффективности капитальных вложений рассчитывается по формуле:

Ер=1/ Ток > 0,15 = 1/0.7=1,3

Годовая экономия от внедрения устройства рассчитывается по формуле:

Эгод =Эмод-Ен*Кмод = 480000-1,3*350000=25000 руб.

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

Заключение

При разработке программного продукта были поставлены задачи:

- автоматизировать ввод и хранение информации о магазинах, товаре, покупателях;

- автоматизировать процесс прихода и реализации товаров,

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

Список литературы

1. Введение в конфигурацию 1С: Бухгалтерии 7. 7. -М., 2003 г.

2. Компьютерная бухгалтерия 7.7.«Азбука бухгалтера». М., 2003г.

3. Комягина В.Б. 1С: Бухгалтерия. М., 2004 г.

4. Муштоватый И.Ф. Компьютер для бухгалтеров. Ростов-на-Дону, 2005 г

5. Самоучитель 1С: Бухгалтерии версий 7.5-7.7 в вопросах и ответах. Практическое пособие- М.: Триумф,2002г.

6. Фигурнов В. 1С: Бухгалтерия 7.7: Руководство пользователя. М.: Фирма 1С.

7. Чистов Д. В. Основы бухгалтерского учета в системе Windows: Учеб.Практикум по ведению бухучета в 1С: Бухгалтерии 7.0.

8. 1С: Бухгалтерия. Версия 7.7: Руководство пользователя. М.: Фирма 1С.

9. 1С: Предприятие. Версия7.7.: Описание встроенного языка. М. : Фирма 1С.

10. 1С: Бухгалтерия 7.7. Практический курс. М., 2004 г.

Приложения

Приложение 1

Листинг программы

Глобальный модуль

Функция глВзятьКонтекст(Конт) Экспорт

Возврат Конт;

КонецФункции // глВзятьКонтекст()

Процедура глПодбор(Конт,Параметры="") Экспорт

Если ТипЗначенияСтр(Параметры) <> "СписокЗначений" Тогда

Параметры = СоздатьОбъект("СписокЗначений");

КонецЕсли;

// открываем форму подбора

Конт.ОткрытьПодбор("Товар", "ДляПодбора", Параметры);

КонецПроцедуры // глПодбор()

Модуль формы списка справочника «Магазины»

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

Процедура Печать()

Спр = СоздатьОбъект("Справочник.Магазины");

Спр.ИспользоватьДату(ИспользоватьДату());

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент() = 1 Цикл

Если Спр.ЭтоГруппа() = 1 Тогда

Таб.ВывестиСекцию("Группа");

Иначе

Таб.ВывестиСекцию("Строка");

КонецЕсли;

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать Магазины","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

Модуль формы списка справочника «Товар»

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

Процедура Печать()

Спр = СоздатьОбъект("Справочник.Товар");

Спр.ИспользоватьДату(ИспользоватьДату());

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент() = 1 Цикл

Если Спр.ЭтоГруппа() = 1 Тогда

Таб.ВывестиСекцию("Группа");

Иначе

Таб.ВывестиСекцию("Строка");

КонецЕсли;

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать Товар","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

Модуль формы списка «ДляПодбора» справочника «Товар»

Процедура Остатки()

Параметр = глВзятьКонтекст(Контекст);

ОткрытьФорму("Обработка.ПоказатьОстатки", Параметр);

ФормаТаблицыОстатков = Параметр; // через параметр возвращается контекст открытой формы обработки

КонецПроцедуры // Остатки()

Модуль документа «Приход»

Процедура ОбработкаПроведения()

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Регистр.ОстаткиТоваров.Товар=Товар;

Регистр.ОстаткиТоваров.Магазин=Магазин;

Регистр.ОстаткиТоваров.Количество=Количество;

Регистр.ОстаткиТоваров.ДвижениеПриходВыполнить();

КонецЦикла;

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

Модуль формы документа «Расход»

Процедура Подбор()

Параметры = СоздатьОбъект("СписокЗначений");

Параметры.ДобавитьЗначение(Магазин, "Магазин");

Если Выбран() = 0 Тогда

Параметры.ДобавитьЗначение("Дата", "ТипГраницы");

Параметры.ДобавитьЗначение(ДатаДок, "ЗначениеГраницы");

Иначе

Параметры.ДобавитьЗначение("Позиция", "ТипГраницы");

Параметры.ДобавитьЗначение(ПолучитьПозицию(), "ЗначениеГраницы");

КонецЕсли;

Параметры.ДобавитьЗначение("Подбор номенклатуры в документ " + ПредставлениеВида() + " № " + НомерДок, "Заголовок");

глПодбор(Контекст, Параметры);

КонецПроцедуры // Подбор()

Процедура ОбработкаПодбора(ВыбрТов, Конт)

Кол = 1;

ЦенаТ=0;

Если ВвестиЧисло(Кол, "Введите количество товара", 14, 0) = 0 Тогда

Возврат;

ИначеЕсли Кол = 0 Тогда

Возврат;

КонецЕсли;

НоваяСтрока();

Товар = ВыбрТов;

Количество = Кол;

АктивизироватьСтроку();

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

Модуль документа «Расход»

Процедура ОбработкаПроведения()

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Регистр.ОстаткиТоваров.Товар=Товар;

Регистр.ОстаткиТоваров.Магазин=Магазин;

Регистр.ОстаткиТоваров.Количество=Количество;

Регистр.ОстаткиТоваров.ДвижениеРасходВыполнить();

КонецЦикла;

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

Модуль формы отчета «ОстаткиТоваров»

Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ВыбНачПериода по ВыбКонПериода;

|Обрабатывать НеПомеченныеНаУдаление;

|Товар = Регистр.ОстаткиТоваров.Товар;

|Магазин = Регистр.ОстаткиТоваров.Магазин;

|Количество = Регистр.ОстаткиТоваров.Количество;

|Функция КоличествоКонОст = КонОст(Количество);

|Группировка Товар;

|Группировка Магазин;

|Условие(Товар в ВыбрТоварГруппа);

|Условие(Магазин в ВыбМагазин);

|"//}}ЗАПРОС

;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей Товар

Если Запрос.Товар.ЭтоГруппа()=1 Тогда

Таб.ВывестиСекцию("Группа");

Иначе

Таб.ВывестиСекцию("Товар");

Если Фл_НеВыводитьМагазины=0 Тогда

Пока Запрос.Группировка(2) = 1 Цикл

// Заполнение полей Магазин

Таб.ВывестиСекцию("Магазин");

КонецЦикла;

КонецЕсли;

КонецЕсли;

КонецЦикла;

// Заполнение полей "Итого"

Таб.ВывестиСекцию("Итого");

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Опции(0);

Таб.Показать("Сформировать", "");

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

Модуль формы отчета «Поступление»

Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ВыбНачПериода по ВыбКонПериода;

|Обрабатывать НеПомеченныеНаУдаление;

|Магазин = Документ.Приход.Магазин;

|Товар = Документ.Приход.Товар;

|Количество = Документ.Приход.Количество;

|Функция КоличествоСумма = Сумма(Количество);

|Группировка Магазин;

|Группировка Товар;

|Условие(Магазин в ВыбМагазин);

|Условие(Товар в ВыбТовар);

|"//}}ЗАПРОС

;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей Магазин

Таб.ВывестиСекцию("Магазин");

Пока Запрос.Группировка(2) = 1 Цикл

// Заполнение полей Товар

Таб.ВывестиСекцию("Товар");

КонецЦикла;

КонецЦикла;

// Заполнение полей "Итого"

Таб.ВывестиСекцию("Итого");

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать", "");

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

Модуль формы отчета «Реализация»

Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ВыбНачПериода по ВыбКонПериода;

|Обрабатывать НеПомеченныеНаУдаление;

|Магазин = Документ.Расход.Магазин;

|Товар = Документ.Расход.Товар;

|Количество = Документ.Расход.Количество;

|Функция КоличествоСумма = Сумма(Количество);

|Группировка Магазин;

|Группировка Товар;

|Условие(Магазин в ВыбМагазин);

|Условие(Товар в ВыбТовар);

|"//}}ЗАПРОС

;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей Магазин

Таб.ВывестиСекцию("Магазин");

Пока Запрос.Группировка(2) = 1 Цикл

// Заполнение полей Товар

Таб.ВывестиСекцию("Товар");

КонецЦикла;

КонецЦикла;

// Заполнение полей "Итого"

Таб.ВывестиСекцию("Итого");

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать", "");

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

Модуль формы обработки «ПоказатьОстатки»

Перем ОбъектАнализа, КонтСправочника;

Перем Остатки;

Процедура ЗаполнитьКолонкиТаблицы()

СпособПоказа = ОстаткиПо.ПолучитьЗначение(ОстаткиПо.ТекущаяСтрока());

ТаблицаФормы.Очистить();

Если СпособПоказа = "магазинам" Тогда

Остатки = СоздатьОбъект("Регистр.ОстаткиТоваров");

ТаблицаФормы.НоваяКолонка("Магазин" , "Справочник.Магазины" ,,, ,20,,1);

ТаблицаФормы.НоваяКолонка("Остаток", "Строка" ,,, , 7,,2);

ТаблицаФормы.НоваяКолонка("Единица", "Строка" ,,,"Ед." , 5,,2);

КонецЕсли;

КонецПроцедуры // ЗаполнитьКолонкиТаблицы()

Процедура ЗаполнитьПоМагазинам()

ТаблОстатков =СоздатьОбъект("ТаблицаЗначений");

Остатки.УстановитьЗначениеФильтра("Товар", ОбъектАнализа, 1);

Остатки.ВыгрузитьИтоги(ТаблОстатков,1,1);

ТаблОстатков.Свернуть("Магазин","Количество");

ТаблОстатков.ВыбратьСтроки();

Пока ТаблОстатков.ПолучитьСтроку() = 1 Цикл

Если ТаблОстатков.Количество <> 0 Тогда

ТаблицаФормы.НоваяСтрока();

ТаблицаФормы.Магазин = ТаблОстатков.Магазин;

ТаблицаФормы.Остаток = ТаблОстатков.Количество;

ТекСтрока = 0;

КонецЕсли;

КонецЦикла;

КонецПроцедуры // ЗаполнитьПоСкладам()

Процедура ЗаполнитьСтрокиТаблицы()

ТаблицаФормы.УдалитьСтроки();

Если ПустоеЗначение(ОбъектАнализа) = 0 Тогда

СпособПоказа = ОстаткиПо.ПолучитьЗначение(ОстаткиПо.ТекущаяСтрока());

Если СпособПоказа = "магазинам" Тогда

ЗаполнитьПоМагазинам();

КонецЕсли;

КонецЕсли;

КонецПроцедуры // ЗаполнитьСтрокиТаблицы()

Функция СформироватьИнформационнуюСтроку()

Перем ИнфСтрока;

Если ТипЗначения(КонтСправочника) = 100 Тогда

ТекЭлемент = КонтСправочника.ТекущийЭлемент();

Если ТекЭлемент <> ОбъектАнализа Тогда

ОбъектАнализа = ТекЭлемент;

ЗаполнитьСтрокиТаблицы();

КонецЕсли;

Если ПустоеЗначение(ОбъектАнализа) = 1 Тогда

ИнфСтрока = "";

Иначе

Если ОбъектАнализа.ЭтоГруппа() = 0 Тогда

ИнфСтрока = СокрЛП(ОбъектАнализа.Наименование);

КонецЕсли;

КонецЕсли;

КонецЕсли;

Возврат ИнфСтрока;

КонецФункции // СформироватьИнформационнуюСтроку()

Процедура ПриДвойномЩелчкеНаТаблице()

Перем Конт;

Позиция= ТаблицаФормы.ТекущаяСтрока();

Если Позиция= 0 Тогда

Возврат

КонецЕсли;

Попытка

Конт = ТаблицаФормы.ПолучитьЗначение(Позиция, "Объект");

Исключение КонецПопытки;

ОткрытьФормуМодально(Конт);

// Могли поменять отображаемую информацию

ОбъектАнализа = "";

СформироватьИнформационнуюСтроку();

ТаблицаФормы.ТекущаяСтрока(Позиция);

КонецПроцедуры // ПриДвойномЩелчкеНаТаблице()

Процедура ПриИзмененииОстаткиПо()

ЗаполнитьКолонкиТаблицы();

ЗаполнитьСтрокиТаблицы();

КонецПроцедуры // ПриИзмененииОстаткиПо()

Процедура ПриОткрытии()

КонтСправочника = Форма.Параметр;

Если ПустоеЗначение(КонтСправочника) = 1 Тогда

Предупреждение("Данная обработка вызывается из других модулей конфигурации",60);

СтатусВозврата(0);

Возврат;

КонецЕсли;

ОстаткиПо.УдалитьВсе();

ОстаткиПо.ДобавитьЗначение("магазинам");

ТекСтрока = ВосстановитьЗначение("СпособПоказаОстатков");

ОстаткиПо.ТекущаяСтрока(Макс(1,ТекСтрока));

// Заполним таблицу значений формы

ПриИзмененииОстаткиПо();

КонецПроцедуры // ПриОткрытии()

Процедура ПриЗакрытии ()

СохранитьЗначение("СпособПоказаОстатков", ОстаткиПо.ТекущаяСтрока());

КонецПроцедуры // ПриЗакрытии ()

Приложение 2

Логическая схема данных

Приложение 3

Размещено на Allbest.ru