Модификация подсистемы АИСВУЗ "Основные средства"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
°н ПиН 2.2.2.542 - 96. Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы, М.: Госкомсанэпиднадзор России, 1996.
Приложения
Приложение 1
Схема документооборота
1. Инвентарная опись и сличительная ведомость.
2. Оборотная ведомость №1 (Ведомость списания материальных ценностей по кафедрам).
3. Ведомость №2. Передача материальных ценностей по кафедрам (в течение месяца).
4. Ведомость №3- Ведомость расчета материальных ценностей со склада.
5. Журнал-ордер №1. Обороты по кредиту счетов "10" Основные средства" и "220" Фонд основных средств.
Журнал-ордер №4. по счету "071".
Журнал-ордер №5. по счету "070".
6. Требование-подотчет со склада.
7. Извещение от сторонних организаций.
8. Подотчет материально-ответственных лиц с кафедр.
9. Оборотная ведомость.
Приложение 2
Журнал хозяйственных операций
Приложение 3
Оборотная ведомость
Приложение 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