var DivL = "", DivSel = "tr-s";

function dofnSortLnk(El,w){
  if(!CheckMaskFields(w))return;
    var F=El.getAttribute('FLD');
    if(F!=null)ReSort(w,F);
}

function InitFlds4GetScroll(w,PGN,RSRT,XA){
  $(window,'PAGENUMBER').value = PGN;
  $(window,'RESORT').value = RSRT;
  try{$(window,'XACTION').value=XA;}catch(e){}
}

function ReSort(w,FLD){  
   $(window,'T').value = _MBll + 'sc';
  InitFlds4GetScroll(w,1,FLD,'');
  GetScrollData(w);
}

function GetParentTBL(el){
  var TBL = el;
  do {TBL = TBL.parentNode} while (TBL.tagName != 'TABLE')
  return TBL;
}
function IsFirstRowEmpty(TBL){return (TBL.getAttribute("firstrowempty") != null);}
function getLSTR(TBL){
  var LSTR = TBL.getAttribute("lstr");
  return ((LSTR == null) || (LSTR=='')) ? -1 : LSTR;
}
function setLSTR(LSTR,TBL){TBL.setAttribute("lstr",LSTR);}
function getTRC(TBL){
  var TRC = TBL.getAttribute("trc");
  return TRC == null ? 0 : TRC;
}
function setTRC(TRC,TBL){TBL.setAttribute("trc",TRC);}
function getTRARR(TBL){return TBL.getAttribute("trarr")||(new Array());}
function setTRARR(TRARR,TBL){TBL.setAttribute("trarr",TRARR);}
function getRowAttr(TBL,x){
    try{var i=getLSTR(TBL),at=(i>-1)?TBL.rows.item(i).getAttribute(x):'';}catch(e){}
    return ((at==null)?'':at);
}
function getIDRS(TBL){
    return getRowAttr(TBL,"SIDR");
}
function getLMSSTR(TBL){var x=TBL.getAttribute(selT); return  ((x!=null) && (x.toString()!=''))?x:-1;}
function getMSIDRS(TBL){
	var sR=getLMSSTR(TBL),oAr,iLR,sIDRS='',TBLBR=TBL.tBodies[0].rows;
	try{oAr=sR.split(','),iLR=oAr.length}catch(e){iLR=0}
	if(iLR < 2)return (sR!='-1')?TBLBR.item(parseInt(sR,10)).getAttribute('SIDR'):'';
	for(var i=0;i<iLR;i++){
		if(sIDRS!='')sIDRS+=';';
		sIDRS+=TBLBR.item(parseInt(oAr[i],10)).getAttribute('SIDR');
	}
	return sIDRS;
}
function ClearSelection(TBL,bs){
  var LastSelectedTR = getLSTR(TBL),  
  TRArray = getTRARR(TBL);
  var RWS = TBL.rows, TRSelectCount = getTRC(TBL);
  if ((TRSelectCount == 1) && (RWS.item(LastSelectedTR)!=null)){        
      RWS.item(LastSelectedTR).className = DivL;
      TRArray[LastSelectedTR] = false;
  }
  setLSTR(-1,TBL);
  setTRC(0,TBL);
  setTRARR(TRArray,TBL)
}

function TrOverOut(w,o,b){
    var TBL = GetParentTBL(o);
    if((w.IsScroller)&&(w.onDCEval==''))return;
    if(o.className==DivSel)return;
    TBL.setAttribute("ovr",o.rowIndex);
    o.className=b?'tr-a':'';
}
function SelectSingleRow(el){
  var TBL = GetParentTBL(el),
  LastSelectedTR = el.rowIndex,
  TRArray = getTRARR(TBL);
  ClearSelection(TBL);
  el.className = DivSel;
  TRArray[LastSelectedTR] = true;
  setLSTR(LastSelectedTR,TBL);
  setTRC(1,TBL);
  setTRARR(TRArray,TBL)
}

function RemoveTRSelection(w,ScrollerIDToClearSelection){
  try{w.event.cancelBubble = true;}catch(e){}
  var oSCR = $(window,(ScrollerIDToClearSelection||'SCROLLER')); 
  if (oSCR != null) ClearSelection(oSCR);
}

function TrCL(tr,w,evt){
  if(w.onDCEval=='')return;
  evt.cancelBubble = true;
  var TBL = GetParentTBL(tr);
  try{if(IsFirstRowEmpty(TBL) && (TBL.tBodies[0].rows.length == null)) return;}catch(e){}
  SelectSingleRow(tr);
  setLSTR(tr.rowIndex,TBL); 
  try{fnOnRowSelected()}catch(e){}
}

function TrDCL(tr,w,e){
  if(w.onDCEval=='')return;
  try{if(w.iShowMessageType)return;}catch(e){}
  e.cancelBubble = true;  
  SelectSingleRow(tr);
  if (w.onDCEval != ''){	 
		var bResult=true;
		try{eval.call((w.IsDict?w:mw), w.onDCEval)}catch(e){bResult=false}
		try{if(!bResult)eval(w.onDCEval)}catch(e){alert(e || e.description)}	
  }
}

function GetScrollData(w){
    ScroolToUp(w);   
    $(window,'TIC').value='1';
    try{$(window,'WSTATUS').value = $(window,'SIGNDATA').value = '';}catch(e){}
    try{
        RemoveTRSelection(w);
    }catch(e){}
	CreateBSSHTTPRequest();
	BSSHTTPRequest.init(getFormElements('ScrollerForm'));
	BSSHTTPRequest.resultMethod=Check_ScrollData;
	BSSHTTPRequest.resultHTMLObject= $(window,'ScrollBlock');
	BSSHTTPRequest.sendData();
	
	try{fnOnFilterApply()}catch(e){}
}

function Check_ScrollData(xHTTP){
    var iC=xHTTP.errorCode;
    if(iC>0)fn_alert(w,xHTTP.error);
}

function resetForm(wdf){
    var oEL= wdf.elements,oIel;
    for(var i=0;i<oEL.length;i++){
        oIel=oEL.item(i);
        if(oIel.parentNode.tagName!='PRE'){
            switch(oIel.type){  
                case 'select-one':
                    oIel.selectedIndex=0;
                    break;  
                case 'checkbox':;case 'radio':;
                    oIel.checked=false;
                    break;
                default:oIel.value='';break;    
            }
        }
    }
	try{window.fnOnClearForm()}catch(e){}
}

function GoToPage(Page,w){
  $(window,'T').value=_MBll+'sc';
  InitFlds4GetScroll(w,Page,'','');
  GetScrollData(w);
}

function XFilter(ACTID,w){
 if(ACTID == 'REMOVE'){resetForm(document.forms['ScrollerForm']); return;} 
 if(!CheckMaskFields(w))return;
 if((typeof(window.checkFilterData)=='function' || typeof(window.checkFilterData)=='object') && window.checkFilterData!=false){
		if(!(checkFilterData()))return;
 }

 $(window,'T').value = _MBll + 'sc';
 InitFlds4GetScroll(w,1,'','');
 GetScrollData(w);
}

function getWebShNameById(x){
	switch(parseInt(x,10)){
		case 1227:
				return 'BC_RETPAPERDOC';
			break;
		case 1233:
				return 'BC_RetPayDoc';
			break;
	}
}

function getTrDirs(TBL){
	var sR=getLMSSTR(TBL),oAr,iLR,sTrDirs='',TBLBR=TBL.tBodies[0].rows;
	try{oAr=sR.split(','),iLR=oAr.length}catch(e){iLR=0}
  if (iLR<2)
  {
     oArr = new Array((sR!='-1')?TBLBR.item(parseInt(sR,10)).getAttribute('transferdirection'):'');
    return oArr;
  }  
	for(var i=0;i<iLR;i++){		
		if (TBLBR.item(parseInt(oAr[i],10)).getAttribute('transferdirection'))
		{
		  if(sTrDirs!='')sTrDirs+=';';
          sTrDirs+=TBLBR.item(parseInt(oAr[i],10)).getAttribute('transferdirection');
		}  
	}
	
	return sTrDirs.split(';');
}

function getMtsIds(TBL){
	var sR=getLMSSTR(TBL),oAr,iLR,sMtsIds='',TBLBR=TBL.tBodies[0].rows;
	try{oAr=sR.split(','),iLR=oAr.length}catch(e){iLR=0}
	if (iLR<2)
  {
     oArr = new Array((sR!='-1')?TBLBR.item(parseInt(sR,10)).getAttribute('transfersystemid'):'');
     return oArr;
  }
	for(var i=0;i<iLR;i++){		
		if (TBLBR.item(parseInt(oAr[i],10)).getAttribute('transfersystemid'))
		{
		  if(sMtsIds!='')sMtsIds+=';';
		  sMtsIds+=TBLBR.item(parseInt(oAr[i],10)).getAttribute('transfersystemid');
		 }
	}
	return sMtsIds.split(';');
}

function ReplaceMTSchemes(CustomScheme,TBL)
{
    var csStr = new String(CustomScheme);
    if (csStr.search(/1223/) >= 0)
    {
      var TrDirs = getTrDirs(TBL);
      alert(TrDirs);
      var MtsIds = getMtsIds(TBL);
      var iL = TrDirs.length;		        
      var MTScheme;
      var mtsid , direct;
      for(var i=0;i<iL;i++)
      {
        mtsid = MtsIds[i];
        direct = TrDirs[i];
        if (mtsid !='')
        {   
           switch(mtsid)
           {
             case '1': MTScheme = 'RETMONEYTRANSWU';break;
             case '2': MTScheme = 'RETMONEYTRANSCONT';break;
             case '3': MTScheme = 'RETMONEYTRANSUNI';break;
             case '4': MTScheme = 'RETMONEYTRANSLIDER';break;
           }
           switch(direct)
           {
             case '1': MTScheme = MTScheme+'PAY';break;
             case '2':;case '5':; MTScheme = MTScheme+'CANCEL';break;
             case '3': MTScheme = MTScheme+'MODIFY';break;
             case '4': MTScheme = MTScheme+'COMM';break;
           }
           csStr = csStr.replace(/1223/,MTScheme);
        }
        
      }
                      
    }
    return csStr;
}


function ACTS(w,ACTID,Prm1,Prm2,SchemeName,vAddParam){
  try{if(IsOpera){if(event.preventDefault)event.returnValue=false}}catch(e){}

  ACTID = ACTID.toUpperCase();  
  var TBL = $(window,'SCROLLER'), iRemoved, URL, shStr='', sTsk=null, sActID=null;
  var bMultiSel = TBL.getAttribute('MULTISELECT')=='1';
  var sch=$(window,'SCHEMENAME').value;
  $(w,'XACTION').value = ACTID; 
  var IDR=bMultiSel ? getMSIDRS(TBL):getIDRS(TBL),
        iR=bMultiSel ? getLMSSTR(TBL):getLSTR(TBL);
  try{
    $(window,'SIGNDATA').value = '';
    $(window,'WSTATUS').value = '';
  }catch(e){}
  try{
	$(window,'IsPeriodPay').value = (bMultiSel) ? getMSVAL(TBL,'IsPeriodPay'):getRowAttr(TBL,'IsPeriodPay');
  }catch(e){}
  if(SchemeName && SchemeName!='')$(window,'SCHEMENAME').value = SchemeName;
  if (sch=='WEBCB_DOCUMENTS'){
    shStr=getMSSCHEMES(TBL);
    try{$(window,'SCHEMESLIST').value=shStr}catch(e){};
    sch=shStr;
  }
  var CustomScheme=getRowAttr(TBL,'SCHEME'),TblId = Top.getRowAttr(TBL,'TID');
  switch (ACTID){
        case 'VIEW':;case 'PRN':;case 'DOCS_VIEW':;case 'DOCS_PRN':;case 'BROKER_DOCS_VIEW':;case 'BROKER_DOCS_PRN':;
            $(window,'TIC').value='1';
            $(window,'IDR').value = IDR;
            if(iR < 0)fnHlp(w)
            else{
				var USERKEY =null;
				if ($(window,'SCHEMENAME').value == 'WEBCB_CUSTOMER'){
					USERKEY= bMultiSel ? getMSVAL(TBL,'UK'):getRowAttr(TBL,'UK');
				}
						if (ACTID=='DOCS_VIEW' || ACTID=='DOCS_PRN' || ACTID=='BROKER_DOCS_VIEW' || ACTID=='BROKER_DOCS_PRN'){
							sTsk=(ACTID=='DOCS_VIEW' || ACTID=='DOCS_PRN')?'rt_webcb_02documents.Documents_View_Print':'rt_bc_2documents.Documents_View_Print';
							sActID=(ACTID=='DOCS_VIEW' || ACTID=='BROKER_DOCS_VIEW')?'VIEW':'PRN';
							CustomScheme=(ACTID=='BROKER_DOCS_VIEW' || ACTID=='BROKER_DOCS_PRN')?CustomScheme:sch;
							CustomScheme = ReplaceMTSchemes(CustomScheme,TBL);
						}
						
						((ACTID=='PRN')?fnPrint(window,CustomScheme):fnVIEW(window,sTsk,CustomScheme,sActID,USERKEY));
                wait_hide(window);
            }
        return; 
        case 'CANCEL':
            if(IDR==''){fnHlp(w);return;}
            var St=getRowAttr(TBL,'ST'), sTID=getRowAttr(TBL,'TID'), sTBID;

          //  if(St=='411'){
				if (sTID!='') sTBID = '&TBLID='+sTID; else sTBID='';
                nv.CREATE('RETCANCELLREQUEST','NEW','DIDR='+IDR+'&FROMSCHEME='+(CustomScheme?CustomScheme:$(window,'SCHEMENAME').value)+sTBID);
                try{nv.SetActiveMenu('15')}catch(e){}
          //  }else fn_alert(w,LRS23,2);
            return;
        case 'NEW':;case 'ADD':;case 'EDIT_TPL':;case 'EDIT':;case 'CLIENTSRV':;case 'BROKER_DOCS_ADD':;
            var _bn= ACTID=='NEW';
            if(!_bn && (IDR=='')){fnHlp(w);return;}
			var FirstIDR=IDR.split(';');
			if (ACTID=='BROKER_DOCS_ADD'){
				sBC_OPER=Top.getRowAttr(TBL,'BC_OPERATION');
				nv.CREATE(getWebShNameById(TblId),'ADD',(_bn?'':'IDR='+IDR)+'&BC_OPER='+sBC_OPER);
			}
            else{
                 SchemeName = (ACTID == 'CLIENTSRV') ? 'WEBCB_CLIENTSERVICE' :  $(window,'SCHEMENAME').value; 
                 if ($(window,'SCHEMENAME').value == 'WEBCB_DOCUMENTS')
                 {
                    
                   SchemeName	= sch;
                   if (SchemeName == '1223')
                   {
                      var mtsid = getMSVAL(TBL,'transfersystemid'), direct = getMSVAL(TBL,'transferdirection');
                      if ((direct!='0')&&(direct!='')&&(direct!='1'))//если это не перевод - ничего не делаем
                        return;
                      switch(mtsid)
                      {
                        case '1': SchemeName = 'RETMONEYTRANSWU';break;
                        case '2': SchemeName = 'RETMONEYTRANSCONT';break;
                        case '3': SchemeName = 'RETMONEYTRANSUNI';break;
                        case '4': SchemeName = 'RETMONEYTRANSLIDER';break;
                      }
                      
                   }
                 } 
            	 nv.CREATE(SchemeName,ACTID,(_bn?'':'IDR='+FirstIDR[0])+((vAddParam==null)?'':vAddParam),w);
            } 
            return; 
        case 'CHK':
            if(IDR == ''){fnHlp(w);return;}
            $(window,'TIC').value='1';
            $(window,'IDR').value = IDR;
            $(window,'T').value=_MBll+'InsDict';

			CreateBSSHTTPRequest();
			BSSHTTPRequest.init(getFormElements('ScrollerForm'));
			BSSHTTPRequest.resultMethod=fnOnDataResult;
			BSSHTTPRequest.sendData();

            return;
        case 'DEL':
            if(IDR == ''){fnHlp(w);return;}
            if(confirm(LRS14+'1'+LRS15)){
                $(window,'TIC').value='1';
                $(window,'IDR').value = IDR;
                $(window,'T').value = _MBll + 'del';
                GetScrollData(w);
            }
            return;
        case 'CHNSTATUS':;case 'VIEWFLAG':
            if(IDR == ''){fnHlp(w);return;}
            fn_wait(w,true);
            w.CNTRow=iR;
            var arParams=new Array(
                    'T='+_MBll+'sc_STATUS',
                    'XACTION='+ACTID,
                    'IDR='+IDR,
                    'WSTATUS='+Prm1,
                    'SCHEMENAME='+(CustomScheme?CustomScheme:$(window,'SCHEMENAME').value));
			CreateBSSHTTPRequest();
			BSSHTTPRequest.init(arParams);
			BSSHTTPRequest.resultMethod=fnOnDataResult;
			BSSHTTPRequest.sendData();

            return;
        case 'TPL':
            if(IDR == ''){fnHlp(w);return;} 
            fn_wait(w,true);
            $(window,'TIC').value='1';
            $(window,'IDR').value = IDR;
            $(window,'T').value = _MBll + 'sc_to_template'; 
	    CreateBSSHTTPRequest();
	    BSSHTTPRequest.init(getFormElements('ScrollerForm'));
	    BSSHTTPRequest.resultMethod=fnOnDataResult;
	    BSSHTTPRequest.sendData();
            break;
        case 'PRNSC':
            if(TBL.rows.length<=0){fn_alert(w,LRS24,3);return;}
            fnVIEW(w,_MBll+'PRN_SCROLLER&FILTERIDENT='+$(window,'FILTERIDENT').value+'&PAGENUMBER='+$(window,'PAGENUMBER').value+'&RESORT='+$(window,'RESORT').value,SchemeName,'PRNSC');
            return; 
        case 'DO_REASON_OPER':
            if(IDR == ''){fnHlp(w);return;}
            Dict(w,'webcb_reasonoperation',null,'form',null,'NEW',null,'IDRS='+IDR+'&OPER='+Prm1+
                   '&SCHEMESLIST='+shStr);
            return;
        case 'DO_OPER':
            var el_to_send;
            if(IDR == ''){fnHlp(w);return;}
            $(window,'TIC').value='1';
            $(window,'IDR').value=IDR;
            $(window,'T').value='rt_webcb_02core.doOperation';

            CreateBSSHTTPRequest();
            el_to_send = getFormElements('ScrollerForm');
            el_to_send.push('OPER='+Prm1);
           
            if(Prm1=='CancelDoc' || Prm1=='CS_NotCompleted'){
              if($(w,'REASON').value==''){
                fn_alert(w,LRSChecks43,2,$(w,'REASON'));
                break;
              }else {
                el_to_send.push('IDR='+IDR);
                el_to_send.push('REASON='+$(w,'REASON').value);
              }
              //ExitDict(w);
            }else el_to_send.push('SCHEMENAME='+sch);
            BSSHTTPRequest.init(el_to_send);
            BSSHTTPRequest.resultMethod=fnOnDataResult;
            BSSHTTPRequest.sendData();
            break;
        case 'DO_KVIT':
          fn_wait(w,true);
          var TBL=$(window,'SCROLLER'),oRS=TBL.tBodies[0].rows,iRL=oRS.length,oR,RIDR='';
          if(iRL>0){
            for(var i=0;i<iRL;i++){
              oR=oRS.item(i);
              RIDR=RIDR+oR.getAttribute('SIDR')+';';
            }
          }
            $(window,'TIC').value='1';
            $(window,'IDR').value=RIDR;
            $(window,'T').value='rt_webcb_02core.RefreshDocStatus';

            CreateBSSHTTPRequest();
            el_to_send = getFormElements('ScrollerForm');
            el_to_send.push('SCHEMENAME='+sch);
            BSSHTTPRequest.init(el_to_send);
            BSSHTTPRequest.resultMethod=fnOnDataResult;
            BSSHTTPRequest.sendData();
            break;
        default: fn_alert(w,LRSscr3 + ACTID,4); return;
  }
//    PostData(w,'fnOnDataResult')
}

function fnOnDataResult(xHTTP){
    wait_hide(window);
    if(!xHTTP)return;
    var iC=xHTTP.errorCode;
    if(iC==110)fn_alert(w,xHTTP.error,null,'GetScrollData(window)')
    else if (iC==105) {ExitDict(w); fn_alert(w,xHTTP.error);}
    else if(iC>0)fn_alert(w,xHTTP.error);
    if((iC>0) && (iC<10))return;
    var ACTID=$(window,'XACTION').value,TBL=$(window,'SCROLLER');
    $(window,'TIC').value=xHTTP.Tic;
    switch (ACTID){
      case 'CHK':
        ExitDict(w);
        //xHTTP.updateData(mw);
        //if(typeof(Top.onDictionarySelect)=='function')Top.onDictionarySelect(this.reqBody);
        break;
      case 'TPL':
	$(window,'IDR').value='';
	$(window,'PATTERNNAME').value='';
        fn_alert(w,LRS8t,5);
        break;
      case 'CHNSTATUS':;case 'VIEWFLAG':
        GetScrollData(window);
        break;
      case 'DO_OPER':;case 'DO_KVIT':;case 'CUSTDEL':;
        break;
      default:break;
    }
}

function RefreshRestByClient(w){

	fn_wait(w,true);
	var el_to_send;
	$(window,'TIC').value=1;
	$(window,'SID').value=SID;
	if ($(window,'T') && $(window,'SCHEMENAME').value!='COMMPAGE') $(window,'T').value='RT_2IC.SC';

	CreateBSSHTTPRequest();
	if ($(window,'SCHEMENAME').value!='COMMPAGE') el_to_send = getFormElements('ScrollerForm');
	else el_to_send = getFormElements('DocumentForm');
	el_to_send.push('T=RT_0ClientUpdateRest.RefreshRest');
	BSSHTTPRequest.init(el_to_send);
	BSSHTTPRequest.resultMethod=on_RefreshRest_result;
	BSSHTTPRequest.sendData();
}
function on_RefreshRest_result(xHTTP){
	wait_hide(w);
	if(!xHTTP)return;
    	var iC=xHTTP.errorCode;
    	if(iC>0) fn_alert(w,xHTTP.error);
	if((iC>0) && (iC<10))return;
	var TaskName,P1,P2,P3,wdf = w.df;
	if ($(window,'SCHEMENAME').value!='COMMPAGE'){
		InitFlds4GetScroll(w,1,'','');
		GetScrollData(w);
	}else nv.GoToPanelId('29');
}
function RefreshScroller(w){
	InitFlds4GetScroll(w,1,'','');
	GetScrollData(w);
}
//**********
var selT='_sel_rows';

function getMSVAL(TBL,V){
	var sR=getLMSSTR(TBL),oAr,iLR,sVAL='',TBLBR=TBL.tBodies[0].rows;
	try{oAr=sR.split(','),iLR=oAr.length}catch(e){iLR=0}
	if(iLR < 2)return (sR!='-1')?TBLBR.item(parseInt(sR,10)).getAttribute(V):'';
	for(var i=0;i<iLR;i++){
		if(sVAL!='')sVAL+=';';
		sVAL+=TBLBR.item(parseInt(oAr[i],10)).getAttribute(V);
	}
	return sVAL;
}

function getMSSCHEMES(TBL){
	var sR=getLMSSTR(TBL),oAr,iLR,sSchemes='',TBLBR=TBL.tBodies[0].rows;
	try{oAr=sR.split(','),iLR=oAr.length}catch(e){iLR=0}
	if(iLR < 2)return (sR!='-1')?TBLBR.item(parseInt(sR,10)).getAttribute('TID'):'';
	for(var i=0;i<iLR;i++){
		if(sSchemes!='')sSchemes+=';';
		sSchemes+=TBLBR.item(parseInt(oAr[i],10)).getAttribute('TID');
	}
	return sSchemes;
}
function isMRowSel(TBL,iR){
	var b=false;
	try{
		var sA=TBL.getAttribute(selT);
		if(sA==null)TBL.setAttribute(selT,'');
		sA=TBL.getAttribute(selT).toString();
		re=new RegExp('(^'+iR+'$)|(^'+iR+',)|(,'+iR+',)|(,'+iR+'$)','ig');
		b= sA.match(re)?true:false;
	}catch(e){}
	return b;
}
function clearTR_MULT_ARR(TBL,iR){
	try{var sA=TBL.getAttribute(selT);}catch(e){}
	if((sA==null) || (sA.toString()==''))return;
	sA=sA.toString(),sR=iR.toString();
	var re=new RegExp('(^'+sR+'$)|(^'+sR+',)|(,'+sR+'$)','ig');
	sA= sA.replace(re,''); re=new RegExp('(,'+iR+',)','ig');
	sA= sA.replace(re,',');
	TBL.setAttribute(selT,sA);
}
function setTR_MULT_ARR(TBL,iR){	
	try{x=TBL.getAttribute(selT);}catch(e){}
	if(!isMRowSel(TBL,iR))TBL.setAttribute(selT, (((x==null) || (x.toString()=='')) ? iR:(x+','+iR)));
}
function  TrMultiCL(tr,w,sel){  
  var TBL = GetParentTBL(tr);
  try{if(TBL.tBodies[0].rows.length==0)return;}catch(e){}
  var iR = tr.sectionRowIndex;
  bS=(sel==null)? (isMRowSel(TBL,iR) || false) : (sel==1);
  tr.className = bS ? DivL : DivSel;  
  tr.cells.item(0).getElementsByTagName('INPUT').item(0).checked=!bS;
  bS ? clearTR_MULT_ARR(TBL,iR) : setTR_MULT_ARR(TBL,iR);
}
function TrMultiCLAll(w,obj,ex){
	var b=obj.checked;
	var TBL = GetParentTBL(obj),oR=TBL.tBodies[0].rows,iRL=oR.length;
	if(iRL<1)return;
	for(var i=0;i<iRL;i++){
		if(i!=ex)	TrMultiCL(oR.item(i),w,(b?0:1));
	}
}
function ClearAndMSel(w,obj,e){
		var src=e.target||e.srcElement;
//			if(src.type!='checkbox')TrMultiCLAll(w,obj,obj.sectionRowIndex);
			TrMultiCL(obj,w);
		 try{fnOnRowSelected()}catch(e){};
}
function SaveScrolletTbl(w){
  if(IsOpera){if(event.preventDefault)event.returnValue=false}
  var TBL = $(window,'SCROLLER');
  var bMultiSel = TBL.getAttribute('MULTISELECT')=='1';
  var sch=$(window,'SCHEMENAME').value;
  var IDR=bMultiSel ? getMSIDRS(TBL):getIDRS(TBL),iR=bMultiSel ? getLMSSTR(TBL):getLSTR(TBL);
  if(IDR==''){fnHlp(w);return;}
  Dict(w,'PATTERNNAME',null,'form',null,'NEW',null,'FROMSCHEMENAME='+sch);
}
function fnSaveNameTbl(w){
		//if((typeof(window.fnCheckEmtyTbl)=='function') && window.IsForm)if(!window.fnCheckEmtyTbl())return;		
		//alert(fnSaveNameTbl);
		var sSh=$(window,'FROMSCHEMENAME').value,ptrn=$(window,'TBLName').value;
		fn_wait(w,true);
		window.TokenCT = $(window,'CASHTOKEN').value;
		CreateBSSHTTPRequest();
		var arParams=new Array(
                    'T=RT_2PATTERNNAME.SaveTblName',
					'PATTERNNAME='+encodeURIComponent(ptrn),
                    'FROMSCHEMENAME='+sSh,
					'XMLDATA=1');
		BSSHTTPRequest.init(arParams);
		BSSHTTPRequest.resultMethod=OnFormResult;
		//BSSHTTPRequest.disableWin=false;
		BSSHTTPRequest.sendData();
}
function OnFormResult(xHTTP){
		var ptrn=$(window,'PATTERNNAME');
		var iC=xHTTP.errorCode;
		if(iC>0){
			fn_alert(w,xHTTP.error);
			return;
		}
		ptrn.value = xHTTP.responseBody;
		ExitDict(window);
		ACTF(window,'SAVEDOCASTPL');
}
c_scroller_js=true;