52
При вводе сумм затрат используется событие TstringList для
корректировки ввода числа и автоматического подсчета Всего на 1 ед
продукции и с учетом торговой наценки. Для этого используется следующий
программный код:
procedureTfrmCalculation.stStZatratKeyPress(Sender: TObject;
varKey: Char);
varr:integer;
begin
r:=stStZatrat.RowCount;
with Sender as TStringGrid do
begin
if key=#13 then begin
r:=row;
if r<rowcount-1 then
Selection :=TGridRect(Rect(2, r+1, 2, r+1))
else
Selection :=TGridRect(Rect(2, 1, 2, 1));
formatandsumm ;
EditorMode:=true;
exit;
end;
if Col = 2 then begin
if key = '.' then key:= ',';
if (key = DecimalSeparator) and (Length(Cells[Col, Row]) = 0) or
not (key in ['0'..'9', DecimalSeparator, #8]) then key := #0;
if (key=DecimalSeparator) and
(Pos(DecimalSeparator,Cells[Col, Row]) > 0) then key:=#0; end;
end;
end;
Процедура автоматического подсчета сумм:
procedureTfrmCalculation.Formatandsumm() ;
vari,j:integer;sum:double;
begin
sum:=0;
for i:=1 to stStZatrat.RowCount-1 do begin
if length(trim(stStZatrat.Cells[2,i]))=0 then stStZatrat.Cells[2,i]:='0,00' ;
stStZatrat.Cells[2,i]:=formatfloat('0.00',strtofloat(stStZatrat.Cells[2,i]) ) ;
sum:=sum+strtofloat(stStZatrat.Cells[2,i]);
end;
txtSumm.Text:=formatfloat('0.00',sum ) ;
53
try
sum:=sum*(strtofloat(txtnacenka.Text)/100)+sum;
txtSummnac.Text:=formatfloat('0.00',sum ) ;
except
txtSummnac.Text:=txtSumm.Text;
end;
end;
Из листинга видно, что для удобства ввода ведется обработка по
нажатию Enter, обязательно используются конструкции обработок ошибок
try/except, удаляются динамически созданные объекты.
Кнопка Печать заполняет поля и вызывает форму просмотра, откуда и
ведется печать калькуляции.
Кнопка Очистить удаляет текущую калькуляцию и устанавливает
значения по умолчанию.
Выполняются стандартные операции: инициализация элементов формы
начальными значениями в событии OnCreate(), проверка корректности ввода
чисел, переход по Enter, сохранение в базе.
Себестоимость и Цена автоматически подтягиваются из сохраненной
калькуляции при выборе продукции:
procedureTfrmCalcProfit.cboNomemclaturaClick(Sender: TObject);
varcol:tstrings;
begin
col:=tstringlist(cboNomemclatura.Items.Objects[cboNomemclatura.ItemIndex]) ;
txtsumm.Text:=formatfloat('0.00',strtofloat(PustoToZero(col.Values['Summa'])));
txtsummnac.Text:=formatfloat('0.00',strtofloat(PustoToZero(col.Values['SummaNacenka'
])));
txtkolvo.Text:='0';
end;
Расчет показателей ведется автоматически при вводе и выходе из полей
ввода дополнительный статей расхода/дохода:
procedureTfrmCalcProfit.CalcProfit();
varkolvo,dprofitrealiz,
dsebestrealiz,
54
dvalprofit,
dsalesprofit,
dBeforTaxProfit,
dtax,
dnetprofit:double;
begin
kolvo:=strtofloat(txtkolvo.text);
dprofitrealiz:= kolvo*strtofloat(txtsummnac.text);
dsebestrealiz:= kolvo*strtofloat(txtsumm.text);
dvalprofit:=dprofitrealiz-dsebestrealiz;
txtprofitrealiz.Text:=formatfloat('0.00',dprofitrealiz);
txtsebestrealiz.Text:=formatfloat('0.00',dsebestrealiz);
txtvalprofit.Text:=formatfloat('0.00',dvalprofit);
dsalesprofit:=dvalprofit-strtofloat(txtKommExp.text)-strtofloat(txtManagerExp.text);
txtSalesProfit.Text:=formatfloat('0.00',dsalesprofit);
dBeforTaxProfit:= dsalesprofit-strtofloat(txtOperExp.text)+strtofloat(txtOperRev.text);
txtBeforTaxProfit.Text:=formatfloat('0.00',dBeforTaxProfit);
dtax:=(dBeforTaxProfit*20)/100 ;
txttax.Text:=formatfloat('0.00',dtax);
dnetprofit:=dBeforTaxProfit-dtax;
txtNetProfit.Text:=formatfloat('0.00',dnetprofit);
end;
Для отображения графической информации используется стандартный
компонент TDBChart. Серия компонента добавляется и настраивается в
динамике в зависимости от выбранных задач построения: период, продукт,
показатель и группировке. Программный код реализации данной процедуры
приведен в приложении Д.
Форма Справка не содержит информативного кода и имеет внешний
вид (рисунок 24):
Рисунок 24 – Вид формы в среде разработки Delphi
55
Подводя итоги можно сказать следующее: при разработке ПО
комплекса были использованы разносторонние технологии и компоненты,
предоставляемые средой Delphi. Компоненты создавались как в
дизайнерском режиме, так и в динамическом. Работа с базой построена таким
образом, чтобы при переносе на другую реляционную базу не возникло
проблем кроме корректировки SQL-запросов и некоторых форм.
3.2. Тестирование программного обеспечения
Выполним тестирование КПО ИС «Планирования и контроля
финансовых ресурсов АО «НСН» рассмотрев работу программы. На
первоначальном этапе для запуска программы необходимо ввести логин и
пароль в форму авторизации, как это показано на рисунке 25.
Рисунок 25 – Форма авторизации в программе
В случае если логин и пароль пользователя введены верно,
пользователь попадает на главную страницу программы, где он может
использовать главное меню для реализации поставленных задач.
С помощью меню «Справочники» пользователь может создать
номенклатуру техники, которая находится на ремонте в АО «НСН». Для
задания единиц используется справочник «Единицы измерения» для
создания статей калькуляции справочник «Статьи затрат».
Общий вид справочника «Номенклатура» приведен на рисунке 26.
56
Рисунок 26 – Общий вид справочника «Номенклатура»
После заполнения справочников «Номенклатура», «Статьи затрат»,
«Единицы измерения» у пользователя появляется возможность создания
калькуляционного листа для формирования себестоимости оказания услуг,
как это показано на рисунке 27.
Рисунок 27 – Форма для заполнения калькуляционного листа
57
Как видно из рисунка 27, при вводе статей затрат подсчет суммы
ведется автоматически. Также у пользователя существует возможность
вывода калькуляционного листа на печать, как это показано на рисунке 28.
Рисунок 28 – Печать калькуляции для АО «НСН»
Также в программе существует возможность автоматического
планирования финансовых ресурсов при заданном количестве заказов по
ремонту выбранной номенклатуры. Для этого необходимо выбрать тип
номенклатуры, загрузить сформированный калькуляционный лист и ввести
58
количество единиц, которые находятся на ремонте. После этого программой
будет сформирован отчет по планированию прибыли, как это показано на
рисунке 29.
Рисунок 29 – Отчет по планированию прибыли предприятия
По сформированным отчетам планирования в программе
предусмотрена возможность ведения журнала, в котором приводятся все
созданные отчеты за определенный период времени.
Для принятия управленческих решений по выполненному
планированию и контролю финансовых ресурсов руководство АО «НСН»
может использовать возможности построения графического отчета.
Выполненное тестирование КПО ИС «Планирования и контроля
финансовых ресурсов АО «НСН» показало, что данная программа является
работоспособной и может быть использована в практической деятельности
предприятия.
59
3.3. Оценка эффективности разработки программного обеспечения
Для обоснования эффективности внедрения КПО ИС «Планирования и
контроля финансовых ресурсов АО «НСН» выполним расчет эффективности,
используя метод сравнительного анализа, который заключается в сравнении
базового варианта и предлагаемого.
Показатели для проведения сравнительного анализа приведены в
таблице 8.
Таблица 8 – Показатели для проведения сравнительного анализа
Показатель Расчетная формула
Абсолютное снижение трудовых
затрат (ΔТ) в часах за год
ΔТ = Т
0
- Т
1
,
где Т
0
– значение трудовых затрат в базовом
варианте;
Т
1
- значение трудовых затрат в предлагаемом
варианте
Коэффициент относительного
снижения трудовых затрат (К
Т
)
К
Т
=ΔТ / T
0
∙ 100%
Индекс снижения трудовых затрат или
повышение производительности труда
(Y
T
)
Y
T
= T
0
/T
1
Абсолютное снижение стоимостных
затрат (ΔC) в рублях за год
ΔC = С
0
- С
1
,
где С
0
– значение стоимостных затрат в базовом
варианте;
С
1
– значение стоимостных затрат в предлагаемом
варианте
Коэффициент относительного
снижения стоимостных затрат (К
C
)
К
С
=ΔС / С
0
* 100%
Индекс снижения трудовых затрат или
повышение производительности труда
(Y
С
)
Y
С
= С
0
/ С
1
Срок окупаемости затрат на внедрение
проекта машинной обработки
информации (Т
ок
)
Т
ок
= К
П
/ΔC,
где К
П
- затраты на создание проекта
Годовой экономический эффект от
внедрения системы электронного
документооборота
Э = ΔC – К
П
∙ 0,15
Расчетный коэффициент
экономической эффективности
капитальных затрат
Эр = ΔC / К
П
60
На основании приведенных в таблице 8 показателей, рассчитаем
показатели затрат времени и стоимостные затраты при базовом варианте до
внедрения предложенных мероприятий в АО «НСН», которые приведены в
таблице 9.
Таблица 9 – Сравнительный анализ показателей до и после внедрения
мероприятий в АО «НСН»
Наименование
операции
Затраты времени
в год
Среднечасовая ставка специалиста,
(руб./час.)
Часовая амортизация оборудования,
(руб./час.)
Часовая стоимость накладных
расходов,(руб./час.)
Стоимостные
затраты
за год, руб.
((3)+(5))∙(1) +
(4)∙(2)
Ручная
обработка
(чел.-час.)
Машинная
обработка
(час.)
До
проведения
мероприятия
После
проведения
мероприятия
До
проведения
мероприятия
После
проведения
мероприятия
До
проведения
мероприятия
После
проведения
мероприятия
Формирование
справочников для
номенклатуры и
затрат
620 50 100 0,2 200 25 26 142620 11305
Получение
калькуляционного
листа
243 30 50 0,5 200 25 26 56168 6792,5
Планирование
прибыли
предприятия
300 30 30 1 200 25 26 68550 6805
Планирование
финансовых
результатов
250 25 50 1 200 25 26 57750 5675
Учет расходов
предприятия
150 15 25 0,5 200 25 26 34525 3402,5
Ведение
документооборота
по планированию
доходов
180 18 25 0,5 200 25 26 41305 4080,5
Ведение
документооборота
по планированию
расходов
350 35 30 10 200 25 26 79850 8160
Отчетность для
принятия решений
200 20 20 10 200 25 26 45700 4770
Принятие решений
для развития
деятельности
250 25 20 5 200 25 26 57000 5775
Итого:
2543
248
350
28,7
583468
56765,5
61
Как видно из таблицы 9, до реализации проекта затраты при
выполнении ручной обработке составили 2544 чел.-час, машинная обработка
при базовом варианте займет 352 часа. После внедрения КПО ИС
«Планирования и контроля финансовых ресурсов АО «НСН» затраты при
выполнении обработке составили 352 чел.-час, машинная обработка при
проектном варианте займет 30,7 часа.
Трудовые затраты на ведение складского учета с использованием
предложенных мероприятий по сравнению с базовым существенно
снизились.
Далее представлены расчеты показателей экономической
эффективности предложенных мероприятий в соответствии с таблицей 8:
- абсолютное снижение трудовых затрат (∆Т) в часах за год:
.22952482543 часT =−=∆
- коэффициент относительного снижения трудовых затрат (К
Т
):
%.25,90%100
2543
2295
=⋅=Кт
- индекс снижения трудовых затрат или повышение
производительности труда (Y
T
):
.25,10
248
2543
==Yт
- абсолютное снижение стоимостных затрат (∆C) в рублях за год:
.5,5267025,56765583468 рубC =−=∆