OPEN DATABASE \\galileo\2009\ro2009\baze\belcar SHARED

USE zagfak ALIAS zagfak SHARED IN 0
USE fakstav ALIAS fakstav SHARED IN 0

SELECT zagfak
GOTO top
DO WHILE !EOF()
a=ALLTRIM(zagfak.brdok)
ml=LEN(a)
a=REPLICATE("0",6-ml)+(a)
replace zagfak.brdok WITH a
SKIP
ENDDO



SELECT fakstav
GOTO top
DO WHILE !EOF()
a=ALLTRIM(fakstav.brdok)
ml=LEN(a)
a=REPLICATE("0",6-ml)+(a)
replace fakstav.brdok WITH a
SKIP
ENDDO

RETURN
