YNU_JEUS/app_home/himed/xpapps/mis/accountinginfoxp/xp/SMRAR00200_가수금상계.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMRAR00200" position="absolute 0 0 1201 773" titletext="가수금 상계" oninit="SMRAR00200_oninit" onload="SMRAR00200_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="가수금 상계" class="tit_1" position="absolute 0 0 293 25"/>
        <Shape id="line2" class="line_6" position="absolute 0 46 1195 52"/>
        <Button id="btn_print" taborder="1" text="출력" class="btn4" position="absolute 1082 25 1138 47" anchor="top right" onclick="btn_print_onclick"/>
        <Button id="button39" taborder="2" text="저장" class="btn4" position="absolute 1139 25 1195 47" anchor="top right" onclick="button39_onclick"/>
        <Div id="grp_sea" anchor="left top right" taborder="3" class="div_SA2" position="absolute 0 50 1195 90">
          <Layouts>
            <Layout>
              <Button id="button2" taborder="6" text="조회" class="btn1" position="absolute 1043 8 1099 30" anchor="top right" onclick="grp_sea_button2_onclick"/>
              <Shape id="line5" linetype="vertical" class="line_4" position="absolute 1024 8 1030 30" anchor="top right"/>
              <Calendar id="ipt_statementdate" taborder="7" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 885 9 990 28" mask="yyyy-mm-dd" onchanged="grp_sea_ipt_statementdate_onchanged"/>
              <Static id="caption3" text="전표작성일자 :" class="search_name" position="absolute 776 10 888 27"/>
              <Calendar id="ipt_gadate_fr" taborder="8" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 145 9 250 28" mask="yyyy-mm-dd"/>
              <Static id="caption2" text="~" position="absolute 257 11 272 28"/>
              <Static id="caption5" text="가수금일자 :" class="search_name" position="absolute 43 10 147 27"/>
              <Static id="caption7" text="계좌번호 :" class="search_name" position="absolute 410 10 514 27"/>
              <Calendar id="ipt_gadate_to" taborder="9" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 273 9 375 28" mask="yyyy-mm-dd"/>
              <Button id="btn_erase" taborder="10" text="지우기" class="btn2" position="absolute 679 9 732 28" onclick="grp_sea_btn_erase_onclick"/>
              <Edit id="opt_aactcmt" taborder="11" readonly="true" autoselect="true" autoskip="true" position="absolute 488 9 647 28" class="output"/>
              <Button id="btn_aact" taborder="12" class="icon_search" position="absolute 652 10 668 26" onclick="grp_sea_btn_aact_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line3" class="line_10" position="absolute 0 115 1195 121" anchor="left top right"/>
        <Grid id="grd_main" taborder="4" binddataset="ds_main_maindatalist" autoenter="select" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 120 1195 742" anchor="all" selecttype="multirow" onmousemove="grd_main_onmousemove" onlbuttonup="grd_main_onlbuttonup" cellclickbound="cell" onlbuttondown="grd_main_onlbuttondown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="19"/>
                <Column size="120"/>
                <Column size="54"/>
                <Column size="75"/>
                <Column size="54"/>
                <Column size="170"/>
                <Column size="84"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="25"/>
                <Column size="33"/>
                <Column size="90"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="80"/>
                <Column size="79"/>
                <Column size="75"/>
                <Column size="55"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="예금계좌"/>
                <Cell col="2" text="보조과목"/>
                <Cell col="3" text="가수금일자"/>
                <Cell col="4" text="구분"/>
                <Cell col="5" text="적 요"/>
                <Cell col="6" text="메  모"/>
                <Cell col="7" text="가수금액"/>
                <Cell col="8" text="상계금액"/>
                <Cell col="9" colspan="2" text="전표" taborder="undefined"/>
                <Cell col="11" text="이미상계된금액"/>
                <Cell col="12" text="instcd"/>
                <Cell col="13" text="line"/>
                <Cell col="14" text="seqline"/>
                <Cell col="15" text="적용할전표일"/>
                <Cell col="16" text="상계후실잔액"/>
                <Cell col="17" text="수입일"/>
                <Cell col="18" text="확인자"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" text="bind:aactno"/>
                <Cell col="2" text="bind:aactcd"/>
                <Cell col="3" displaytype="date" text="bind:gadate" calendardisplaynulltype="nulltext"/>
                <Cell col="4" text="bind:gubun"/>
                <Cell col="5" style="align:left middle;padding:0 0 0 3;" text="bind:rmrk"/>
                <Cell col="6" displaytype="text" edittype="text" text="bind:cmt"/>
                <Cell col="7" displaytype="number" text="bind:gaamt"/>
                <Cell col="8" displaytype="number" edittype="text" class="input_s_essential" text="bind:janamt" editautoselect="true"/>
                <Cell col="9" displaytype="checkbox" edittype="checkbox" text="bind:sangflag" expr="expr:sangflag == 'Y' ? 1 : 0"/>
                <Cell col="10" text="bind:sangflag_text"/>
                <Cell col="11" displaytype="number" text="bind:hissumjanamt"/>
                <Cell col="12" text="bind:instcd"/>
                <Cell col="13" text="bind:line"/>
                <Cell col="14" text="bind:seqline"/>
                <Cell col="15" displaytype="date" text="bind:statementdate" calendardisplaynulltype="nulltext"/>
                <Cell col="16" displaytype="number" text="bind:realjanamt"/>
                <Cell col="17" displaytype="date" text="bind:incmymd" calendardisplaynulltype="nulltext"/>
                <Cell col="18" text="bind:name"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="ipt_excsave" taborder="5" text="엑셀저장" class="btn7" position="absolute 1115 96 1195 115" anchor="top right" onclick="ipt_excsave_onclick"/>
        <Static id="caption21" text="출력 목록" class="tit_2" position="absolute 0 99 131 120"/>
        <MaskEdit id="cpt_gaamtsum" taborder="6" position="absolute 561 745 656 768" style="background:#ffccccff;" anchor="left bottom" mask="9,99999999"/>
        <Static id="caption1" text="합  계" class="cell_1" position="absolute 487 745 559 768" style="padding:0 0 0 0;align:center middle;" align="align:center middle;" anchor="left bottom"/>
        <MaskEdit id="cpt_janamtsum" taborder="7" position="absolute 657 745 751 768" style="background:#ffe79dff;" anchor="left bottom" mask="9,99999999"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="statementdate" type="STRING" size="256"/>
          <Column id="gadate_fr" type="STRING" size="256"/>
          <Column id="gadate_to" type="STRING" size="256"/>
          <Column id="aactcmt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd"/>
            <Col id="statementdate"/>
            <Col id="gadate_fr"/>
            <Col id="gadate_to"/>
            <Col id="aactcmt"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_maindatalist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_maindatalist_oncolumnchanged">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="line" type="STRING" size="256" sumtext="NO."/>
          <Column id="seqline" type="STRING" size="256" sumtext="SEQ NO."/>
          <Column id="aactno" type="STRING" size="256" sumtext="계좌번호"/>
          <Column id="aactcd" type="STRING" size="256" sumtext="계좌코드"/>
          <Column id="gadate" type="STRING" size="256" sumtext="가수금일자"/>
          <Column id="gubun" type="STRING" size="256" sumtext="구분"/>
          <Column id="rmrk" type="STRING" size="256" sumtext="적요"/>
          <Column id="gaamt" type="STRING" size="256" sumtext="가수금"/>
          <Column id="janamt" type="STRING" size="256" sumtext="잔액"/>
          <Column id="sangflag" type="STRING" size="256" sumtext="상계여부"/>
          <Column id="sangflag_text" type="STRING" size="256" sumtext="상계여부"/>
          <Column id="ymdwrite" type="STRING" size="256" sumtext=""/>
          <Column id="seqwrite" type="STRING" size="256" sumtext=""/>
          <Column id="hiscnt" type="STRING" size="256" sumtext="이전상계갯수"/>
          <Column id="hissumjanamt" type="STRING" size="256" sumtext="이전상계금액"/>
          <Column id="statementdate" type="STRING" size="256" sumtext="전표일자"/>
          <Column id="realjanamt" type="CDATE" size="256" sumtext="실잔액"/>
          <Column id="cmt" type="STRING" size="256" sumtext="비고"/>
          <Column id="incmymd" type="STRING" size="256" sumtext="수입일자(마감일자)"/>
          <Column id="incmconfid" type="STRING" size="256" sumtext="수입일자(마감일자)등록자ID"/>
          <Column id="name" type="STRING" size="256" sumtext="수입일자(마감일자)등록자 이름"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_aactlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="aactcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_apsl" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sumjanamt" type="STRING" size="256"/>
          <Column id="sumgaamt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_unsllist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="statementdate" type="STRING" size="256" sumtext="미결전표일자"/>
          <Column id="unslno" type="STRING" size="256" sumtext="미결전표번호"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_source_slipinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_aactcmt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.ipt_gadate_fr" propid="value" datasetid="ds_send" columnid="gadate_fr"/>
      <BindItem id="item1" compid="grp_sea.ipt_gadate_to" propid="value" datasetid="ds_send" columnid="gadate_to"/>
      <BindItem id="item2" compid="grp_sea.opt_aactcmt" propid="value" datasetid="ds_send" columnid="aactcmt"/>
      <BindItem id="item3" compid="grp_sea.ipt_statementdate" propid="value" datasetid="ds_send" columnid="statementdate"/>
      <BindItem id="item4" compid="cpt_gaamtsum" propid="value" datasetid="ds_hidden_apsl" columnid="sumgaamt"/>
      <BindItem id="item5" compid="cpt_janamtsum" propid="value" datasetid="ds_hidden_apsl" columnid="sumjanamt"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2017-06-19
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2017-06-19      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "mis_miscommonxp::MIS.xjs";
function SMRAR00200_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMRAR00200_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_main);
	grdf_setRowTypeIcon(grd_main, 0);

	var fdate = utlf_getCurrentDate();    
	
	ds_send.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
	ds_send.setColumn(0, "statementdate", fdate); 
	var vyear = String(fdate).substr(0,4) + "0101"
	ds_send.setColumn(0, "gadate_fr", vyear); 
	ds_send.setColumn(0, "gadate_to", fdate); 
	
	var oParam = {};
		oParam.id          = "TRRAR00201";
		oParam.service     = "accountinginfoapp.AccountingInfo";
		oParam.method      = "reqGetSanggyelist";
		oParam.inds        = "req=ds_send reqAactlist=ds_send_aactlist";
		oParam.outds       = "ds_main_maindatalist=maindatalist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRAR00201";

	tranf_submit(oParam);
	
	ds_hidden_apsl.setColumn(0, "sumgaamt", ds_main_maindatalist.getSum("gaamt")-ds_main_maindatalist.getSum("janamt"));
}

function grp_sea_btn_aact_onclick(obj:Button,  e:ClickEventInfo)
{
	frmf_modal("SMRAR03100", "SMRAR03100", "", "", "", "", "", "", "", "", "", "", "M");
}

function grp_sea_btn_erase_onclick(obj:Button,  e:ClickEventInfo)
{
	grp_sea.opt_aactcmt.value = "";	
}

function grp_sea_ipt_statementdate_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	for ( var i = 0; i < ds_main_maindatalist.rowcount; i++ ) 
	{
		ds_main_maindatalist.setColumn(i, "statementdate", obj.value);
	}
}

function grp_sea_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetMainDataList();
}

function fGetMainDataList()	
{
	var oParam = {};
		oParam.id          = "TRRAR00201";
		oParam.service     = "accountinginfoapp.AccountingInfo";
		oParam.method      = "reqGetSanggyelist";
		oParam.inds        = "req=ds_send reqAactlist=ds_send_aactlist";
		oParam.outds       = "ds_main_maindatalist=maindatalist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRAR00201";

	tranf_submit(oParam);
	
	ds_hidden_apsl.setColumn(0, "sumgaamt", ds_main_maindatalist.getSum("gaamt")-ds_main_maindatalist.getSum("janamt"));
	ds_hidden_apsl.setColumn(0, "sumjanamt", 0);
}	

function ds_main_maindatalist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "sangflag")
	{
		obj.setColumn(e.row, "sangflag", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
		
		if (e.newvalue == "1")
		{
			obj.setColumn(e.row, "janamt", parseInt(obj.getColumn(e.row, "gaamt"))-parseInt(obj.getColumn(e.row, "hissumjanamt")));
			obj.setColumn(e.row, "statementdate", grp_sea.ipt_statementdate.value);
		}
		else 
		{
			obj.setColumn(e.row, "janamt", 0);
		}
	}
	
	if ( e.columnid == "sangflag" || e.columnid == "janamt")
	{
		obj.setColumn(e.row, "realjanamt", parseInt(obj.getColumn(e.row, "gaamt")) - parseInt(obj.getColumn(e.row, "janamt")) + parseInt(obj.getColumn(e.row, "hissumjanamt"))) ;
		var sumjanamt = 0;
		
		for ( var i = 0; i < ds_main_maindatalist.rowcount; i++ ) 
		{
			if ( ds_main_maindatalist.getColumn(i, "sangflag") == "Y" )
			{
				sumjanamt = sumjanamt + parseInt(obj.getColumn(i, "janamt"));
			}
			else
			{
			}
		}
		ds_hidden_apsl.setColumn(0, "sumjanamt", sumjanamt);
	}	
}

function grd_main_onlbuttonup(obj:Grid, e:GridMouseEventInfo)
{
	if( e.cell == obj.getBindCellIndex("Body", "sangflag"))
	{
		var rows = grdf_getSelectedRows(grd_main);
		
		if( rows.length > 1)
		{
			for( var i = 0 ; i < rows.length; i++ )
			{
				var m_row = rows[i];
				
				if(m_row != rows[0])
				{
					if(ds_main_maindatalist.getColumn(m_row, "sangflag") == "N")
					{
						ds_main_maindatalist.enableevent = false;
						ds_main_maindatalist.setColumn(m_row, "sangflag" , "Y");
						ds_main_maindatalist.enableevent = true;
						
						ds_main_maindatalist.updatecontrol = false;
						ds_main_maindatalist.setRowType(m_row, "u");
						ds_main_maindatalist.updatecontrol = true;
					}
					else
					{
						ds_main_maindatalist.enableevent = false;
						ds_main_maindatalist.setColumn(m_row, "sangflag", "N");
						ds_main_maindatalist.enableevent = true;
					}
				}
					
				if (ds_main_maindatalist.getColumn(m_row, "sangflag") == 'Y')
				{
					ds_main_maindatalist.enableevent = false;
					ds_main_maindatalist.setColumn(m_row, "janamt", parseInt(ds_main_maindatalist.getColumn(m_row, "gaamt")) - parseInt(ds_main_maindatalist.getColumn(m_row, "hissumjanamt")));
					ds_main_maindatalist.setColumn(m_row, "statementdate", grp_sea.ipt_statementdate.value);
					ds_main_maindatalist.enableevent = true;
				}
				else 
				{
					ds_main_maindatalist.enableevent = false;
					ds_main_maindatalist.setColumn(m_row, "janamt", 0);
					ds_main_maindatalist.enableevent = true;
				}

				ds_main_maindatalist.enableevent = false;
				ds_main_maindatalist.setColumn(m_row, "realjanamt", parseInt(ds_main_maindatalist.getColumn(m_row, "gaamt")) - parseInt(ds_main_maindatalist.getColumn(m_row, "janamt")) + parseInt(ds_main_maindatalist.getColumn(m_row, "hissumjanamt"))) ;
				ds_main_maindatalist.enableevent = true;
				
				var sumjanamt = 0;
				
				for ( var a = 0; a < ds_main_maindatalist.rowcount; a++ ) 
				{
					if ( ds_main_maindatalist.getColumn(a, "sangflag")=="Y" )
					{
						sumjanamt = sumjanamt + parseInt(ds_main_maindatalist.getColumn(a, "janamt"));
					}
				}
				ds_hidden_apsl.setColumn(0, "sumjanamt", sumjanamt);		
				
				ds_hidden_apsl.setColumn(0, "sumgaamt", ds_main_maindatalist.getSum("gaamt")-ds_main_maindatalist.getSum("janamt"));
			}
		}
	}
}

function ipt_excsave_onclick(obj:Button,  e:ClickEventInfo)
{
	misfSaveExcel(grd_main);
}

function btn_print_onclick(obj:Button,  e:ClickEventInfo)
{
	var objDOM = rptf_createDOM();
		rptf_setNodeListToDOM(objDOM, "/root/main/maindatalist", ds_main_maindatalist);
	var objParam = new Object();
		objParam.xml_data_XML1 = objDOM.documentElement.source; 
	var option = null; 
	rptf_exeReportPreview30(["SMRAR00201"],[objParam], option);
}

function button39_onclick(obj:Button,  e:ClickEventInfo)
{
	if(fSetChackValue()) 
	{
		rtn = sysf_messageBox("","Q002");
		if ( rtn == "6" ) 
		{
			var oParam = {};
				oParam.id          = "TXRAR00201";
				oParam.service     = "accountinginfoapp.AccountingInfo";
				oParam.method      = "reqExeGaAmtSanggye";
				oParam.inds        = "req=ds_main_maindatalist:u";
				oParam.outds       = "ds_temp_unsllist=unsllist";
				oParam.async       = false;
				oParam.callback    = "cf_TXRAR00201";

			tranf_submit(oParam);						
		}
	}
}

function cf_TXRAR00201(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) return;
    else
    {
		if(!utlf_isNull(ds_temp_unsllist.getColumn(0, "unslno")))
		{
			dsf_makeValue(ds_source_slipinfo, "instcd", "string", ds_temp_unsllist.getColumn(0, "instcd"));
			dsf_makeValue(ds_source_slipinfo, "slipdt", "string", ds_temp_unsllist.getColumn(0, "statementdate"));
			dsf_makeValue(ds_source_slipinfo, "slipno", "string", ds_temp_unsllist.getColumn(0, "unslno"));
			
			var objArg = new Object();
				objArg.arg_ds_target = ds_source_slipinfo;
			frmf_modal("SMRAD08100", "SMRAD08100", objArg, "", "", "", "", "", "", "", "", "", "M");
		}	
									
		grp_sea.button2.click();
    }
}

function fSetChackValue() 
{
	var updtdata = grdf_getGridUpdateData(grd_main).rowcount;
	if (updtdata == 0)
	{
		sysf_messageBox("변경된 데이터가","I004");
		return false;
	}
	var row = ds_main_maindatalist.rowposition;
	for ( var i = 0; i < ds_main_maindatalist.rowcount; i++ )
	{
		if ( ds_main_maindatalist.getRowType(i) == 4)
		{
			if ( ds_main_maindatalist.getColumn(i, "sangflag")=="Y" )
			{
				ds_main_maindatalist.setColumn(i, "statementdate", grp_sea.ipt_statementdate.value);									
				
				if ( String(ds_main_maindatalist.getColumn(i, "janamt")).length==0 || String(ds_main_maindatalist.getColumn(i, "janamt"))==0 )
				{
					sysf_messageBox("상계금액을" ,"C001");
					ds_main_maindatalist.rowposition = i;
					grd_main.setCellPos(grd_main.getBindCellIndex("body", "janamt"));
					grd_main.showEditor(true);
					return false;
				}
				if ((parseInt(ds_main_maindatalist.getColumn(i, "gaamt")) - parseInt(ds_main_maindatalist.getColumn(i, "hissumjanamt"))) < ds_main_maindatalist.getColumn(i, "janamt"))
				{
					sysf_messageBox("상계금액이 "+ parseInt(ds_main_maindatalist.getColumn(i, "gaamt")) - parseInt(ds_main_maindatalist.getColumn(i, "hissumjanamt"))+" 보다 클 수 없습니다. 다시 " ,"C001");
					ds_main_maindatalist.rowposition = i;
					grd_main.setCellPos(grd_main.getBindCellIndex("body", "janamt"));
					grd_main.showEditor(true);
					return false;
				}
			}
		}
	}
	return true;
}					]]></Script>
  </Form>
</FDL>