,,,
̳
ֲ ˲ ˲ ʲ ϲ
( )
7.050207 " "
-51 ________ .
...,
________ .
.
..., ________ .
2000
ֲ
" "
( )
, II, , I- 51, 2000 .
104 i.
. , . .
, , .
ANNOTATION
degree project of Konev Gregory Borysovych
"The information system of account and analysis of accounts with the suppliers"
(on an example of the private enterprise Biomed)
TANE, ICI, Department IIT, group ISM- 51, 2000.
Volume of degree project 104 of pages.
In the given degree project the research of methods of account and analysis of accounts with the suppliers. The model of system model and it's detail description is given, mathematical and dataware have been designed and used. Programmed realization system was designed.
Results of given degree project can be aplied as at the enterprises occupied medical preparations, and at the enterprises of other structure.
......................................................................................... 6
1. ʲ ............................................ 7
1.1. ............................................ 7
1.2 ......................................................................... 13
1.3 ............................. 14
2. ............................... 16
2.1 ............... 16
2.2 - ................... 20
2.3 .......................................... 26
3. - ........................... 42
3.1. ....................... 42
3.2. .................................... 53
3.3 ...................................... 55
................................................................................. 63
˳.............................................................................. 65
1................................................................................ 67
2................................................................................ 68
3................................................................................ 69
4................................................................................ 70
5................................................................................ 71
6................................................................................ 72
7................................................................................ 73
8................................................................................ 76
9................................................................................ 77
10.............................................................................. 78
11.............................................................................. 79
12.............................................................................. 80
13.............................................................................. 81
14.............................................................................. 82
15.............................................................................. 83
16.............................................................................. 84
17.............................................................................. 85
18.............................................................................. 86
19.............................................................................. 87
20.............................................................................. 88
21.............................................................................. 90
22.............................................................................. 91
23.............................................................................. 95
24.99
25.100
26.101
27.102
28.103
29.104
30.105
. , , . - , .
, , 㳿 , , .
. , , , .
1994 ( 䳺 1998 ) , ᒺ, , , , -, -, , .
, , , .
:
- ;
- , ;
- , , - , ;
- - ;
- - ;
- ;
- - , - , ;
- , ;
- , , , , 㳿;
- , , , , ;
- ;
- ;
- , , , , , , , , , 㳿 ;
- ;
- .
1.
. , , .
. Microsoft Visual FoxPro 5.0. :
- Pentium 133 , 32 , ᒺ 3,2 , 14 SVGA 800600 ;
- Hewlett Packard DeskJet 400.
. .
. . . ( ) . , . , , . 60 . 41 ( 01 02) 60 . 60 52 , 51 , 66 . [].
, , : 60 03, 05, 06, 07, 08, 12, 42, 43, 44, 45, 46, 47, 50, 55, 61, 62, 63, 78, 79, 84, 87, 93, 96, 60 42, 46, 49, 50, 52, 55, 61, 62, 66, 68, 76, 78, 90, 93, 96.
, 60. .
. , , , 60. , ( ) . , , . , . 60. , , .
, : - -. . - () 60 , , . - 60 , .
2.
г . , . , . , .
, .
, , . . 1є X-Door SoftTaxi. ֳ ( 1є). , 1є 1: , . , , ( ). , , . , , , [].
, , , ( ), . , , 1є 1: ( ) 1309 . (245 ..), 5200 . (972 ..). , .
, . , . . . , , , , , . , , , . , (, 1є) . , , , [].
(, Visual FoxPro) , , , .
, Microsoft Visual FoxPro, ( ), . , .
ᒺ DFD-. 3 - , ᒺ []. ᒺ: , . , . :
- ;
- ;
- ;
- ;
- -;
- .
, , .
1- , 4, . :
- ( 1);
- ( 2);
- ( 3).
1 , , , , . , 2 . 1 . 2 , . 3 .
1 , 5. :
- ( 1.1);
- ( 1.2);
- ( 1.3).
1.1 1.3 Ĕ. ϳ 1.1 () . 1.3 . 1.3 ( 1) .
2 6. :
- ( 2.1);
- ( 2.2);
- ( 2.3);
- ( 2.4);
- - ( 2.5);
- ( 2.6).
2.1, 2.3, 2.5 2.6, , , - . 2.2 2.4, .
3 .
㳿 , 㳺, , 7. . , ( ) , . ϳ , , : , .
. .
, . : -, - .
, , - - (. 1 2).
1. -
R1 | SDP | |
R2 | SDK | |
R3 | SKP | |
R4 | SKK | |
R5 | OD | |
R6 | OK | |
R7 | ZOD | |
R8 | ZOK | |
R9 | O | |
R10 | SO | |
R11 | SOD | |
R12 | SOK | |
W1 | S | |
W2 | SS | |
V1 | ʳ | K |
V2 | ֳ | P |
V3 | PS |
2. -
P1 | I | |
P2 | J | |
P3 | D | |
P4 | N | |
P5 | RD | |
P6 | RK | |
P7 | 60 | RRD |
P8 | 60 | RRK |
P9 | ̳ | M |
P10 | DP | |
P11 | DK | |
P12 | Z |
8.
, :
1)
i,
j d n.
, (1)
: i, j d n;
i, j d n.
2) , j d n.
. (2)
3) rd rk n j d.
; (3)
, (4)
堖 , j z n d.
4) 60 rk j d. .
5) 60 rd j d. .
6) 60 j m.
. (5)
7) 60 j m.
. (6)
8) m 60 j.
. (7)
9) m 60 j.
. (8)
10) m 60 j.
. (9)
11) m 60 j.
. (10)
12) m 60.
. (11)
13) m 60.
. (12)
14) m 60.
. (13)
15) m 60.
. (14)
16) 60 rk.
. (15)
17) 60 rk.
. (16)
18) 60.
. (17)
19) 60.
. (18)
.
. . . - , .
-. 3.
3.
|
|||
|
|||
.. |
, , | ||
|
|||
. |
, | ||
. |
, | ||
̳ |
. |
̳, | |
.. |
, , | ||
.. |
, , | ||
.. |
, , |
:
- ;
- .
(, , , , , , ). , . , . 9. 4.
4. " "
ij | ||
C(40) | ||
C(15) | ||
C(30) | ||
C(10) | ||
C(10) | ||
C(45) | ||
C(15) | ||
C(10) | ||
C(10) | ||
C(15) | ||
C(5) | ||
D(8) | ||
C(30) | ||
C(5) | ||
ʳ | N(8.3) | 0..9999.999 |
N(8.4) | 0..9999.9999 | |
N(6.2) | 0..9999.99 | |
N(7.2) | 0..99999.99 |
( , , , ). , , , , . . , . 10. 5.
5. " "
ij | ||
C(5) | ||
D(8) | ||
N(6.2) | 0..9999.99 | |
C(40) | ||
C(9) | ||
C(45) | ||
C(7) | ||
C(15) | ||
C(5) | ||
D(8) |
. .
:
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- -;
- .
60 - (). 11. 6.
6. " "
ij | ||
D(8) | ||
N(6.2) | 0..9999.99 | |
C(40) | ||
C(5) | ||
C(4) |
60 - (). 12. 7.
7. " "
ij | ||
D(8) | ||
N(6.2) | 0..9999.99 | |
C(40) | ||
C(5) | ||
C(4) |
60 . 13. 8.
8. " "
ij | ||
N(7.2) | 0..99999.99 | |
C(40) | ||
D(6) |
60 . 14. 9.
9. " "
ij | ||
N(7.2) | 0..99999.99 | |
C(40) | ||
D(6) |
60 . 15. 10.
10.
ij | ||
N(7.2) | 0..99999.99 | |
N(7.2) | 0..99999.99 | |
C(40) | ||
D(6) |
60 . 16. 11.
11.
ij | ||
N(7.2) | 0..99999.99 | |
N(7.2) | 0..99999.99 | |
C(40) | ||
D(6) |
60. 17. 12.
12.
ij | ||
N(7.2) | 0..99999.99 | |
N(7.2) | 0..99999.99 | |
N(7.2) | 0..99999.99 | |
N(7.2) | 0..99999.99 | |
N(7.2) | 0..99999.99 | |
N(7.2) | 0..99999.99 | |
D(6) |
- . 18. 13.
13. -
ij | ||
N(7.2) | 0..99999.99 | |
N(7.2) | 0..99999.99 | |
N(7.2) | 0..99999.99 | |
C(4) | ||
C(4) |
, . 19. 14.
14.
ij | ||
N(7.2) | 0..99999.99 | |
D(8) | ||
C(3) | ||
C(40) | ||
C(4) | ||
C(4) |
(). . - (, , ). .
, .
:
:
V - -
D -
( 15):
15.
vOperations | |
vDocuments | |
vGoods | |
- () | dPartners |
dAccounts | |
dPhones | |
dAddresses | |
dBanks | |
dCities | |
dCountries | |
dRegions | |
dAreas | |
dTypes | |
dMeasures | |
dGoods |
( 24).
:
16. vOperations
nSum | N(6.2) | |
cKNumber | C(4) | |
cDNumber | C(4) | |
icdDocument | C(4) |
17. vDocuments
icdDocument | C(4) | |
dDate | D(8) | |
cDocNumber | C(5) | |
icdPartner | C(4) |
18. vGoods
ʳ | nGoodsAmnt | N(8.3) |
ֳ | nGoodsPrice | N(8.4) |
icdMeasure | C(2) | |
icdGoods | C(4) | |
icdDocument | C(4) |
19. dPartners
icdPartner | C(4) | |
cPartner | C(40) | |
cZKPO | C(13) | |
. . | cSrPDV | C(13) |
. . | cIndPN | C(10) |
cManager | C(40) | |
cMainAcnt | C(40) | |
mNote | Memo | |
dLastMod | D(8) |
20. dCities
icdCity | C(3) | |
cCity | C(22) |
21. dBanks
icdBank | C(3) | |
cBank | C(45) |
22. dGoods
icdGoods | C(4) | |
cGoods | C(40) |
23. dMeasure
icdMeasure | C(2) | |
cMeasure | C(7) |
24. dAccounts
icdPartner | C(4) | |
cAccount | C(15) | |
cMFO | C(10) | |
icdBank | C(3) | |
icdCity | C(3) |
25. dPhones
icdPartner | C(4) | |
icdConnType | C(1) | |
() | cCode | C(6) |
cNumber | C(7) |
26. dAddresses
icdPartner | C(4) | |
icdCity | C(3) | |
icdRegion | C(3) | |
icdArea | C(4) | |
icdCountry | C(2) | |
cPOBox | C(5) | |
cPostInd | C(6) | |
cAddress | C(30) |
27. dConnTypes
icdConnType | C(1) | |
cConnType | C(7) |
28. dCountries
icdCountry | C(2) | |
cCountry | C(15) |
29. dRegions
icdRegion | C(3) | |
cRegion | C(20) |
30. dAreas
icdArea | C(4) | |
cArea | C(20) |
, ᒺ , . . 21. 31.
31.
ᒺ | ij | |
1 | - | |
2 | ||
3 | ||
4 | ||
5 | ||
6 | ||
7 | ||
8 | ||
9 | ||
10 | ||
11 | ³ | |
12 | ||
13 | ||
14 | ||
15 | / | |
16 | ||
17 | ||
18 | ||
19 | . . | |
20 | . . | |
21 | ||
22 | ||
23 | ||
24 | ||
25 | ||
26 | ||
27 | ||
28 | ||
29 | ||
30 | (./.) | |
31 | ||
32 | ||
33 | ||
34 | ||
35 | ||
36 | ³ | |
37 | ||
38 | ||
39 | ||
40 | ||
41 | ||
42 | ³ | |
43 | ||
44 | ||
45 | ||
46 | ||
47 | ||
48 | ||
49 | ||
50 | ||
51 | ||
52 | ||
53 | ||
54 | ³ | |
55 | ||
56 | ||
57 | ||
58 | ||
59 | ||
60 | ||
61 | ³ | |
62 | ||
63 | ||
64 | ||
65 | ||
66 | ||
67 | ||
68 | ||
69 | ||
70 | ||
71 | ||
72 | ||
73 | ||
74 | ||
75 | ||
76 | ||
77 | ||
78 | ||
79 | ||
80 | ³ | |
81 | - | |
82 | - | |
83 | ||
84 | ||
85 | ||
86 | ||
87 | ||
88 | ||
89 | ||
90 | ||
91 | ³ | |
92 | ||
93 | ||
94 | ||
95 | ||
96 | ||
97 | ||
98 | ||
99 | ³ | |
100 | ||
101 | ||
102 | ||
103 | ||
104 | ||
105 | ³ | |
106 | ||
107 | ||
108 | ||
109 | ³ |
- .
, , , .
, , Windows 98, , 32- . Microsoft (). 32- , , .
, Windows 9x/NT, , , ຠ , .
Microsoft Visual FoxPro. , Visual FoxPro . , , , Microsoft .
Visual FoxPro . . , .
Visual FoxPro ᒺ-, - , , , .
Visual FoxPro , , .
, , , , . , . DBF. , .
Memo General . Memo- , General , , , , Windows.
Visual FoxPro , 䳿, - . , , .
. ᒺ . , ᒺ , , .
, . . , , , . .
, , , , . , , , . , , .
, , . , . ᒺ, ᒺ (, , , , , OLE- ), ᒺ .
. , .
. Visual FoxPro , Structured Query Language (SQL). , .
, Visual FoxPro, ᒺ-. 䳿 , ᒺ, , . ᒺ .
Visual FoxPro, , . , Visual FoxPro, .
ᒺ , . .
Visual FoxPro Visual FoxPro, , .
, , , , , ᒺ, , . ᒺ, , Visual FoxPro , ᒺ. 32.
32. ᒺ Visual FoxPro
ᒺ | |
PRJ, FPC, CAT, PJX, PJT | |
DBC | |
Visual FoxPro | DBF |
CDX | |
Memo- General | FRT |
SCX | |
QPR | |
FRX, FRM | |
LBX, LBL | |
MNX | |
VCX | |
, , , | PRG, FXP, MPR, QPR |
BMP, JPG, GIF, ICO, DIB, CUR, ANI | |
WAV |
22. :
- ;
- ;
- ;
- .
, ( , ) . .
, 䳿, .
() ( Visual FoxPro) , , , . , , , .
, , .
ϳ :
- Startprog;
- Formob;
- Rozsal;
- Rozsalp;
- Formaz;
- Formjo;
- Formov;
- Formop.
Startprog , . ˳ 22.
Formob .
Rozsal . ˳ 23.
Rozsalp .
Formaz .
Formjo - .
Formov .
Formop .
. Microsoft Visual FoxPro.
, , Microsoft Visual FoxPro Windows 95, Windows 98, Windows NT. , .
Windows 95 , Intel 80386DX, 80486 Pentium. ᒺ 4 . 䳿 486- 66 Pentium. 16 '.
Windows 95 50 , - 30 . , 10 30 '.
Visual FoxPro, R60.exe Visual FoxPro .
MS Visual FoxPro , , Windows 9/NT :
- 80486 ( 80486 66)
- 16 ' ( 16 )
- 300
- VGA SVGA
-
, . Microsoft Windows 95 (Microsoft Windows 98 Microsoft Windows NT). :
- (Start) ;
- ;
- ;
- ;
- ;
- Microsoft Windows 95 (Microsoft Windows 98, Microsoft Windows NT) .
䳿 . () ( R60.exe), , , . , 25. , :
- ;
- .
, ( ).
, 26, . :
- ;
- ( );
- ;
- .
:
- ;
- ³ Ⳕ;
- ;
- ;
- ;
- ;
- ;
- .
, , 27. . , , .
, . :
- ( , );
- / ( , , , , );
- ( . /);
- ( . /);
- ( ).
, .
ϳ , ʔ .
³ Ⳕ , 60, 28. ᒺ:
- , ;
- 60;
- 60;
- 60, ;
- , , , , ;
- , , , ;
- .
, , 60 . , 29. , . :
- , ;
- ;
- ;
- , ;
- ³ .
ϳ 60.
, , 30. . . , .
.
㳿 , , , , .
, , . .
, , , , , .
. , . - .
, .
1. .., .. .- .: , 1988.
1. .- .: , 1985.
2. .. .- .: , 1988.
3. .. .- .: , 1992.
4. .. . .- .: , 1984.
5. ., . : . .- .:, 1990.
6. .. . .-.: , 1995 .
7. . 0715 - / ... - : , , 1990. - 67 .
8. .. .- , 1996.
9. .. Visual FoxPro 6.0. -: BHV, 1999. 500 .
10. i .. .-.:, 1993.
11. .. .-.:,1991.
12. . : , 1994. 176.
13. ᒺ. : , 1995. 300.
14. .. , . . , . . . . : , 1996. 414.
15. .. . : , 1992. 463.
16. .. . : , 1995. 259 .
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
. . | ʳ | (.) -. (.) | % | ֳ ࠠ . | ࠠ 蠠 . | ||||||
( )
/ : ______________
: _________________________________________________
(...)
: _________________________________________________ : _____________________________________
(...) (...)
___ ______________ 200__ .
___ ___________ 200__ .
_________________________
Ҡ
ࠠ
.
_______________________
ࠠ
.
.
()
____________________________________________________________________________
_________________________________________________________
|
ϳ
( 60 __)
|
( 60 __)
( )
_______________________
() |
|
|
( )
_______________________
() |
|
|
( _____________________)
() |
||
|
||
|
( _____________________)
() |
||
|
||
( ______________________________) | ||
( ______________________________) | ||
|
60 | ||
60 | ||
|
___ _________________ 200__.
: _____________________________________
ࠠ |
ࠠ |
||||
|
20 ()
Parameters _rah
if parameters() = 0
howrah = 0
else
if type("_RAH") = "C"
howrah = _rah
else
howrah = alltrim(str(_rah))
endif
endif
*HOWRAH = '62'
_screen.caption = ''
******** SetSet
_screen.windowstate = 2
_SCREEN.CLS
clear wind all
CLOSE ALL
set dele on
set excl off
set multi on
set confirm on
set point to ','
set separator to [']
set reprocess to 5
PUSH MENU _msysmenu
hide menu _msysmenu
set dele on
SET TALK OFF
SET SAFETY OFF
SET DATE GERMAN
set escape off
set century on
*************
public gnpdv, znak, kurs, _YY_, _MM_, _yyarh_, _arh_, ACTIWIND, activind2, archiv, findstr, _minprcnad,
apname, findstr
public basesrahs, beforemm, beforeyear, _srtable_, _sttable_, _typeprn_
store ' ' to _sttable_, _srtable_, _tmpdt_, _tmpkt_, _typeprn_
*********
ff = sys(16)
if 'FXP' $ FF OR 'PRG' $ FF
tt = rat('\',ff)
ff = left(ff,tt-1)
tt = rat('\',ff)
ff = left(ff,tt-1)
else
tt = rat('\',ff)
ff = left(ff,tt-1)
ENDIF
set defa to &ff
*-- Save and configure environment.
fpath = sys(5)+sys(2003)
g2 = fpath+'\sysapps;'
g3 = fpath+'\temp;'
g4 = fpath+'\datsets;'
g5 = fpath+'\reports;'
gpath = fpath+';'+ g2 +g3+g4+g5
set path to &gpath
if empty(howrah)
howrah = '60'
endif
_pathrah1 = alltrim(howrah)
hh = alltrim(howrah)
if len(hh) =2
*** 00
_srtable_ = 'sr'+hh+'00'
else
_srtable_ = 'sr'+hh
endif
22 ()
_sttable_ ='set'+hh+'r'
g1 = fpath+'\R'+_pathrah1+';'
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
* 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 <= fdata;
order by codep
public dime rds(1)
select distinct kt from tdt into array rds
ld = alen(rds)
if ld = 1 and empty(rds(1))
rds(1) = ' '
endif
dime sds(ld), zds(ld)
store 0 to sds, zds
************************************************************************************
* ³ K-
*
select * from bases ;
into table tkt1;
where kt = _br and month = _mm_ and year = _yy_;
order by codep
select * from tkt1 ;
into table tkt;
where daten <= fdata;
order by codep
public dime rks(1)
select distinct dt from tkt into array rks
lk = alen(rks)
if lk = 1 and empty(rks(1))
rks(1) = ' '
endif
dime sks(lk), zks(lk)
store 0 to sks, zks
*****************************************************
*
23 ()
store 0 to z_spd, z_spk, z_skd, z_skk, z_sod, z_sok
* 볺
* _spd - -
* _spk - -
* _skd - -
* _skk - -
* _sod - -
* _sok - -
*
select (_clunions_)
do dgr_box with recc(), ' ','Pax.'+alltrim(_br)
\ <<_nameorg>>
\ <<alltrim(_br)>> . : <<mstn(_mm_)>> <<_yy_>>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
\<<str(npp,5)>>|<<left(namep,40)>>|
***
\\<<iif(empty(_skd),space(10), str(_skd,10,2))>>|
\\<<iif(empty(_skk),space(10), str(_skk,10,2))>>
****
* .
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
\<<chr(12)>>
stor = 7
do sh00004
endif
endif
select (_clunions_)
endscan
************
*
do l00004
stor = stor +1
if stor >=59
\<<chr(12)>>
stor = 7
do sh00004
endif
\<<space(5)>>|<<padc('*** ***',40,' ')>>|
***
\\<<iif(empty(z_skd),space(10), str(z_skd,10,2))>>|
\\<<iif(empty(z_skk),space(10), str(z_skk,10,2))>>
\ 堠 <<str(z_skd-z_skk,10,2))>>
\<<space(20)>>
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.***<<padc('
\ |<<space(40)>>|<<padc(' .',21,' ')>>
* 3.
\ +<<padc(' ',40,' ')>>+----------+----------
* 4.
\ |<<SPACE(40)>>+<<padc('',10,' ')>>+<<padc('',10,' ')>>
* 5.
\-----+----------------------------------------+----------+----------
RETU
**************************************
*
**************************************
PROCEDURE l00004
\-----+----------------------------------------+----------+----------
RETU
2
Copyright (c) 2024 Stud-Baza.ru , , , .