CLOSE ALL
OPEN DATABASE d:\2010\robno\baze\belcar

USE d:\2010\robno\baze\kupdob ALIAS kupdob IN 0
SELECT kupdob
SET ORDER to tag kupdob
GOTO top

OPEN DATABASE d:\2010\fin\baze\fin

USE d:\2010\fin\baze\konplan ALIAS konplan IN 0
SELECT konplan
ZAP

SELECT kupdob
GOTO top
DO WHILE !EOF()
a1=kupdob.kupdob
a2=kupdob.naziv
a3=kupdob.naziv1
a4=kupdob.adresa
a5=kupdob.mesto
a6=kupdob.pib
SELECT konplan
APPEND BLANK
replace konplan.konto WITH "2020"
replace konplan.analitika	WITH a1
replace konplan.naziv WITH ALLTRIM(ALLTRIM(a2)+" "+ALLTRIM(a3))
replace konplan.adresa	WITH a4
replace konplan.mesto	WITH a5
replace konplan.pib		WITH a6

APPEND BLANK
replace konplan.konto WITH "4330"
replace konplan.analitika	WITH a1
replace konplan.naziv WITH ALLTRIM(ALLTRIM(a2)+" "+ALLTRIM(a3))
replace konplan.adresa	WITH a4
replace konplan.mesto	WITH a5
replace konplan.pib		WITH a6

APPEND BLANK
replace konplan.konto WITH "1500"
replace konplan.analitika	WITH a1
replace konplan.naziv WITH ALLTRIM(ALLTRIM(a2)+" "+ALLTRIM(a3))
replace konplan.adresa	WITH a4
replace konplan.mesto	WITH a5
replace konplan.pib		WITH a6

APPEND BLANK
replace konplan.konto WITH "4300"
replace konplan.analitika	WITH a1
replace konplan.naziv WITH ALLTRIM(ALLTRIM(a2)+" "+ALLTRIM(a3))
replace konplan.adresa	WITH a4
replace konplan.mesto	WITH a5
replace konplan.pib		WITH a6

SELECT kupdob
SKIP
ENDDO

RETURN



