USE c:\2009\robno\baze\roba
SELECT roba
SET ORDER TO tag sifrob
GOTO top

mrb=1

DO WHILE !EOF()
ms=ALLTRIM(STR(mrb))
ml=LEN(ms)
ms=REPLICATE("0",6-ml)+ms
replace sifra2 WITH ms
mrb=mrb+1
SKIP
ENDDO
RETURN
