.


5- 5- 1- "" ( ).

***************************************************************

*** ********

*** .., 02/26/04 11:34am ****************************

***************************************************************

FUNCTION Div_chis()

scr_start=SAVESCREEN(0,0,24,79)

SHOWTIME(0,58,.T.,"rb/n")

Titul(.T.)

Mess = "=== ==="

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

* 0123456789012345678901234567890123456789012345678901234567890123456789012345678

* 0 10 20 30 40 50 60 70

@10,24 SAY " : #####" COLOR "w+/rb"

N_Obj = 99

@10,52 GET N_Obj PICTURE "#####" COLOR "rg+/r"

SET CURSOR ON;READ;SET CURSOR OFF

IF LASTKEY()=27

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

RETURN

ENDIF

***

A_Pr := {}

FOR j=1 TO N_Obj

AADD(A_Pr, " "+ALLTRIM(STR(j,4)))

NEXT

FOR j=1 TO N_Obj

AADD(A_Pr, " "+ALLTRIM(STR(j,4)))

NEXT

FOR j=1 TO N_Obj

AADD(A_Pr, ": "+ALLTRIM(STR(j,4)))

NEXT

USE Priz_per EXCLUSIVE NEW

ZAP

FOR j=1 TO LEN(A_Pr)

APPEND BLANK

REPLACE Kod WITH j

REPLACE Name WITH A_Pr[j]

NEXT

GenNtxPrp(.F.)

CLOSE ALL

***

USE Object EXCLUSIVE NEW

ZAP

FOR j=1 TO N_Obj

APPEND BLANK

REPLACE Kod WITH j

REPLACE Name WITH ALLTRIM(STR(j,3))

NEXT

GenNtxObj(.F.)

CLOSE ALL

***

USE ObInfZag EXCLUSIVE NEW;ZAP

USE ObInfKpr EXCLUSIVE NEW;ZAP

FOR s=1 TO N_Obj

SELECT ObInfZag

APPEND BLANK

REPLACE Kod_ist WITH s

REPLACE Name_ist WITH ALLTRIM(STR(s,4))