Информационная система (ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І ПІДРЯДНИКАМИ)
gpath = gpath+g1
SET PATH TO &gpath
if !file(_srtable_+'.dbf')
* create table &_srtable_ (pathfind m(4), archfind
c(150), othefind c(150), basepath c(50))
* append blank
* use
* do form finddata to yy
* if empty(yy)
= messagebox("не знайдено файлу конфігурації")
close all
quit
* endif
endif
select 0
use &_srtable_
serverpath = pathFIND
_typeprn_ = typeprn
use
gpath = gpath+serverpath
SET PATH TO &gpath
SET CLASSLIB TO RAHS, diagram ADDITIVE
lcOnShutdown="ShutDown()"
ON SHUTDOWN &lcOnShutdown
ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO())
*ON ERROR
_shell="DO Cleanup IN startprg"
apname = space(30)
findstr = space(20)
actiwind2 = .f.
public row_dos
row_dos = 63
_minprcnad = 40
findstr = space(50)
archiv = .f.
*SET PROC TO
SET PROCEDURE TO LIBRARY ADDITIVE
*ll = sysacces("0000003")
*if ll = -1
* close table all
* close data all
* ON ERROR
* ON SHUTDOWN
* retu
*endif
*-- Instantiate application object.
if !directory('temp')
md temp
endif
do setsetup
*do formclie
RELEASE goApp
PUBLIC goApp
goApp=CREATEOBJECT("cApplication")
goapp.appsoft = 0
*goapp.level = ll
*-- Configure application object.
otlb=createobject("tlbs")
*Otlb.Dock(0)
Додаток 22 (продовження)
Otlb.Show()
goApp.SetCaption('Рахунок '+alltrim(basesrahs))
goApp.cStartupMenu="MENUMENU.mpr"
do form f0000000
beforemm = _mm_
beforeyy = _yy_
*-- Show application.
goApp.Show
*-- Release application.
RELEASE goApp, otlb
*-- Restore default menu.
POP MENU _msysmenu
*-- Restore environment.
close table all
close data all
ON ERROR
ON SHUTDOWN
RETURN
*******************************************
FUNCTION ErrorHandler(nError,cMethod,nLine)
LOCAL lcErrorMsg,lcCodeLineMsg
WAIT CLEAR
lcErrorMsg=MESSAGE()+CHR(13)+CHR(13)
lcErrorMsg=lcErrorMsg+"Method: "+cMethod
lcCodeLineMsg=MESSAGE(1)
IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..."
lcErrorMsg=lcErrorMsg+CHR(13)+"Line:
"+ALLTRIM(STR(nLine))
IF NOT EMPTY(lcCodeLineMsg)
lcErrorMsg=lcErrorMsg+CHR(13)+lcCodeLineMsg+chr(13)+chr(13)+'При
пинити роботу?..'
ENDIF
ENDIF
IF MESSAGEBOX(lcErrorMsg,20,_screen.Caption)#6
RETURN .F.
else
QUIT
ENDIF
ENDFUNC
****************************************************
FUNCTION ShutDown
IF TYPE("goApp")=="O" AND NOT ISNULL(goApp)
RETURN goApp.OnShutDown()
ENDIF
Cleanup()
QUIT
ENDFUNC
FUNCTION Cleanup
IF CNTBAR("_msysmenu")=7
RETURN
ENDIF
ON ERROR
ON SHUTDOWN
SET CLASSLIB TO
*SET PATH TO
Додаток 22 (закінчення)
*CLEAR ALL
CLOSE ALL
close table all
close data all
POP MENU _msysmenu
RETURN
Додаток 23
* p0000004
* Сальдо на поточний період на вказане число
local _nameorg, _ends
public fdata
lday = cdm(_mm_,_yy_)
fdata = ctod(str(lday,2)+'/'+str(_mm_,2)+'/'+str(_yy_,4))
do form getdata3 to ll
if empty(ll)
rele fdata
retu
endif
set textmerge on
set textmerge to t100004.txt noshow
set console off
public _br, ld, lk
_br = basesrahs
clrecv = ifused("recv")
clbases = ifused("bases")
clsaldos = ifused("saldos")
clclients = ifused(_clunions_)
_nameorg = recv.name
if clrecv
use in recv
endif
**********************************************************
**************************
* Відбір даних по Д-ту вказаного рахунку
* та формування масиву відповідних рахунків
select * from bases ;
into table tdt1;
where dt = _br and month = _mm_ and year = _yy_ ;
order by codep
select * from tdt1 ;
into table tdt;
where daten >
\ Сальдо на кінець місяця по >
рах. Період: > >p.
stor = 2
do sh00004
stor = stor +5
*set order to tag namep
npp = 0
scan
STORE 0 TO SKS, SDS
do dgr_mov
cd = codep
store 0 to _spd, _spk, _skd, _skk, _sod, _sok
select saldos
locate for codep = cd and month = _mm_ and year = _yy_
and dt = _br
if found()
_spd = sumdt
_spk = sumkt
endif
select tdt
scan for codep = cd and month = _mm_ and year = _yy_
for i = 1 to ld
if kt = rds(i)
sds(i) = sds(i) + sum &&накопичення
по колонках
_sod = _sod +sum &&накопичення
по рядку по Д-ту
endif
endfor
endscan
select tkt
scan for codep = cd and month = _mm_ and year = _yy_
for i = 1 to lk
if dt = rks(i)
sks(i) = sks(i) + sum &&накопичення
по колонках
_sok = _sok +sum &&накопичення
по рядку по K-ту
endif
endfor
endscan
_ends = _spd + _sod -(_spk + _sok)
do case
case _ends > 0
_skd = _ends
_skk = 0
case _ends < 0
_skk = (-1)*_ends
_skd = 0
endcase
**********************************************************
***********************
* Перевірка чи вносити рядок в TXT-файл
if empty(_sKd) and empty(_sKk) &&and empty(_sod) and
empty(_sok)
* недрукуємо
else
*друкуємо
sele (_clunions_)
npp = npp+1
\>|>|
*** сальдо кінцеве
\\>|
\\>
**** підрахунок загальний сум
* поч.сальдо
z_spd = z_spd + _spd
Додаток 23 (продовження)
z_spk = z_spk + _spk
* Д-т
z_sod = z_sod + _sod
for i = 1 to ld
zds(i) = zds(i) + sds(i)
endfor
*К-т
z_sok = z_sok + _sok
for i = 1 to lk
zks(i) = zks(i) + sks(i)
endfor
* кін.сальдо
z_skd = z_skd + _skd
z_skk = z_skk + _skk
*******************************************
* Сторінка
stor = stor +1
if stor >=59
\>
stor = 7
do sh00004
endif
endif
select (_clunions_)
endscan
************
* Вивід загальних сум
do l00004
stor = stor +1
if stor >=59
\>
stor = 7
do sh00004
endif
\>|>|
*** сальдо кінцеве
\\>|
\\>
\ Згорнуте
>
\>
do dgr_end
if clclients
sele (_clunions_)
use
endif
if clbases
use in bases
endif
if clsaldos
use in saldos
endif
if used("tdt")
use in tdt
endif
if used("tkt")
use in tkt
endif
if file("tdt.dbf")
erase tdt.dbf
endif
if file("tk.dbf")
erase tkt.dbf
endif
if used("tdt1")
use in tdt1
endif
if used("tkt1")
use in tkt1
endif
if file("tdt1.dbf")
erase tdt1.dbf
Додаток 23 (закінчення)
endif
if file("tkt1.dbf")
erase tkt1.dbf
endif
set textmerge to
set textmerge off
set console on
rele _nameorg, lk, ld, _br, _spd, _spk, _skd, _skk, _sod,
_sok
rele z_spd, z_spk, z_skd, z_skk, z_sod, z_sok, sks, zks,
sds, zds, rks, rds, fdata
**************************************
*
**************************************
PROCEDURE sh00004
* 1.
\-----+----------------------------------------+----------
-----------
* 2.***>|>
* 3.
\ № +>+------
----+----------
* 4.
\ |>+>+>
* 5.
\-----+----------------------------------------+----------
+----------
RETU
**************************************
*
**************************************
PROCEDURE l00004
\-----+----------------------------------------+-------
---+----------
RETU
Додаток 24
Додаток 25
Додаток 26
Додаток 27
Додаток 28
Додаток 29
Додаток 30
-----------------------
[pic]
Власник
Директор
Відділ реалізації
Склад
Бухгалтерія
Заступник директора
Юрист
Відділ маркетингу
Оприбуткування товарів
Кінець
Початок
Журнал-ордер
Журнал операцій
Журнал операцій
Журнал операцій
Журнал операцій
Платіжні доручення
Розхідні накладні
Облік
оплати
Оборотно-
сальдова
відомість
Формування журнала-
ордера
Формування оборотно-сальдової відомості
Контекст-діаграма системи обліку і аналізу розрахунків з постачальниками і
підрядниками
Система обліку і аналізу розрахунків з постачальниками і підрядниками
Постачальники
Банк
Бухгалтерія
Розхідна накладна
Проплачене платіжне доручення
Узагальнені оборотні відомості
Акт звірки
Журнал-ордер
Сальдові відомості
Узагальнені сальдові відомості
Оборотні відомості
Діаграма 1-го рівня системи обліку і аналізу розрахунків з постачальниками
і підрядниками
Акт звірки
Узагальнені сальдові відомості
Сальдові відомості
Журнал-ордер
Оборотні відомості
Узагальнені оборотні відомості
Платіжне доручення
Розхідна накладна
Дані, що зберігаються
3
Друк і передача результатних документів
2
Формування результатних документів
Бухгалтерія
1
Ввід даних
Банк
Постачальники
Дані про операції
Діаграма 2-го рівня для процесу 1 “Ввід даних”
Записана інформація про операції
Файл операцій
Інформація про операції, що записується
Введена інформація про операції
Платіжне доручення
Розхідна накладна
1.3
Звірка і корекція БД
1.2
Запис на магнітний носій
1.1
Ввід даних про постачальника
Діаграма 2-го рівня для процесу 2 “Формування результатних документів”
Журнал-ордер
Акт звірки
Узагальнені сальдові відомості
Узагальнені оборотні відомості
Сальдові відомості
Оборотні відомості
Дані про операції
2.2
Формування узагальнених оборотних відомостей
2.3
Формування сальдових відомостей
2.4
Формування узагальнених сальдових відомостей
2.5
Формування журналу-ордеру
2.6
Формування акту звірки
2.1
Формування оборотних відомостей
SDPrrdm
SKPrrkm
SDKrrdm
SKKrrkm
SDPrrdjm
SKPrrkjm
SDKrrdjm
SKKrrkjm
SODrrd
ZODrrdjm
ZOKrrkjm
SOKrrk
SOKrdrrk
ODrrdrkjnd
OKrdrrkjnd
SODrrdrk
Ordrkjnd
PSnjzd
SSnjd
Snijd
Knijd
Pnijd
Граф взаємозв’язку показників
М.П.
Інтерфейс
(Menu, forms, help)
Блок обчислень
(Procedures, programs)
Блок формування звітів
(Queries, reports, views)
СУБД
БД
(Database, tables)
« » ________________ 200__ р.
Головний бухгалтер _____________________
(підпис)
« » ________________ 200__ р.
Головний бухгалтер _____________________
(підпис)
« » ________________ 200__ р.
Головний бухгалтер _____________________
(підпис)
« » ________________ 200__ р.
Головний бухгалтер _____________________
(підпис)
« » ________________ 200__ р.
Головний бухгалтер _____________________
(підпис)
« » ________________ 200__ р.
Головний бухгалтер _____________________
(підпис)
« » ________________ 200__ р.
Головний бухгалтер _____________________
(підпис)
« » ________________ 200__ р.
Головний бухгалтер _____________________
(підпис)
« » ________________ 200__ р.
Головний бухгалтер _____________________
(підпис)
Т1
Т3
Т7
Т9
Т2
Т5
Т8
Т10
Т4
Т17
Т19
Т20
Т11
Т13
Т12
Т6
Т14
Т15
Т16
Т18
Т21
Т22
Т23
Т24
Т56
Т55
Т29
Т25
Т26
Т28
Т27
Т31
Т32
Т33
Т34
Т35
Т36
Т30
Т39
Т42
Т41
Т40
Т37
Т38
Т45
Т51
Т50
Т49
Т48
Т47
Т46
Т43
Т44
Т52
Т53
Т54
ТАНГ, ІКІТ, ІСМ-51
105
Аркушів
Літ.
ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І
ПІДРЯДНИКАМИ
Маслияк Б.О.
Затверд.
Васильків Н.М
Н. Контр.
Реценз.
Білоусов І.А.
Перевір.
Конєв Г.Б.
Розроб.
ІКІТ.95712.105.ДП
4
Арк.
Дата
Підпис
№ Докум.
Лист
Змн.
Т57
Т11
Т61
Т58
Т60
Т59
Т62
Т63
Т65
Т64
Т66
Т67
Т69
Т68
Т76
Т70
Т71
Т72
Т74
Т75
Т73
Т77
Т78
Т79
Т80
Т11
Т81
Т82
Т83
Т84
Т85
Т86
Т87
Т88
Т89
Т90
Т91
Т92
Т93
Т94
Т95
Т96
Т99
Т98
Т97
Т100
Т101
Т102
Т103
Т105
Т104
Т106
Т107
Т108
Т109
Документи в електронному вигляді
ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І
ПІДРЯДНИКАМИ
5
Арк.
Дата
Підпис
№ докум.
Арк.
Змн.
Страницы: 1, 2, 3, 4, 5, 6
|