*!*Upgrade
local My as My,errorlog as string
errorlog=''

wait "Upgrade u tijeku ... " window nowait 

IF !DIRECTORY(SYS(5)+"\3ka\Applications\inst\upgrade\backup")
	MD SYS(5)+"\3ka\Applications\inst\upgrade\backup"
ENDIF

*!*Download sekcija

csfile='http://3ka.hr/pub/hr/test/inst/inst.zip'			  
cdfile=SYS(5)+"\3ka\Applications\inst\upgrade\inst.tza"

IF downloadFile(csfile,cdfile,.t.)=0
	upgradeporuka('DOWNLOAD '+csfile+'...OK')
ELSE
	upgradeporuka('DOWNLOAD '+csfile+'...ERROR')
ENDIF



IF tzunarc(SYS(5)+"\3ka\Applications\inst\upgrade\inst.tza","\3ka\Applications\","*.*")=0
	upgradeporuka('INSTALACIJA aplikacija  '+CURDIR()+'upgrade\exe.tza'+'...OK')
ELSE
	MESSAGEBOX('Greška : kod instalacije je potrebno izaći iz svih aplikacije tvrtke 3ka',16)		
ENDIF
olddir=curdir()
cd ("\3ka\Applications\inst\")
	DO (sys(5)+"\3ka\Applications\inst\instupd.exe")
	DO (sys(5)+"\3ka\Applications\inst\import_etalon.exe")
cd (olddir)

RETURN 



FUNCTION upgradeporuka(cporuka)

	? cporuka
	return 	.t.
	
ENDFUNC