CLOSE TABLES

USE d:\2009\pod\august\kupdob ALIAS skup IN 0
USE d:\2009\robno\baze\kupdob ALIAS kupdob EXCLUSIVE IN 0

SELECT kupdob
ZAP

SELECT skup	
GOTO top
DO WHILE !EOF()
a1=ppid
a2=preduzece
a3=kupdob
a4=SUBSTR(UPPER(naziv),1,50)
a41=SUBSTR(UPPER(naziv),51,100)
a4=konvertuj(a4,"CCC","È")
a4=konvertuj(a4,"CC","Æ")
a4=konvertuj(a4,"DJ","Ð")
a4=konvertuj(a4,"ZZ","Ž")
a4=konvertuj(a4,"SS","Š")
a41=konvertuj(a41,"CCC","È")
a41=konvertuj(a41,"CC","Æ")
a41=konvertuj(a41,"DJ","Ð")
a41=konvertuj(a41,"ZZ","Ž")
a41=konvertuj(a41,"SS","Š")

a5=pravno
a6=UPPER(adresa)
a6=konvertuj(a6,"CCC","È")
a6=konvertuj(a6,"CC","Æ")
a6=konvertuj(a6,"DJ","Ð")
a6=konvertuj(a6,"ZZ","Ž")
a6=konvertuj(a6,"SS","Š")
a7=UPPER(mesto)
a7=konvertuj(a7,"CCC","È")
a7=konvertuj(a7,"CC","Æ")
a7=konvertuj(a7,"DJ","Ð")
a7=konvertuj(a7,"ZZ","Ž")
a7=konvertuj(a7,"SS","Š")
a8=drz
a81=tel
a9=fax
a10=email
a11=napomena
a12=pib
a13=dalipdv
a14=jmbg
a15=pasivan
a16=timest
IF ALLTRIM(a2)<>"1"
	SKIP
	LOOP
ENDIF
	
SELECT kupdob
APPEND BLANK
replace kupdob.kupdob 	WITH a3
replace kupdob.naziv	WITH a4
replace kupdob.naziv1	WITH a41
replace kupdob.adresa	WITH a6
replace kupdob.mesto	WITH a7
replace kupdob.tel1		WITH a81
replace kupdob.fax		WITH a9
replace kupdob.email	WITH a10
replace kupdob.pib		WITH a11
IF A13="1"
	replace kupdob.pdv		WITH "D"
ELSE
	REPLACE KUPDOB.PDV		WITH "N"
ENDIF
replace kupdob.jmbg		WITH a14
REPLACE KUPDOB.STRANAC	WITH A8
SELECT skup
SKIP
ENDDO
RETURN



FUNCTION KONVeRTUJ(STA,menjam,CIME)
Ml1=LEN(ALLTRIM(sta))
ml2=LEN(ALLTRIM(cime))
ml3=LEN(ALLTRIM(menjam))
FOR i=1 TO ml1
mpoz=AT(menjam,sta)
IF mpoz>0
	sta1=SUBSTR(sta,1,mpoz-1)
	sta1=sta1+cime+SUBSTR(sta,mpoz+ml3,ml1-(mpoz+ml3-1))
	sta=sta1
ENDIF
NEXT i
return(sta)	
