CLOSE ALL
SET DELETED ON
USE F:\VELE6\PODACI\RO01 ALIAS R1 SHARED IN 0
SELECT R1
USE C:\ADA\BAZE\ROBA ALIAS ROBA IN 0
SELECT ROBA
ZAP
SELECT R1
GOTO TOP
DO WHILE !EOF()
A=R1.RO01CTRL
B=R1.RO01NAZ
C=R1.JM
SELECT ROBA
APPEND BLANK
REPLACE SIFROB 	WITH A
REPLACE NAZIV	WITH B
REPLACE JM		WITH C
REPLACE TARIFA WITH "18"
SELECT R1
SKIP
ENDDO
RETURN
