Разработка информационной системы для контроля и учета поставок на предприятие ООО "Рекламное агентство Протон Плюс"

Работа из раздела: «Программирование, компьютеры и кибернетика»

Оглавление

Введение

1. Анализ ООО «Рекламное агентство Протон Плюс»

1.1 Технико-экономическая характеристика ООО «Рекламное агентство Протон Плюс»

1.1.1 Характеристика предприятия

1.1.2 Характеристика подразделения и его функций

1.2 Экономическая сущность задачи

1.3 Обоснование необходимости и цели использования вычислительной техники для решения задачи

1.4 Постановка задачи

1.4.1 Цель автоматизированного варианта решения задачи

1.4.2 Общая характеристика организации решения задачи на ЭВМ

1.4.3 Формализация расчетов

1.5 Анализ существующих разработок и обоснование выбора технологии проектирования

1.6 Обоснование проектных решений по видам обеспечения

1.6.1 Техническое обеспечение (ТО)

1.6.2 Информационное обеспечение (ИО)

1.6.3 Программное обеспечение (ПО)

1.6.4 Технологическое обеспечение

2. Проектная часть

2.1 Информационное обеспечение задачи

2.1.1 Информационная модель и ее описание

2.1.2 Используемые классификаторы и системы кодирования

2.1.3 Характеристика нормативно-справочной и входной оперативной информации

2.1.4 Характеристика результатной информации

2.2 Программное обеспечение задачи

2.2.1 Общие положения (дерево функций и сценарий диалога)

2.2.2 Структурная схема пакета (дерево вызова процедур и программ)

2.2.3 Описание программных модулей

2.2.4 Схема взаимосвязи программных модулей и информационных файлов

2.3 Технологическое обеспечение задачи

3. Обоснование экономической эффективности проекта

Заключение

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

информационный система учет запас

Введение

За последние двадцать лет значительно возрос объём и оборот информации во всех сферах жизнедеятельности человека: экономической, финансовой, политической, духовной. И процесс накопления, обработки и использования знаний постоянно ускоряется. Учёные утверждают, что каждые десять лет количество информации увеличивается вдвое. В связи с этим возникает необходимость использования автоматических средств, позволяющих эффективно хранить, обрабатывать и распределять накопленные данные.

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

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

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

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

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

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

Для реализации этой цели необходимо разрешить следующие задачи:

- рассмотреть документальное оформление поступления, реализации товаров, учет товарных запасов в соответствии с Гражданским кодексом Российской Федерации, с Положениями о бухгалтерском учете и отчетности, с Инструкциями Минфина Российской Федерации, Госкомстата России;

- провести анализ товарных запасов на предприятии, на основе анализа внести предложения по оптимизации товарных запасов, улучшении структуры товарных запасов;

- анализ текущего состояния процесса обработки информации в ООО «Рекламное агентство Протон Плюс»;

- анализ существующих систем, аналогичных разрабатываемой и выявление их недостатков, устранение найденных недостатков в рамках данного дипломного проекта;

- проектирование и реализация АРМ бухгалтера по учету товарных запасов на предприятии.

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

1. Анализ ООО «Рекламное агентство Протон Плюс»

1.1 Технико-экономическая характеристика ООО «Рекламное агентство Протон Плюс»

1.1.1 Характеристика предприятия

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

Таблица 1

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

№ п/п	Виды деятельности	Объем выручки, тыс. руб.	Доля в общем товарообороте, %
1	2	3	4
1	Рекламная деятельность	328412	78,1
2	Полиграфическая деятельность	49562	11,8
3	Исследование конъюнктуры рынка	28540	6,8
4	Консультирование по вопросам коммерческой деятельности	6394	1,5
5	Деятельность в области фотографии	4017	1,0
6	Производство фильмов	2488	0,6
7	Деятельность в области радиовещания и телевидения	1082	0,3
	Итого	420495	100,0

По данным табл. 1 можно сказать, что в 2010г. в товарообороте ООО «Рекламное агентство Протон Плюс» преобладала рекламная деятельность (78,1% от товарооборота организации).

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

Бухгалтерский учет на данном предприятии осуществляется бухгалтерской службой в соответствии с действующими нормативно-правовыми документами. Ведется в порядке, установленном действующим законодательством, в соответствии с разработанным планом счетов. В ООО «Рекламное агентство Протон Плюс» применяется журнально-ордерная форма учета. Бухгалтерский учет ведется с применением ЭВМ.

Для анализа основных технико-экономических показателей деятельности ООО «Рекламное агентство Протон Плюс» за 2008 - 2010гг. составим табл. 2.

Таблица 2

Основные технико-экономические показатели ООО « Рекламное агентство Протон Плюс» за 2008 - 2009гг.

Показатели	2008 год	2009 год	2010 год	Абсолютное изменение	Темп роста, %
				2008/ 2009 г.	2009/ 2010 г.	2008/ 2009 г.	2009/ 2010 г.
1	2	3	4	5	6	7	8
1. Объем продаж продукции, тыс. руб.	322384	295327	420495	-27057	125168	92,54	142,38
2. Стоимость основных производственных фондов, тыс. руб.	4605	859311	814447	854706	-44864	107,94	97,47
3. Фондоотдача, руб.	3,71	3,19	4,95	-0,52	1,76	85,98	155,17
4. Численность промышленно-производственного персонала (работающих), чел.	35	56	48	21	-8	160,0	85,7
5. Производительность труда, тыс. руб.	2654,3	976,76	6192,0	-1677,62	5215,24	56,80	в 5,33 раза
6. Среднемесячная оплата труда, тыс. руб.	13,63	13,97	15,81	0,34	1,84	102,49	113,17
7. Полная себестоимость товарной продукции, тыс. руб.	285035	294452	412395	9417	117943	103,30	140,06
8. Прибыль (убыток) от продажи продукции, тыс. руб.	20038	3363	8100	-16675	4737	16,13	в 2,7 раза
9. Рентабельность продукции в целом, %	1,81	0,31	1,92	-1,5	+1,61	17,39	в 6,1 раз

Данные табл. 2 свидетельствуют о том, что темп роста реализованной продукции в 2010 году по сравнению с 2009 годом составил 142,38%. Среднегодовая численность по сравнению с 2009 г. в 2010 г. снизилась на 8 человек, а по сравнению с 2008г. в 2009г. - увеличилась на 21 человек. Производительность труда одного работающего по сравнению с 2009г. в 2010 г. увеличилась на 5215,24 тыс. руб., что говорит об эффективности использования трудовых ресурсов, а по сравнению с 2008г в 2009г. снизилась на 1677,62 тыс. руб.. Среднемесячная оплата труда по сравнению с 2008 г. в 2009 г. увеличилась на 0,34 тыс. руб., а по сравнению с 2009 г. в 2010 г. увеличилась на 1,84 тыс. руб.

Полная себестоимость продукции в 2009г. увеличилась на 9417 тыс. руб., а в 2010г. на 117943 тыс. руб. Объем продаж на предприятии имел динамику сначала снижения (в 2009г. на 27057 тыс.руб.), а затем роста (в 2010г. на 125168 тыс.руб.). Поэтому прибыль от реализации продукции в 2010г. по абсолютной величине превысила уровень 2009г. на 4737 тыс. руб., однако по сравнению 2008г. с 2009г. прибыль от реализации продукции снизилась на 16675 тыс. руб.

Рост рентабельности продукции в 2010г. (+1,61%) связан, прежде всего, с ростом объема выручки от реализации по сравнению с 2009г., что привело к увеличению показателя прибыли на предприятии в 2010г.

1.1.2 Характеристика подразделения и его функций

Схему организационной структуры ООО «Протон Плюс» представим на рисунке 1.

Рис.1 Организационная структура ООО «Протон Плюс»

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

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

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

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

Главным стратегическим ресурсом предприятия в настоящее время является персонал. Поэтому целесообразно ввести в структуру управления должность заместителя генерального директора по персоналу и подчинить ему отдел кадров, отдел повышения квалификации, отдел социального развития и общий отдел. Для решения текущих хозяйственных вопросов предлагается ввести в структуру должность заместителя генерального директора по АХО.

В виде табл. 3 представим линейно-функциональную структуру компании ООО «Протон Плюс».

Таблица 3

Линейно-функциональная структура ООО «Протон Плюс»

Центр отв-ти:	Дирекция	ЦФО пр-ва	ЦФО трансп.
	Генеральный директор	Зам по пр-ву	Ком директор	Зам по общест вопросам	Фин директор
ФУНКЦИИ	1	2	3	4	5	6	7
	1. Утверждение штатов	1. Организация и управление производ-ством	1. Снабже-ние	1. Делопроизводство в полном объеме, документооборот	1. Формирование финансово-го плана	1. Планирова-ние и управление материальными потоками на производ-стве	1. Организа-ция процесса снабжения производства
	2. Издание приказов и решении иных вопросов руководства текущей деятельности общества	2. Разработка регламента подготовки производства	2. Сбыт продукции	2. Организация и протоколирование совещаний, контроль движения и обработки документов; контроль выполнения утвержденных процедур и их коррекция.	2. Исполнение финансового плана	2. Механизм финансового планирова-ния и экономического учета	2. Оптимиза-ция процесса транспортной логистики
		3. Подготовка к регламентации материальных потоков производ-ства	3. Внешняя коопера-ция	3. Контроль выполнения принимаемых решений	3. Определе-ние ценовой политики	3. Информационное обеспечение деятельно-сти предприятия
		4. Разработка процедуры формирова-ния номенклатурного плана и способа ее применения	4. Марке-тинг	4. Обеспечение информацией генерального директора и заместителей генерального директора о выполнении принимаемых решений		4. Информационная связь между результатами сбыта продукции, ее производ-ства и движения денежных средств

Продолжение табл. 3

Центр отв-ти:	Бухгал.	Финансовый отдел	ПЭО
		Бюд.гр.ф.пл.	Гр.оп.ф.пл.	Бюдж.гр.эк.пл.	Гр.эк.ан.
ФУНКЦИИ	8	9	10	11	12
	1. Учет ОС, НА, ТМЦ	1. Учёт контрактов предприятия с поставщиками; учёт финансовых обязательств; финансовое планирование	1. Анализ организации оперативного планирования в предприятия, его финансовое состояние и финансовые результаты деятельности;	1. Решение всех вопросов, связанных с ведением текущей финансовой деятельности,	1. Контроль за ходом достижения целей, оценка рисков: для упреждения негативных тенденций, закрепления позитивных тенденций
	2. Расчеты с поставщиками и подрядчиками по хозяйственным договорам (аренда, охрана, услуги связи, страховки, подписка и т.д.)	2. Ведение и контроль операционного бюджета предприятия, ведение и контроль инвестиционного бюджета предприятия и прогнозов платежей;	2. Разработка рекомендаций по оптимизации оперативного финансового планирования на предприятии	2. Организации антирисковых и контрольных мероприятий, финансового мониторинга текущей деятельности	2. Изучение с помощью методов, приемов анализа влияния отдельных факторов на те или иные стороны процессов.
	3. Расчеты с подотчетными лицами (ГСМ, командировочные, представительские хозяйственные расходы)	3. Построение графика-прогноза обеспеченности мощностей ресурсами (CRP); построение плана потребности в материале (прогноз дефицита) в зависимости от планов продаж или производства; управление заказами	3. Сравнение прогнозируемых показателей плановой отчетности с фактическими данными	3. Введение учета и составление отчетности, финансово-хозяйственного планирования,	3. Выявление резервов, повышение эффективности использования отдельных ресурсов и их совокупности
	8	9	10	11	12
		поставщикам по стадиям ('заказ сформирован', 'заказ передан поставщику', 'заказ акцептован поставщиком', 'заказ отгружен' и т. д.)
	4. Расходы будущих периодов	4. Входной контроль соответствия факта поставки условиям заказа	4. Анализ показателей бухгалтерской отчетности и относительных коэффициентов рентабельности и ликвидности	4. Разработка бизнес-планов и экспертиза инвестиционных проектов с позиций минимизации проектных рисков
	5. Ведение книг покупок и продаж, журналов учета полученных и выданных счетов-фактур	5. Расчёт полной по продуктовой себестоимости продукции для холдинговых, географически распределённых структур		5. Финансовый анализ деятельности предприятия (выявление и оценка внутренних проблем компании для подготовки, обоснования и принятия различных управленческих решений, в том числе в области развития, выхода из кризиса, перехода к процедурам банкротства, покупки-продажи бизнеса, привлечения инвестиций (заемных средств) и т.п.).

1.2 Экономическая сущность задачи

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

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

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

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

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

Товарные запасы выполняют определённые функции:

- обеспечивают непрерывность расширенного производства и обращения, в процессе которых происходят их систематическое образование и расходование;

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

- характеризуют соотношение между объёмом и структурой спроса и товарного предложения.

Товарные запасы классифицируют по следующим признакам: по назначению, месту нахождения, срокам, размерам.

Товарные запасы анализируются, планируются и учитываются в абсолютных и относительных показателях. Абсолютные показатели, представляющие собой стоимостные (денежные) и натуральные единицы, удобны и используются при проведении инвентаризаций в торговых предприятиях. Главный недостаток абсолютных показателей - невозможность с их помощью определить степень соответствия величины товарного запаса потребностям развития товарооборота. Поэтому более широкое распространение получили относительные показатели, позволяющие сопоставить величину товарного запаса с товарооборотом торгового предприятия.

Данные расчета среднегодовой величины товарного запаса, скорости товарного обращения, время товарного обращения по каждой группе товаров приведены в таблицах 4 и 5

Таблица 4

Анализ товарооборачиваемости материальных запасов в ООО «Рекламное агентство Протон Плюс» за 2010 год

Товарные группы	Товарооборот за 2010г., тыс.руб.	Товарные запасы	Средние товарные запасы, тыс.руб.	Скорость товарного обращения, раз	Время товарного обращения, дни
		На 1.1.	На 1.4.	На 1.7.	На 1.10.	На 1.1.08
1	2	3	4	5	6	7	8	9	10
Бумага А3	244,5	0,3	1,1	0,6	0,8	0,3	0,7	349,3	1,0
Бумага А4	24,3	0,6	0,7	1,2	1,5	0,6	1,0	24,3	14,8
Краска охра	53,1	1,4	0,8	1,8	4,0	1,4	2,0	26,1	13,6
Краска для ризографа «пронто»	24,1	0,4	0,7	0,6	0,9	0,8	0,7	34,4	10,5
Вставка неон голубой	8,3	0,2	0,4	0,3	0,3	0,2	0,3	27,7	13,0
Вставка неон бирюзовый	17,3	0,2	0,7	0,2	0,5	0,2	0,4	43,3	8,3
Бумага неразмерная	12,3	0,6	1,0	0,8	0,4	0,6	0,7	17,6	20,5
Итого	383,9	3,7	5,4	5,5	8,4	4,1	5,8	66,2	5,4

Таблица 5

Анализ товарооборачиваемости материальных запасов в ООО «Рекламное агентство Протон Плюс» за 2009 год

Товарные группы	Товарооборот за 2009 г., тыс.руб.	Товарные запасы	Средние товарные запасы, тыс.руб.	Скорость товарного обращения, раз	Время товарного обращения, дни
		На 1.1.	На 1.4.	На 1.7.	На 1.10.	На 1.1.08
1	2	3	4	5	6	7	8	9	10
Бумага А3	215,9	0,1	0,9	0,5	0,8	0,3	0,6	359,8	1,0
Бумага А4	21,6	0,4	0,9	0,8	1,1	0,6	0,9	24,0	15,0
Краска охра	46,8	1,0	2,1	0,8	3,5	1,4	1,9	24,6	14,6
Краска для ризографа «пронто»	21,6	0,4	0,7	0,5	0,8	0,4	0,6	36,0	10,0
Вставка неон голубой	7,2	0,4	0,3	0,2	0,4	0,2	0,3	24,0	15,0
Вставка неон бирюзовый	15,7	0,2	0,5	0,4	0,1	0,2	0,3	47,6	7,5
Бумага неразмерная	11,0	0,2	1,4	2,1	0,0	0,0	0,9	12,2	30,0
Итого	350,6	3,5	7,4	6,0	7,1	3,7	6,1	57,5	6,3

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

где ТЗ - средний товарный запас за определенный период (руб.);

ТЗ_1,ТЗ₂, ТЗ₃, … ТЗ_n - величина товарных запасов на отдельные даты анализируемого периода (руб.);

n - количество дат, за которые берется величина запасов.

Среднегодовая величина товарного запаса ООО «Рекламное агентство Протон Плюс» за 2009г по товару бумага А3 рассчитана по данным таблицы, с применением средней хронологической моментного ряда:

и т. д. по другим группам товаров.

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

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

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

Количество оборотов товарной массы, взятой в объеме товарного запаса, характеризует скорость товарного обращения. Измеряется этот показатель отношением суммы товарооборота за данный период к средним товарным запасам за тот же период. Он показывает, сколько раз товарная масса обращалась в течение данного периода.

Формула скорости товарооборота имеет следующий вид:

где С - скорость товарного обращения;

Т/Об - объем товарооборота за анализируемый период (руб.);

ТЗ - средние товарные запасы за тот же период.

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

и т. д. по другим группам.

Полученный результат свидетельствует о том, сколько раз необходимо было обновить и реализовать средний запас товаров по Бумаге А3, чтобы получить сумму товарооборота в 215,9 тыс. рублей.

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

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

Время товарного обращения рассчитывается по формуле:

где В - время товарного обращения в днях;

Т - число дней в данном периоде.

Товарооборачиваемость в днях по товару бумага А3 за 2009 год составляет:

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

Между двумя показателями товарооборачиваемости имеется обратная зависимость. Если растет скорость товарооборота, то время обращения снижается, и, наоборот, если сокращается количество оборотов, то продолжительность одного оборота растет.

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

Отсюда время обращения товаров в днях и скорость обращения в количестве оборотов можно определить отношениями:

Также важным относительным показателем, применяемым при анализе является уровень товарных запасов, который измеряется в днях товарооборота по следующей формуле:

где Ут.з. - уровень товарных запасов в днях товарооборота;

ТЗ - товарный запас на конец анализируемого периода (руб.);

Т/Об_одн - однодневный товарооборот за анализируемый период (руб.);

Т/Об - объем товарооборота за анализируемый период (руб.);

Т - количество дней в анализируемом периоде.

Уровень товарных запасов за 2009 год:

где ТЗ =3,5 (тыс. руб.) - товарный запас на 01.01.09г., Т=360 дней, Т/Об=350,6 (тыс. руб.) - товарооборот за год.

Уровень товарных запасов за 2010год:

где ТЗ=3,7 (тыс. руб.) - товарный запас на 01.01.10г., Т=360 дней, Т/Об=383,9 (тыс. руб.) - товарооборот за год.

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

Если быть более точным, то

Ут.з. (2010 г.) ? 3,46 (дня),

Ут.з. (2009 г.) ? 3,59 (дня).

Значит Ут.з. (2009г.) > Ут.з. (2010г.) на 0,13 (дня), т.е. разность незначительна.

Следовательно, товарооборачиваемость в 2009 году и товарооборачиваемость в 2010 году примерно одинаковы.

Скорость товарного обращения в 2009 году при товарообороте за год 350,6 (тыс. руб.) 57,7 (раза), время товарного обращения 6,3 (дня).

Скорость товарного обращения в 2010 году при товарообороте за год 383,9 (тыс. руб.) 66,2 (раза), время товарного обращения 5,4 (дня).

В 2010 году увеличен товарооборот на 383,9-350,6=33,3 (тыс. руб.), скорость товарного обращения увеличилась на 66,2-57,5=8,7 (раз), а время товарного обращения уменьшилось на 6,3-5,4=0,9 (дня).

Значит в 2010 году время с момента поступления товаров до момента их реализации, иными словами, период времени, за который полностью обновился товарный запас уменьшился на 0,9 дня, и на 8,7 раза больше осуществлялась закупка.

Таблица 6

Анализ структуры товарооборота в «Рекламное агентство Протон Плюс» за 2009 - 2010гг.

№ п/п	Показатели	Товарооборот за 2009, тыс. руб.	Структура товарооборота за 2009, %	Товарооборот за 2010, тыс. руб.	Структура товарооборота за 2010, %
1	2	3	4	5	6
1	Бумага А3	215,9	62	244,5	64
2	Бумага А4	21,6	6,1	24,3	6,2
3	Краска охра	46,8	13,1	53,1	13,6
4	Краска для ризографа «пронто»	21,6	6,1	24,1	6,3
5	Вставка неон голубой	7,2	2,2	8,3	2,2
6	Вставка неон бирюзовый	15,7	4,5	17,3	4,5
7	Бумага неразмерная	11,0	3	-	-
Итого	350,6	100	383,9	100

Средние товарные запасы в 2009 году при товарообороте за год 350,6 (тыс. руб.) составили 6,1 (тыс. руб.), а в 2010 году при товарообороте за год 383,9 (тыс. руб.) - 5,8 (тыс. руб.), т.е. при увеличении товарооборота на 33,3 (тыс. руб.), средние товарные запасы уменьшились на 0,3 (тыс. руб.)

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

По данным таблицы 1.5 реализация бумаги А3 в 2009 году составила 62% от среднегодового товарооборота, в 2010 году - 64%.

Скорость товарного обращения средних товарных запасов бумаги А3 в 2009 году 359,8 раза, а в 2010 году 349,3 раза, время товарного обращения по данной группе товаров в 2009 году 1 день, в 2010 году 1 день, можно сделать вывод, что товарный запас бумаги А3 обновляется каждый день, т.е. осуществляется ежедневный завоз.

Реализация бумаги А4 составила 6,1% от годового товарооборота за 2009 год, в 2010 году на 0,1% больше (увеличение незначительное).

Скорость товарного обращения средних товарных запасов бумаги А4 в 2009 году 24 раза, в 2010 году 24,3 раза, время товарного обращения этой группы товаров в 2009 году 15 дней, в 2010 году 14,8 дней. На основании этих данных бумага А4 закупается примерно 2 раза в месяц и реализуется в течение 15 дней.

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

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

· возможность получения оперативной учетной информации о хозяйственной деятельности организации (например, за день, неделю и так далее);

· учет товаров и тары в соответствии с разделением материальной ответственности по каждому лицу;

· единство оценки товаров при их постановке на учет и списании в расход.

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

1.3 Обоснование необходимости и цели использования вычислительной техники для решения задачи

При осуществлении поставок предприятия изготовители продукции производственно-технического назначения вступают в договорные отношения с предприятиями потребителями (покупателями) как поставщики заключают прямые договора с предприятиями потребителями для сбыта продукции и комплексного снабжения предприятий-заказчиков.

Договоры о поставках необходимо заключать своевременно. В них указываются условия поставки товаров, их количество, ассортимент, качество, комплектность и сроки поставки. Кроме того, в договорах предусмотрены цены на товары, общая сумма, порядок расчетов, платежные и отгрузочные реквизиты поставщика и получателя продукции. Договора подлежат обязательному выполнению по всем указанным в них пунктам. Нарушение сроков договоров и обязательств влечет ответственность, предусмотренную “Положением о поставке продукции производственно-технического назначения” и “Особыми условиями поставки”.

Контроль за выполнением договоров осуществляют товарные отделы.

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

Правильная приемка и оформление документами поступивших товаров является надежной основой сохранности товарно-материальных ценностей.

Общий порядок приемки товарно-материальных ценностей установлен “Положением о поставке продукции производственно-технического назначения”. Порядок и сроки приемки товарно-материальных ценностей в определенном количестве и качестве, оформление актов приемки и предъявление претензий определены инструкцией о порядке приемки продукции производственно-технического назначения и товаров народного потребления по количеству и инструкцией о порядке приемки продукции производственно-технического назначения по качеству. Особенности приемки отдельных видов продукции определяются в ГОСТах [12.01.005-89], технических условиях, Особых условиях поставки и договорах поставки, предусматривающих особые порядки приемки продукции при поставках.

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

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

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

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

На предприятии порядок и сроки приема товаров по количеству, качеству и комплексности и его документальное оформление регулируются условиями поставки, договорами купли-продажи и инструкциями о порядке приемки товаров по количеству, качеству и комплексности.

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

Накладная является приходным товарным документом при поступлении товаров.

Расходным документом, крайне редко, товар отписывается на возврат, т.к. отпуск товара на сторону предприятие не осуществляет.

В накладной указываются номер и дата выписки; наименование поставщика и покупателя; наименование и краткое описание товара, его количество (в единицах), цена и общая сумма (с учетом налога на добавленную стоимость) отпуска товара. Накладная подписывается материально-ответственными лицами, сдавшими и принявшими товар, и заверяются круглыми печатями организаций поставщика и получателя.

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

Параллельно с накладной выписывается счет-фактура (в двух экземплярах).

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

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

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

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

Оформленные документы на приемку товаров являются основанием для расчетов с поставщиками и их данные не могут быть пересмотрены после приемки товаров.

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

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

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

- заказ на поставку необходимой продукции (указывается количество, наименование, номенклатура, сроки поставки).

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

Любую поставку предприятие-заказчик обязано оплатить в установленные договором сроки, поэтому АС должна осуществлять подсчет суммы долга (денег к выплате) на текущую дату.

На рис 2 представлена функциональная схема осуществления поставок на предприятие.

Таким образом, для разработки программы необходимо выполнить следующие задачи:

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

- создать СУБД для работы программы;

- разработать справочную информацию по программе;

- выполнить анализ и учета поставок.

Рис. 2 Функциональная схема осуществления поставок на предприятие

Руководитель центра доходов (в нашем примере это заместитель генерального директора по экономике и договорной работе) несет ответственность за доходы структурного подразделения. Классический пример центра доходов в компании -- отдел сбыта, в задачи которого входят привлечение новых клиентов и увеличение объема реализации продукции. Отдел сбыта в то же время является и центром затрат: он несет затраты на заработную плату, представительские расходы, канцелярские принадлежности и т. д. Однако, поскольку сбытовая функция доминирует, отдел следует рассматривать прежде всего как центр доходов.

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

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

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

2. Планирование выручки осуществляет финансовая дирекция (например, планово-экономический отдел).

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

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

Для анализа эффективности работы управленческого персонала в ООО «Протон Плюс» составим табл. 7

Таблица 7

Анализ эффективности работы управленческого персонала в ООО «Протон Плюс»

№ п/п	Показатели	2009 год	2010 год	Абсолютное изменение	Темп прироста, %
1	2	3	4	5	6
1	Выручка от реализации, тыс. руб.	295327	420495	125168	42,38
2	Численность персонала, чел.	56	48	-8	-14,29
	- в т.ч. административно-управленческого персонала, чел.	16	12	-4	-25,00
	уд. вес административно-управленческого персонала в общей численности работников предприятия, %	28,57	25,00	-3,5714	-12,50
3	Фонд заработной платы, тыс. руб.	782,32	758,88	-23,44	-3,00
	- в т.ч. административно-управленческого персонала, тыс. руб.	286,09	302,57	16,471	5,76
	уд. вес заработной платы административно-управленческого персонала в общем ФЗП, %	36,57	39,87	3,3	9,02
4	Премиальный фонд, тыс. руб.	82,77	71,56	-11,207	-13,54
	- в т.ч. административно-управленческого персонала, тыс. руб.	48,64	67,49	8,85	18,20
	уд. вес премий административно-управленческого персонала в общем премиальном фонде, %	58,76	90,33	21,57	46,71

Данные аналитической табл. 7 свидетельствуют о том, что за 2009 - 2010гг. численность персонала в ООО «Протон Плюс» сократилась на 14,29%, в том числе удельный вес административно-управленческого персонала сократился на 12,5%, в то время как выручка от реализации выросла на 42,38%. Эта ситуация свидетельствует о росте производительности труда, что положительно влияет на производственно-хозяйственную деятельность исследуемого предприятия.

Фонд заработной платы в ООО «Протон Плюс» в 2010г. составил 758,88 тыс. руб., что меньше чем в 2009г. на 23,44 тыс. руб. или на 3%. Фонд заработной платы административно-управленческого персонала вырос за этот же период на 5,76%, т.е. вырос его удельный вес на 9,02%, это свидетельствует о том, что на предприятии оценка трудовой деятельности, в частности административно-управленческого персонала является не до конца оправданной. Этот факт подтверждается еще и тем, что темп роста удельного веса премий административно-управленческого персонала в общем премиальном фонде опережает темп роста выручки от реализации на 4,33 пункта.

1.4 Постановка задачи

1.4.1 Цель автоматизированного варианта решения задачи

Целью является разработка и создание программного продукта “Учет поставок”. Данное программное обеспечение предназначено для контроля, учета, автоматизации и систематизации информации о поставках различного вида продукции на предприятие любой формы собственности, занимающимся любым видом производства или деятельности.

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

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

- заявку на поставку необходимой продукции (указывается количество, наименование, номенклатура, сроки поставки, сумма поставки);

- заказ на поставку.

- более полный контроль и организацию учета о поставках на предприятие;

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

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

- вычислять задолженность по оплате осуществленных поставок на указанный период;

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

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

Обеспечение ввода данных о поставках на предприятие;

Анализ введенной информации;

Подсчет задолженности предприятия за осуществленные поставки;

Определять оптимальный счет-фактуру с точки зрения “количество-цена”.

В результате выполненной работы предполагается достигнуть следующих эффектов:

- уменьшение времени необходимого для учета поставок произведенных на предприятие;

- автоматизация контроля поставок;

- возможность длительного хранения информации о поставках на предприятие большого срока давности, для возможности более полного расчета эффективности деятельности предприятия;

- постоянная известность о сроках оплаты осуществленных поставок.

1.4.2 Общая характеристика организации решения задачи на ЭВМ

В большинстве случаев автоматизация решения задачи приводит к изменениям технологии ее решения, а именно:

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

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

источники поступления оперативной и условно-постоянной информацией и периодичность ее поступления;

Автоматизация решения задачи никак не может повлиять на источники и периодичность поступления информации - ведь источники находятся за пределами системы и не являются зависимыми.

этапы решения задачи, последовательность и временной регламент их выполнения, выявленные на основе декомпозиции задачи;

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

порядок ввода первичной информации (названия документов) и перечень используемых экранных форм;

Порядок ввода информации не поменялся.

Перечень экранных форм:

- «Учет поставок и реализации»,

- «Добавление товара»,

- «Реализация»,

- «О программе».

характеристику результатов

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

характеристику системы ведения файлов

вся информация хранится в текстовом файле специальной структуры.

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

режим решения задачи

для решения данной задачи используется диалоговый режим;

периодичность решения задачи.

Данная задача решается по мере прихода товаров. Если на предприятии есть точный график поставок, то есть точная периодичность, если нет - то по мере необходимости.

1.4.3 Формализация расчетов

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

Накладная -- документ, предназначенный для перевозки грузов. Регулирует отношения между участниками перевозки грузов: перевозчиком, отправителем и получателем груза. Данный документ подтверждает оформление договора перевозки груза. Накладная сопровождает груз на пути его следования от пункта приёма груза к перевозке до пункта получения груза. Документ выдаётся грузоотправителю, перевозчику и, в зависимости от правил перевозки, передаётся грузополучателю вместе с грузом в пункте его назначения. Накладная содержит данные, относящиеся к перевозимому грузу (наименование груза, число мест, вес, маркировка, время приёма груза к перевозке и прибытия его в пункт назначения и др.).

Счёт-фактура -- документ, удостоверяющий фактическую отгрузку товаров или оказание услуг и их стоимость.

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

На основании накладных и счет-фактур оформляется поступление товара, рассчитывается себестоимость по методу средней.

Так же при оприходовании товара выставляется процент наценки и рассчитывается стоимость товара.

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

1.5 Анализ существующих разработок и обоснование выбора технологии проектирования

На предприятиях государственной формы собственности осуществлением всех действий связанных с поставками и оформлением необходимых документов, при наличии соответствующего программного обеспечения, занимается определенное количество персонала предприятия, но, как правило, разработка такого программного обеспечения велась на языках низкого уровня программирования, а за последние 6-8 лет развитие машинных средств (ПЭВМ), программных средств резко увеличилась, поэтому ранее разработанное ПО не отвечает более высоким требованиям, предъявляемым к современным программным продуктам.

Предприятия вынуждены были покупать новое программные продукты или писать свои.

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

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

В ООО «Рекламное агентство Протон Плюс» ранее такие программы не использовались - вся работа по поставкам велась вручную. Основной доход предприятие получало от рекламной деятельности, и вопрос по автоматизации проведения и оформления поставок не становился. Однако исходя из перспективы было решено все-таки создать подобный продукт.

1.6 Обоснование проектных решений по видам обеспечения

1.6.1 Техническое обеспечение (ТО)

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

Скорость функционирования ПЭВМ в основном определяется следующими параметрами:

- Объемом оперативной памяти (ОП);

- Быстродействием процессора;

- Объемом видеопамяти (ВП).

Исходя из требований предъявляемых к используемым программным средствам разработки (Delphi 7.0) минимальное значение вышеперечисленных параметров составляет ОП - 12 Мб, процессор - на базе Intel 486, ВП - 1 Мб.

При минимальных значениях параметров функционирование разработанной АСИС малоэффективно, поэтому рекомендуемым является компьютер со следующими значениями параметров:

- Процессор - intel 2,5 ГГц;

- Оперативная память - 256 Мб;

- Видеопамять - 64 Мб;

- Объем необходимого дискового пространства - не менее 20 МБ;

- Наличие принтера (струйного или лазерного);

- Наличие локальной сети - для резервного копирования данных.

1.6.2 Информационное обеспечение (ИО)

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

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

Модель данных реализуемого проекта представлена на рисунке 1.2

Рис. 1.2 Модель данных

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

1.6.3 Программное обеспечение (ПО)

Данный программный продукт разрабатывается под операционную систему Windows XP.

Windows XP (кодовое название при разработке -- Whistler; внутренняя версия -- Windows NT 5.1) -- это операционная система семейства Windows NT от компании Microsoft. Она была выпущена 25 октября 2001 года и является развитием Windows 2000 Professional. Название XP происходит от англ. experience (опыт, впечатление).

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

Некоторыми из наиболее заметных улучшений в Windows XP по сравнению с Windows 2000 являются:

- Новое оформление графического интерфейса, включая более округлые формы и плавные цвета; а также дополнительные функциональные улучшения (такие, как возможность представления папки в виде слайд-шоу в проводнике Windows).

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

- Функция «удалённый помощник», позволяющая опытным пользователям и техническому персоналу подключаться к компьютеру с системой Windows XP по сети для разрешения проблем. При этом помогающий пользователь может видеть содержимое экрана, вести беседу и (с позволения удалённого пользователя) брать управление в свои руки.

- Программа восстановления системы, предназначенная для возвращения системы в определённое предшествующее состояние (эта функция является развитием аналогичной программы, включённой в Windows Me).

- Улучшенная совместимость со старыми программами и играми. Специальный мастер совместимости позволяет эмулировать для отдельной программы поведение одной из предыдущих версий ОС (начиная с Windows 95).

- Возможность удалённого доступа к рабочей станции благодаря включению в систему миниатюрного сервера терминалов (только в издании Professional).

- Более развитые функции управления системой из командной строки.

- Поддержка проводником Windows цифровых фотоформатов (например, представление папки в виде слайд-шоу) и аудиофайлов (автоматическое отображение метаданных для аудиофайлов, например, тегов ID3 для MP3-файлов).

В качестве средства разработки программного продукта выбран Delphi7.

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

Delphi - это комбинация нескольких важнейших технологий:

- Высокопроизводительный компилятор в машинный код

- Объектно-ориентированная модель компонент

- Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов

- Масштабируемые средства для построения баз данных

Delphi, ранее известный как Object Pascal, разработанный фирмой Borland и изначально реализованный в её пакете Borland Delphi, от которого и получил в 2003 году своё нынешнее название, результат развития языка Turbo Pascal, который, в свою очередь, развился из языка Pascal. Pascal был полностью процедурным языком, Turbo Pascal, начиная с версии 5.5, добавил в Pascal объектно-ориентированные свойства.

Delphi является средой разработки, используемой прежде всего для подде ржки и разработки приложений, предназначенных как для отдельных рабочих станций, так и для серверов. Delphi может функционировать под управлением операционной системы Windows 95, 98, NT, XP. Отличительными чертами рабочей среды Delphi являются:

- большинство созданных с помощью Delphi приложений будут направлены главным образом на решение задач, связанных с производством и бизнесом; это значит, что обеспечение функционирования баз данных и создание отчетов будут наиболее часто решаемыми задачами; - совместимость приложений становится все более важной. Помимо всего прочего, это обусловлено еще и бурным развитием аппаратного обеспечения (Hardware), в частности:

- широким распространением мобильных компьютеров;

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

Для функционирования же программы необходим пакет прикладных программ Microsoft Office.

Microsoft Office -- офисный пакет приложений, созданных корпорацией Microsoft для операционных систем Microsoft Windows и Apple Mac OS X. В состав этого пакета входит программное обеспечение для работы с различными типами документов: текстами, электронными таблицами, базами данных и др. Microsoft Office является сервером OLE объектов и его функции могут использоваться другими приложениями, а также самими приложениями Microsoft Office. Поддерживает скрипты и макросы, написанные на VBA.

1.6.4 Технологическое обеспечение

Накладная является приходным товарным документом при поступлении товаров.

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

Параллельно с накладной выписывается счет-фактура (в двух экземплярах).

2 Проектная часть

2.1 Информационное обеспечение задачи

2.1.1 Информационная модель и ее описание

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

Пользователь на основе данных документов прихода товара заполняет форму «Добавление товара», где указывает наименование поступившего товара, количество, себестоимость, процент наценки и код товара. В результате чего изменяются данные в таблице Хранилище, следующим образом: при поступлении нового вида товара создается новая запись, если же пришедший товар уже имеется на складе, то количество суммируется (остатки на складе + количество поступившего товара), а себестоимость пересчитывается по методу средней. Также информация о приходе добавляется в таблицу Поставки.

При отгрузке товара заполняется форма «Реализация», в которой указывается информация о реализуемой продукции (наименование, количество), а также данные о заказчике (наименование, ФИО, телефон и адрес). Сохранение данной формы приводит к изменению информации в трех таблицах: Хранилище, Заказы и Продано.

В таблице Хранилище при наличии необходимого количества отгружаемого товара на складе происходит списание, т.е. уменьшается остаток (остаток на складе - количество отгружаемого товара).

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

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

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

Инфологическая модель показана на рисунке 1.3

Так как данные в программе хранятся с текстовом файле строить даталогическую модель нет смысла.

2.1.2 Используемые классификаторы и системы кодирования.

Важным понятием при работе с информацией является классификация объектов.

Классификация - система распределения объектов (предметов, явлений, процессов, понятий) по классам в соответствии с определенным признаком.

Рис. 1.3 Инфологическая модель данных

Под объектом понимается любой предмет, процесс, явление материального или нематериального свойства. Система классификации позволяет сгруппировать объекты и выделить определенные классы, которые будут характеризоваться рядом общих свойств. Классификация объектов - это процедура группировки на качественном уровне, направленная на выделение однородных свойств. Применительно к информации как к объекту классификации выделение классы называют информационными объектами.

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

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

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

При любой классификации желательно, чтобы соблюдались следующие требования:

- полнота охвата объектов рассматриваемой области;

- однозначность реквизитов;

- возможность включения новых объектов.

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

Классификатор - систематизированный свод наименований и кодов классификационных группировок.

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

Разработаны три метода классификации объектов: иерархический, фасетный, дескрипторный. Эти методы различаются разной стратегией применения классификационных признаков.

Описание классификаторов данного проекта приводятся в таблицах 8-11.

Таблица 8

Классификатор «Хранилище»

Наименование	Тип	Длина	Описание
1	2	3	4
Наименование	Строка	256	Название товара
Количество	Число	8.2	Количество товара
Себестоимость	Число	8.2	Себестоимость товара
Процент	Число	4.2	Процент накрутки
Цена	Число	10.4	Цена товара
Код	Строка	20	Код товара

Таблица 9

Классификатор «Заказы»

Наименование	Тип	Длина	Описание
1	2	3	4
Предприятие	Строка	256	Наименование предприятия
Ф.И.О.	Строка	256	Контактное лицо
Адрес	Строка	256	Адрес предприятия
Телефон	Строка	256	Контактный телефон
Наименование	Строка	256	Наименование товара
Количество	Число	8.2	Количество товара
Выручка	Число	8.2	Выручка от реализованного товара
Дата	Дата		Дата реализации
Время	Время		Время реализации

Таблица 10

Классификатор «Продано»

Наименование	Тип	Длина	Описание
1	2	3	4
Наименование	Строка	256	Наименование товара
Количество	Число	8.2	Количество реализованного товара
Выручка	Число	8.2	Выручка от реализованного товара
Прибыль	Число	8.2	Прибыль с реализованного товара
Код	Строка	20	Код товара

Таблица 11

Классификатор «Поставки»

Наименование	Тип	Длина	Описание
1	2	3	4
Наименование	Строка	256	Наименование товара
Количество	Число	8.2	Количество поступившего товара
Себестоимость	Число	8.2	Себестоимость товара
Дата	Дата		Дата поступления товара
Время	Время		Время поступления товара
Код	Строка	20	Код товара

2.1.3 Характеристика нормативно-справочной и входной оперативной информации

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

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

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

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

Подробная характеристика информации, входящей в модель данных данного дипломного проекта представлена в табл. 12.

Таблица 12

Характеристика информации входящей в модель данных

Элемент информации	Место возникновения	Стадия обработки	Способ отображения	Стабильность	Функция управления
1	2	3	4	5	6
Код	Входная	Первичная	Текстовая	Переменная	Нормативно-справочная
Изготовитель	Входная	Первичная	Текстовая	Переменная	Нормативно-справочная
Дата реализации	Входная	Первичная	Текстовая	Переменная	Оперативная Нормативно-справочная
Цена покупки	Входная	Первичная	Текстовая	Переменная	Оперативная
Цена продажи	Внутренняя Выходная	Вторичная	Текстовая	Переменная	Оперативная
Количество прихода	Входная	Первичная	Текстовая	Переменная	Оперативная
Поступление	Внутренняя Выходная	Вторичная	Текстовая	Переменная	Оперативная
Заказ	Входная	Первичная	Текстовая	Переменная	Оперативная
Дата поступления	Входная	Первичная	Текстовая	Переменная	Оперативная
Текущая дата	Входная	Первичная	Текстовая	Переменная	Оперативная
Дата заказа	Входная	Первичная	Текстовая	Переменная	Оперативная
Заказчик	Внешняя Входная	Результативная	Текстовая	Переменная	Нормативно-справочная
ФИО	Внешняя Входная	Первичная	Текстовая	Переменная	Нормативно-справочная
Предприятие	Внешняя Входная	Первичная	Текстовая	Переменная	Нормативно-справочная
Телефон	Внешняя Входная	Первичная	Текстовая	Переменная	Нормативно-справочная
Адрес	Внешняя Входная	Первичная	Текстовая	Переменная	Нормативно-справочная
Сумма поступления	Внутренняя	Результативная	Текстовая	Переменная	Оперативная
Сумма заказа	Внутренняя	Результативная	Текстовая	Переменная	Оперативная
Наименование	Входная	Первичная	Текстовая	Переменная	Нормативно-справочная
Процент	Входная	Первичная	Текстовая	Постоянная	Оперативная Нормативно-справочная

2.1.4 Характеристика результатной информации

Результатом формирования данного программного продукта является формирования форм поступления и реализации товаров, а также форма хранения остатков на складе и форма накопления информации о реализованном товаре.

Форма для регистрации данных приведена на рис. 2.1, в данной форме хранится информация о каждом поступлении товара. При оприходовании первичных документов (Накладная, Счет-фактура) на вкладке Поставки создается соответствующая запись.

Рис. 9

Форма хранения и накопления остатков представлена на рис. 9 При каждом проведении прихода на основании первичных документов на вкладке Хранилище происходит накопление данных обо всем имеющемся товаре на складе. При каждой реализации информация обновляется, и текущие остатки уменьшаются на количество реализованного товара. Таким образом, пользователь видит актуальные остатки по каждой позиции.

Рис. 10

Форма регистрации заказов имеет вид, представленный на рис. 10Записи на вкладке Заказы добавляются при каждом оформлении реализации товара.

Рис. 11

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

Пример отчета приведен на рисунке 13

Рис. 12

Рисунок 13 - Пример отчета

2.2 Программное обеспечение задачи

2.2.1 Общие положения (дерево функций и сценарий диалога)

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

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

Схема функционирования автоматизированной системы представлена на рисунке 13

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

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

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

Рис. 13

2.2.2 Структурная схема пакета (дерево вызова процедур и программ)

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

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

В схемотехнике вместе со структурной различают также принципиальную и функциональную схему. Среди всех этих схем структурная наименее детализирована.

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

Алгоритм реализации программного продукта «Учет поставок и реализации» представлен на рис. 14.

Рис. 14

2.2.3 Описание программных модулей

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

В данной программе используются четыре формы:

- Form1: Главная форма (форма приложения);

- Form2: Форма для добавления товара на склад;

- Form3: Форма для создания заказа;

- AboutBox: Форма информации о программе.

Основные процедуры программы

2.2.4 Схема взаимосвязи программных модулей и информационных файлов.

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

- Unit1.pas - модуль главной формы приложения

- Unit2.pas - модуль формы «Добавление товара»

- Unit3.pas - модуль формы «Реализация»

- Unit4.pas - модуль формы о программе

Схема взаимосвязи данных модулей представлена на рис. 15

Рис. 15

2.3 Технологическое обеспечение задачи

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

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

На основе текущих данных всех таблиц можно формировать ежемесячный отчет, который сохраняется в файл Еxcel, что позволяет обрабатывать и анализировать данные, используя возможности Microsoft Office Excel, такие как сводные таблицы, диаграммы и другие.

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

Рис. 16

3. Обоснование экономической эффективности проекта

Экономическая эффективность проекта (Э) складывается из двух составляющих:

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

-Прямого эффекта, который характеризуется снижением трудовых и стоимостных показателей.

К трудовым показателям относятся следующие:

1) абсолютное снижение трудовых затрат (Т):

Т = Т₀ - Т_1,

где Т₀ - трудовые затраты на обработку информации по базовому варианту;

Т₁- трудовые затраты на обработку информации по предлагаемому варианту;

2) коэффициент относительного снижения трудовых затрат (К_Т):

К_Т=Т / T₀ * 100%;

3) индекс снижения трудовых затрат или повышение производительности труда (Y_T):

Y_T = T₀/ T_1.

К стоимостным показателям относятся: абсолютное снижение стоимостных затрат (C), коэффициент относительного снижения стоимостных затрат (К_C) индекс снижения стоимостных затрат (Y_C), рассчитываемые аналогично трудовым показателям.

Помимо рассмотренных показателей рассчитаем срок окупаемости затрат на внедрение проекта машинной обработки информации (Т_ок)

Т_ок= К_П /C,

где К_П - затраты на создание проекта машинной обработки информации (проектирование и внедрение).

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

Операции технологического процесса могут быть представлены в табличной форме (см. табл. 15)

Значения для столбца 6 (норма выработки/производительность) могут получены:

из технической документации (например, скорость модема, принтера);

из информационных источников на предприятии (в бухгалтерии, экономическом отделе, отделе кадров);

путем статистических наблюдений и/или вычислений;

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

Балансовая стоимость компьютера и принтера 20000 руб;

Срок службы компьютера и принтера 5 лет;

Рабочих дней в году 256;

Работа компьютера 8 часов в день.

Рассчитываем общий объем работы компьютера и принтера за весь срок 5*256*8= 10240 часов

Рассчитываем часовую норму амортизации 20000/10240= 1,95 руб/час.

Остальные показатели рассчитываются аналогичным образом.

На основе проведенных расчетов формируются показатели Т₀, Т₁(гр. 7) и С₀, С₁ (гр. 12). С их использованием вычисляются все остальные показатели, описанные в пункте 3.1. Результаты расчетов оформляются в табличной форме (см. табл. 3.2). Может быть избрана и другая табличная форма, основными требованиями к которой являются наглядность и простота.

Таблица 15

Характеристика затрат на обработку информации при базовом варианте

№ п/п	Наименование операций технологического процесса решения комплекса задач	Оборудование	Ед. Изм.	Объем работы в год	Норма выработки / производительность устройств ЭВМ ( в час.)	Тру доемкость (гр5: гр6)	Среднечасовая зарплата оператора (руб.)	Часовая норма амортизации / ст. 1 м.часа (руб.)	Часовая стоимость накладных расходов (руб.)	Стоимость работы оборудования (гр8+ гр9/+ гр10) для ручных операций	Стоимостные затраты (гр7гр11) (руб.)/гр.7/гр.9 ) для операций, вып. на ЭВМ
1	2	3	4	5	6	7	8	9	10	11	12
	...	...	...	...	...	...	...	...	...	...	...
	Итого:					ХХХ					ХХХХХ

Желательно охарактеризовать связь показателей Y_Tи Y_C, объяснив их равенство или неравенство с точки зрения функциональной информационной технологии.

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

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

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

Таблица 16 Показатели эффективности от внедрения проекта автоматизации

	Затраты	Абсолютное изменение	Коэффициент изменения затрат	Индекс изменения затрат
	Базовый вариант	проектный вариант	затрат
Трудоемкость	T₀ (час)	T₁ (час)	Т=Т₀-Т₁(час)	К_Т=Т/T₀ 100 %	Y_T=T₀/T₁
	ХХХ	ХХХ	ХХХ	ХХ%	ХХ
Стоимость	C₀(руб.)	C₁(руб.)	C=C₀-C₁(руб.)	К_C=C/C₀ 100%	Y_C=C₀/C₁
	ХХХ	ХХХ	ХХХ	ХХ%	ХХ

В начале 2010 года по запросу одной московской компании, группа «ВАРЭС» провела исследования в ряде регионов России, касающиеся влияния использования автоматизации учета товарных запасов в деятельности трудового коллектива малых предприятий. Так вот, оказалось, что применение автоматизации на различных предприятиях увеличивало производительность труда в 1,2 - 1,7 раза. Для анализа эффективности предложенного мероприятия возьмем среднее значение роста производительности труда и примем его за 1,5. Величина переменной части вознаграждения сотрудника будет составлять 10% от оклада.

1. Производительность труда после внедрения мероприятия составит: 6192,0* 1,5 = 9288,0 тыс. руб./чел.

2. Следовательно выручка при той же среднесписочной численности (42 чел.) будет равняться: 9288,0 * 48 = 445824 тыс. руб.

3. В нашем случае изменение себестоимости реализованной продукции (ДС) равняется изменению фонда заработной платы (ДФЗП) + изменение Единого социального налога (ДН_ЕСН), фонд заработной платы увеличится на 10%:

ДС= ДФЗП + ДН_ЕСН,

ДФЗП = ФЗП _{2010 года}* 10% = 207649,52 * 10% = 20764,9 тыс. руб.

ДН_ЕСН = 20764,9 * 26% = 3658,9 тыс. руб.

ДС =20764,9 + 3658,9 = 23423,8 тыс. руб.

4. Увеличение прибыли ведет за собой увеличение налога на прибыль:

ДН_пр = ДП * 20%,

где: ДН_пр - изменение налога на прибыль,

ДН_пр= (445824 - 420495 - 23423) * 24% = 457,44 тыс. руб.

5. Результат операционной деятельности (или экономический эффект) определяется как:

ДО = ДП - ДН_пр,

Где: ДО - результат операционной деятельности

ДО = 1906 - 457,44 = 1448,56 тыс. руб.

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

Заключение

Целью настоящего исследования поставлено разработка информационной системы для контроля и учета поставок на предприятие ООО «Рекламное агентство Протон Плюс». Для реализации этой цели в процессе работы выполнены следующие задачи:

Рассмотрен порядок документального оформления поступления, реализации товаров, учет товарных запасов в соответствии с Гражданским кодексом Российской Федерации, с Положениями о бухгалтерском учете и отчетности, с Инструкциями Минфина Российской Федерации, Госкомстата России;

Проведен анализ товарных запасов на предприятии;

Выполнен анализ текущего состояния процесса обработки информации в ООО «Рекламное агентство Протон Плюс»;

Спроектировано и реализовано АРМ бухгалтера по учету товарных запасов на предприятии.

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

1. Разработанная программа позволяет достигнуть следующих эффектов:

- уменьшение времени необходимого для учета поставок произведенных на предприятие;

- автоматизация контроля поставок;

- своевременное получение информации о сроках оплаты за осуществленные поставки.

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

3. На основании вышесказанного можно сделать вывод о том, что разработка программы “Учет поставок и реализации” является целесообразной и будет приносить реальную пользу при использовании ее на предприятии.

Приложение А

Код програмы

UNIT1

procedure TForm1.FormCreate(Sender: TObject);

// Определяет свойства объектов SG (StringGrid): количество строк, столбцов, //их размеры и др.

begin

with StringGrid1 do //настройка SG1 на вкладке хранилище

begin

RowCount:=2; //устанавливаем кол-во строк, равное 2 (шапка и ода пустая строка)

ColCount:=7; //устанавливаем кол-во столбцов, равное 7

Cells[0,0]:='№'; //Значение ячейки [0,0] = №

ColWidths[0]:=25; //Устанавливаем ширину нулевого столбца, равную 25

Cells[1,0]:='Наименование'; //Значение ячейки [1,0] = Наименование

ColWidths[1]:=220; //Устанавливаем ширину первого столбца, равную 220

Cells[2,0]:='Кол-во'; //Значение ячейки [2,0] = Количество

ColWidths[2]:=85; //Устанавливаем ширину второго столбца, равную 85

Cells[3,0]:='Себестоимость'; //Значение ячейки [3,0] = Себестоимость

ColWidths[3]:=85; //Устанавливаем ширину третьего столбца, равную 85

Cells[4,0]:='Процент'; //Значение ячейки [4,0] = Процент

ColWidths[4]:=85; //Устанавливаем ширину четвертого столбца, равную 85

Cells[5,0]:='Цена'; //Значение ячейки [5,0] = Цена

ColWidths[5]:=85; //Устанавливаем ширину пятого столбца, равную 85

Cells[6,0]:='Код'; //Значение ячейки [6,0] = Код

ColWidths[6]:=85; //Устанавливаем ширину шестого столбца, равную 85

end;

with StringGrid2 do //настройка SG2 на вкладке заказы (аналогично SG1)

begin

RowCount:=2;

ColCount:=10;

Cells[0,0]:='№';

ColWidths[0]:=25;

Cells[1,0]:='Предприятие';

ColWidths[1]:=150;

Cells[2,0]:='Ф.И.О.';

ColWidths[2]:=120;

Cells[3,0]:='Адрес';

ColWidths[3]:=200;

Cells[4,0]:='Телефон';

ColWidths[4]:=90;

Cells[5,0]:='Наименование';

ColWidths[5]:=190;

Cells[6,0]:='Кол-во';

ColWidths[6]:=50;

Cells[7,0]:='Выручка';

ColWidths[7]:=60;

Cells[8,0]:='Дата';

ColWidths[8]:=70;

Cells[9,0]:='Время';

ColWidths[9]:=50;

end;

with StringGrid3 do //настройка SG3 на вкладке продано (аналогично SG1)

begin

RowCount:=2;

ColCount:=6;

Cells[0,0]:='№';

ColWidths[0]:=25;

Cells[1,0]:='Наименование';

ColWidths[1]:=220;

Cells[2,0]:='Кол-во';

ColWidths[2]:=85;

Cells[3,0]:='Выручка';

ColWidths[3]:=85;

Cells[4,0]:='Прибыль';

ColWidths[4]:=85;

Cells[5,0]:='Код';

ColWidths[5]:=85;

end;

with StringGrid4 do //настройка SG4 на вкладке продано (аналогично SG1)

begin

RowCount:=2;

ColCount:=7;

Cells[0,0]:='№';

ColWidths[0]:=25;

Cells[1,0]:='Наименование';

ColWidths[1]:=220;

Cells[2,0]:='Кол-во';

ColWidths[2]:=85;

Cells[3,0]:='Себестоимость';

ColWidths[3]:=85;

Cells[4,0]:='Дата';

ColWidths[4]:=85;

Cells[5,0]:='Время';

ColWidths[5]:=85;

Cells[6,0]:='Код';

ColWidths[6]:=85;

end;

procedure TForm1.Button1Click(Sender: TObject);

//Вызывается нажатием кнопки Добавить товар на вкладке Хранилище. //Вызывает форму для добавления товара.

begin

form2.showmodal; //открываем форму для добавления товара

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.showmodal; //открываем форму для оформления заказа

end;

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=13 then form3.ShowModal; //при нажатии enter (13 код клавиши enter)

//на SG1 открывает форму заказа

if key=45 then form2.ShowModal; //при нажатии insert (45 код клавиши insert)

//на SG1 открывает форму добавления товара

end;

procedure TForm1.Button2Click(Sender: TObject);

//Вызывается нажатием кнопки Заказать. Вызывает форму для создания заказа //товара.

begin

form3.showmodal; //открываем форму для оформления заказа

end;

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=13 then form3.ShowModal; //при нажатии enter (13 код клавиши enter)

//на SG1 открывает форму заказа

if key=45 then form2.ShowModal; //при нажатии insert (45 код клавиши insert)

//на SG1 открывает форму добавления товара

end;

procedure SaveFile(s:string);

//Производит текущее сохранение состояния таблиц SG1..SG4 в файл. При //сохранении используются типы r1, r2, r3, r4. Каждый тип - строка каждой из //четырёх таблиц. Параметр s - имя файла.

var

f: TextFile;

i,j: integer;

r1,r2,r3,r4: string;

begin

AssignFile(f, s+'.txt'); // привязка файла к переменной

Rewrite(f); // создаем новый файл

WriteLn(f,'---SG1---'); // добавляем в файл метку об источнике данных

//цикл по строкам SG1

for i:=1 to form1.StringGrid1.RowCount-2

do begin

r1:=''; //освоождаем строковую переменную для дальнейшей записи

//цикл по столбцам i-ой строки

for j:=0 to form1.StringGrid1.ColCount-1 do

r1:=r1+form1.StringGrid1.Cells[j,i]+'|';

WriteLn(f,r1); //записываем полученную строку в файл

end;

WriteLn(f,'---SG2---'); // добавляем в файл метку об источнике данных

//цикл по строкам SG2

for i:=1 to form1.StringGrid2.RowCount-2

do begin

r2:=''; //освоождаем строковую переменную для дальнейшей записи

//цикл по столбцам i-ой строки

for j:=0 to form1.StringGrid2.ColCount-1 do

r2:=r2+form1.StringGrid2.Cells[j,i]+'|';

WriteLn(f,r2); //записываем полученную строку в файл

end;

WriteLn(f,'---SG3---'); // добавляем в файл метку об источнике данных

//цикл по строкам SG3

for i:=1 to form1.StringGrid3.RowCount-2

do begin

r3:=''; //освоождаем строковую переменную для дальнейшей записи

//цикл по столбцам i-ой строки

for j:=0 to form1.StringGrid3.ColCount-1 do

r3:=r3+form1.StringGrid3.Cells[j,i]+'|';

WriteLn(f,r3); //записываем полученную строку в файл

end;

WriteLn(f,'---SG4---'); // добавляем в файл метку об источнике данных

//цикл по строкам SG1

for i:=1 to form1.StringGrid4.RowCount-2

do begin

r4:=''; //освоождаем строковую переменную для дальнейшей записи

//цикл по столбцам i-ой строки

for j:=0 to form1.StringGrid4.ColCount-1 do

r4:=r4+form1.StringGrid4.Cells[j,i]+'|';

WriteLn(f,r4); //записываем полученную строку в файл

end;

writeln(f,'------');

//Запишем в файл значение выручки

WriteLn(f,'Выручка='+form1.label1.caption);

//Запишем в файл значение прибыли

WriteLn(f,'Прибыль='+form1.label2.caption);

CloseFile(f); // закрыть файл

end;

procedure ReadFile(s:string);

//Производит загрузку данных из файла в таблицы.

var

f: TextFile;

i,j: integer;

r1,r2,r3,r4: string;

begin

//ощищаем SG от содержимого

//SG1

for i:=1 to form1.StringGrid1.RowCount-1 do

form1.StringGrid1.Rows[i].Clear;

Form1.StringGrid1.RowCount:=2;

//SG2

for i:=1 to form1.StringGrid2.RowCount-1 do

form1.StringGrid2.Rows[i].Clear;

Form1.StringGrid2.RowCount:=2;

//SG3

for i:=1 to form1.StringGrid3.RowCount-1 do

form1.StringGrid3.Rows[i].Clear;

Form1.StringGrid3.RowCount:=2;

//SG4

for i:=1 to form1.StringGrid4.RowCount-1 do

form1.StringGrid4.Rows[i].Clear;

Form1.StringGrid4.RowCount:=2;

//очищаем итоговые данные с вкладки продано

form1.label1.Caption:='0,00';

form1.label2.Caption:='0,00';

AssignFile(f, s); // привязка файла к переменной

Reset(f); //открываем файл для чтения

Readln(f,r1); //считываем первую строку в переменную r1

//Записываем данные из файла в SG1

i:=1; //устанавливаем начальный номер строки

Readln(f,r1); //считываем следующую строку в переменную r1

//организуем цикл по строкам файла до тех пор пока не дойдем до метки SG2

while r1<>'---SG2---'

do begin

//увеличиваем количество строк в SG на единицу

form1.StringGrid1.RowCount:=form1.StringGrid1.RowCount+1;

j:=0; //устанавливаем начальное значение столбца

//организуем цикл по строке из файла

while r1<>'' //пока строка не пустая

do begin

//записываем в SG значение со строки r1 с первой позиции до разделителя '|'

form1.StringGrid1.Cells[j,i]:=copy(r1,1,pos('|',r1)-1);

//удаляем из строки r1 подстроку c 1 элемента до позиции первого разделителя '|'

delete(r1,1,pos('|',r1));

//увеличиваем индекс столбца в SG на единицу

j:=j+1;

end;

//увеличиваем индекс строки в SG на единицу

i:=i+1;

//считываем следующую строку в переменную r1

ReadLn(f,r1);

end;

//Записываем данные из файла в SG2

i:=1; //устанавливаем начальный номер строки

Readln(f,r2); //считываем следующую строку в переменную r2

//организуем цикл по строкам файла до тех пор пока не дойдем до метки SG3

while r2<>'---SG3---'

do begin

//увеличиваем количество строк в SG на единицу

form1.StringGrid2.RowCount:=form1.StringGrid2.RowCount+1;

j:=0; //устанавливаем начальное значение столбца

//организуем цикл по строке из файла

while r2<>'' //пока строка не пустая

do begin

//записываем в SG значение со строки r2 с первой позиции до разделителя '|'

form1.StringGrid2.Cells[j,i]:=copy(r2,1,pos('|',r2)-1);

//удаляем из строки r2 подстроку c 1 элемента до позиции первого разделителя '|'

delete(r2,1,pos('|',r2));

//увеличиваем индекс столбца в SG на единицу

j:=j+1;

end;

//увеличиваем индекс строки в SG на единицу

i:=i+1;

//считываем следующую строку в переменную r2

ReadLn(f,r2);

end;

//Записываем данные из файла в SG3

i:=1; //устанавливаем начальный номер строки

Readln(f,r3); //считываем следующую строку в переменную r3

//организуем цикл по строкам файла до тех пор пока не дойдем до метки SG4

while r3<>'---SG4---'

do begin

//увеличиваем количество строк в SG на единицу

form1.StringGrid3.RowCount:=form1.StringGrid3.RowCount+1;

j:=0; //устанавливаем начальное значение столбца

//организуем цикл по строке из файла

while r3<>'' //пока строка не пустая

do begin

//записываем в SG значение со строки r3 с первой позиции до разделителя '|'

form1.StringGrid3.Cells[j,i]:=copy(r3,1,pos('|',r3)-1);

//удаляем из строки r3 подстроку c 1 элемента до позиции первого разделителя '|'

delete(r3,1,pos('|',r3));

//увеличиваем индекс столбца в SG на единицу

j:=j+1;

end;

//увеличиваем индекс строки в SG на единицу

i:=i+1;

//считываем следующую строку в переменную r3

ReadLn(f,r3);

end;

//Записываем данные из файла в SG4

i:=1; //устанавливаем начальный номер строки

Readln(f,r4); //считываем следующую строку в переменную r4

//организуем цикл по строкам файла до его завершения

while r4<>'------'

do begin

//увеличиваем количество строк в SG на единицу

form1.StringGrid4.RowCount:=form1.StringGrid4.RowCount+1;

j:=0; //устанавливаем начальное значение столбца

//организуем цикл по строке из файла

while r4<>'' //пока строка не пустая

do begin

//записываем в SG значение со строки r4 с первой позиции до разделителя '|'

form1.StringGrid4.Cells[j,i]:=copy(r4,1,pos('|',r4)-1);

//удаляем из строки r1 подстроку c 1 элемента до позиции первого разделителя '|'

delete(r4,1,pos('|',r4));

//увеличиваем индекс столбца в SG на единицу

j:=j+1;

end;

//увеличиваем индекс строки в SG на единицу

i:=i+1;

//считываем следующую строку в переменную r4

ReadLn(f,r4);

end;

//считываем значение прибыли

ReadLn(f,r4);

delete(r4,1,8);

form1.label1.caption:=r4;

//считываем значение выручки

ReadLn(f,r4);

delete(r4,1,8);

form1.label2.caption:=r4;

CloseFile(f); // закрыть файл

end;

procedure DeleteItem(var mySG:TstringGrid; n:integer);

//Производит удаление из таблицы строки с номером n. Все нижние строки //сдвигаются вверх.

var i, j: Integer;

begin

with mySG do

begin

//организуем цикл по строкам, начиная со строки, которую неоходимо удалить

for i:=n+1 to RowCount-1 do

//организуем цикл по столбцам

for j:=1 to ColCount-1 do

//переписываем текущие значения в ячейку выше

Cells[j, i-1]:=Cells[j, i];

// организуем цикл по столбцам

for i:=0 to ColCount-1 do

//удаляем значения с последней строки

Cells[i, RowCount-1]:='';

//уменьшаем количество строк в SG на единицу

RowCount:=RowCount-1;

//удаляем номер по порядку с последней строки пустой строки

Cells[0, RowCount-1]:='';

end;

procedure TForm1.N8Click(Sender: TObject);

{Вызывается выбором пункта главного меню Данные - Создать отчёт. Вызывает диалоговое окно для подтверждения создания отчёта. Затем происходит сохранение состояния всех таблиц в текстовом файле с указанием в его названии даты формирования, а также на основе шаблона создается отчет в excel. После сохранения текстового файла и файла отчета происходит удаление из таблицы всех данных кроме товаров на складе. Если какого-либо товара не осталось (количество - 0), то он также удаляется из списка.}

var MSExcel: Variant;

i: Integer;

path: string;

begin

if MessageDlg('Вы действительно желаете сформировать файл отчета на основе текущих данных?'+#13+

'Внимание! После формирования отчета таблицы будут очищены.'+#13+

'Для дальнейшей работы с этими же данными необходимо будет загрузить их с резервного файла,'+#13+

'который будет автоматически создан в папке отчеты.',mtConfirmation, mbOKCancel, 0) = mrOk

then begin

path:=copy(Application.ExeName,1,pos('Project1.exe',Application.ExeName)-1);//определяем путь к exe файлу приложения

//создание резервного файла txt в папке отчеты

SaveFile(path+'Отчеты'+FormatDateTime('yyyy.mm.dd',Date)+'.txt');

//формирование отчета в excel

MsExcel:= CreateOleObject('Excel.Application'); //определяем переменную MsExcel

MsExcel.Visible:= False; //отключаем видимоть окна excel

MsExcel.WorkBooks.Add(path+'ОтчетыШаблон отчета.xlt'); //создание новой книги на основе шаблона

//выгрузка SG1

MsExcel.Sheets['Хранилище'].Select; //делаем активным лист хранилище

for i:= 1 to StringGrid1.RowCount - 2 do //для строк SG1 со второй по педпоследнюю

begin

//вывод данных с преобразованием типов, где необходимо

MsExcel.ActiveSheet.Cells[i+1, 1]:=StrToInt(StringGrid1.Cells[0,i]);

MsExcel.ActiveSheet.Cells[i+1, 2]:=StringGrid1.Cells[1,i];

MsExcel.ActiveSheet.Cells[i+1, 3]:=StrToFloat(StringGrid1.Cells[2,i]);

MsExcel.ActiveSheet.Cells[i+1, 4]:=StrToFloat(StringGrid1.Cells[3,i]);

MsExcel.ActiveSheet.Cells[i+1, 5]:=StrToFloat(StringGrid1.Cells[4,i]);

MsExcel.ActiveSheet.Cells[i+1, 6]:=StrToFloat(StringGrid1.Cells[5,i]);

MsExcel.ActiveSheet.Cells[i+1, 7]:=StringGrid1.Cells[6,i];

end;

//выгрузка SG2

MsExcel.Sheets['Заказы'].Select; //делаем активным лист заказы

for i:= 1 to StringGrid2.RowCount - 2 do //для строк SG2 со второй по педпоследнюю

begin

//вывод данных с преобразованием типов, где необходимо

MsExcel.ActiveSheet.Cells[i+1, 1]:=StrToInt(StringGrid2.Cells[0,i]);

MsExcel.ActiveSheet.Cells[i+1, 2]:=StringGrid2.Cells[1,i];

MsExcel.ActiveSheet.Cells[i+1, 3]:=StringGrid2.Cells[2,i];

MsExcel.ActiveSheet.Cells[i+1, 4]:=StringGrid2.Cells[3,i];

MsExcel.ActiveSheet.Cells[i+1, 5]:=StringGrid2.Cells[4,i];

MsExcel.ActiveSheet.Cells[i+1, 6]:=StringGrid2.Cells[5,i];

MsExcel.ActiveSheet.Cells[i+1, 7]:=StrToFloat(StringGrid2.Cells[6,i]);

MsExcel.ActiveSheet.Cells[i+1, 8]:=StrToFloat(StringGrid2.Cells[7,i]);

MsExcel.ActiveSheet.Cells[i+1, 9]:=StrToDate(StringGrid2.Cells[8,i]);

MsExcel.ActiveSheet.Cells[i+1, 10]:=StrToTime(StringGrid2.Cells[9,i]);

end;

//выгрузка SG3

MsExcel.Sheets['Продано'].Select; //делаем активным лист продано

for i:= 1 to StringGrid3.RowCount - 2 do //для строк SG3 со второй по педпоследнюю

begin

//вывод данных с преобразованием типов, где необходимо

MsExcel.ActiveSheet.Cells[i+1, 1]:=StrToInt(StringGrid3.Cells[0,i]);

MsExcel.ActiveSheet.Cells[i+1, 2]:=StringGrid3.Cells[1,i];

MsExcel.ActiveSheet.Cells[i+1, 3]:=StrToFloat(StringGrid3.Cells[2,i]);

MsExcel.ActiveSheet.Cells[i+1, 4]:=StrToFloat(StringGrid3.Cells[3,i]);

MsExcel.ActiveSheet.Cells[i+1, 5]:=StrToFloat(StringGrid3.Cells[4,i]);

MsExcel.ActiveSheet.Cells[i+1, 6]:=StringGrid3.Cells[5,i];

end;

//добавляем строку с итоговыми данными (вся выручка, вся прибыль)

MsExcel.ActiveSheet.Cells[i+1, 2]:='Итого:';

MsExcel.ActiveSheet.Cells[i+1, 4]:=StrToFloat(label1.Caption);

MsExcel.ActiveSheet.Cells[i+1, 5]:=StrToFloat(label2.Caption);

//выгрузка SG4

MsExcel.Sheets['Поставки'].Select; //делаем активным лист поставки

for i:= 1 to StringGrid4.RowCount - 2 do //для строк SG4 со второй по педпоследнюю

begin

//вывод данных с преобразованием типов, где необходимо

MsExcel.ActiveSheet.Cells[i+1, 1]:=StrToInt(StringGrid4.Cells[0,i]);

MsExcel.ActiveSheet.Cells[i+1, 2]:=StringGrid4.Cells[1,i];

MsExcel.ActiveSheet.Cells[i+1, 3]:=StrToFloat(StringGrid4.Cells[2,i]);

MsExcel.ActiveSheet.Cells[i+1, 4]:=StrToFloat(StringGrid4.Cells[3,i]);

MsExcel.ActiveSheet.Cells[i+1, 5]:=StrToDate(StringGrid4.Cells[4,i]);

MsExcel.ActiveSheet.Cells[i+1, 6]:=StrToTime(StringGrid4.Cells[5,i]);

MsExcel.ActiveSheet.Cells[i+1, 7]:=StringGrid4.Cells[6,i];

end;

MsExcel.DisplayAlerts:= False; //отключаем диалоговое окно сохранения шаблона

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

MsExcel.ActiveWorkbook.SaveCopyAs(path+'Отчеты' + FormatDateTime('yyyy.mm.dd',Date)+'.xls');

MsExcel.Quit; //закрываем excel

//очищаем SG2 - SG4

for i:=1 to StringGrid2.RowCount-1 do

StringGrid2.Rows[i].Clear;

StringGrid2.RowCount:=2;

for i:=1 to StringGrid3.RowCount-1 do

StringGrid3.Rows[i].Clear;

StringGrid3.RowCount:=2;

for i:=1 to StringGrid4.RowCount-1 do

StringGrid4.Rows[i].Clear;

StringGrid4.RowCount:=2;

//очищаем итоговые данные с вкладки продано

label1.Caption:='0,00';

label2.Caption:='0,00';

//удаляем строки с нулевыми остатками на вкладке хранилище

i:=1;

while i<StringGrid1.RowCount-1 do

if StrToFloat(StringGrid1.Cells[2,i])=0

then

DeleteItem(StringGrid1,i)

else

i:=i+1;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

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

var

s:string;

begin

if MessageDlg('При закрытии программы все несохраненные данные будут потеряны.'+#13+

'Сохранить содержимое таблиц в файл?',mtConfirmation, mbOKCancel, 0) = mrOk

then begin

//задаем по-умолчанию имя файла текущий год.месяц.день

s:=FormatDateTime('yyyy.mm.dd',date);

//переносим имя файла по умолчанию в диалоговое окно

SaveDialog1.FileName:=s;

//открываем диалоговое окно сохранения файлов

SaveDialog1.Execute;

//вызываем процедуру сохранения данных в файл,

//в качестве параметра передаем полное имя файла (включая путь)

SaveFile(SaveDialog1.FileName);

end;

procedure TForm1.SG1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

//Когда активный компонент - таблица, то при нажатии ENTER появляется //форма создания заказа. Если INS, то добавления нового товара.

begin

if key=13 then form3.ShowModal; //при нажатии enter (13 код клавиши enter)

//на SG1 открывает форму заказа

if key=45 then form2.ShowModal; //при нажатии insert (45 код клавиши insert)

//на SG1 открывает форму добавления товара

end;

procedure TForm1.N4Click(Sender: TObject);

var

s:string;

begin

//задаем по-умолчанию имя файла текущий год.месяц.день

s:=FormatDateTime('yyyy.mm.dd',date);

//переносим имя файла по умолчанию в диалоговое окно

SaveDialog1.FileName:=s;

//открываем диалоговое окно сохранения файлов

SaveDialog1.Execute;

//вызываем процедуру сохранения данных в файл,

//в качестве параметра передаем полное имя файла (включая путь)

SaveFile(SaveDialog1.FileName);

end;

UNIT2

procedure TForm2.FindItem(var mySG:TstringGrid; ItemToSend:string);

{Находит на компоненте mySG строку товара ItemToSend и записывает в свойство Row номер строки. При отсутствии данного товара, устанавливает «указатель» в конец таблицы и увеличивает общее количество строк в ней.}

var

i,row: integer; //i - переменная цикла,

//row - переменная, в которую запоминаем номер строки искомого товара

begin

row:=0;

//организуем цикл по колонке наименование в SG

for i:=1 to mySG.RowCount do

begin

if mySG.Cells[1,i]=ItemToSend //проверяем является ли текущий товар в SG искомым

then begin

row:=i; //если текущий товар = искомому, то запоминаем номер строки

break; //прирываем выполнение цикла;

end;

if row <> 0 //если row не равно 0, т.е. товар в SG найден

then mySG.Row:=row //выделяем строку с искомым товаром

else begin //в противном случае (товар не найден)

mySG.RowCount:=mySG.RowCount+1; //добавляем ещё одну пустую строку

mySG.Row:= mySG.RowCount-2; //выделяем предпоследнюю (пустую) строку в SG

end;

procedure TForm2.Button1Click(Sender: TObject);

{Выполняется нажатием кнопки ОК на форме добавления товара. Проверяет корректность введенных данных, затем изменяет информацию в таблице SG1 (Хранилище) и на таблице SG4 (Поступления).}

var

row: integer;

begin

//проверяем все ли поля ввода заполнены

if (trim(edit1.text)='')or(trim(edit2.text)='')or(trim(edit3.text)='')or(trim(edit4.text)='')or(trim(edit5.text)='')

then begin

showmessage('Не все поля ввода заполнены');

exit;

end;

//проверяем корректность заполнения поля ввода количества

try

StrToFloat(edit2.Text);

except

showmessage('Количество может быть только числом');

edit2.SetFocus;

exit;

end;

//проверяем корректность заполнения поля ввода себестоимости

try

StrToFloat(edit3.Text);

except

showmessage('Себестоимость может быть только числом');

edit3.SetFocus;

exit;

end;

//проверяем корректность заполнения поля ввода процента

try

StrToFloat(edit4.Text);

except

showmessage('Процент может быть только числом');

edit4.SetFocus;

exit;

end;

//обращаемся к процедуре поиска товара, в качестве параметров передаем SG с вкладки хранилище

//и наименование товара, который необходимо поставить на приход

FindItem(form1.StringGrid1, edit1.text);

//в результате отработки процедуры FindItem мы имеем выделенную строку, в которую необходимо записать товар с прихода

row:=form1.StringGrid1.Row; //запоминаем номер выделенной строки

//заполняем SG на вкладке Хранилище

if form1.StringGrid1.Cells[0,form1.StringGrid1.row]='' //если наименование в веделенной строке пустое, следовательно товар новый (ранее не был занесен в SG)

then begin

form1.StringGrid1.Cells[0,form1.StringGrid1.row]:=IntToStr(form1.StringGrid1.row); //записываем номер текущей строки в нулевой столбец

form1.StringGrid1.Cells[1,form1.StringGrid1.row]:=edit1.Text; //в первый столбец SG записываем наименование товара

//во второй - кол-во, используя форматный вывод (10 знаков всего, 2 после запятой)

form1.StringGrid1.Cells[2,form1.StringGrid1.row]:=FloatToStrF(StrToFloat(edit2.Text),ffFixed,10,2);

// в третий столбец записываем себестоимость, используя форматный вывод (14 знаков всего, 2 после запятой)

form1.StringGrid1.Cells[3,form1.StringGrid1.row]:=FloatToStrF(StrToFloat(edit3.Text),ffFixed,12,4);

// в четвертый столбец записываем процент

form1.StringGrid1.Cells[4,form1.StringGrid1.row]:=edit4.Text;

// в пятом столбце вычисляем цену Цена = Себестоимость + Себестоимость*(Процент/100)

form1.StringGrid1.Cells[5,form1.StringGrid1.row]:=FloatToStrF(StrToFloat(edit3.Text)+

StrToFloat(edit3.Text)*(StrToFloat(edit4.Text)/100),ffFixed,12,4);

//в шестой столбец записываем код товара

form1.StringGrid1.Cells[6,form1.StringGrid1.row]:=edit5.Text;

end else begin //в противном случае, если наименование не пустое в выделенной строке SG, обновляем и пересчитываем данные

//пересчитаем себестоимость товара по методу средней себестоимости

// Кол-во товара на складе * себ-ть ед-цы на складе + Кол-во товара на приходе * себ-ть ед-цы прихода

// себ-ть = ---------------------------------------------------------------------------------------------------

// Кол-во товара на складе + Кол-во товара на приходе

form1.StringGrid1.Cells[3,form1.StringGrid1.row]:=FloatToStrF((StrToFloat(form1.StringGrid1.Cells[2,row])*StrToFloat(form1.StringGrid1.Cells[3,row])+

StrToFloat(edit2.Text)*StrToFloat(edit3.Text))/

(StrToFloat(form1.StringGrid1.Cells[2,row])+StrToFloat(edit2.Text)),ffFixed,12,4);

//пересчитываем кол-во кол-во = кол-во на складе + кол-во на приходе

form1.StringGrid1.Cells[2,form1.StringGrid1.row]:=FloatToStrF(StrToFloat(form1.StringGrid1.Cells[2,form1.StringGrid1.row])+

StrToFloat(edit2.Text),ffFixed,10,2);

//записываем процент

form1.StringGrid1.Cells[4,form1.StringGrid1.row]:=edit4.Text;

//пересчитываем цену, Цена = Себестоимость + Себестоимость*(Процент/100)

form1.StringGrid1.Cells[5,form1.StringGrid1.row]:=FloatToStrF(StrToFloat(form1.StringGrid1.Cells[3,form1.StringGrid1.row])+

StrToFloat(form1.StringGrid1.Cells[3,form1.StringGrid1.row])*(StrToFloat(form1.StringGrid1.Cells[4,form1.StringGrid1.row])/100),ffFixed,12,4);

//записываем код товара

form1.StringGrid1.Cells[6,form1.StringGrid1.row]:=edit5.Text;

end;

//заполняем SG на вкладке Поставки

//заполняем номер по-порядку

form1.StringGrid4.Cells[0,form1.StringGrid4.RowCount-1]:=IntToStr(form1.StringGrid4.RowCount-1);

//заполняем наименование товара

form1.StringGrid4.Cells[1,form1.StringGrid4.RowCount-1]:=edit1.Text;

//заполняем кол-во поступившего товара

form1.StringGrid4.Cells[2,form1.StringGrid4.RowCount-1]:=FloatToStrF(StrToFloat(edit2.Text),ffFixed,10,2);

//заполняем себестоимость поступившего товара

form1.StringGrid4.Cells[3,form1.StringGrid4.RowCount-1]:=FloatToStrF(StrToFloat(edit3.Text),ffFixed,12,4);

//заполняем текущую дату

form1.StringGrid4.Cells[4,form1.StringGrid4.RowCount-1]:=DateToStr(Date);

//заполняем текущее время

form1.StringGrid4.Cells[5,form1.StringGrid4.RowCount-1]:=TimeToStr(Time);

//заполняем код товара

form1.StringGrid4.Cells[6,form1.StringGrid4.RowCount-1]:=edit5.Text;

// добавляем в SG4 на вкладке поставки пустую строку

form1.StringGrid4.RowCount:=form1.StringGrid4.RowCount+1;

//закрываем форму

form2.Close;

end;

UNIT3

procedure FindItem2(var mySG:TstringGrid; ItemToSend:string);

//Находит товар в таблице аналогично процедуре FindItem. Отличается тем, что //при отсутствии данного товара процедура выводит соответствующее сообщение.

var

i,row: integer; //i - переменная цикла,

//row - переменная, в которую запоминаем номер строки искомого товара

begin

row:=0;

//организуем цикл по колонке наименование в SG

for i:=1 to mySG.RowCount-1 do

begin

if mySG.Cells[1,i]=ItemToSend //проверяем является ли текущий товар в SG искомым

then begin

row:=i; //если текущий товар = искомому, то запоминаем номер строки

break; //прирываем выполнение цикла;

end;

if row <> 0 //если row не равно 0, т.е. товар в SG найден

then mySG.Row:=row //выделяем строку с искомым товаром

else //в противном случае (товар не найден)

//выводим сообщение об отсутствии данного товара

showmessage('Товар '+ItemToSend+' отсутствует на складе');

end;

procedure TForm3.Button1Click(Sender: TObject);

{Вызывается нажатием кнопки ОК на форме создания заказа. Проверяется корректность введенных данных, и происходит изменение информации в трёх таблицах: уменьшение количества товара во вкладке Хранилище, добавление строки нового заказа во вкладку Заказы, увеличение количества проданных товаров во вкладке Продано, а также пересчет общей выручки и прибыли.}

var

row: integer;

begin

//проверяем все ли поля ввода заполнены

if (trim(edit1.text)='')or(trim(edit2.text)='')or(trim(edit3.text)='')or

(trim(edit4.text)='')or(trim(edit5.text)='')or(trim(edit6.text)='')

then begin

showmessage('Не все поля ввода заполнены');

exit;

end;

//проверяем чтобы количество было числом

try

StrToFloat(edit2.Text);

except

showmessage('Количество может быть только числом');

exit;

end;

//процедура поиска товара, который необходимо отгрузить в таблице SG1 на вкладке хранилище

FindItem2(form1.StringGrid1, edit1.text);

//в результате отработки процедуры FindItem2, если не было выведено сообщение об отсутствие товара на складе

//мы имеем выделенную строку, с которой необходимо списать отгружаемый товар

row:=form1.StringGrid1.Row; //запоминаем номер выделенной строки

//если товар в веделенной строке соответствует товару в заказе

if form1.StringGrid1.Cells[1,row]=Edit1.Text

//проверяем хватает ли товара для заказа

then if StrToFloat(form1.StringGrid1.Cells[2,form1.StringGrid1.Row])<StrToFloat(Edit2.Text)

then showmessage('Товара '+form1.StringGrid1.Cells[1,row]+' на складе '+

form1.StringGrid1.Cells[2,form1.StringGrid1.Row]+', а для заказа необходимо '+Edit2.Text)

else begin

//заполняем SG на вкладке Хранилище

//вычитаем от остатков товара на складе заказываемое кол-во

form1.StringGrid1.Cells[2,row]:=FloatToStrF(StrToFloat(form1.StringGrid1.Cells[2,row])-

StrToFloat(edit2.Text),ffFixed,10,2);

//добавляем строку нового заказа на вкладку заказы

//заполняем номер по порядку

form1.StringGrid2.Cells[0,form1.StringGrid2.RowCount-1]:=IntToStr(form1.StringGrid2.RowCount-1);

//заполняем предприятие

form1.StringGrid2.Cells[1,form1.StringGrid2.RowCount-1]:=edit3.Text;

//заполняем Ф.И.О.

form1.StringGrid2.Cells[2,form1.StringGrid2.RowCount-1]:=edit4.Text;

//заполняем адрес

form1.StringGrid2.Cells[3,form1.StringGrid2.RowCount-1]:=edit5.Text;

//заполняем телефон

form1.StringGrid2.Cells[4,form1.StringGrid2.RowCount-1]:=edit6.Text;

//заполняем наименование

form1.StringGrid2.Cells[5,form1.StringGrid2.RowCount-1]:=edit1.Text;

//заполняем кол-во

form1.StringGrid2.Cells[6,form1.StringGrid2.RowCount-1]:=FloatToStrF(StrToFloat(edit2.Text),ffFixed,10,2);

//заполняем выручку (выручка=кол-во*цена)

form1.StringGrid2.Cells[7,form1.StringGrid2.RowCount-1]:=FloatToStrF(StrToFloat(edit2.Text)*

StrToFloat(form1.StringGrid1.Cells[5,row]),ffFixed,10,2);

//заполняем текущую дату

form1.StringGrid2.Cells[8,form1.StringGrid2.RowCount-1]:=DateToStr(Date);

//заполняем текущее время

form1.StringGrid2.Cells[9,form1.StringGrid2.RowCount-1]:=TimeToStr(Time);

//увеличиваем кол-во строк в таблице на вкладке заказы на единицу

form1.StringGrid2.RowCount:=form1.StringGrid2.RowCount+1;

//увеличение кол-ва проданных товаров на вкладке продано

form2.FindItem(form1.StringGrid3, edit1.text);

if form1.StringGrid3.Cells[0,form1.StringGrid3.Row]='' //если наименование в веделенной строке пустое, следовательно товар новый (ранее не был занесен в SG)

then begin //добавляем новую строку в таблицу продано

//заполняем номер по порядку

form1.StringGrid3.Cells[0,form1.StringGrid3.Row]:=IntToStr(form1.StringGrid3.Row);

//заполняем наименование

form1.StringGrid3.Cells[1,form1.StringGrid3.Row]:=edit1.Text;

//заполняем количество

form1.StringGrid3.Cells[2,form1.StringGrid3.Row]:=FloatToStrF(StrToFloat(edit2.Text),ffFixed,10,2);

//заполняем выручку

form1.StringGrid3.Cells[3,form1.StringGrid3.Row]:=form1.StringGrid2.Cells[7,form1.StringGrid2.RowCount-2];

//заполняем прибыль (прибыль = кол-во по заказу * (цена - себ-ть))

form1.StringGrid3.Cells[4,form1.StringGrid3.Row]:=FloatToStrF(StrToFloat(edit2.Text)*

(StrToFloat(form1.StringGrid1.Cells[5,form1.StringGrid1.Row])-

StrToFloat(form1.StringGrid1.Cells[3,form1.StringGrid1.Row])),ffFixed,10,2);

//заполняем код

form1.StringGrid3.Cells[5,form1.StringGrid3.Row]:=form1.StringGrid1.Cells[6,form1.StringGrid3.Row]

end else begin//пересчитываем кол-во, выручку и прибыль по реализованному товару

//пересчитываем кол-во (кол-во = кол-во продано + кол-во в заказе)

form1.StringGrid3.Cells[2,form1.StringGrid3.Row]:=FloatToStrF(StrToFloat(edit2.Text)+

StrToFloat(form1.StringGrid3.Cells[2,form1.StringGrid3.Row]),ffFixed,10,2);

//пересчитываем выручку (выручка = выручка + выручка по заказу)

form1.StringGrid3.Cells[3,form1.StringGrid3.Row]:=FloatToStrF(StrToFloat(form1.StringGrid3.Cells[3,form1.StringGrid3.Row])+

StrToFloat(form1.StringGrid2.Cells[7,form1.StringGrid2.RowCount-2]),ffFixed,10,2);

//пересчитываем прибыль (прибыль = прибыль + кол-во по заказу * (цена - себ-ть))

form1.StringGrid3.Cells[4,form1.StringGrid3.Row]:=FloatToStrF(StrToFloat(form1.StringGrid3.Cells[4,form1.StringGrid3.Row])+

StrToFloat(edit2.Text)*

(StrToFloat(form1.StringGrid1.Cells[5,form1.StringGrid1.Row])-

StrToFloat(form1.StringGrid1.Cells[3,form1.StringGrid1.Row])),ffFixed,10,2);

//перезаписываем код товара

form1.StringGrid3.Cells[5,form1.StringGrid3.Row]:=form1.StringGrid1.Cells[6,form1.StringGrid3.Row]

end;

//пересчитываем общую выручку и общую прибыль

//вся выручка = вся выручка + выручка по заказу

form1.label1.Caption:=FloatToStrF(StrToFloat(form1.label1.Caption)+

StrToFloat(form1.StringGrid2.Cells[7,form1.StringGrid2.RowCount-2]),ffFixed,10,2);

//вся прибыль = вся прибыль + кол-во по заказу * (цена-себ-сть)

form1.label2.Caption:=FloatToStrF(StrToFloat(form1.label2.Caption)+

StrToFloat(form1.StringGrid2.Cells[6,form1.StringGrid2.RowCount-2])*

(StrToFloat(form1.StringGrid1.Cells[5,form1.StringGrid1.Row])-

StrToFloat(form1.StringGrid1.Cells[3,form1.StringGrid1.Row])),ffFixed,10,2);

//закрываем форму заказа

close;

end;

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

Алексеев Н.С. Теоретические основы товароведения непродовольственных товаров. - М., Прогресс, 2008. - 254с.

Аниськова О.Г., Пигунова О.В. Стратегия коммерческой деятельности предприятия розничной торговли. - М.: Издательско-книготорговый центр Маркетинг, 2008. - 425 с.

Абрютин М.С., Грачев А.В. Анализ финансово-экономической деятельности предприятия. М.: Дело и Сервис, 2008. - 180 с.

Артеменко В.Г., Белендир М.В. Финансовый анализ: Учебное пособие. М.: ДИС НГАЭиУ, 2008. - 128 с.

Баканов М.И., Сергеев Э.А. Анализ эффективности использования оборотных средств // Бухгалтерский учет. 2008. № 10. С. 64-66.

Баканов М.И., Шеремет А.Д. Теория экономического анализа. М.: Финансы и статистика, 2007. - 218с.

Балабанов И.Т. Основы финансового менеджмента. М.: Финансы и статистика, 2009. - 384 с.

Бланк И.Б. Финансовый менеджмент. Киев: Ника -- Центр -- Эльга, 2008. - 306 с.

Белявский И.К. Основы коммерции: Учебно-практическое пособие / Московский государственный университет. - М.: МЭСИ, 2010. - 423с.

Брагин Л.А. Торговое дело - экономика и организация. М, ИНФРА - М, 2009. -256с.

Виноградова С.Н. Коммерческая деятельность. - Минск: «Высшая школа» 2008. - 176 с.

Гончаров П.Г., Егоров В.Ф., Жданова С.Д. и др. Организация торговли непродовольственными товарами. - М.: Экономика, 2008 - 425с.

Дашков Л.П., Памбухчиянц В.К. Коммерция и технология торговли. - М., 2008. - 254с.

Зубкова И.Н. Организация торговли непродовольственными товарами. - М.: Издательский Дом «Дашков и Ко», 2009. -218с.

Ильин А.И. Планирование на предприятии, М., 2008 - 225с.

Каплина С.А. Организация коммерческой деятельности: Учеб. пособие для сред. спец. заведений/ С.А. Каплина. - Ростов н/ Д: Феникс, 2008. - 414 c.

Кирин Ф.Я. Хозяйство Челябинской области.- Челябинск: Юж.-Урал. Кн. Изд-во, 2010. - 157 с.

Коммерческая деятельность производственных предприятий (фирм) Учебник О.А. Новиков, В.О. С.А. Уваров и др.; Под общ. ред.: О.А. Новикова. В.В. Щербакова. -- СПб.: Изд-во 2008. --416с.

Коммерческая деятельность. Учебник Ф.Г. Панкратов, Т.К. Серегина. - М.: ИВЦ «Маркетинг», 2009 г.

Коммерческая деятельность. Учебник Ф.П. Половцева. - М.: «Инфра-М», 2009г.

Коновалова Т.Ю. Ассортимент и качество, М., 2009 - 356с.

Котлер Филипп. Маркетинг, 2009. - 452с.

Ньюман Э. Кален П. Розничная торговля - СПб.: Питер, 2008 - 416с., ил., табл.

Осинова Л.В., Синяева И.М. Основы коммерческой деятельности. Учебник. М. «Банки и биржи» 2008. - 324 с.

Памбухчиянц В.К. Организация, технология проектирование торговых предприятий. - М.; 2008 - 320 с.

Пеньков Е.Г. “Организация учета в материально-техническом снабжении”, Финансы, М. 2008.

Плиханов Г.В. Торговое дело. - Москва, 2009. - 452с.

Покровский А.И. Экономика торговли. - М., 2008. - 354с.

Половцева Ф.П. Коммерческая деятельность. - М.: ИНФРА - М, 2010. - 257с.

Практикум по коммерческой деятельности. Учеб. пособие/ Ф.Г. Панкратов и др. - М.: Маркетинг, 2008 - 248 с.

Рихтер Джеффри “Windows для профессионалов”, С-П. Русская редакция 2010.