47671 (588499), страница 15

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 15)

Сторонние организации

3.

4.

6.

Склад

5.

9.

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

Характеристики

Список файлов ВКР