SET DEFAULT TO f:\psenica\robno\baze
OPEN DATABASE belcar
USE kupdob ALIAS kupdob IN 0

USE f:\sasa\fin\kupci ALIAS kupci IN 0
SELECT kupdob
ZAP

SELECT kupci
GOTO top
DO WHILE !EOF()
SCATTER memvar
SELECT kupdob
APPEND BLANK
	replace kupdob.kupdob WITH m.sifra
	replace kupdob.naziv	WITH m.naziv
	replace kupdob.mesto	WITH m.mesto
	replace kupdob.ptt		WITH ALLTRIM(STR(m.ptt))
	replace kupdob.adresa	WITH m.adresa
	replace kupdob.tel1		WITH m.telefon
	replace kupdob.fax		WITH m.telefax
	replace kupdob.ziro		WITH m.ziro
	replace kupdob.napomena	WITH m.kontakt
	replace kupdob.email	WITH m.e_mail
	replace kupdob.www		WITH m.prezentaci
	replace kupdob.maticni	WITH m.pib
	IF m.pdv=.t.
		replace kupdob.pdv		WITH "D"
	ELSE
		replace kupdob.pdv		WITH "N"
	endif	
	IF m.drzava=0
		replace kupdob.stranac	WITH 4
	endif
	IF m.drzava=1
		replace kupdob.stranac	WITH 2
	endif
	IF m.drzava=2
		replace kupdob.stranac	WITH 3
	endif
	IF m.drzava=3
		replace kupdob.stranac	WITH 1
	ENDIF
	
SELECT kupci 
skip
ENDDO
RETURN
