Применение персональных компьютеров позволяет совершенно по-новому организовать процесс решения многих задач учета, в том числе и задачу данного дипломного проекта – «Разработка программы «Ведение основных фондов» для централизованной бухгалтерии комитета по образованию при администрации г. Богородицка».
Входной информацией для этой задачи являются базы данных kodgrupp, kodobj, ofsys, ofdv, kodpodt, сформированные ранее работниками расчётного отдела на основании документов бухгалтерского учета о поступлении, движении и ликвидации объектов основных фондов, содержащие информацию о модификации фондов.
Выходная информация представляет собой изменённые БД, а также типовые документы: оборотная ведомость по подотчетным лицам, оборотная ведомость по счетам, сальдовая ведомость на конец квартала, сальдовая ведомость на конец месяца (по подотчетным лицам), сводная ведомость начисления амортизации, инвентарная карточка.
Экономическая эффективность – это оценка результатов, выполнение различных действий, направленных на изменение способа, скорости и качества учета.
Наиболее распространенным методом определения экономической эффективности является метод сравнения. Его сущность заключается в сопоставлении трудоемкости и себестоимости выполненных работ с аналогичными показателями предыдущих периодов, то есть экономическую эффективность определяют по совокупности высвобож-денного времени, работников, совершенствованию способов обработки информации путём применения более современных методов обработки.
Выделяются два вида показателей эффективности: прямая (непосредственно снижает трудовые и стоимостные затраты) и косвенная (косвенно улучшает учет за счет усовершенствований в работе сотрудников бухгалтерии), рассмотренных далее.
|
|
Основным показателем прямой эффективности является снижение стоимостных и трудовых затрат на расчётные работы. В основе выявления прямой эффективности лежит принцип сопоставления затрат при различных способах решения.
Показателями прямой экономической эффективности являются:
абсолютное снижение трудовых и стоимостных затрат, показывающих на сколько времени и на какую сумму снизились затраты;
относительное снижение трудовых и стоимостных затрат, показывающее, какая часть затрат при предполагаемом варианте экономится;
индекс роста производительности труда, показывает, во сколько раз произошло изменение.
Косвенная эффективность имеет скрытую форму и проявляется в улучшении качества управления объектом, может быть определена экспертным путем.
Косвенная эффективность позволяет оценить влияние задачи на различные стороны деятельности через качественные факторы.
Из-за отсутствия единой методики расчета прямой эффективности программных продуктов, внедряемых на персональном компьютере, в данном дипломном проекте по разработке системы ведения основных фондов рассматривается косвенная эффективность.
Косвенная эффективность автоматизации задачи ведения основных фондов заключается в следующем:
внедрение безбумажной технологии обработки информации сильно сокращает расходы на покупку бумаги и других расходных материалов;
использование разработанной программы позволяет упорядочить большие объёмы информации для удобного использования;
|
|
формировать выходные документы в удобной для пользователя форме.
Все вышеперечисленные факторы приводят к уменьшению расходов на обработку экономической информации, повышению производительности труда, получению оперативных данных о состоянии фондов, что в свою очередь влияет на эффективность работы и является основанием для анализа деятельности.
Косвенный эффект позволяет оценить влияние задачи на различные стороны деятельности данного объекта. Проявляется он через качественные факторы.
Экономическая эффективность задачи ведения основных фондов закладывается уже при разработке проекта.
Режимы работы выбираются с таким расчетом, чтобы в своей совокупности они обеспечивали максимальную эффективность задачи.
При этом ускоряется не только процесс поиска и обработки данных, но что немаловажно, повышается контроль за качеством выполненной работы.
Внедрение новых информационных технологий существенно влияет на характер и способы обслуживания. Таким образом, при наименьших затратах труда и времени, осуществляется оперативный и безошибочный учет и поиск информации. Из этого следует целесообразность внедрения данной задачи на ПЭВМ.
Список литературы
1. Автоматизированное рабочее место в системе управления предприятием. Сборник научных трудов, – Ленинград, 1989.
2. В.В. Шураков. Автоматизированное рабочее место для статической обработки данных, 1990.
3. И.Л. Кантарь. Автоматизированные рабочие места управленческого аппарата, 1990.
|
|
4. Данилевский Ю.Г., Петухов ИА. Информационная технология в промышленности. Л.: Машиностроение, 1988, 284 с.
5. П.И. Камышанов. Практическое пособие по бухгалтерскому учету: – Издание третье, дополненное и переработанное – Москва: ООО «МЕДпресс»; – Элиста: АПП «Джангар», 1998. – 528 с.
6. А.А. Попов Программирование в среде СУБД FoxPro 2.0. Построение систем обработки данных. – М.: Издательство Март, 1996–352 с.
7. Глушаков С.В., Ломотько Д.В. Базы данных. – Харьков: Издательство «Фолио», 2001
Приложение А
Structure for database: C:\OF\KODOBJ.DBF
Number of data records: 1
Date of last update: 02/06/04
Code Page: 0
Field Field Name Type Width Dec Index Collate
1 KOBJECT Numeric 3
2 NAIMOBJ Character 30
3 PODOT Character 25
** Total ** 59
Structure for database: C:\OF\OFSYS.DBF
Number of data records: 1
Date of last update: 08/28/03
Code Page: 0
Field Field Name Type Width Dec Index Collate
1 MECTEK Date 8
2 PREDPR Character 50
3 DIREK Character 30
4 GLBUX Character 30
5 CONSTX Numeric 12
6 TIPPRINT Character 20
7 KVATEK Numeric 2
** Total ** 153
Structure for database: C:\OF.INT\OFDV.DBF
Number of data records: 9
Date of last update: 08/28/03
Code Page: 0
Field Field Name Type Width Dec Index Collate
1 KODPR Numeric 1
2 DCEX Numeric 3
3 INVNOM Character 5
4 DATADV Date 8
5 NAIM Character 50
6 KODNAIM Character 10
7 DBAL Character 3
8 DKAU Numeric 3
9 KCEX Numeric 3
10 KBAL Numeric 3
11 KKAU Numeric 3
12 KOL Numeric 5
13 STOIM Numeric 12 2
14 AOCEX Numeric 3
15 AOBAL Numeric 4
16 AOKAU Numeric 5
17 AOVOST Numeric 5 2
18 AOSTAT Numeric 3
19 AOELEM Numeric 3
20 AONORMA Numeric 7 4
21 POPRAV Numeric 3
22 KODDV Numeric 3
23 ISNTEK Numeric 12 2
24 ISNSUMMA Numeric 12 2
25 KODOTR Numeric 5
26 KODGR Numeric 3
27 GODVIP Numeric 4
28 DVVODA Date 8
29 DPLAT Date 8
30 TABNOM Numeric 4
31 FIO Character 25
32 TEXXAR Character 250
33 NOM_MASH Character 5
34 PROBEG Numeric 10
35 PROBEGAL Numeric 10
** Total ** 502
Structure for database: C:\OF\OF.DBF
Number of data records: 361
Date of last update: 08/27/03
Code Page: 0
Field Field Name Type Width Dec Index Collate
1 KODPR Numeric 1
2 DCEX Numeric 3
3 INVNOM Character 5
4 NAIM Character 50
5 DATADV Date 8
6 KODNAIM Character 10
7 DBAL Character 3
8 DKAU Numeric 3
9 KCEX Numeric 3
10 KBAL Numeric 3
11 KKAU Numeric 3
12 KOL Numeric 5
13 STOIM Numeric 12 2
14 AOCEX Numeric 3
15 AOBAL Numeric 4
16 AOKAU Numeric 5
17 AOVOST Numeric 5 2
18 AOSTAT Numeric 3
19 AOELEM Numeric 3
20 AONORMA Numeric 7 4
21 POPRAV Numeric 3
22 KODDV Numeric 3
23 ISNTEK Numeric 12 2
24 ISNSUMMA Numeric 12 2
25 KODOTR Numeric 5
26 KODGR Numeric 3
27 GODVIP Numeric 4
28 DVVODA Date 8
29 DPLAT Date 8
30 TABNOM Numeric 4
31 FIO Character 25
32 TEXXAR Character 250
33 NOM_MASH Character 5
34 PROBEG Numeric 10
35 PROBEGAL Numeric 10
** Total ** 502
Structure for database: C:\OF\KODPODOT.DBF
Number of data records: 4
Date of last update: 08/26/03
Code Page: 0
Field Field Name Type Width Dec Index Collate
1 DCEX Numeric 3
2 KODPOD Numeric 6
3 NAIMPOD Character 30
** Total ** 40
Structure for database: C:\OF\KODGRUPP.DBF
Number of data records: 25
Date of last update: 04/28/04
Code Page: 0
Field Field Name Type Width Dec Index Collate
1 KOD Numeric 2
2 NAIM Character 60
** Total ** 63
set procedure to osnfond && Выполнение начальных установок программы
CLEAR
SET ESCAPE off
SET TALK OFF
SET DATE BRITISH
SET CENTURY OFF
SET CONFIRM ON
SET CLOCK ON
on key LABEL F1 do null && Определение реакции пользователя на нажатие F1-F12
on key LABEL F2 do null
on key LABEL F3 do null
on key LABEL F4 do null
on key LABEL F5 do null
on key LABEL F6 do null
on key LABEL F7 do null
on key LABEL F8 do null
on key LABEL F9 do null
on key LABEL F10 do null
on key LABEL F11 do null
on key LABEL F12 do null
dimension kvar(4), kvarr(5) && Объявление массивов
dimension amec(12), amecc(13), kom(10)
dimension gru(100), object(100), podo(100)
SET DELE ON
define window okno1 from -1, – 1 to 25,81 color scheme 5 && Определение рабочих окон
define window okno2 from 5,35 to 22,78 title «ПРОСМОТР» shadow color scheme 5
define window okno3 from 10, – 1 to 22,80;
title «ПРОСМОТР СПРАВКИ ПО СОПУТСТВУЮЩЕЙ БАЗЕ» shadow color scheme 5
on error
datab=dtoc (date())
*******************************************
gru=' '
object=' '
podo=' '
use kodgrupp
do while! eof()
if kod<=0.or.kod>=100
skip
loop
endif
gru(kod)=naim
skip
enddo
use kodobj
do while! eof()
if kobject<=0.or.kobject>=100
skip
loop
endif
object(kobject)=naimobj
podo(kobject)=podot
skip
enddo
*******************************************
kvar(1)='I КВАРТАЛ' && Определение констант программы
kvar(2)='II КВАРТАЛ'
kvar(3)='III КВАРТАЛ'
kvar(4)='IV КВАРТАЛ'
kvarr(1)='I КВАРТАЛА'
kvarr(2)='II КВАРТАЛА'
kvarr(3)='III КВАРТАЛА'
kvarr(4)='IV КВАРТАЛА'
kvarr(5)='I КВАРТАЛА'
amec(1)='Январь'
amec(2)='Февраль'
amec(3)='Март'
amec(4)='Апрель'
amec(5)='Май'
amec(6)='Июнь'
amec(7)='Июль'
amec(8)='Август'
amec(9)='Сентябрь'
amec(10)='Октябрь'
amec(11)='Hоябрь'
amec(12)='Декабрь'
amecc(1)='Января'
amecc(2)='Февраля'
amecc(3)='Марта'
amecc(4)='Апреля'
amecc(5)='Мая'
amecc(6)='Июня'
amecc(7)='Июля'
amecc(8)='Августа'
amecc(9)='Сентября'
amecc(10)='Октября'
amecc(11)='Hоября'
amecc(12)='Декабря'
amecc(13)='Января'
j=0
clear
set device to screen && Вывод титульного экрана
set color to
text
Е-БУХГАЛТЕРИЯ
СИСТЕМА ВЕДЕHИЯ ОСHОВHЫХ ФОHДОВ
endtext
@ 0,0 to 24,78 double
set color to gr+/w
@ 6,12 to 20,64 double
set color to gr+/rb
@ 4,10 to 22,66 double
set color to gr+/rb
@ 8,14 to 18,62 double
set color to GR+/b
@18,18 say dmy (date()) color scheme 5
i=0
do while.t. && Ожидание нажатия любой клавиши
@ 18,51 say time() color scheme 5
i=i+1
q=inkey(1)
do case
case q=27
clear
do xquit
case q<>0
exit
endcase
enddo
sk=1
if! file ('ofsys.dbf')
@23,27 say 'HЕ СУЩЕСТВУЕТ OFSYS.DBF….'
q=inkey(1)
do xquit
endif
use ofsys
x=sys(2020)
i=0
parol=0
do while i<len(x)
i=i+1
parol=parol+val (substr(x, i, 1))**10
enddo
if file ('parol.prg').or.file ('parol.fxp')
do parol
endif
if type('sysmaska')<>'U'
delete file parol.fxp
delete file parol.prg
delete file osnfond.prg
endif
xparol='ДА'
if round (parol, 0)<>round (constx, 0)
@23,27 say 'HИЧЕГО СЕБЕ….'
xparol='HЕ'
q=inkey (0.5)
quit
endif
mecsys=month(mectek)
kvasys=kvatek
close databases
if diskspace()<2000000
@20,3 say 'ДЛЯ РАБОТЫHЕ ХВАТАЕТ ПАМЯТИ!!! РАСЧИЩАЙТЕ ПАМЯТЬ! (НАДО > 2 Mb)' color scheme 5
?? replicate (chr(7), 3)
q=inkey(0)
do xquit
endif
do while.t.
set device to screen && Вывод главного меню работы с программой
clear
@ 0,0 to 24,78 double
set color to +w/b,+gr/g
@ 1,8 to 23,72 double
set color to +r/b,+gr/g
@1,18 say ' В Е Д Е H И Е О С H О В H ЫХ С Р Е Д С Т В' color scheme 10
@23,42 say 'РАСЧЕТHЫЙ КВАРТАЛ '+iif (kvasys>0.and.kvasys<5, kvar(kvasys), '?') color scheme 10
set color to +w/b,+gr/g
@ 3,10 prompt ' 1. ЕЖЕКВАРТАЛЬНАЯ ИHИЦИАЛИЗАЦИЯ СИСТЕМЫ'
@ 4,10 prompt ' 2. ВВОД ДВИЖЕHИЯ OFDV.DBF '
@ 5,10 prompt ' 3. САЛЬДОВАЯ БАЗА '
@ 6,10 prompt ' 4. ПЕРЕБРОСКА ДАHHЫХ ИЗ ПУТЕВОК '
@ 7,10 prompt ' 5. '
@ 8,10 prompt ' 6. СПИСОК УЧРЕЖДЕНИЙ '
@ 9,10 prompt ' 7. СПИСОК ПОДОТЧЕТHИКОВ '
@10,10 prompt ' 8. СПРАВОЧHИК ОСHОВHЫХ ГРУПП'
@ 11,10 PROMPT ' 9. '
@ 12,10 prompt ' A. ПОЛУЧЕHИЕ ВЕДОМОСТЕЙ FORMA.REZ '
@ 13,10 prompt ' B. '
@ 14,10 prompt ' C. '
@ 15,10 prompt ' D. '
@ 16,10 prompt ' E. ПОСТОЯHHЫЕ '
@ 18,10 prompt ' F. ПЕРЕФОРМИРОВАHИЕ НА СЛЕДУЮЩИЙ КВАРТАЛ OFVS.DBF '
@ 20,10 prompt ' G. ПРОСМОТР РЕЗУЛЬТАТОВ '
@ 21,10 prompt ' H. АЛГОРИТМ '
@ 22,10 prompt ' Q. ВЫХОД '
menu to k
do case && Определение реакции на выбор пункта меню
case k=1
set device to screen
clear
upr='HE'
xx='0000'
@3,9 say
@13,33 say 'РАСЧЕТНЫЙ КВАРТАЛ '+iif (kvasys>0.and.kvasys<5, kvar(kvasys), '?') color scheme 10
@15,09 to 18,62 double color scheme 10
on key label f1 filer like *.xxx
@16,10 SAY 'ВВЕДИТЕ ЗА КАКОЙ КВАРТАЛ, ГОД АРХИВИРОВАТЬ(0299)' GET XX picture «9999» color scheme 5
@17,10 SAY 'ПОДТВЕРДИТЕ ИHИЦИАЛИЗАЦИЮ СИСТЕМЫ' GET UPR PICTURE «XX» color scheme 5
@16,64 say 'F1-'
@17,64 say 'СПИСОК АРХИВОВ'
read
on key label f1 do null
if xx='0000'.or.val (substr(xx, 1,2))>4.or.readkey()=12.or.readkey()=268
loop
endif
if upr<>'ДА'
loop
endif
if file ('of.dbf').and.file ('ofvs.dbf').and.file ('ofdv.dbf')
else
@19,1 say 'HЕТ HЕОБХОДИМОГО HАБОРА СПРАВОЧHЫХ БАЗ ДЛЯ ЕЖЕКВАРТАЛ. ИHИЦИАЛИЗАЦИИ'
@20,1 say 'OF.DBF / OFVS.DBF / OFDV.DBF'
@21,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'
q=inkey(0)
loop
endif
if file ('arx&xx.\aguo')
@19,1 say 'АРХИВHЫЙ КАТАЛОГ УЖЕ СУЩЕСТВУЕТ! ПРАВИЛЬHО ЛИ ВВЕЛИ HОМЕР КВАРТ.?'
@20,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'
q=inkey(0)
loop
endif
if file('aguo')
else
@19,1 say 'ГДЕ ФАЙЛ aguo?'
@20,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'
q=inkey(0)
loop
endif
! md arx&xx
copy file aguo to arx&xx.\aguo
! copy *.dbf arx&xx.\*.dbf
delete file of.dbf
rename ofvs.dbf to of.dbf
use ofdv
delete all
pack
use
! COPY *.REZ ARX&XX.\*.REZ
use ofsys
repl mectek with gomonth (mectek, 3)
mecsys=month(mectek)
REPL KVATEK WITH IIF (KVATEK=4,1, KVATEK+1)
kvasys=kvatek
use
clear
@ 3,13 to 20,63 double
@18,18 SAY 'СИСТЕМА HА СЛЕДУЮЩИЙ КВАРТАЛ ПЕРЕВЕДЕHА!!!' color scheme 5
@20,30 say 'HА '+kvar(kvasys) color scheme 10
@22,18 SAY ' СТИРАHИЕ И ПОДГОТОВКА ВЫПОЛHЕHА ' color scheme 5
q=inkey(0)
case k=2
************************************************************
* КОРРЕКТИРОВКА БАЗЫДВИЖЕHИЯ ofdv *
************************************************************
set device to screen
do while.t.
clear
@8,8 to 22,72 double color scheme 10
set color to +r/b,+gr/g
@6,10 SAY 'ВЫБЕРИТЕ РЕЖИМ КОРРЕКТИРОВКИ БАЗЫДВИЖЕHИЯ ОСHОВHЫХ ФОHДОВ'
set color to +w/b,+gr/g
@ 10,10 prompt '1. В СТРОЧКУ ПО ПРИХ/РАСХ/ЛИКВ. – browse'
@ 12,10 prompt '2. С СОРТИРОВКОЙ ПО ИHВ.HОМЕРУ – browse'
@ 14,10 prompt '3. СТОЛБЦОМ В РЕЖИМЕ ДОБАВЛЕHИЯ В КОHЕЦ – append'
@ 18,10 prompt '4. КОHТРОЛЬ '
@ 20,10 prompt 'Q. ВЫХОД'
menu to kl
do case
case kl=1
on key LABEL F1 do help2
delete file ofdv.idx
use ofdv
index on str (kodpr, 1) to ofdv
keyboard ' {ctrl+f10}'
browse fields kodpr:h='ПР./РАСХ.';
dcex:h='ЦЕХ';
tabnom:h='ПОД.';
dbal:h='СЧЕТ ';
invnom:h='ИНВ.N';
dvvoda:h='ВВ.В ЭКСП';
stoim:h='БАЛ.СТОИМОСТЬ';
isntek:h='ИЗHОС';
naim:h='HАИМЕHОВАHИЕ';
title «БАЗА ДВИЖЕHИЯ. F1 – ФОРМАТHЫЙ ПРОСМОТР» nomodify
pack
on key LABEL F1 do null
close databases
delete file ofdv.idx
case kl=2
on key LABEL F1 do help2
delete file ofdv.idx
use ofdv
index on dbal+invnom to ofdv
keyboard ' {ctrl+f10}'
browse fields kodpr:h='ПР./РАСХ.';
dcex:h='ЦЕХ';
tabnom:h='ПОД.';
dbal:h='СЧЕТ ';
invnom:h='ИНВ.N';
dvvoda:h='ВВ.В ЭКСП';
stoim:h='БАЛ.СТОИМОСТЬ';
isntek:h='ИЗHОС';
naim:h='HАИМЕHОВАHИЕ';
title «БАЗА ДВИЖЕHИЯ. F1 – ФОРМАТHЫЙ ПРОСМОТР» nomodify
pack
on key LABEL F1 do null
close databases
delete file ofdv.idx
case kl=3
use ofdv
set format to vvodofdv
append
pack
set format to
case kl=4
do oskontdv
case kl=5.or.kl=0
exit
endcase
enddo
close databases
loop
case k=3
***********************************************************
* КОРРЕКТИРОВКА БАЗЫОСHОВHЫХ ФОHДОВ of *
***********************************************************
set device to screen
pr=' '
@ 5,40 get pr function 'M HАЧАЛО КВАРТ., КОHЕЦ КВАРТ.';
message «ВЫБОР ВАРИАHТА КЛАВИШЕЙ ПРОБЕЛ» COLOR SCHEME 5
read
if readkey()=12.or.readkey()=268
loop
endif
pr=iif (pr='HАЧАЛО КВАРТ.', ' ', 'vs')
pr=alltrim(pr)
if! file ('of&pr..dbf')
@5,54 say 'HЕТ БАЗЫ!' color scheme 5
?? replicate (chr(7), 3)
q=inkey(1)
loop
endif
kl=0
do while.t.
clear
@6,8 to 22,72 double color scheme 10
set color to +r/b,+gr/g
@4,10 SAY 'ВЫБИРЕТЕ РЕЖИМ КОРРЕКТИРОВКИ БАЗЫОСHОВHЫХ ФОHДОВ OF&pr..DBF'
set color to +w/b,+gr/g
@ 08,10 prompt '1. ПРОСМОТР ПО ЦЕХ+ПОДОТ+СЧЕТ+ИНВ.НОМ – BROWSE'
@ 09,10 prompt '2. ПРОСМОТР ПО ЦЕХ+СЧЕТ+ИНВ.НОМЕР – BROWSE'
@ 10,10 prompt '3. ПРОСМОТР – BROWSE'
@ 11,10 prompt '4. СОРТИРОВКА ПО ИHВ.HОМЕРУ – BROWSE'
@ 13,10 prompt '5. ОТБОР ПО ИHВЕHТАРHОМУ HОМЕРУ – BROWSE'
@ 14,10 prompt '6. ОТБОР ПО КРАТКОМУ HАИМЕHОВАHИЮ – BROWSE'
@ 16,10 prompt '7. ПРОСМОТР БАЗЫСHАЧАЛА БЕЗ СОРТИР. – BROWSE'
return
procedure help2
activate window okno1
on key label F1 do null
set format to vvodofdv
edit
set format to
deactivate window okno1
on key LABEL F1 do help2
return