. , , ,

,,,

(ֲ ˲ ˲ ʲ ϲ) —

̳

ֲ ˲ ˲ ʲ ϲ

( )

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.


.

.

ϳ

.

4

ʲ.95712.105.

.

..

.

..

.

. .

.

.

..

ֲ ˲ ˲ ʲ ϲ

˳.

105

, ʲ, -51
TOC o "1-3"

......................................................................................... PAGEREF _Toc484929922 h

1. ʲ ............................................ PAGEREF _Toc484929923 h

1.1. ............................................ PAGEREF _Toc484929924 h

1.2 ......................................................................... PAGEREF _Toc484929925 h

1.3 ............................. PAGEREF _Toc484929926 h

2. ............................... PAGEREF _Toc484929927 h

2.1 ............... PAGEREF _Toc484929928 h

2.2 - ................... PAGEREF _Toc484929929 h

2.3 .......................................... PAGEREF _Toc484929930 h

3. - ........................... PAGEREF _Toc484929931 h

3.1. ....................... PAGEREF _Toc484929932 h

3.2. .................................... PAGEREF _Toc484929933 h

3.3 ...................................... PAGEREF _Toc484929934 h

................................................................................. PAGEREF _Toc484929935 h

˳.............................................................................. PAGEREF _Toc484929936 h

1................................................................................ PAGEREF _Toc484929937 h

2................................................................................ PAGEREF _Toc484929938 h

3................................................................................ PAGEREF _Toc484929939 h

4................................................................................ PAGEREF _Toc484929940 h

5................................................................................ PAGEREF _Toc484929941 h

6................................................................................ PAGEREF _Toc484929942 h

7................................................................................ PAGEREF _Toc484929943 h

8................................................................................ PAGEREF _Toc484929944 h

9................................................................................ PAGEREF _Toc484929945 h

10.............................................................................. PAGEREF _Toc484929961 h

11.............................................................................. PAGEREF _Toc484929963 h

12.............................................................................. PAGEREF _Toc484929965 h

13.............................................................................. PAGEREF _Toc484929967 h

14.............................................................................. PAGEREF _Toc484929969 h


.

.

.

ϳ

.

5

ֲ ˲ ˲ ʲ ϲ

.............................................................................. PAGEREF _Toc484929971 h

16.............................................................................. PAGEREF _Toc484929974 h

17.............................................................................. PAGEREF _Toc484929977 h

18.............................................................................. PAGEREF _Toc484929979 h

19.............................................................................. PAGEREF _Toc484929983 h

20.............................................................................. PAGEREF _Toc484929988 h

21.............................................................................. PAGEREF _Toc484929989 h

22.............................................................................. PAGEREF _Toc484929990 h

23.............................................................................. PAGEREF _Toc484929991 h

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

SEQ * ARABIC 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

SEQ * ARABIC 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.

SEQ * ARABIC 3.

..

, ,

.

,

.

,

̳

.

̳,

..

, ,

..

, ,

..

, ,

:

-         ;

-         .

(, , , , , , ). , . , . 9. 4.

SEQ * ARABIC 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.

SEQ * ARABIC 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.

SEQ * ARABIC 6. " "

ij

D(8)

N(6.2)

0..9999.99

C(40)

C(5)

C(4)

60 - (). 12. 7.

SEQ * ARABIC 7. " "

ij

D(8)

N(6.2)

0..9999.99

C(40)

C(5)

C(4)

60 . 13. 8.

SEQ * ARABIC 8. " "

ij

N(7.2)

0..99999.99

C(40)

D(6)

60 . 14. 9.

SEQ * ARABIC 9. " "

ij

N(7.2)

0..99999.99

C(40)

D(6)

60 . 15. 10.

SEQ * ARABIC 10.

ij

N(7.2)

0..99999.99

N(7.2)

0..99999.99

C(40)

D(6)

60 . 16. 11.

SEQ * ARABIC 11.

ij

N(7.2)

0..99999.99

N(7.2)

0..99999.99

C(40)

D(6)

60. 17. 12.

SEQ * ARABIC 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.

SEQ * ARABIC 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.

SEQ * ARABIC 14.

ij

N(7.2)

0..99999.99

D(8)

C(3)

C(40)

C(4)

C(4)

(). . - (, , ). .

, .

:

ՠ

:

V - -

D -

( 15):

SEQ * ARABIC 15.

vOperations

vDocuments

vGoods

- ()

dPartners

dAccounts

dPhones

dAddresses

dBanks

dCities

dCountries

dRegions

dAreas

dTypes

dMeasures

dGoods

( 24).

:

SEQ * ARABIC 16. vOperations

nSum

N(6.2)

cKNumber

C(4)

cDNumber

C(4)

icdDocument

C(4)

SEQ * ARABIC 17. vDocuments

icdDocument

C(4)

dDate

D(8)

cDocNumber

C(5)

icdPartner

C(4)

SEQ * ARABIC 18. vGoods

ʳ

nGoodsAmnt

N(8.3)

ֳ

nGoodsPrice

N(8.4)

icdMeasure

C(2)

icdGoods

C(4)

icdDocument

C(4)

SEQ * ARABIC 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)

SEQ * ARABIC 20. dCities

icdCity

C(3)

cCity

C(22)

SEQ * ARABIC 21. dBanks

icdBank

C(3)

cBank

C(45)

SEQ * ARABIC 22. dGoods

icdGoods

C(4)

cGoods

C(40)

SEQ * ARABIC 23. dMeasure

icdMeasure

C(2)

cMeasure

C(7)

SEQ * ARABIC 24. dAccounts

icdPartner

C(4)

cAccount

C(15)

cMFO

C(10)

icdBank

C(3)

icdCity

C(3)

SEQ * ARABIC 25. dPhones

icdPartner

C(4)

icdConnType

C(1)

()

cCode

C(6)

cNumber

C(7)

SEQ * ARABIC 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)

SEQ * ARABIC 27. dConnTypes

icdConnType

C(1)

cConnType

C(7)

SEQ * ARABIC 28. dCountries

icdCountry

C(2)

cCountry

C(15)

SEQ * ARABIC 29. dRegions

icdRegion

C(3)

cRegion

C(20)

SEQ * ARABIC 30. dAreas

icdArea

C(4)

cArea

C(20)


3 -Ͳ ˲ֲ

3.1

, ᒺ , . . 21. 31.

SEQ * ARABIC 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.

SEQ * ARABIC 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. 

1.

2.

3.

4. .- .: , 1984.

5. ., . : . .- .:, 1990.

6.

7. / ... - : , , 1990. - 67 .

8.

9. Visual FoxPro 6.0. -: BHV, 1999. 500 .

10.                     

11.                     

12.                     

13.                     

14.                     

15.                     

16.                     


³

³

1


ʳ

-

-

-

-

2


-

3

-



ij 1-

-

,

3

2

1

4


ij 2- 1

,

1.3

1.2

1.1

5


ij 2- 2

6

-

2.1

2.6

2.5

-

2.4

2.3

2.2



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

_____________________

()


54

53

52

45

51

50

49

48

47

46

43

44

39

42

41

40

37

38

30

36

35

34

33

32

31

27

28

26

25

29

55

56

24

23

22

21

18

16

15

14

20

19

17

6

12

13

11

4

10

8

5

2

9

7

3

1

20


20 ()

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


(Database, tables)

(Queries, reports, views)

(Procedures, programs)

(Menu, forms, help)

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

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

<>|<>|

***

\<>|

\<>

****

* .

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


2

4

25



26



27



28



29



30

̳ ֲ ˲

 

 

 

! , , , .
. , :