LPARAMETERS toPara

*!*Upgrade
local My as My,errorlog as string, llCopyOnly as Boolean
errorlog=''
IF PCOUNT() = 0
	llCopyOnly = .f.
ELSE
	llCopyOnly = toPara.CopyOnly
ENDIF

wait "Upgrade u tijeku ... " window nowait 

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

*!*Download sekcija

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

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


local liExtCode as integer
upgradeporuka('Raspakiravanje datoteke  ' + SYS(5)+"\3ka\Applications\sped\upgrade\sped.tza")
liExtCode = tzunarc(SYS(5)+"\3ka\Applications\sped\upgrade\sped.tza","\3ka\Applications\","*.*")
upgradeporuka('Raspakiravanje datoteke  ' + SYS(5)+"\3ka\Applications\sped\upgrade\sped.tza"+ " završeno.")
IF liExtCode = 0
	upgradeporuka('Instalacija aplikacija  '+CURDIR()+'upgrade\exe.tza'+'...OK')
ELSE
	MESSAGEBOX('Greška : ' + str(liExtCode,3,0) + 'kod instalacije je potrebno izaći iz svih aplikacije tvrtke 3ka',16)		
ENDIF

if !llCopyOnly
	olddir=curdir()
	cd ("\3ka\Applications\sped\")
	DO (sys(5)+"\3ka\Applications\sped\spedupd.exe")
	DO (sys(5)+"\3ka\Applications\sped\import_etalon.exe")
	cd (olddir)
endif

RETURN 



FUNCTION upgradeporuka(cporuka)

	? cporuka
	return 	.t.
	
ENDFUNC