OPEN DATABASE D:\ZOOVET\BAZE\STR
USE ROBA ALIAS ROBA EXCLUSIVE IN 0

USE d:\ZOOVET\DOKUMENTI\MRO ALIAS ARTIKLI exclusive IN 0

SELECT roba
ZAP


SELECT artikLI
GOTO top
DO WHILE !EOF()
a1=artikli.sifra1
a2=artikli.naziv
a4=artikli.grupa
a8=artikli.pcena
a9=artikli.STOPA
SELECT roba
APPEND BLANK
replace roba.sifrob WITH a1
replace roba.naziv	WITH a2
replace roba.grupa 	WITH a4
IF A9="01"
	replace roba.tarifa WITH "8"
ENDIF
IF A9="02"
	replace roba.tarifa WITH "18"
ENDIF
replace roba.barkod WITH a1
replace roba.procen	WITH a8
SELECT artikli
SKIP
ENDDO

