Список используемых источников
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. Оборотная ведомость.
Приложение 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
Популярное: Как распознать напряжение: Говоря о мышечном напряжении, мы в первую очередь имеем в виду мускулы, прикрепленные к костям ... Как вы ведете себя при стрессе?: Вы можете самостоятельно управлять стрессом! Каждый из нас имеет право и возможность уменьшить его воздействие на нас... Модели организации как закрытой, открытой, частично открытой системы: Закрытая система имеет жесткие фиксированные границы, ее действия относительно независимы... Почему человек чувствует себя несчастным?: Для начала определим, что такое несчастье. Несчастьем мы будем считать психологическое состояние... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (275)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |