OPEN DATABASE \\ATHLON64\D\BELCAR\BAZE\BELCAR SHARED
USE \\ATHLON64\D\BELCAR\BAZE\ROBA  ALIAS ROBA SHARED IN 0
MFIS=1
SELECT ROBA
GOTO TOP
DO WHILE !EOF()
	mlp=LEN(ALLTRIM(STR(mfis)))
	m.pomocna=replicate("0",6-mlp)+ALLTRIM(STR(mfis))+"       "	
*	?SIFROB,SIFRA2, M.POMOCNA
	REPLACE SIFRA2 WITH M.POMOCNA
MFIS=MFIS+1
SKIP
ENDDO
RETURN
