SET DELETED ON
CLOSE ALL

USE \\galileo\2009\FIN2009\BAZE\KONPLAN ALIAS KONPLAN IN 0
USE D:\2009\POD\april\konplan.DBF ALIAS KP IN 0

SELECT KP
GOTO TOP
DO WHILE !EOF()
A1=KP.KONTO
*ML=LEN((A1))
*B=SUBSTR(A1,1,4)
*C=SUBSTR(A1,5,ML-5)
N1=SUBSTR(KP.naziv,1,80)
N2=SUBSTR(KP.naziv,81,80)
N3=SUBSTR(KP.naziv,161,80)
SELECT KONPLAN
APPEND BLANK
REPLACE KONPLAN.KONTO 		WITH a1
*REPLACE KONPLAN.ANALITIKA 	WITH C
REPLACE KONPLAN.NAZIV		WITH N1
REPLACE KONPLAN.NAZIV1		WITH N2
REPLACE KONPLAN.NAZIV2		WITH N3
SELECT KP
SKIP
ENDDO
RETURN

