Автоматизация формирования отчетных документов предприятия

Среда разработки Borland Delphi 7

3.2 Функциональное назначение программы

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

Таблица 3.2 - Функциональное назначение

Наименование сведений	Содержание сведений
Назначение программы	Автоматизация учета коммерческой деятельности ИП Маслова А. Е., г. Ставрополь
Цель создания программы	Сокращение временных затрат ИП Маслова А. Е. на учет коммерческой деятельности
Функциональные ограничения на применение	Наличие на компьютере пользователя установленной операционной системы семейства Windows

3.3 Описание логической структуры программы

Логическую структуру программы иллюстрирует диаграмма компонентов (рисунок 3.1).

Рисунок 3.1 - Диаграмма компонентов информационной подсистемы «TradeBusiness»

Как следует из рисунка 3.1, в логическую структуру программы входят 37 программных компонентов (модулей) и база данных информационной подсистемы. Логическая структура взаимодействия классов Delphi 7, реализующих указанные модули программы представлена на рисунке 3.2.

Как видно из рисунка 3.2, родительским (суперклассом) классом, т. е. классом, порождающим все формы приложения, является класс типа TObject.

Проанализируем более подробно логическую структуру модуля программы fmGoods.pas (рисунок 3.3).

Из рисунка 3.3 следует, что модуль fmGoods.pas использует множество закрытых и защищенных функций.

3.4 Требования к техническому обеспечению

3.4.1 Общие требования

Для нормальной работы информационной подсистемы «TradeBusiness» достаточно наличие на компьютере пользователя операционной системы Microsoft Windows XP.

Для установки информационной подсистемы «TradeBusiness» системный блок персонального компьютера (ПК) должен быть снабжен дисководом для компакт-дисков. К системному блоку должны быть подключены монитор и принтер. Остальные элементы ПК (клавиатура, манипулятор-мышь и коврик для мыши) являются стандартными.

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

3.4.2 Требования к центральному процессору

В результате контрольных прогонов установлено, что для работы с информационной подсистемой «TradeBusiness» достаточно персонального компьютера с процессором Pentium 75 МГц. Обоснование: при более низкой тактовой частоте центрального процессора быстродействие информационной подсистемой «TradeBusiness» является неудовлетворительным, например, время выполнения запроса для формирования данных о состоянии указанного пункта продаж составляет более десяти минут.

3.4.3 Требования к оперативному запоминающему устройству

Необходимый размер ОЗУ W_ОЗУ , Мбайт, рассчитаем по формуле

, (3.1)

где - минимально необходимый размер ОЗУ, требуемый для работы

операционной системы (ОС);

- объем ОЗУ, требуемый для работы информационной подсистемы.

Значение параметра для Windows XP определяется, как 128 Мбайт. Обоснование: данное требование сформулировано фирмой Microsoft, как минимальное при установке Microsoft Windows XP.

Значение параметра в рассматриваемом случае определяется необходимостью загрузки в оперативную память ПК информационной подсистемы «TradeBusiness» и составляет 1,95 Мбайт оперативной памяти.

Таким образом, воспользовавшись формулой (3.1) получаем

= 128 + 1,95 = 129,95 Мбайт.

Делаем следующий вывод - для нормальной работы информационной подсистемы «TradeBusiness» под управлением операционной системы Windows XP будет достаточно 129,95 Мбайт оперативной памяти. Для обеспечения комфортных условий работы информационной подсистемы рекомендуется использовать ОЗУ размером 256 Мбайт и более.

3.4.4 Требования к наличию сводного места на жестком диске

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

, (3.2)

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

подсистемы «TradeBusiness», Мбайт;

- размер временных файлов, создаваемых при работе с программой, Мбайт.

Размер пространства , которое занимает инсталляция информационной подсистемы «TradeBusiness» определим, просмотрев отчет «Build Report» инсталлятора InstallShield Express (рисунок 3.4).

Как видно из рисунка 3.4, размер пространства , которое занимает инсталляция информационной подсистемы «TradeBusiness» составляет 18,12 Мбайт памяти жесткого диска.

В процессе эксплуатации информационной подсистемы «TradeBusiness» могут создаваться временные файлы (запросы и пр.). Размер временных файлов (параметр ) может составить примерно 0,5 Мбайт памяти жесткого диска.

Итак, на основании формулы (3.2) приходим к выводу, что для корректной работы информационной подсистемы «TradeBusiness» необходимо следующее количество свободной памяти жесткого диска:

= 18,12 + 0,5 = 18,62 Мбайт.

3.4.5 Требования к монитору

При работе с информационной подсистемой «TradeBusiness» не предполагается вывод на экран сложного графического материала, поэтому для получения результатов работы программы рекомендуется использовать любой современный жидкокристаллический цветной монитор с разрешением 800Ч600 или с более высоким разрешением.

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

3.4.6 Требования к принтеру

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

Обоснование: если разрешение печати принтера будет менее 300 точек/дюйм документы, предусмотренные к выводу на принтер, не будут качественно пропечатываться, так как они разрабатывались для вывода на печать лазерным принтером с минимальным разрешением 300 точек/дюйм.

3.5 Установка и вызов программы

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

1. В дисковод для компакт-дисков необходимо поместить CD-ROM с предварительно записанной программой установки информационной подсистемы «TradeBusiness» setup.exe.

2. Средствами проводника Windows запустить файл setup.exe на выполнение.

3. В открывшемся первом и последующих окнах действовать согласно требованиям программы инсталлятора.

После завершения процесса установки программы откроем папку C:\Program Files\TradeBusiness (рисунок 3.5).

Как видно из рисунка 3.5 папка C:\Program Files\TradeBusiness содержит исполнимый файл приложения, папку Database с базой данных приложения и файл динамически подключаемой библиотеки.

Вызов программы осуществляется через кнопку start (пуск) (рисунок 3.6).

3.6 Входные данные программы

Разнотипными входными данными программы являются:

1. Название группы товаров.

2. Закупочная цена.

3. Коэффициент торговой надбавки при розничной продаже.

4. Коэффициент торговой надбавки при оптовой продаже № 1.

5. Коэффициент торговой надбавки при оптовой продаже № 2.

6. Минимальный запас.

7. Фотография.

8. Номер расходной накладной.

9. Номер счета-фактуры.

10. Дата расходной накладной.

11. Документ-основание.

12. Платежно-расчетный документ №.

13. Платежно-расчетный документ дата.

14. Дата расходной операции.

15. Фактическая дата расходной операции.

16. Фактическое время расходной операции.

17. Дата последней редакции расходной операции.

18. Время последней редакции расходной операции.

19. Примечание к расходной операции.

20. Количество единиц товара в расходной накладной.

21. Цена единицы измерения товара в расходной накладной

22. Наименование фирмы, владеющей пунктом продаж;.

23. Расчетный счет фирмы, владеющей пунктом продаж.

24. БИК фирмы, владеющей пунктом продаж.

25. Банк фирмы, владеющей пунктом продаж.

26. ИНН фирмы, владеющей пунктом продаж.

27. КПП фирмы, владеющей пунктом продаж.

28. Юридический адрес фирмы, владеющей пунктом продаж.

29. Телефон, факс фирмы, владеющей складом.

30. Ставка НДС фирмы, владеющей пунктом продаж, %.

31. Код приходной накладной.

32. Номер приходной накладной.

33. Дата приходной накладной.

34. Дата приходной операции.

35. Фактическая дата приходной операции.

36. Фактическое время приходной операции.

37. Дата последней редакции приходной операции.

38. Время последней редакции приходной операции.

39. Количество единиц товара в приходной операции.

40. Цена единицы измерения товара в приходной операции.

41. Пароль пользователя информационной подсистемы.

42. Название оптового покупателя.

43. Адрес оптового покупателя.

44. Телефон оптового покупателя.

45. ИНН оптового покупателя.

46. КПП оптового покупателя.

47. Примечание к информации об оптовом покупателе.

48. Название поставщика.

49. Адрес поставщика.

50. Телефон поставщика.

51. Примечание к информации о поставщике.

52. Название пункта продаж.

53. Адрес пункта продаж.

54. Телефон пункта продаж.

55. Кодовое буквенное обозначение единицы измерения товара.

56. Название единицы измерения товара.

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

3.7 Выходные данные программы

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

- карточка учета товара.

- счет-фактура;

- приходная накладная;

- расходная накладная;

- остатки ТМЦ в пунктах продаж;

- остатки ТМЦ в указанном пункте продаж;

- состояние пунктов продаж;

- состояние указанного пункта продаж;

- расходы за период времени;

- доходы за период времени.

Примеры автоматизированного формирования и заполнения перечисленных документов представлены ранее на рисунках 2.41 - 2.48.

3.8 Результаты тестирования программы

Программа прошла тестирование при учете коммерческой деятельности ИП Маслова А.Е., г. Ставрополь. В результате тестирования установлено, что она в полном объеме удовлетворяет требованиям заказчика. В настоящее время, разработанная информационная подсистема «TradeBusiness», уже внедрена в практику деятельности ИП Маслова А.Е. и находится в стадии опытной эксплуатации.

Выводы

1. Для нормального функционирования программы достаточно наличия:

- операционной системы Windows XP;

- персонального компьютера с процессором Pentium 75 МГц;

- 129,95 Мбайт оперативной памяти;

- 18,62 Мбайт свободной памяти жесткого диска;

- любого современного цветного монитора с разрешением 800Ч600;

- любого лазерного принтера с разрешением печати не менее 300 точек/дюйм.

2. В ходе разработки программы использовались среда Borland Delphi 7 и CASE-средство ERwin 4.0. Основным языком программирования являлся Delphi.

3. Функциональные ограничения на применение обусловлены тем, что разработанная программа требует наличия на компьютере пользователя установленной операционной системы семейства Windows.

4. Логическая структура программы включает в себя 37 программных компонента (модуля) и базу данных информационной подсистемы.

5. Установка программы на компьютер пользователя производится при помощи программы инсталлятора setup.exe.

6. Общее количество разнотипных входных данных программы равно 56.

7. Программа прошла тестирование при учете коммерческой деятельности ИП Маслова А.Е., г. Ставрополь. В результате тестирования установлено, что она в полном объеме удовлетворяет требованиям заказчика.

4. Технико-экономическое обоснование ПРОЕКТА

4.1 Краткая характеристика проекта

В дипломном проекте выполнена разработка информационной подсистемы «TradeBusiness» для учета коммерческой деятельности ИП Маслова А.Е. (г. Ставрополь).

Назначение программы - автоматизация учета коммерческой деятельности и формирования отчетных документов ИП Маслова А. Е.

Цель создания системы - сокращение временных затрат ИП Маслова А.Е. на учет коммерческой деятельности и формирование соответствующих отчетов.

Данная программа выполняет следующие основные функции:

1. Ведение базы данных учета коммерческой деятельности ИП Маслова А. Е.

2. Автоматизированное формирование, просмотр и печать следующих документов (отчетов):

- карточка учета товара.

- счет-фактура;

- приходная накладная;

- расходная накладная;

- остатки ТМЦ в пунктах продаж;

- остатки ТМЦ в указанном пункте продаж;

- состояние пунктов продаж;

- состояние указанного пункта продаж;

- расходы за период времени;

- доходы за период времени.

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

Внедрение проекта позволит в значительной мере сократить временные затраты ИП Маслова А.Е. на учет коммерческой деятельности и формирование соответствующих отчетов.

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

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

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

Число строк в тексте программного кода информационной подсистемы «TradeBusiness» на языке Delphi = 400 ед.

В разделе рассмотрены вопросы расчета:

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

- суммарных затрат на создание программного продукта.

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

- чистого дисконтированного дохода за 4 года использования программного продукта.

- времени окупаемости проекта.

4.2 Трудоемкость выполняемых работ

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

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

Трудоемкость разработки программного обеспечения Т_ПО, чел.-ч., определяется по формуле

Т_ПО = Т_О + Т_И + Т_А + Т_П + Т_ОТЛ + Т_Д, (4.1)

где Т_О - затраты труда на описание задачи, чел.-ч.;

Т_И - затраты на исследование предметной области, чел.-ч.;

Т_А - затраты на разработку блок-схем, чел.-ч.;

Т_П - затраты на программирование, чел.-ч.;

Т_ОТЛ - затраты на отладку, чел.-ч.;

Т_Д - затраты на подготовку документации, чел.-ч.

Все составляющие в правой части формулы (4.1) определим через общее число операторов D, ед.:

D = б•c • (1 + p), (4.2)

где б - число операторов, ед.;

с ? коэффициент сложности задачи;

р - коэффициент коррекции программы, учитывающий новизну проекта.

Коэффициент сложности задачи «с» характеризует относительную сложность программы по отношению к так называемой типовой задаче, реализующей стандартные методы решения, сложность которой принята равной единице (величина коэффициента «с» лежит в пределах от 1,25 до 2). Для рассматриваемого программного продукта, включающего в себя алгоритмы учета, отчетности, поиска - коэффициент сложности задачи примем равным 1,75 (c = 1,75).

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

В результате подстановки численных значений коэффициентов и параметров в формулу (4.2) получим следующее общее число операторов

D = 400Ч1,75Ч(1 + 0,1) = 770,00 ед.

Затраты труда на описание задачи принимаем: Т_О = 40 чел.-ч. Работу по описанию задачи выполняет программист с окладом 9000 руб. в месяц и коэффициентом квалификации k_К = 1,35 (опыт работы по специальности 6 лет).

Затраты труда на изучение задачи Т_И с учетом уточнения описания и квалификации программиста могут быть определены по формуле:

Т_И = Db/(s_uk_K), (4.3)

где D - общее число операторов, ед.;

b - коэффициент увеличения затрат труда, вследствие недостаточного описания задачи;

s_u - количество операторов, приходящееся на один чел.-ч., (ед./ чел.-ч.);

k_K - коэффициент квалификации работника (определяется в зависимости от стажа работы).

В связи с тем, что решение рассматриваемой задачи потребовало уточнения и доработок, примем коэффициент b = 1,5.

Количество строк кода в тексте программы, приходящееся на один чел.-ч., примем равным s_u = 75.

Таким образом, на основании формулы (4.3) получим

Т_И = (770,00 Ч 1,5) / (75 Ч 1,35) = 11,41 чел.-ч.

Затраты труда на разработку алгоритма решения задачи Т_А рассчитываются по формуле:

Т_А = D/(s_ak_K), (4.4)

где D - общее число операторов, ед.;

s_a - количество операторов алгоритма решения задачи, приходящееся на один чел.-ч., (ед./ чел.-ч.);

k_K - коэффициент квалификации работника (определяется в зависимости от стажа работы).

Для расчета по формуле (4.4) примем s_a = 20 ед./ чел.-ч.

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

Т_А = 770,00/(20 Ч 1,35) = 28,52 чел.-ч.

Затраты труда на составление программы по готовой блок-схеме Т_П определяется по формуле:

Т_П = D/(s_ak_K), (4.5)

где D - общее число операторов, ед.;

s_a - количество операторов алгоритма решения задачи, приходящееся на один чел.-ч., (ед./ чел.-ч.);

k_K - коэффициент квалификации работника (определяется в зависимости от стажа работы).

Для расчетов по формуле (4.5) примем s_a = 20 ед./ чел.-ч. Подставив численные значения параметров и коэффициентов в формулу (4.5), получим

Т_П = 770,00 / (20 Ч 1,35) = 28,52 чел.-ч.

Затраты труда на отладку программы на персональном компьютере Т_ОТЛ, чел.-ч., рассчитывается по формуле

Т_ОТЛ = D / (s_отл k_K), (4.6)

где D - общее число операторов, ед.;

s_отл - количество отлаживаемых операторов программы, приходящееся на один чел.-ч., (ед./ чел.-ч.);

k_K - коэффициент квалификации работника (определяется в зависимости от стажа работы).

Для расчетов по формуле (4.6) примем s_отл = 4 ед./ чел.-ч. Подставив численные значения параметров и коэффициентов в формулу (4.6), получим

Т_ОТЛ = 770,00/ (4 Ч 1,35) = 142,59 чел.-ч.

Затраты труда на подготовку документации по задаче Т_Д определяются по формуле:

Т_Д = Т_ДР + Т_ДО, (4.7)

где Т_ДР - затраты труда на подготовку материалов в рукописи, чел.-ч.;

Т_ДО - затраты труда на редактирование, печать и оформление документации, чел.-ч.

Затраты труда на подготовку материалов в рукописи Т_ДР, чел.-ч., вычислим по формуле

Т_ДР = D / (s_др k_K), (4.8)

где D - общее число операторов, ед.;

s_др - количество строк программы в рукописи, приходящееся на один чел.-ч., (ед./ чел.-ч.);

k_K - коэффициент квалификации работника (определяется в зависимости от стажа работы).

Для расчетов по формуле (4.8) примем s_др = 15 ед./чел.-ч. Подставив численные значения параметров и коэффициентов в формулу (4.8), получим

Т_ДР = 770,00 / (15 Ч 1,35) = 38,02 чел.-ч.

Затраты труда на редактирование, печать и оформление документации Т_ДО, чел.-ч., вычислим по формуле

Т_ДО = 0,75 Ч Т_ДР. (4.9)

Подставив численное значение затраты труда на подготовку материалов в рукописи Т_ДР, чел.-ч., в формулу (4.9), получим

Т_ДО = 0,75 Ч 38,02 = 28,52 чел.-ч.

Таким образом, подставив численные значение затраты труда на подготовку материалов в рукописи Т_ДР, чел.-ч., и затраты труда на редактирование, печать и оформление документации Т_ДО, чел.-ч., в формулу (4.7) получим

Т_Д = 38,02 + 28,52 = 66,54 чел.-ч.

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

Т_ПО = 40,0 + 11,41 + 28,52 + 28,52 + 142,59 + 66,54 = 317,58 чел.-ч.

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

Т_КОР = Т_ПОk_КОР, (4.10)

гдеk_КОР - коэффициент коррекции, учитывающий изменения трудоемкости разработки программного обеспечения в зависимости уровня языка программирования (таблица 4.1).

Таблица 4.1 - Изменение трудоемкости в зависимости уровня языка программирования

Уровень языка программирования	Характеристика языка программирования	Коэффициент изменения трудоемкости
1	Ассемблер	1
2	Макроассемблер	0,95
3	Алгоритмические языки высокого уровня	0,8 ? 0,9

Использованный для разработки программного обеспечения язык программирования (Delphi) относится к алгоритмическим языкам высокого уровня, с учетом этого примем k_КОР = 0,8.

Окончательно, с учетом корректировки, получим по формуле (4.10) итоговую трудоемкость разработки

Т_КОР = 317,58 Ч 0,8 = 254,06 чел.-ч.

4.3 Расчет себестоимости автоматизированной информационной системы

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

- основная заработная плата производственного персонала;

- дополнительная заработная плата производственного персонала;

- отчисления на страховые взносы;

- затраты на потребляемую электроэнергию;

- расходы на материалы и запасные части;

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

Оклад программиста составляет 9000 руб. в месяц.

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

t_пф = N_рдДt_рд, (4.11)

гдеN_рд - количество рабочих дней специалиста производственного персонала за месяц;

Дt_рд - продолжительность рабочего дня специалиста производственного персонала, ч.

Для расчетов по формуле (4.11) примем N_рд = 22 дня, Дt_рд = 8 ч. Подставив указанные численные значения параметров N_рд и Дt_рд в формулу (4.11) получим, что плановый фонд рабочего времени одного специалиста производственного персонала в месяц составляет

t_пф = 22 Ч 8 = 176 ч.

Таким образом, часовая тарифная ставка s_ч, руб./ч, программиста составляет

s_ч = 9000/176 = 51,14 руб./ч.

Основная заработная плата З_О, руб., производственного персонала определяется по формуле

З_О = s_ч • Т_КОР. (4.12)

Подставив все численные значения параметров в формулу (4.12) получим, что основная заработная плата инженера-программиста первой категории составит

З_О = 51,14 Ч 254,06 = 12991,92 руб.

Дополнительная заработная плата З_Д, руб., производственного персонала определяется по формуле

З_Д = З_Оз_Д, (4.13),

гдез_Д - коэффициент дополнительной заработной платы.

Коэффициент дополнительной заработной платы программиста составляет з_Д = 0,2. Таким образом, дополнительная заработная плата З_Д, руб., программиста, вычисленная по формуле (4.13), равна

З_Д = 12991,92 Ч 0,2 = 2598,38 руб.

Отчисления в Пенсионный фонд Российской Федерации, Фонд социального страхования Российской Федерации и фонды обязательного медицинского страхования Российской Федерации согласно закону № 212-ФЗ от 24.07.2009 З_С, руб., вычислим по формуле:

, (4.14)

где ? норматив страховых взносов, %.

В соответствии с законом № 212-ФЗ от 24.07.2009 норматив страховых взносов составляет 34 % (з_С = 34 %).

Подставив все численные значения в формулу (4.14) получим, что отчисления на страховые взносы равны

З_С = (12991,92 + 2598,384) Ч 34/100 = 15590,30 Ч 0,34 = 5300,70 руб.

Таким образом, отчисления на страховые взносы составят 5300,70 руб.

Затраты на потребляемую электроэнергию З_Э, руб.:

З_Э = P_Вt_Вц_Э, (4.15)

гдеP_В - мощность ЭВМ, кВт;

t_В - время работы вычислительного комплекса, ч;

ц_Э - стоимость 1 кВтч электроэнергии, руб./ кВтч.

Мощность ЭВМ на которой работает программист равна P_В = 0,3 кВт.

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

t_в = б_п•(Т_П + Т_Д + Т_ОТЛ)• k_КОР, (4.16)

где б_п - коэффициент, учитывающий затраты времени на профилактические работы на ЭВМ;

k_КОР - коэффициент коррекции времени работы вычислительного комплекса.

Для расчетов по формуле (4.16) примем б_п = 1,15 и k_КОР = 0,8.

Подставив все численные значения параметров в формулу (4.16) получим

t_В = 1,15Ч(28,52 + 66,54 + 142,59)Ч0,8 = 1,15Ч237,65Ч0,8 = 218,64 ч.

Стоимость 1 кВтч электроэнергии составляет ц_Э = 2,70 руб.

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

З_Э =0,3 Ч 218,64 Ч 2,70 = 177,10 руб.

Данные для расчета затрат на материалы и запасные части занесенные в таблицу 4.2.

Таблица 4.2 ? Затраты на материалы и покупные изделия

Материал, покупное изделие	Количество, единиц	Цена за единицу, руб.	Сумма, руб.
Техническая литература	1	300,00	300,00
DVD-RW 4x 4,7 Гбайт	2	50,00	100,00
Упаковка бумаги, 500 листов	2	120,00	240,00
Тонер для картриджа принтера	1	150,00	150,00
Программное обеспечение	1	12000,00	12000,00
Итого	12790,00

Следовательно, затраты на материалы и запасные части составят

З_М = 300,00 + 100,00 + 240 + 150 + 12000= 12790,00 руб.

Затраты на техническое обслуживание и текущий ремонт вычислительной техники З_П, руб.:

З_П=К_В(/100)t_В/ t_В.Г, (4.17)

гдеК_В ? балансовая стоимость вычислительной техники, руб.

б - норма отчислений на ремонт, %;

t_В.Г - годовой фонд времени работы вычислительной техники, ч.

Для расчетов по формуле (4.17) примем:

- балансовая стоимость вычислительной техники = 22000,00 руб.;

- норма отчислений на ремонт б = 4%;

- годовой фонд времени работы вычислительной техники при 40-часовой рабочей неделе t_В.Г = 1993 ч.

Подставив все численные значения параметров в формулу (4.17) получим:

З_П = 22000 Ч (4/100) Ч 218,64 / 1993 = 96,54 руб.

Амортизационные отчисления З_АО, руб.:

З_АО = 22000 Ч (20/100) Ч 218,64 / 1993 = 482,70 руб.

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

Таблица 4.3 - Величины затраты, составляющих себестоимость автоматизированной информационной системы

Статья расхода	Сумма, руб.
Основная заработная плата производственного персонала	12991,92
Дополнительная заработная плата производственного персонала	2598,38
Отчисления на страховые взносы	5300,70
Затраты на потребляемую электроэнергию	177,10
Расходы на материалы и запасные части	12790,00
Затраты на техническое обслуживание и ремонт вычислительной техники	96,54
Затраты на амортизацию вычислительной техники	482,70
Итого	34437,35

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

З = З_О + З_Д + З_С + З_Э + З_М + З_П + З_АО. (4.18)

Таким образом, полные затраты на создание программного продукта составляют 34437,35 руб.

Поскольку разработка программного продукта осуществлялась сторонней организацией по техническому заданию (ТЗ) «TradeBusiness», то оптовая цена программного продукта рассчитывается с учетом нормы рентабельности Н_Р:

Ц = ЗЧ(1 + Н_Р). (4.19)

Для расчетов по формуле (4.19) примем нормы рентабельности Н_Р = 15%. Тогда оптовая цена программного продукта по формуле (4.19) составит:

Ц = 34437,35 Ч 1,15 = 39602,95 руб.

Капиталовложения при внедрении программного продукта равняются его оптовой цене

К = Ц = 39602,95 руб.

4.4 Оценка экономической эффективности проекта

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

П = Э - З,(4.20)

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

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

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

Э = (З_РУЧ - З_АВТ) + Э_ДОП,(4.21)

где З_РУЧ - затраты на ручную обработку информации, руб.;

З_АВТ - затраты на автоматизированную обработку информации, руб.;

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

Данный продукт используется оператором (предпринимателем). Оклад оператора - 10500 руб.. Тогда, цена одного часа работы оператора ц_Ч, руб./ч, составит

ц_Ч = 10500/176 = 59,66 руб./ч.

Годовые затраты (затраты за 12 месяцев) оператора при ручной обработке информации вычислим по формуле

З_РУЧН = t_{ОБЩ. Р} Ч12Чц_Ч.(4.22)

Тогда годовые затраты оператора при ручной обработке информации (по данным предпроектного обследования общие затраты времени на ручную обработку информации t_{ОБЩ. Р} = 40 ч/месяц) составят

З_РУЧН = 40 Ч 12 Ч 59,66 = 28636,36 руб.

Годовые затраты (затраты за 12 месяцев) оператора при автоматизированной обработке информации вычислим по формуле

З_АВТ = t_{ОБЩ. А}Ч12Чц_Ч.(4.23)

При автоматизированной обработке информации (по результатам тестирования программного продукта установлено, что общие затраты времени при автоматизированной обработке информации t_{ОБЩ. А} = 4 ч/месяц)

З_АВТ = 4 Ч 12 Ч 59,66 = 2863,64 руб.

Следовательно, годовой эффект от внедрения программного продукта, даже без учета дополнительный экономический эффекта (Э_ДОП = 0), на основании формулы (4.21), получится равным

Э = З_РУЧН З_АВТ = 28636,36 2863,64 = 25772,73 руб.

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

На основании формулы (4.15), для персонального компьютера оператора за 12 месяцев затраты на электроэнергию З_Э, руб., при потребляемой мощности компьютера P_В =0,3 кВт составят (стоимость электроэнергии ц_Э = 2,70 руб./кВтч.)

З_Э = 0,34122,70= 38,88 руб.

Балансовая стоимость вычислительной техники (персонального компьютера оператора) = 22000,00 руб. Тогда, на основании формулы (4.17), для персонального компьютера оператора за 12 месяцев затраты на техническое обслуживание и текущий ремонт составят:

З_П = 22000 Ч (4/100) Ч (4 Ч 12)/ 1993 = 21,29 руб.

Амортизационные отчисления:

З_АО = 22000 Ч (20/100) Ч (4 Ч12)/ 1993 = 105,97 руб.

Тогда, эксплуатационные затраты при использовании программного продукта составят:

З = З_Э + З_П + З_АО = 38,88 + 21,29 + 105,97 = 166,05 руб.

Прибыль рассчитаем по формуле (4.20):

П = Э - З = 25772,73 - 166,05 = 25606,68 руб.

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

0 шаг (капиталовложения) - 39602,95 руб.;

1 шаг - 25606,68 руб.;

2 шаг - 25606,68 руб.;

3 шаг - 25606,68 руб.;

4 шаг - 25606,68 руб.;

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

гдеN - расчетный период, год;

П_k - прибыль от использования программного продукта за k-й год его

эксплуатации, руб.;

Е - норма дисконта, %;

K - капиталовложения при внедрении программного продукта, руб.

Следовательно, ЧДД, руб., при N = 4, т. е. за четыре года использования программного продукта (срок до морального старения рассматриваемой информационной подсистемы) при норме дисконта E = 20% в соответствии с формулой (4.24) составит:

Приходим к выводу, что ЧДД ? положителен, т. е. проект эффективен.

Внутреннюю норму доходности проекта , %, определим по формуле

где - максимальное значение внутренней нормы дисконта, %, при которой ЧДД является положительной величиной (ЧДД > 0);

- минимальное значение внутренней нормы дисконта, %, при которой ЧДД является отрицательной величиной (ЧДД < 0);

- ЧДД, руб., вычисленный по формуле (4.24) при подстановке нормы дисконта ;

- ЧДД, руб., вычисленный по формуле (4.24) при подстановке нормы дисконта.

Предположим, что Е_вн лежит в диапазоне 52 ... 54%. При норме дисконта Е_вн = 52% ЧДД = 415,47 руб. (положителен), а при Е_вн = 54% получаем ЧДД = - 614,12 руб. (отрицателен).

.

Рассчитаем срок окупаемости проекта. Срок окупаемости проекта , год, можно найти по формуле

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

- величины приведенных (дисконтированных) годовых эффектов за j-й год, руб., прошедший с начала эксплуатации программного продукта, вычисленные по формуле (4.24) при подстановке нормы дисконта E = 20%.

Величины приведенных (дисконтированных) годовых эффектов по первым трем годам расчетного периода равны:

руб.;

руб.;

руб.;

Величина дохода за первые два года составит

руб.,

что меньше величины капиталовложений (39602,95 руб.).

Величина дохода за первые три года составит

руб.,

что больше величины капиталовложений (39602,95 руб.).

Тогда срок окупаемости проекта составит

года.

4.5 Основные технико-экономические показатели проекта

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

Таблица 4.5 ? Основные технико-экономические показатели проекта

Основные характеристики	Единицы измерения	Проект
Итоговая трудоемкость разработки	чел.-ч.	254,06
Полные затраты на создание программного продукта	руб.	34437,35
Оптовая цена программного продукта	руб.	39602,95
Годовой эффект от внедрения программного продукта	руб.	26727,15
Чистый дисконтированный доход за 4 года использования программного продукта	руб.	26685,93
Внутренняя нома доходности	%	52,80
Срок окупаемости проекта	год	2,03

Выводы

1. Итоговая трудоемкость разработки программного продукта (информационной подсистемы «TradeBusiness») составляет 254,06 чел.-ч.

2. Полные затраты на создание программного продукта составляют 34437,35 руб.

3. Оптовая цена программного продукта - 39602,95 руб.

4. Годовой эффект от внедрения программного продукта составляет 26727,15 руб.

5. Чистый дисконтированный доход за 4 года использования программного продукта равен 26685,93 руб.

6. Внутренняя нома доходности 52,80%.

7. Срок окупаемости проекта 2,03 года.

8. После внедрения программного продукта ежемесячные затраты ИП Маслова А.Е. на учет коммерческой деятельности и формирование соответствующих отчетов сократились с 40 до 4 часов, т. е. в десять раз.

9. Таким образом, разработка информационной подсистемы «TradeBusiness» является экономически обоснованной и эффективной.

Заключение

Основным результатом дипломного проекта является разработка, на основе использования современных CASE-технологий, информационной подсистемы «TradeBusiness» автоматизирующей учет коммерческой деятельности ИП Маслова А.Е., г. Ставрополь.

После внедрения программного продукта ежемесячные затраты времени ИП Маслова А.Е. на решение задач учета коммерческой деятельности сократились с 40 до 4 часов, т. е. в 10 раз.

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

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

информационный подсистема экономический компиляция

Библиографический список

1. Автоматизированные информационные технологии в экономике [Текст]: Учебник/Под ред. проф. Г.А. Титоренко. - М.: Компьютер, ЮНИТИ, 1998.

2. Буч Г., Рамбо Д., Джекобсон А. Язык UML для пользователя: Пер. с англ. - М.: ДМК, 2000.- 432 с., ил. (Серия «для программистов»).

3. Боггс, У., Боггс, М.. UML и Rational Rose [Текст]: Пер. с англ. - М.: Издательство «Лори», 2000. - 581 с., ил.

4. Маклаков, С.В. BPwin и ERwin. CASE-средства разработки информационных систем [Текст]/ С.В. Маклаков. ? М.: ДИАЛОГ-МИФИ, 2000.

5. Матросов, А. Microsoft Office XP Разработка приложений [Текст]/А. Матросов. - СПб.: БХВ ? Петербург, 2003. - 428 с.

6. Чекалов, А. Базы данных: от проектирования до разработки приложений [Текст]/ А. Чекалов. - СПб.: БХВ - Петербург, 2003. - 340 с.

7. Архангельский, А. Я. Программирование в Delphi 7 [Текст] / А. Я. Архангельский. - М.: ООО «Бином-Пресс», 2003. - 1152 с.

8. Тейксера, Стив, Пачеко, Ксавье. Borland Delphi 6 [Текст] / Стив Тейксера, Ксавье Пачеко. Руководство разработчика. : Пер. с англ. - М.: Издательский дом «Вильямс», 2000. - 1120 с..

9. Баженова, И. Ю. Delphi 7 Самоучитель программиста [Текст] / И. Ю. Баженова. - М.: Кудиц-Образ, 2003. - 436 с.

10. Культин, Н. Б. Основы программирования в Delphi 7 [Текст] / Н. Б. Культин. - СПб.: БХВ-Петербург, 2003. - 608 с.

11. Гофман, В.Э, Хомоненко, А. Д. Delphi 5 [Текст] / В.Э. Гофман, А. Д. Хомоненко. - СПб.: БХВ, 2000. - 800 с.: ил.

12. Тейксера Стив, Пачеко Ксавье. Borland Delphi 5. Руководство разработчика. : Пер. с англ. - М.: Издательский дом «Вильямс», 2000. - 817 с..

13. Кандзюба, С. П., Громов, В. Н. Delphi 6. Базы данных и приложения. Лекции и упражнения [Текст] / С. П. Кандзюба, В. Н. Громов. - К.:Издательство «ДиаСофт», 2001. - 576 с.

14. Епанешников, А. М., Епанешников, В. А. DELPHI. Программирование СУБД [Текст] / А. М. Епанешников, В. А. Епанешников. - М.: ДИАЛОГ-МИФИ, 2001 - 528 с.

15. Сучков, А.Н. Автоматизированные информационные технологии в экономике [Текст] / А.Н.Сучков, И.В. Зотов. - М.: Финансы и статистика, 1999 . - 415с.

16. Акинин, П.В. Эффект АСУ [Текст] / П.В. Акинин. - Ставрополь, 1986. -112с.

17. Нисневич, Ю.А. Информация и власть [Текст] // Проблемы информатизации. -1999. - №1. С.18-19.

18. Перегудов, Ф.Б. Информационные системы для руководителей [Текст] / Ф.Б Перегудов., П.А. Тарасенко. - М.:Мир,1989. - 174с.

19. Хомоненко, А. Д. Базы данных [Текст]: учебник для высших учебных заведений / А. Д. Хомоненко, В. М. Цыганков, М. Г. Мальцев; под ред. проф. А. Д.. Хомоненко. - Издание второе, дополненное и переработанное. - СПб.: Корона принт, 2002.- 672 с.

20. Мишенин, А. И. Теория экономических информационных систем [Текст] / А. И. Мишенин. - М.: Финансы и статистика, 1999. - 168 с.

21. Дж.Ульман. Основы систем баз данных [Текст] -- М.: Финансы и статистика,1983. -- 345с.

22. Дейт К. Введение в системы баз данных [Текст] -- М.: Hаука, 1980. --420с.

23. Шумаков П. В. Delphi 5.0 и создание баз данных [Текст] -- М.: Наука, 2002. --400с.

24. Диго С.М. Проектирование и использования баз данных [Текст] -- М.: Финансы и статистика, 1995. --200с.

25. Сучков А.Н., Зотов И.В. Автоматизированные информационные технологии в экономике [Текст] -- М.: Финансы и статистика, 1999 . -- 415с.

ПРИЛОЖЕНИЕ А

Образец записей в тетради учета продаж цветов в пункте реализации

Номер пункта реализации - 1

Флорист-продавец - Архипова С. В.

Данные учета продаж цветов

Наименование цветов	Дата	Количество	Цена	Сумма
Роза Фридам	26.02.11	3	140	520
Лилия	26.02.11	5	300	1500
Гвоздика	26.02.11	25	30	750
...	...	...	...	...

ПРИЛОЖЕНИЕ Б

SQL-скрипт создания базы данных информационной подсистемы «TradeBusiness»

CREATE TABLE EXPENSE (

UnitsID Long Integer,

ExpenseInvoseID Long Integer,

GoodsName Memo(20),

GoodsPrice Long Integer,

ECount Long Integer,

ExpenseID Long Integer

);

CREATE UNIQUE INDEX Primary ON EXPENSE

(

ExpenseID

);

CREATE TABLE EXPENSEINVOICE (

ENote Memo(20),

ELastEditorialTime Date,

ELastEditorialDate Date,

EActualTime Date,

EActualDate Date,

EOperationDate Date,

ERaschetDokDate Date,

ERaschetDokNumber Memo(20),

EDocument Memo(20),

EDate Date,

EInvoseNumber Memo(20),

ENumber Memo(20),

ExpenseInvoseID Long Integer,

RecipientID Long Integer,

StorageID Long Integer

);

CREATE UNIQUE INDEX Primary ON EXPENSEINVOICE

(

ExpenseInvoseID

);

CREATE TABLE FIRMA (

StavkaNDS Long Integer,

TelephoneFaks Memo(20),

LegalAddress Memo(20),

KPP Alpha(18),

INN Alpha(18),

Bank Memo(20),

BIK Memo(20),

Shet Memo(20),

Name Memo(20)

);

CREATE UNIQUE INDEX Primary ON FIRMA

(

Name

);

CREATE TABLE GOODS (

GroupGoodsID Long Integer,

GPhoto Memo(20),

GMinReserve Long Integer,

GCoefGrossSale2 Long Integer,

GCoefGrossSale1 Long Integer,

GCoefRetailPrice Long Integer,

GPurchasingPrice Long Integer,

GoodsName Memo(20)

);

CREATE UNIQUE INDEX Primary ON GOODS

(

GoodsName

);

CREATE TABLE GROUPGOODS (

GName Memo(20),

GroupGoodsID Long Integer

);

CREATE UNIQUE INDEX Primary ON GROUPGOODS

(

GroupGoodsID

);

CREATE TABLE INCOME (

UnitsID Long Integer,

GoodsName Memo(20),

IncomeInvoseID Long Integer,

ICount Long Integer,

IncomeID Long Integer

);

CREATE UNIQUE INDEX Primary ON INCOME

(

IncomeID

);

CREATE TABLE INCOMEINVOICE (

ILastEditorialTime Date,

ILastEditorialDate Date,

IActualTime Date,

IActualDate Date,

IOperationDate Date,

IDate Date,

INumber Memo(20),

IncomeInvoseID Long Integer,

StorageID Long Integer,

SupplierID Long Integer

);

CREATE UNIQUE INDEX Primary ON INCOMEINVOICE

(

IncomeInvoseID

);

CREATE TABLE PASSWORD (

PasswordID Long Integer

);

CREATE UNIQUE INDEX Primary ON PASSWORD

(

PasswordID

);

CREATE TABLE RECIPIENT (

RecNote Memo(20),

RecKPP Memo(20),

RecINN Memo(20),

RecTelephone Memo(20),

RecAddress Memo(20),

RecName Memo(20),

RecipientID Long Integer

);

CREATE UNIQUE INDEX Primary ON RECIPIENT

(

RecipientID

);

CREATE TABLE STORAGE (

STelephone Memo(20),

SAddress Memo(20),

SName Memo(20),

StorageID Long Integer

);

CREATE UNIQUE INDEX Primary ON STORAGE

(

StorageID

);

CREATE TABLE SUPPLIER (

SupNote Memo(20),

SupTelephone Memo(20),

SupAddress Memo(20),

SupName Memo(20),

SupplierID Long Integer

);

CREATE UNIQUE INDEX Primary ON SUPPLIER

(

SupplierID

);

CREATE TABLE UNITS (

UName Memo(20),

USymbol Memo(20),

UnitsID Long Integer

);

CREATE UNIQUE INDEX Primary ON UNITS

(

UnitsID

);

ПРИЛОЖЕНИЕ В

Текст модуля fmMainU.pas

unit fmMainU;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, Grids, DBGrids, ExtCtrls, StdCtrls, jpeg, ComObj, Buttons, ComCtrls, DateUtils;

type

TfmMain = class(TForm)

MainMenu1: TMainMenu;

Work: TMenuItem;

Handbooks: TMenuItem;

GroupGoods: TMenuItem;

Units: TMenuItem;

Pricing: TMenuItem;

StorageState: TMenuItem;

InputPrihod: TMenuItem;

InputRashod: TMenuItem;

Storage: TMenuItem;

Supplier: TMenuItem;

Recipient: TMenuItem;

Firma: TMenuItem;

Chronology: TMenuItem;

ChronologyIncome: TMenuItem;

ChronologyExpense: TMenuItem;

GoodsCard: TMenuItem;

About: TMenuItem;

CloseApp: TMenuItem;

Label1: TLabel;

Panel1: TPanel;

Image1: TImage;

Seller: TMenuItem;

GroupBox1: TGroupBox;

Label12: TLabel;

Label13: TLabel;

DateTimePickerFrom: TDateTimePicker;

DateTimePickerTo: TDateTimePicker;

Reports: TMenuItem;

RashodPeriodOfTime: TMenuItem;

PrihodPeriodOfTime: TMenuItem;

PopupMenu1: TPopupMenu;

CloseDataTimePicker: TMenuItem;

procedure UnitsClick(Sender: TObject);

procedure GroupGoodsClick(Sender: TObject);

procedure PricingClick(Sender: TObject);

procedure StorageClick(Sender: TObject);

procedure SupplierClick(Sender: TObject);

procedure RecipientClick(Sender: TObject);

procedure InputPrihodClick(Sender: TObject);

procedure InputRashodClick(Sender: TObject);

procedure StorageStateClick(Sender: TObject);

procedure StateStorageClick(Sender: TObject);

procedure RemaindersStorageClick(Sender: TObject);

procedure FirmaClick(Sender: TObject);

procedure ChronologyIncomeClick(Sender: TObject);

procedure ChronologyExpenseClick(Sender: TObject);

procedure GoodsCardClick(Sender: TObject);

procedure AboutClick(Sender: TObject);

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

procedure CloseAppClick(Sender: TObject);

procedure SellerClick(Sender: TObject);

procedure RashodPeriodOfTimeClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure PrihodPeriodOfTimeClick(Sender: TObject);

procedure CloseDataTimePickerClick(Sender: TObject);

private

{ Private declarations }

function CountGoodsStart(GoodsName: String): Real;

function ReplaceSub(str, sub1, sub2: String): String;

public

{ Public declarations }

E:variant;

sheet:variant;

end;

var

fmMain: TfmMain;

implementation

uses fmUnitsU, fmGroupGoodsU, fmPricingU, fmGoodsU, fmStorageU,

fmSupplierU, fmRecipientU, fmIncomeU, dmTradeBusinessU, DB, fmExpenseU, fmStorageStateU, fmSelectStorageU, fmQReportStateThisStorageU, fmQReportStateAllStorageU, fmQReportRemaindersThisStorageU,

fmQReportRemaindersStoragesU, fmFirmaU, fmGoodsCardU, fmAboutBoxU,

fmIncomeInvoseU, fmExpenseInvoseU, fmSellerU, fmIncomeNewU,

fmExpenseNewU, fmGoodsDownSaleU, fmGoodsNewU, fmQReportRashodPeriodOfTimeU, fmQReportPrihodPeriodOfTimeU;

{$R *.dfm}

function TfmMain.CountGoodsStart(GoodsName: String): Real;

begin

//Запрашиваем остаток товара на начало перемещения

with DM.QueryCountGoodsStart do begin

Close;

//устанавливается параметр :GoodsNameThis (Название товара)

Params[0].AsString:= GoodsName;

Open;

end;

Result:= DM.QueryCountGoodsStart.Fields.Fields[0].AsFloat;

end;

procedure TfmMain.UnitsClick(Sender: TObject);

begin

//Справочник "Единицы измерения"

fmUnits:= TfmUnits.Create(nil);//программное создание формы

fmUnits.ShowModal;

fmUnits.Free;//освобождаем ресурс

end;

пункта продаж

procedure TfmMain.GroupGoodsClick(Sender: TObject);

begin

//Справочник "Группа товаров"

{

fmGroupGoods:= TfmGroupGoods.Create(nil);//программное создание формы

fmGroupGoods.ShowModal;

fmGroupGoods.Free;//освобождаем ресурс

}

fmGoods:= TfmGoods.Create(nil);//программное создание формы

fmGoods.ShowModal;

fmGoods.Free;//освобождаем ресурс

end;

procedure TfmMain.PricingClick(Sender: TObject);

begin

//Справочник "Группы ценообразования"

fmPricing:= TfmPricing.Create(nil);//программное создание формы

fmPricing.ShowModal;

fmPricing.Free;//освобождаем ресурс

end;

procedure TfmMain.StorageClick(Sender: TObject);

begin

//Справочник "Пункт продаж"

fmStorage:= TfmStorage.Create(nil);//программное создание формы

fmStorage.ShowModal;

fmStorage.Free;//освобождаем ресурс

end;

procedure TfmMain.SupplierClick(Sender: TObject);

begin

//Справочник "Поставщик"

fmSupplier:= TfmSupplier.Create(nil);//программное создание формы

fmSupplier.ShowModal;

fmSupplier.Free;//освобождаем ресурс

end;

procedure TfmMain.RecipientClick(Sender: TObject);

begin

//Справочник "Оптовый покупатель"

fmRecipient:= TfmRecipient.Create(nil);//программное создание формы

fmRecipient.ShowModal;

fmRecipient.Free;//освобождаем ресурс

end;

procedure TfmMain.InputPrihodClick(Sender: TObject);

var

j, IncomeInvoseID: Integer;

begin

////////////////////////////////////////////////////////////////////

//Приходная накладная

////////////////////////////////////////////////////////////////////

fmIncomeInvose:= TfmIncomeInvose.Create(nil);//программное создание формы "Приходная накладная"

DM.INCOMEINVOICE.Append;

//DM.INCOMEINVOICEINumber.Value:= 'ПН_' + ReplaceSub(DateToStr(now), '.', '_');

//DM.INCOMEINVOICEINumber.Value:= 'ПН_' + DM.INCOMEINVOICEIncomeInvoseID.AsString;

//Формируем номер приходной накладной

with DM.QueryIncomeInvoseID do begin

Close;

Open;

end;

DM.QueryIncomeInvoseID.Last;

IncomeInvoseID:= DM.QueryIncomeInvoseID.Fields.Fields[0].Value;

Inc(IncomeInvoseID);

DM.INCOMEINVOICEINumber.Value:= 'ПН_' + IntToStr(IncomeInvoseID);

if fmIncomeInvose.ShowModal = mrOK then begin

DM.INCOMEINVOICEIDate.Value:= fmIncomeInvose.dtpNaklDate.Date;

DM.INCOMEINVOICEIOperationDate.Value:= fmIncomeInvose.dtpOperationDate.Date;

DM.INCOMEINVOICE.Post;

////////////////////////////////////////////////////////////////////

fmIncomeInvose.Free;//освобождаем ресурс и уничтожаем форму "Приходная накладная"

////////////////////////////////////////////////////////////////////

//Приходная накладная -> Создаем и открываем форму fmIncome

//Для ввода товаров по приходной накладной

////////////////////////////////////////////////////////////////////

fmIncomeNew:= TfmIncomeNew.Create(nil);//программное создание формы fmIncome - Ввод прихода товаров

fmIncomeNew.Label17.Caption:= 'Перечень товаров по приходной накладной '

+ DM.INCOMEINVOICEINumber.Value + ' от ' + DateToStr(DM.INCOMEINVOICEIDate.Value);

if fmIncomeNew.ShowModal = mrOK then begin

//Оприходываем товар в карточках учета товаров

//Ранее в форме fmIncome была организована проверка наличия записей о

//выбранном по приходной накладной товаре в наборе данных DM.GOODSCARD

//и, если таких записе небыло, то они были созданы

//Перебераем все записи в наборе данных DM.INCOME - Перечень товаров по приходной накладной

DM.INCOME.First;

for j:= 1 to DM.INCOME.RecordCount do begin

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

//DM.GOODSCARDRECORDS для указанного наименования товара, включенного в

//перечень товаров по приходной накладной

with DM.QueryAddRecordsInGOODSCARDRECORDS do begin

Close;

//устанавливается параметр :GoodsNameThis (Название товара)

Params[0].AsString:= DM.INCOMEGoodsName.Value;

//устанавливается параметр :StorageName (Склад)

Params[1].AsString:= DM.INCOMEINVOICEStorageName.Value;

//устанавливается параметр :NaklNumber (Накладная №)