- 2


REPLACE Kod WITH j

REPLACE Name WITH ArObj[j]

NEXT

CLOSE ALL

Mess = " ====== ====== "

USE Prizn EXCLUSIVE NEW

USE Priz_per EXCLUSIVE NEW;ZAP

ArPr := {}

SELECT Prizn

DBGOTOP()

DO WHILE .NOT. EOF()

AADD(ArPr,FIELDGET(2))

DBSKIP(1)

ENDDO

SELECT Priz_per

DBGOTOP()

FOR j=1 TO IF(Vid="Y",LEN(ArPr),25)

APPEND BLANK

REPLACE Kod WITH j

REPLACE Name WITH ArPr[j]

NEXT

@24,0 SAY REPLICATE("-",80) COLOR "rb/n"

CLOSE ALL

Mess = " ============ ============= "

CLOSE ALL

USE Zoo_data EXCLUSIVE NEW

USE ObInfZag EXCLUSIVE NEW;ZAP

USE ObInfKpr EXCLUSIVE NEW;ZAP

N_Rec = RECCOUNT()

DBGOTOP()

@24,0 SAY REPLICATE("-",80) COLOR "rb/n"

SELECT Zoo_data

DBGOTOP()

DO WHILE .NOT. EOF()

ArObj := {}

FOR j=1 TO 2

AADD(ArObj,FIELDGET(j))

NEXT

FOR j=21 TO 22

AADD(ArObj,FIELDGET(j))

NEXT

ArPr := {}

FOR j=3 TO 20

Mv = FIELDGET(j)

IF Mv > 0

IF Vid = "Y"

AADD(ArPr,Mv)

ELSE

IF Mv <= 25

AADD(ArPr,Mv)

ENDIF

ENDIF

ENDIF

NEXT

****** Zoo_data ObInfZag

SELECT ObInfZag

APPEND BLANK

FOR j=1 TO LEN(ArObj)

FIELDPUT(j,ArObj[j])

NEXT

****** Zoo_data ObInfKpr

SELECT ObInfKpr

APPEND BLANK

FIELDPUT(1,ArObj[1])

k=2

FOR j=1 TO LEN(ArPr)

IF k <= 12

FIELDPUT(k++,ArPr[j])

ELSE

APPEND BLANK

FIELDPUT(1,ArObj[1])

k=2

FIELDPUT(k,ArPr[j])

ENDIF

NEXT

SELECT Zoo_data

DBSKIP(1)

ENDDO

RESTSCREEN(0,0,24,79,scr23)

CLOSE ALL

QUIT

"":

Object.dbf:

( );

Priz_per.dbf:

( );

ObInfZag.dbf:

( );

ObInfKpr.dbf:

( ).

"" .