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\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


local liExitCode as integer 
liExitCode = tzunarc(SYS(5)+"\3ka\Applications\inst\upgrade\inst.tza","\3ka\Applications\","*.*")
if liExitCode > 0	
	upgradeporuka('INSTALACIJA aplikacija  '+CURDIR()+'upgrade\exe.tza'+'...OK')
ELSE
	MESSAGEBOX('Greška :' + str(liExitcode) + ' kod instalacije je potrebno izaći iz svih aplikacije tvrtke 3ka',16)		
ENDIF


if !llCopyOnly
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)
endif


RETURN 



FUNCTION upgradeporuka(cporuka)

	? cporuka
	return 	.t.
	
ENDFUNC