- 3


R = IF(R>N_Obj,N_Obj,R)

REPLACE Name_ist WITH "Ist-"+STRTRAN(STR(M_KodIst,5)," ","0")+"-"+STRTRAN(STR(R,5)," ","0")

FIELDPUT(3,R)

***** ObInfKpr

A_Kpr := {}

FOR j=1 TO N_Atr

M_KodPr = 1+INT(N_Atr*RANDOM()/65535) &&

M_KodPr = IF(M_KodPr<1,1,M_KodPr)

M_KodPr = IF(M_KodPr>N_Atr,N_Atr,M_KodPr)

IF ASCAN(A_Kpr,M_KodPr) = 0 &&

IF LEN(A_Kpr)+1 <= 4000

AADD(A_Kpr,M_KodPr)

ENDIF

ENDIF

NEXT

ASORT(A_Kpr)

****** ObInfKpr

SELECT ObInfKpr

APPEND BLANK

FIELDPUT(1,M_KodIst)

k=2

FOR j=1 TO LEN(A_Kpr)

IF k <= 12

FIELDPUT(k++,A_Kpr[j])

ELSE

APPEND BLANK

FIELDPUT(1,M_KodIst)

k=2

FIELDPUT(k ,A_Kpr[j])

ENDIF

NEXT

p=++x/(N_Obj+N_Atr+N_Ank)*100;p=IF(p<=100,p,100)

@24,0 SAY STR(p,3)+"%" COLOR "w+/r+"

@24,4 SAY REPLICATE("-",0.76*p) COLOR "rb+/n"

NEXT

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

GenNtxObj(.T.)

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

GenNtxPro(.T.)

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

GenNtxPrp(.T.)

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

GenNtxOin(.T.)

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

Mess = " !!! "

@24,40-LEN(Mess)/2 SAY Mess COLOR "rg+/rb"

INKEY(0)

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

CLOSE ALL

RETURN

1:

0.

.

1.

, (, 2- ).

2.

.

3.

.

4.

.

5.

Excel.

6.

"".

7.

, 2, 8.

8.

.

.