CLOSE ALL

OPEN DATABASE d:\2009\fin\baze\fin

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

USE d:\2009\pod\jul\konplan ALIAS kp1 IN 0

SELECT kp1
GOTO top
DO WHILE !EOF()
mkon=kp1.konto
mnaz =SUBSTR(kp1.opis,1,80)
mnaz1=substr(kp1.opis,81,80)
mnaz2=SUBSTR(kp1.opis,162,80)

SELECT konplan
APPEND BLANK
replace konplan.konto  WITH mkon
replace konplan.naziv  WITH mnaz
replace konplan.naziv1 WITH mnaz1
replace konplan.naziv2 WITH mnaz2

SELECT kp1
SKIP
ENDDO
RETURN
