Модификация подсистемы АИСВУЗ "Основные средства" (стр. 18 из 18)
Диалог пользователя с программой осуществляется через строку меню, с помощью которого осуществляется все управление системой; ввод новых данных, просмотр и редактирование существующих, формирование и печать различных отчетов, а также выполнение необходимых бухгалтерских операций.
Усовершенствование разработки может быть достигнуто путем применения современных технологий программирования.
Однако, претворение в жизнь данного проекта можно начинать только после полного внедрения и "обкатки" сетевого проекта. Внутри сетевого проекта необходимо предусмотреть одно ответвление на рабочее место бухгалтера по учету ОС. На этом сетевые затраты заканчиваются. Дальнейшая, детальная разработка технических средств АРМ будет напрямую зависеть от технического решения сети: наличия или отсутствия сетевого принтера, места хранения основных баз и утилит пользователя и т.д. На данном этапе все предусмотреть просто невозможно. Поэтому проект основан на определенных минимальных требованиях, сложившихся в системах подобного уровня.
Список используемых источников
1. Автоматизированное рабочее место в системе управления предприятием. Сборник научных трудов, - Ленинград, 1989.
2. В.В.Шураков. Автоматизированное рабочее место для статической обработки данных, 1990.
3. И.Л.Кантарь. Автоматизированные рабочие места управленческого аппарата, 1990.
4. Гриненко В.И, Паньшин Б.Н. Информационная технология: вопросы развития и применения, Киев: Наукова Думка, 1988, 255с.
5. Информационные системы в экономике. Под ред. профессора В.В.Дипа, М.: Финансы и статистика, 1996, 270с.
6. Данилевский Ю.Г., Петухов ИА., Шибанов B.C. Информационная технология в промышленности. Л.: Машиностроение, 1988, 284с.
7. БЭСТ-4. Руководство пользователя. - М.: Арт-Бизнес-Центр, 1997.
8. Козлова Е.П., Парашутин КВ., Бабченко Т.Н., Галанина Е.Н. Бухгалтерский учет - М.: Финансы и статистика, 1996, 276с.
9. П.И. Камышанов. Практическое пособие по бухгалтерскому учету:- Издание третье, дополненное и переработанное - Москва: ООО «МЕДпресс»; - Элиста: АПП «Джангар», 1998. – 528 с.
10. ГОСТ 19.002-80.
11. ГОСТ 19.003-80 Перечень, наименование, обозначение символов и отображаемые ими функции, - М.: Издательство стандартов, 1988.
12. А.А. Попов Программирование в среде СУБД FoxPro 2.0. Построение систем обработки данных. - М.: Издательство Март, 1996--352с.: илл.
13. Земляков Ю.Д., Лобковская 0.3. Методические указания по технико-экономическому обоснованию дипломных проектов, связанных с разработкой автоматизированных систем управления и программных изделий. - Новомосковск, 1996.
14. Макаров Г.В., Васин А.Я., Маринина Л.К., Софийский П.И., Старобинский ВА., Торопов Н.И. Охрана труда в химической промышленности. – М.:, Химия, 1989. 496с.; ил.
15. Сан ПиН 2.2.4.548 - 96 . Гигиенические требования к микроклимату производственных помещений.
16. Сан ПиН 2.2.2.542 - 96. Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы,— М.: Госкомсанэпиднадзор России, 1996.
17. ГОСТ 27818-88. Допустимые уровни шума на рабочих местах.
Приложение 1
Схема документооборота
1. Инвентарная опись и сличительная ведомость.
2. Оборотная ведомость №1 («Ведомость списания материальных ценностей по кафедрам»).
3. Ведомость №2. «Передача материальных ценностей по кафедрам (в течение месяца)».
4. Ведомость №3- «Ведомость расчета материальных ценностей со склада».
5. Журнал-ордер №1. «Обороты по кредиту счетов "10" «Основные средства" и "220" «Фонд основных средств»».
Журнал-ордер №4.— по счету "071".
Журнал-ордер №5.— по счету "070".
6. Требование-подотчет со склада.
7. Извещение от сторонних организаций.
8. Подотчет материально-ответственных лиц с кафедр.
9. Оборотная ведомость.
Журнал хозяйственных операций
Оборотная ведомость
Приложение 4
Программный код
clear all
close all
set date german
set safety off
set deleted on
set century on
set exact off
set confirm off
set reprocess to 1
set talk off
set exclusive off
set multilocks on
set bell on
public lOpen && (.T.)
public path1
lOpen=.F.
if SetPath()
hide window all
_screen.closable=.f.
_screen.windowstate=2
if wvisible("Color Palette")
hide window "Color Palette"
endif
if wvisible("layout")
hide window Layout
endif
if wvisible("Report Designer")
hide window"Report Designer"
endif
if wvisible("Database Designer")
hide window "Database Designer"
endif
if wvisible("Print Preview")
hide window"Print Preview"
endif
if wvisible("Standard")
hide window"Standard"
endif
if wvisible("Form Controls")
hide window "Form Controls"
endif
if wvisible("Query Designer")
hide window"Query Designer"
endif
if wvisible("View Designer")
hide window "View Designer"
endif
if wvisible ("Form Designer")
hide window "Form Designer"
endif
if wvisible ("Report Controls")
hide window"Report Controls"
endif
window nowait
on error do ErrorStartOpenDatabase with error()
use con_num in 0 shared
select con_num
do while !flock()
enddo
use avexit in 0 exclusive
if avexit.avexit=1 then
begin transaction
replace avexit.avexit with 0
replace con_num.con_num with iif(con_num-1<0,0,con_num-1)
end transaction
endif
open database data1 validate shared
on error
set database to data1
select con_num
begin transaction
replace con_num.con_num with con_num.con_num+1
replace avexit.avexit with 1
end transaction
select con_num
use
lOpen=.T.
select avexit
use
wait clear
do menu.prg
read events
endif
if lOpen then
if used("con_num") then
select con_num
else
use con_num in 0
select con_num
endif
do while !flock()
enddo
if con_num.con_num=1 then
on error do ClearAll
close databases all
set exclusive on
open database data1
use os1 in 0
select os1
pack
use schet in 0
select schet
pack
use spr_gr_os in 0
select spr_gr_os
pack
use spr_mol in 0
select spr_mol
pack
use uspr_norm_izn in 0
select uspr_norm_izn
pack
use spr_podr in 0
select spr_podr
pack
use book in 0
select book
pack
wait clear
on error
endif
endif
do ClearAll
PROCEDURE ClearAll
if !used("avexit") then
use avexit in 0
endif
begin transaction
if lOpen then
select con_num
do while !flock()
enddo
replace con_num with iif(con_num-1<0,0,con_num-1)
endif
select avexit
replace avexit with 0
end transaction
unlock all
set sysmenu to default
close all
clear dlls
clear all
release all extended
cancel
ENDPROC
PROCEDURE ErrorStartOpenDataBase
PARAMETERS nError
do case
case nError=1
do form Pathzp
do ClearAll
case nError=1705
wait clear
do ClearAll
otherwise
do ClearAll
endcase
ENDPROC
FUNCTION SetPath()
local lcSys16,lcProgram,cDataPath,cDataBasePath,cRegTablePath
lcSys16 = sys(16)
lcProgram = substr(lcSys16, at(":", lcSys16) - 1)
cd left(lcProgram, rat("\", lcProgram))
use loc_data\path.dbf exclusive in 0
cDataPath=path.pathzp
path1=alltrim(path.pathzp)+'\'
cDataBasePath=alltrim(cDataPath)+'\data'
cRegTablePath=alltrim(cDataPath)+'\regtable'
use in path
set path to FORMS, LIBS, LOC_DATA, TEMP, INCLUDE, GRAPHICS, HELP, MENUS, PROGS,;
QUERYS, REPORTS, &cRegTablePath, &cDataBasePath
set classlib to wizstyle
set classlib to project additive
set classlib to appwiz additive
ENDFUNC
close databases all
use os1.dbf exclusive in 1
use book exclusive in 2
go bottom
end_rec=recno()
go top
for n = 1 to end_rec
mfield = bals * g_norma_iz
repl nach_iznos with mfield
Select book
Append blank
Replace book.date with date()
Replace book.kod_doc with month(date)
Replace book.id with 3
Replace book.db with os1.deb_izn
Replace book.kr with os1.kred_izn
Replace book.summa with mfield
Append blank
mField=os1.ost_stoim-mfield
Replace book.date with date ()
Replace book.kod_doc with month (date)
Replace book.id with 4
Replace book.db with os1.deb_izn
Replace book.kr with os1.kred_izn
Replace book.summa with mfield
select os1
skip 1
next n
*endfor
close databases all
messagebox(‘Начислениепроизведено',0 + 64,'Информация')
local obk, obd, f_month
ThisForm.Combo1.BoundColumn=2
f_month=ThisForm.Combo1.Value
ThisForm.Combo1.BoundColumn=1
select oborot
zap
obk=0
obd=0
select schet
go top
do while not eof ()
select book
scan for (db=schet.num_cshet) and (month(book.date)=val(ThisForm.Combo1.Value))
obd=obd+summa
endscan
scan for (kr=schet.num_cshet) and (month(book.date)=val (ThisForm.Combo1.Value))
obk=obk+summa
endscan
select oborot
appe blank
replace sch with schet.num_cshet
Replace d_s with obd
Replace k_s with obk
select schet
obd=0
obk=0
skip
enddo
ThisForm.Combo1.BoundColumn=2
Report form Oborot preview