USE d:\orientsilver\baze\roba exclusive IN 0

USE j:\clarion\artikli.dbf ALIAS artikli IN 0

SELECT roba
ZAP


SELECT artikli
GOTO top
DO WHILE !EOF()
a1=artikli.sifra
a2=artikli.naziv
a3=artikli.jm
a4=artikli.grupa
a5=artikli.barkod
a6=artikli.nabcen
a7=artikli.vpcen
a8=artikli.mpcena
a9=artikli.masa
SELECT roba
APPEND BLANK
replace roba.sifrob WITH a1
replace roba.naziv	WITH a2
replace roba.jm		WITH a3
replace roba.grupa 	WITH a4
replace roba.tarifa WITH "18"
replace roba.barkod WITH a5
replace roba.nabcen	WITH a6
replace roba.vpcen	WITH a7
replace roba.procen	WITH a8
replace roba.masa	WITH a9
SELECT artikli
SKIP
ENDDO

