Class WEB.CLS.CLSRaschet Extends %ZEN.Component.page
{
Parameter APPLICATION = "WEB.ApplicationWeb";
Parameter PAGENAME = "CLSRaschet";
Parameter DOMAIN = "WEB";
Property str As %ZEN.Datatype.caption;

XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ]
{
<page enclosingStyle="background: #c5d6d6; background-repeat: repeat-x;
background-image: url(/csp/broker/images/sidebargradient.png);" 
xmlns="http://www.intersystems.com/zen" title="">
<form id="status" hidden="#(%page.GetStatus1())#">
<timer id="timer"  
	ontimeout="zenPage.msgTimer(zenThis);" 
	timeout="5000"/>
<label id="strStatus" value="Статус расчета: #(%page.GetStatusTCLS())#" 
enclosingStyle="font:bold; font-size:18; margin-bottom:20;"/>
<label value="Время начала расчета: #(%page.GetStartTime())#"/>
<label value="Приблизительное время окончания расчета: #(%page.GetEndTime())#"/>
<label value="Осталось до окончания расчета: #(%page.GetTime())# минут"
enclosingStyle="margin-top:20;"/>
</form>
</hgroup>
 </page>
}

ClassMethod Raschet(rDat As %String, type As %Boolean) As %String [ ZenMethod ]
{
	s PLID = $g(PLID)
	s type = $g(type)
	s rDat = $g(rDat)
	s res =  1 
	s r = $d(^R.STATUS)
	i r'=0 {
		s r = $d(^R.STATUS("Error"))
		i r'= 0  { 
			s res = $p($g(^R.STATUS("Error")),"Error! ", 2 )
			&js<alert('Во время расчета классификации произошла ошибка\n#(res)#');>
			s res =  0 
		}
		else {
			&js<alert('В данный момент идет расчет классификации!\nПовторный расчет классификации невозможен!');>
			s res =  0 
		}
	}
	q:res= 0   1 
	j ##class(RTT.TCLStest).ALLCLS($zdh(rDat, 3 ),type)
	s time = $PIECE($HOROLOG,",", 2 )
	&js<alert('Расчет классификации запущен в #($ZTIME(time,2))#\nПриблизительное время окончания расчета #($ZTIME((time+3000),2))#')> 
	q  0 
}

Method calendarSettings(settings) [ Language = javascript ]
{
	settings.monthList = "Январь,Февраль,Март,Апрель,Май,Июнь,Июль,Август,Сентябрь,Октябрь,Ноябрь,Декабрь";
	settings.dayList = "Вс,Пн,Вт,Ср,Чт,Пт,Сб";
	settings.firstDayOfWeek= 1 ;
}

ClassMethod GetQuickLinks(Output pLinks) As %Status
{
	#; dispatch to our application class
	Quit %application.GetQuickLinks(.pLinks)
}

ClassMethod pGetDate() As %String
{
	s a = $zd($h)
	s $p(a,"/", 2 ) =  1 
	q $zd($zdh(a), 3 )
}

ClassMethod GetStatus() As %Boolean
{
	if $d(^R.STATUS)= 0  q  0 
	q  1 
}

ClassMethod GetStatus1() As %Boolean
{
	if $d(^R.STATUS)'=0 q 0
	q 1
}

ClassMethod GetStartTime()
{
	q:$d(^R.STATUS("StartTime"))'= 0  $ZTIME($g(^R.STATUS("StartTime")), 2 )
	q  0 
}

ClassMethod GetEndTime()
{
	q:$d(^R.STATUS("StartTime"))'=0 $ZTIME(($g(^R.STATUS("StartTime"))+3000),2)
	q 0
}

ClassMethod GetTime()
{
	if $d(^R.STATUS("StartTime"))'= 0  {
		s endtime = $g(^R.STATUS("StartTime"))+ 3000 
		s curtime = $PIECE($HOROLOG,",", 2 )
		q:endtime>curtime $ZTIME((endtime-curtime), 1 )		
	}
	q  0 
}

ClassMethod GetStatusTCLS() As %String [ ZenMethod ]
{
	if $d(^R.STATUS)'=0 {
		if $d(^R.STATUS("Error")) {
			s %page.str="Error"
			q $g(^R.STATUS("Error"))
		}
		q "Расчет запущен"
	}
	q "Расчет окончен"
}

Method msgTimer(timer) [ Language = javascript ]
{
	if (this.str != 'Error') {
		var html = this.getComponentById('status');
		zenASSERT(html,"Unable to find html object",arguments);
		html.refreshContents();
		timer.startTimer();
	}
}

}