SET DELETED ON

OPEN DATABASE d:\2011\str\baze\str

USE kupdob ALIAS kupdob IN 0


SELECT kupdob
ZAP

USE d:\a\fi01 ALIAS fi01 IN 0

SELECT fi01
GOTO top
DO WHILE !EOF()
a1=fi01.fi01ctrl
a2=fi01.fi01naz1
a3=fi01.fi01naz2
a4=fi01.fi01adre
a5=fi01.fi01grad
a6=fi01.fi01post
a7=fi01.fi01tlfn
a8=fi01.fi01tfax
a9=fi01.fi01telx
a10=fi01.fi01ziro
a11=fi01.fi01pib
SELECT kupdob
APPEND BLANK
replace kupdob.kupdob 	WITH a1
replace kupdob.naziv	WITH a2
replace kupdob.naziv1 	WITH a3
replace kupdob.adresa 	WITH a4
replace kupdob.ptt 		WITH a6
replace kupdob.mesto 	WITH a5
replace kupdob.tel1 	WITH a7
replace kupdob.tel2		WITH a9
replace kupdob.fax		WITH a8
replace kupdob.ziro		WITH a10
replace kupdob.pib		WITH a11
SELECT fi01
SKIP
ENDDO
RETURN
