SET DATE GERMAN
SET CENTURY on

OPEN DATABASE d:\orientsilver600\baze\str 

USE kalkstav ALIAS kalkstav IN 0
SELECT kalkstav 
zap

USE roba ALIAS roba IN 0
SELECT roba
GOTO top
DO WHILE !EOF()
IF roba.kolicina=0
	SKIP
	LOOP
ENDIF
a1=roba.sifrob
a2=roba.kolicina
a3=roba.nabcen
a4=roba.procen
SELECT kalkstav
APPEND BLANK
replace kalkstav.brdok WITH "000001"
replace kalkstav.datum WITH CTOD("28.03.2011")
replace kalkstav.sifrob WITH a1
replace kalkstav.kolicina WITH a2
replace kalkstav.ncena WITH a3
replace kalkstav.pcena WITH a4
replace kalkstav.tarifa WITH "18"
SELECT roba
SKIP
ENDDO
