Автоматизированное рабочее место в системе управления предприятием. Сборник научных трудов, - Ленинград, 1989.

В.В.Шураков. Автоматизированное рабочее место для статической обработки данных, 1990.

И.Л.Кантарь. Автоматизированные рабочие места управленческого аппарата, 1990.

Гриненко В.И, Паньшин Б.Н. Информационная технология: вопросы развития и применения, Киев: Наукова Думка, 1988, 255с.

Информационные системы в экономике. Под ред. профессора В.В.Дипа, М.: Финансы и статистика, 1996, 270с.

Данилевский Ю.Г., Петухов ИА., Шибанов B.C. Информационная технология в промышленности. Л.: Машиностроение, 1988, 284с.

БЭСТ-4. Руководство пользователя. - М.: Арт-Бизнес-Центр, 1997.

Козлова Е.П., Парашутин КВ., Бабченко Т.Н., Галанина Е.Н. Бухгалтерский учет - М.: Финансы и статистика, 1996, 276с.

П.И. Камышанов. Практическое пособие по бухгалтерскому учету:- Издание третье, дополненное и переработанное - Москва: ООО «МЕДпресс»; - Элиста: АПП «Джангар», 1998. - 528 с.

ГОСТ 19.002-80.

ГОСТ 19.003-80 Перечень, наименование, обозначение символов и отображаемые ими функции, - М.: Издательство стандартов, 1988.

А.А. Попов Программирование в среде СУБД FoxPro 2.0. Построение систем обработки данных. - М.: Издательство Март, 1996--352с.: илл.

Земляков Ю.Д., Лобковская 0.3. Методические указания по технико-экономическому обоснованию дипломных проектов, связанных с разработкой автоматизированных систем управления и программных изделий. - Новомосковск, 1996.

Макаров Г.В., Васин А.Я., Маринина Л.К., Софийский П.И., Старобинский ВА., Торопов Н.И. Охрана труда в химической промышленности. - М.:, Химия, 1989. 496с.; ил.

Сан ПиН 2.2.4.548 - 96 . Гигиенические требования к микроклимату производственных помещений.

Сан ПиН 2.2.2.542 - 96. Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы,-- М.: Госкомсанэпиднадзор России, 1996.

ГОСТ 27818-88. Допустимые уровни шума на рабочих местах.

Приложения

Схема документооборота

1. Инвентарная опись и сличительная ведомость.

2. Оборотная ведомость №1 («Ведомость списания материальных ценностей по кафедрам»).

3. Ведомость №2. «Передача материальных ценностей по кафедрам (в течение месяца)».

4. Ведомость №3- «Ведомость расчета материальных ценностей со склада».

5. Журнал-ордер №1. «Обороты по кредиту счетов "10" «Основные средства" и "220" «Фонд основных средств»».

Журнал-ордер №4.-- по счету "071".

Журнал-ордер №5.-- по счету "070".

6. Требование-подотчет со склада.

7. Извещение от сторонних организаций.

8. Подотчет материально-ответственных лиц с кафедр.

9. Оборотная ведомость.

Приложение 2

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