. , , ,

,,,

ֲ ˲ ˲ ʲ ϲ ( ) —

̳

ֲ ˲ ˲ ʲ ϲ

( )

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


. , , . - , .

, , 㳿 , , .

. , , , .


1 ˲ Ĕ Ͳ ʲ ˲ ˲ ʲ ϲ

1.1

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.2

 

, , . . 1є X-Door SoftTaxi. ֳ ( 1є). , 1є 1: , . , , ( ). , , . , , , 򳺿 [].

1.3

, , , ( ), . , , 1є 1: ( ) 1309 . (245 ..), 5200 . (972 ..). , .

, . , . . . , , , , , . , , , . , (, 1є) . , , , [].

(, Visual FoxPro) , , , .

, Microsoft Visual FoxPro, ( ), . , .


2 в

2.1

ᒺ 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. . , ( ) , . ϳ , , : , .

. .

, . : -, - .

2.2 -

, , - - (. 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)

 

2.3

.

. . . - , .

-. 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)

3 -Ͳ ˲ֲ

3.1

, ᒺ , . . 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) , , , . , , , .

, , .

3.2

ϳ :

-     Startprog;

-     Formob;

-     Rozsal;

-     Rozsalp;

-     Formaz;

-     Formjo;

-     Formov;

-     Formop.

Startprog , . ˳ 22.

Formob .

Rozsal . ˳ 23.

Rozsalp .

Formaz .

Formjo - .

Formov .

Formop .

3.3

. 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 .

 


1


2


 

 

 

-

 

 

 

 

 

 

 

 
3

-

 
 



ij 1-

 

 

 

 

-

 

 

 

 

 

,

 

 

 

 
4

 

 

ij 2- 1

 

 

 

,

 

 

 

 
5


ij 2- 2

 
6



 

Pnijd

 

Knijd

 

Snijd

 

SSnjd

 

PSnjzd

 

Ordrkjnd

 

SODrrdrk

 

OKrdrrkjnd

 

ODrrdrkjnd

 

SOKrdrrk

 

SOKrrk

 

ZOKrrkjm

 

ZODrrdjm

 

SODrrd

 

SKKrrkjm

 

SDKrrdjm

 

SKPrrkjm

 

SDPrrdjm

 

SKKrrkm

 

SDKrrdm

 

SKPrrkm

 

SDPrrdm

 
8


9

: _________________________

: _______________________________

. ____________ _________________

: _________________________________

/ _____________________ ___________ : _______________

 

_______________ _______________

: ____________________________

: _______________________________

. ____________ _________________

: _________________________________

/ _____________________ ___________ : _______________

: ___________________ ___________________

// _____________________

 

: ______________ ________________________

. . ʳ (.) -. (.) % ֳ ࠠ . ࠠ 蠠 .

( )

/ : ______________

: _________________________________________________

(...)

: _________________________________________________ : _____________________________________

(...) (...)


10
_________

___ ______________ 200__ .

___ ___________ 200__ .

_________________________

󠠠 Ҡ

.


_______________________

󠠠 .

.

()

____________________________________________________________________________

_________________________________________________________

..

 
___ ___________ 200__ .

ϳ


11

 

 

 

 

( 60 __)

________________ 200__ .

_____________________

()

 

12

 

 

 

 


( 60 __)


13

 

 

 

 

 

( )

 

_______________________

()

________________ 200__ .

_____________________

()

 

14

 

 

 

 


 

( )

 

_______________________

()

________________ 200__ .

_____________________

()

 

15

 
 
 

( _____________________)

()

________________ 200__ .

_____________________

()

 

16

 
 
 

( _____________________)

()


17

 

 

 

 

 

( ______________________________)
( ______________________________)

________________ 200__ .

_____________________

()

 

18

 

-

60
60

________________ 200__ .

_____________________

()

 

19

 

 


 

___ _________________ 200__.

: _____________________________________

________________ 200__ .

_____________________

()

 


20


20 ()


21


22

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


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 <= 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

4

25



26



27



28



29



30

̳

 

 

 

! , , , .
. , :