Class WEB.TOUR.SITE Extends %ZEN.Component.page
{
Parameter APPLICATION = "WEB.ApplicationWeb";
Parameter PAGENAME = "TOUR.SITE";
Parameter DOMAIN = "WEB";
/// ведение турниров на сайте
Parameter RESOURCE = "WEB_TOUR_SITE";
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"
xmlns:demo="
http://www.intersystems.com/zendemo"
title="Ведение турниров на сайте">
<demo:gbTitle id="title" title="Web портал РТТ"/>
<locatorBar id="locator" OnGetQuickLinks="GetQuickLinks">
<locatorLink caption="Домашняя страница" title="Домашняя страница" href="WEB.Home.cls"/>
<!--<locatorLink caption="Заявки игроков" title="Заявки игроков" href="WEB.PLAYER.CLAIM.cls"/>
<locatorLink caption="Оплата" title="Ввод/редактирование оплаты игроками членских взносов РТТ"
href="WEB.PLAYER.PLPAYMENT.cls"/>
-->
</locatorBar>
<titlePane align="center" title="Ведение турниров на сайте"/>
<vgroup enclosingStyle="padding-left: 5px;">
<!--
<hgroup>
<select id="pTour" displayList="Все турниры,Без Entry Deadline,Без EndDate,Без WithDrawal" valueList="0,1,2,3"
showEmpty="false" onchange="zenPage.SelectChange();"/>
<select id="ptYEAR" sql="select distinct YEAR(StartDate) from MT.Tournament" showEmpty="false"
onchange="zenPage.SelectChange();"/>
<select id="ptMONTH" showEmpty="false" onchange="zenPage.SelectChange();"
displayList="Все,Январь,Февраль,Март,Апрель,Май,Июнь,Июль,Август,Сентябрь,Октябрь,Ноябрь,Декабрь"
valueList="0,01,02,03,04,05,06,07,08,09,10,11,12"
/>
<select id="under" displayList="12 Under,14 Under,16 Under,18 Under"
onchange="zenPage.SelectChange();"
valueList="12,14,16,18"/>
</hgroup>
-->
<tableNavigatorBar id="Navi" align="right"
tablePaneId="tabtour"
maxButtons='10'
msgFirstPage="Переход на первую страницу"
msgLastPage="Переход на последнюю страницу"
msgNextPage="Переход на следующую страницу"
msgPreviousPage="Переход на предыдущую страницу"
msgFound ="Всего"
msgOf="из:"
msgPage="Страница "
msgPageSize="Строк на стр."
showPageSize="1"
showFilter="0"
hidden="0"
/>
<tablePane id="tabtour"
caption="Выбор турнира"
nowrap="false"
headerLayout="headersOnTop"
whereClause="CLAIM->dop=1"
orderByClause="CLAIM->startDate"
useKeys="true"
useSnapshot="true"
maxRows="10000"
pageSize="10"
initialExecute="false"
valueColumn="ID"
onselectrow="zenPage.TourSelect(zenThis);"
OnCreateResultSet="CreateT"
onrefresh="zenPage.tabUpdate(zenThis);"
showQuery="0">
<!--
onupdate="zenPage.tabUpdate(zenThis);"
-->
<column colName="ID" hidden="1"/>
<column colExpression="CLAIM->tourName" colName="Name" header="Название"
filterType="text" filterOp="[" width="300" />
<column colExpression="TOCHAR(CLAIM->startDate,'dd/mm/yy')" colName="SD"
header="Дата начала" width="72" filterType="text" filterOp="%STARTSWITH"/>
<column colExpression="CLAIM->ccrp->idCity->Name" colName="CITY" header="Город" width="160"
filterType="text" filterOp="%STARTSWITH"/>
<column colExpression="AgeGroup->shortName" colName="AG" header="ВГ" width="45" />
<column colName="tourSex" header="Пол" width="95"
filterType="enum" filterOp="="
filterEnum="0,М,Ж,МЖ,DBL МЖ,DBL М,DBL Ж,DBL М+Ж,COM МЖ,COM М,COM Ж,COM М+Ж"/>
<column colExpression="IFNULL(CATEGORY,'',CATEGORY->Name)||IFNULL(CATCLASS,'',CATCLASS)" colName="CAT" header="Кат." width="35"/>
<column colExpression="CASE hasRes WHEN 1 THEN 'да' ELSE 'нет' END" colName="RES" header="Рез.?" width="38"/>
<column colName="spisok" header="Список" OnDrawCell="DrawFileName"
colExpression="ISNULL(fileNameMale,'')||'^^'||ISNULL(fileNameFemale,'')||'^^'||ISNULL(hasShow,0)" />
<column colName="setki" header="Сетки" OnDrawCell="DrawFileName"
colExpression="ISNULL(fileDrawMale,'')||'^^'||ISNULL(fileDrawFemale,'')" />
<column colName="tStart" colExpression="CASE hasStarted WHEN 1 THEN 'да' ELSE 'нет' END" header="Нач.?" width="38"/>
<condition colName="tStart" predicate="EQ" value="да" cellStyle="background: #ACE1AF;"/>
<condition colName="tStart" predicate="EQ" value="нет" cellStyle="background: #F88379;"/>
<condition colName="tourSex" predicate="EQ" value="М" cellStyle="background: #ADD8E6;"/>
<condition colName="tourSex" predicate="EQ" value="Ж" cellStyle="background: #FFB6C1;"/>
<condition colName="tourSex" predicate="EQ" value="DBL М" cellStyle="background: #ADD8E6;"/>
<condition colName="tourSex" predicate="EQ" value="DBL Ж" cellStyle="background: #FFB6C1;"/>
</tablePane>
<form id="form" hidden="true" enctype="multipart/form-data" target="upload_target">
<radioSet id="rsSex" label="пол:" labelStyle="float: left;" displayList="М,Ж" valueList="1,2" disabled="true"
onchange="zenPage.rsChange(zenThis);"/>
<hgroup>
<fieldSet legend="Файл списков" groupStyle="border:none;width:300px;" cellStyle="padding:5px;"
layout="horizontal">
<fileUpload id="fu1" />
<html OnDrawContent="DrawIco" seed="a" id="ic1"/>
</fieldSet>
<fieldSet legend="Файл сеток" groupStyle="border:none;width:300px;" cellStyle="padding:5px;" containerStyle="padding-left:10px;"
layout="horizontal">
<fileUpload id="fu2"/>
<html OnDrawContent="DrawIco" seed="b" id="ic2"/>
</fieldSet>
</hgroup>
<button id="btnStarted" caption='отметить как "Начавшийся"' onclick="zenPage.btnStart();"
containerStyle="padding-top:5px;padding-bottom:5px;" align="center"/>
<fieldSet legend="Файл расписания" groupStyle="border:none;" cellStyle="padding:10px;"
layout="horizontal" containerStyle="width:300px;" >
<fileUpload name="FileStream" id="FileStream"/>
<!-- <button caption="Прикрепить файл" id="btnLoad" onclick="zenPage.Sub(zen('FileStream').getValue(),zen('tabtour').getValue());"/> -->
<submit caption="Загрузить на сервер"/>
<iframe name="upload_target" hidden="true"/>
</fieldSet>
<!--
<iframe id="iframe" src="WEB.FileUpload.cls" frameBorder="false"
width="450" height="100" scrolling="no"/>
--><text id="tID" />
</form>
</vgroup>
</page>
}
ClassMethod %OnSubmit(pSubmit As %ZEN.Submit) As %Status
{
#dim %session As %CSP.Session
#dim stream As %CSP.BinaryStream=pSubmit.%GetStream("FileStream")
k ^A
s ^A(1)=pSubmit.%GetValue("tID")
;s ^A(1)=pSubmit.%GetValue("rsSex")
q 1
if $IsObject(stream) {
set %session.Data("fileSize")=stream.Size
set %session.Data("fileName")=stream.FileName
}
set %session.Data("proc")=pSubmit.%GetValue("proc")
quit $$$OK
}
ClientMethod tabUpdate(tab) [ Language = javascript ]
{
var cb = document.getElementById('ico1');
var cb1 = document.getElementById('ico2');
cb1.style.border='3 solid green';
cb1.title = 'прикрепить СЕТКИ';
cb.style.border='3 solid green';
cb.title = 'прикрепить СПИСКИ';
if (tab.selectedIndex<0) {
zen('form').setHidden(true);
return;
}
var data = tab.getRowData(tab.selectedIndex);
if (tab.getValue()!=data['ID']) {
tab.setProperty('selectedIndex',-1);
zen('form').setHidden(true);
return;
}
if (data['tourSex']=='МЖ'||data['tourSex']=='DBL МЖ') return;
var ar1 = data['spisok'].split('^^');
var ar2 = data['setki'].split('^^');
var rs = zen('rsSex');
if (data['tourSex']=='М'||data['tourSex']=='DBL М') rs.setValue(1);
if (data['tourSex']=='Ж'||data['tourSex']=='DBL Ж') rs.setValue(2);
if (data['tourSex']=='DBL М+Ж') {rs.setValue(1); rs.setDisabled(true);}
var indx = rs.getValue()-1; //alert(data['spisok']+'\n'+data['setki']);
if (ar1[indx]!='') {
cb.style.border='3 solid red';
cb.title = 'открепить СПИСКИ';
}
else {
cb.style.border='3 solid green';
cb.title = 'прикрепить СПИСКИ';
}
if (ar2[indx]!='') {
cb1.style.border='3 solid red';
cb1.title = 'открепить СЕТКИ';
}
else {
cb1.style.border='3 solid green';
cb1.title = 'прикрепить СЕТКИ';
}
}
ClientMethod btnStart() [ Language = javascript ]
{
var tab = zen('tabtour');
var res = this.Save(2,tab.getValue());
if (res==0) {alert('Произошла ошибка, повторите действие'); return;}
tab.executeQuery();
var btn = zen('btnStarted');
if (btn.getProperty('caption')=='снять отметку "Начавшийся"') {
btn.setProperty('caption','отметить как "Начавшийся"');
btn.setProperty('controlStyle','background:#F88379;');
}
else {
btn.setProperty('caption','снять отметку "Начавшийся"');
btn.setProperty('controlStyle','background:#ACE1AF;');
}
}
ClientMethod rsChange(cbr) [ Language = javascript ]
{
var tab = zen('tabtour');
var data = tab.getRowData(tab.selectedIndex);
var ar1 = data['spisok'].split('^^');
var ar2 = data['setki'].split('^^');
var cb = document.getElementById('ico1');
var cb1 = document.getElementById('ico2');
var indx = cbr.getValue()-1; //alert(data['spisok']+'\n'+data['setki']);
if (ar1[indx]!='') {
cb.style.border='3 solid red';
cb.title = 'открепить СПИСКИ';
}
else {
cb.style.border='3 solid green';
cb.title = 'прикрепить СПИСКИ';
}
if (ar2[indx]!='') {
cb1.style.border='3 solid red';
cb1.title = 'открепить СЕТКИ';
}
else {
cb1.style.border='3 solid green';
cb1.title = 'прикрепить СЕТКИ';
}
}
ClientMethod FU(par) [ Language = javascript ]
{
var str = '';
var rsSex = zen('rsSex');
if (rsSex.getValue()=='') {
rsSex.focus();
alert('Пожалуйста укажите пол !!!');
return;
}
var tab = zen('tabtour');
var data = tab.getRowData(tab.selectedIndex);
var tourName = data['Name'];
var idFU = par==1 ? 'fu1':'fu2';
var fu1 = zen(idFU);
var ar = fu1.getValue().split('\\');
var ar2 = data[par==1 ? 'spisok':'setki'].split('^^');
if (idFU=='fu1'&&ar2[2]==1) {
alert('Прежде чем выполнять действия со списками, снимите пожалуйста признак "Показывать списки"\nна странице "Ввод и редактирование заявок игроков на турниры!"');
return;
}
if ((rsSex.getValue()==1 ? ar2[0]:ar2[1])!='') {
str = 'Турнир: '+tourName + ' '+(rsSex.getValue()==1 ? 'ЮНОШИ':'ДЕВУШКИ');
if (fu1.getValue()!='') {
str += '\nПодтверждаете замену старого файла ' + (par==1 ? 'списков ':'сеток ');
str += (rsSex.getValue()==1 ? ar2[0]:ar2[1]) + '\nновым файлом '+ (par==1 ? 'списков ':'сеток ') + ar[ar.length-1] + '?';
}
else {
str += '\nПодтверждаете открепление файла '+(par==1 ? 'списков ':'сеток ') + (rsSex.getValue()==1 ? ar2[0]:ar2[1]) +'?';
}
}
else {
if (fu1.getValue()=='') {alert('Чтобы прикрепить файл его необходимо выбрать!!!'); fu1.focus(); return;}
str = 'Турнир: '+tourName + ' '+(rsSex.getValue()==1 ? 'ЮНОШИ':'ДЕВУШКИ');
str += '\nПодтверждаете прикрепление файла '+(par==1 ? 'списков ':'сеток ') + ar[ar.length-1] +'?';
}
if (!confirm(str)) {alert('на выход');return;}
var res = this.Save(1,tab.getValue(),par,rsSex.getValue(),ar[ar.length-1]);
if (res==0) {alert('Произошла ошибка, повторите действие');return;}
else {
tab.executeQuery(true);
zen('form').reset();
zen('ic1').refreshContents();
zen('ic2').refreshContents();
}
}
Method Save(par, idTour, pole, tSex, tFN) As %String [ ZenMethod ]
{
s tObj = ##class(RTT.TOURNAMENT).%OpenId(idTour,,.sc)
if $$$ISERR(sc) q 0
if par=1 {
if $g(pole)=1 { //список
if $g(tSex)=1 {s tObj.fileNameMale = $s($g(tFN)'="":$g(tFN),1:"") } //имя файла списков (мальчики)
elseif $g(tSex)=2 {s tObj.fileNameFemale = $s($g(tFN)'="":$g(tFN),1:"")} //имя файла списков (девочки)
}
elseif $g(pole)=2 { //сетки
if $g(tSex)=1 {s tObj.fileDrawMale = $s($g(tFN)'="":$g(tFN),1:"") } //имя файла сеток (мальчики)
elseif $g(tSex)=2 {s tObj.fileDrawFemale = $s($g(tFN)'="":$g(tFN),1:"")} //имя файла сеток (девочки)
}
}
elseif par=2 {
s tObj.hasStarted = $s(tObj.hasStarted=1:0,0:1,1:1)
}
s res=tObj.%Save()
if $$$ISERR(res) q 0
q 1
}
ClientMethod TourSelect(tab) [ Language = javascript ]
{
if (tab.selectedIndex<0) return;
var form = zen('form');
if (tab.getValue()=='') {form.setHidden(true);return;}
form.reset();
form.setHidden(false);
/*
var ifr=zen('iframe');
ifr.src='WEB.FileUpload.cls?TYPE=1&ID='+tab.getValue();
ifr.refreshContents();
*/
zen('tID').setValue(tab.getValue());
var data = tab.getRowData(tab.selectedIndex);
var rs = zen('rsSex');
if (data != null) {
if (data['tourSex']=='М'||data['tourSex']=='DBL М'||data['tourSex']=='DBL М+Ж') {rs.setValue(1);rs.setDisabled(true);}
else if (data['tourSex']=='Ж'||data['tourSex']=='DBL Ж') {rs.setValue(2);rs.setDisabled(true);}
else {rs.setValue('');rs.setDisabled(false);rs.refreshContents();}
if (data['tStart']=='да') {
var btn = zen('btnStarted');
btn.setProperty('caption','снять отметку "Начавшийся"');
btn.setProperty('controlStyle','background:#ACE1AF;');
}
else {
var btn = zen('btnStarted');
btn.setProperty('caption','отметить как "Начавшийся"');
btn.setProperty('controlStyle','background:#F88379;');
}
var cb = document.getElementById('ico1');
var cb1 = document.getElementById('ico2');
var spis=data['spisok'].split('^^');
if (spis[2]==0) {
if (spis[0]!=''||spis[1]!='') {
cb.style.border='3 solid red';
cb.title = 'открепить СПИСКИ';
}
else {
cb.style.border='3 solid green';
cb.title = 'прикрепить СПИСКИ';
}
}
else if (spis[2]==1) {
cb.style.border='3 solid red';
cb.title = 'открепить СПИСКИ';
}
//alert(data['spisok'])
if (data['setki']!='^^') {
cb1.style.border='3 solid red';
cb1.title = 'открепить СЕТКИ';
}
else {
cb1.style.border='3 solid green';
cb1.title = 'прикрепить СЕТКИ';
}
}
var cb = document.getElementById('ico1');
var cb1 = document.getElementById('ico2');
if (rs.getValue()=='') {
cb.style.border='';
cb.title = '';
cb1.style.border='';
cb1.title = '';
return;
}
}
Method DrawIco(pSeed As %String) As %Status
{
if pSeed="a" &html<<img style="cursor: pointer;" id='ico1' src='images/Edit.png' width='50px' height='50px' onclick="zenPage.FU(1);"/>>
if pSeed="b" &html<<img style="cursor: pointer;" id='ico2' src='images/grid3.JPG' width='50px' height='50px' onclick="zenPage.FU(2);"/>>
q $$$OK
}
Method DrawFileName(pTable As %ZEN.Component.tablePane, pName As %String, pSeed As %String) As %Status
{
s p1 = $p($tr(%query(pName),$c(0)),"^^")
s p2 = $p($tr(%query(pName),$c(0)),"^^",2)
s p3 = $p($tr(%query(pName),$c(0)),"^^",3)
s s = %query("tourSex")
if ((s="DBL М")||(s="DBL М+Ж")||(s="COM М")||((s="COM М+Ж"))) {s s="М"}
elseif ((s="DBL Ж")||(s="COM Ж")) {s s="Ж"}
if ((s="МЖ")||(s="DBL МЖ")||(s="COM МЖ")) {
if (p1'="")&&(p2'="") { &html<#(p1)#<br>#(p2)#> }
ElseIf p1'="" { &html<#(p1)#<br> > }
elseif p2'="" { &html< <br>#(p2)#> }
elseif p3=1 {&html<списки из базы>}
else {&html< >}
}
elseif s="М" {
if p1'="" { &html<#(p1)#> }
elseif p3=1 {&html<списки из базы>}
else {&html< >}
}
elseif s="Ж" {
if p2'="" { &html<#(p2)#> }
elseif p3=1 {&html<списки из базы>}
else {&html< >}
}
Quit $$$OK
}
Method DrawSex(pTable As %ZEN.Component.tablePane, pName As %String, pSeed As %String) As %Status
{
s p = %query(pName)
if p="МЖ" &html<М<br>Ж>
else &html<#(p)#>
Quit $$$OK
}
Method CreateT(Output tSC As %Status, pInfo As %ZEN.Auxiliary.QueryInfo) As %ResultSet
{
Set tRS = ""
Set tSC = $$$OK
Set tTOP=$S(+pInfo.rows=0:"",1:" TOP "_(pInfo.rows+1)_" ")
Set tSELECT=""
Set tFROM="RTT.TOURNAMENT" ;pInfo.tableName
Set tWHERE=""
Set tORDERBY=pInfo.orderByClause
If (pInfo.sortColumn'="") {
Set tORDERBY=pInfo.sortColumn_$S(pInfo.sortOrder="desc":" desc",1:"")_$S(tORDERBY="":"",1:",") _ tORDERBY
}
Set tGROUPBY=pInfo.groupByClause
Set n=$O(pInfo.columns(""))
While (n'="") {
If ($G(pInfo.columns(n))'="") {
#; process column expression, if present
Set tColExpr=$G(pInfo.columnExpression(pInfo.columns(n)))
Set tColExpr=$S(tColExpr'="":tColExpr_" ",1:"")_pInfo.columns(n)
Set tSELECT=tSELECT_$S(tSELECT="":"",1:",")_tColExpr
}
Set n=$O(pInfo.columns(n))
}
If ($GET(pInfo.filters("Name"))'="") {
Set tWHERE=tWHERE_$SELECT(tWHERE="":"",1:" AND ") _
"UPPER("_pInfo.columnExpression("Name")_")"_pInfo.filterOps("Name")_" UPPER('"_ pInfo.filters("Name")_"')"
}
If ($GET(pInfo.filters("SD"))'="") {
Set tWHERE=tWHERE _ $SELECT(tWHERE="":"",1:" AND ")
s op = $e(pInfo.filters("SD"),1)
if op?1P {
s val = $zdh($e(pInfo.filters("SD"),2,*),4,,6)
s tWHERE=tWHERE_"TOCHAR(CLAIM->startDate) "_op_$s(op'="=":"= ",1:" ")_val
}
elseif pInfo.filters("SD")?4N {
s tWHERE=tWHERE_"YEAR(CLAIM->startDate)"_pInfo.filterOps("SD")_" '"_ pInfo.filters("SD")_"'"
}
else { s tWHERE=tWHERE _pInfo.columnExpression("SD")_pInfo.filterOps("SD")_" '"_ pInfo.filters("SD")_"'"}
}
If ($GET(pInfo.filters("CITY"))'="") {
Set tWHERE=tWHERE_$SELECT(tWHERE="":"",1:" AND ") _
pInfo.columnExpression("CITY")_pInfo.filterOps("CITY")_" '"_ pInfo.filters("CITY")_"'"
}
If ($GET(pInfo.filters("tourSex"))'="") {
Set tWHERE=tWHERE_$SELECT(tWHERE="":"",1:" AND ")_
"tourSex "_pInfo.filterOps("tourSex")_" '"_ pInfo.filters("tourSex")_"'"
}
If (pInfo.whereClause'="") {
If (tWHERE="") Set tWHERE=pInfo.whereClause
Else Set tWHERE=tWHERE_" AND ("_ pInfo.whereClause_")"
}
If tFROM="" Quit $$$ERROR($$$GeneralError,"Missing FROM clause")
If tSELECT="" Quit $$$ERROR($$$GeneralError,"Missing SELECT list")
Set sql="SELECT "_tTOP_" "_tSELECT_" FROM "_tFROM
Set:tWHERE'="" sql= sql _ " WHERE "_tWHERE
If (tGROUPBY'="") Set sql=sql_" GROUP BY "_tGROUPBY
If (tORDERBY'="") Set sql=sql_" ORDER BY "_tORDERBY
Set tRS=##class(%ResultSet).%New()
Set tSC=tRS.Prepare(sql)
Set pInfo.queryText=sql
Quit tRS
}
ClassMethod GetQuickLinks(Output pLinks) As %Status
{
Quit %application.GetQuickLinks(.pLinks)
}
Method %OnDrawHTMLBody() As %Status
{
s tab = %page.%GetComponentById("tabtour")
s pg = tab.columns.GetAt(3)
s pg.filterValue = ">"_$zd(+$H+(1-$zd(+$H,10)),4,,2)
Quit $$$OK
}
/// This client event, if present, is fired when the page is loaded.
ClientMethod onloadHandler() [ Language = javascript ]
{
var tab = zen('tabtour');
var column = tab.columns[1];
if ('' != column.getColName() && '' != column.filterType) {
ctrl = tab.findElement('filter1_' + column.getColName())
if (ctrl) ctrl.focus();
}
}
}
