YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO03400_검체리스트.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.4">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO03400" position="absolute 0 0 297 295" titletext="검체리스트" oninit="SPMMO03400_oninit" onload="SPMMO03400_onload">
    <Layouts>
      <Layout>
        <Static position="absolute 0 0 295 20" align="align:center middle;" id="caption1" class="tit_2"/>
        <Button position="absolute 183 275 239 295" id="button1" class="btn4" text="확인" onclick="button1_onclick"/>
        <Grid position="absolute 0 20 297 270" id="grd_spclist" binddataset="ds_main_spclist" autofittype="col" oncelldblclick="grd_spclist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25"/>
                <Column size="67"/>
                <Column size="205"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="검체코드"/>
                <Cell col="2" text="검체명"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="expr:currow+1"/>
                <Cell col="1" style="align:left middle;" text="bind:spccd"/>
                <Cell col="2" style="align:left middle;" text="bind:spcscrnnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button position="absolute 241 275 297 295" id="button2" class="btn3" text="취소" onclick="button2_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="tclscd" type="STRING" size="256" sumtext="검체분류코드"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_spclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="spccd" type="STRING" size="256" sumtext="검체코드"/>
          <Column id="spcscrnnm" type="STRING" size="256" sumtext="검체명"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-12-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-12-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";


function SPMMO03400_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPMMO03400_onload(obj:Form, e:LoadEventInfo)
{
	grdf_setToolTipBind(grd_spclist);
	
	caption1.text =  opener.frmf_getParameter("SPMMO03400_param_tclsnm");										
	
	if(frmf_checkOpener()){
		var tclscd = opener.frmf_getParameter("SPMMO03400_param_tclscd");  //검체분류코드
	}else{
		sysf_messageBox("메인 화면을 찾는데", "E009");
		close();
	}
	
	ds_send_reqdata.setColumn(0, "tclscd", tclscd);
	
	var oParam = {};
		oParam.id       = "TRMMO03401";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqGetSpcList";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_main_spclist=spclist";
		oParam.async    = true;
		oParam.callback = "cf_TRMMO03401";

	tranf_submit(oParam);
}

function cf_TRMMO03401(sSvcId, nErrorCode, sErrorMsg) {
    if ( utlf_isNull(ds_main_spclist.getColumn(0, "spccd"))) {
		close();
	}
}

function grd_spclist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row < 0 || e.col < 0) {
		sysf_messageBox ( "선택된 검체코드가 없습니다.", 'E');
		return;
	}	
	
	var spccd     = ds_main_spclist.getColumn(e.row, "spccd");
	var spcscrnnm = ds_main_spclist.getColumn(e.row, "spcscrnnm");
	
	opener.frmf_setParameter("SPMMO03400_rtn_spccd",     spccd);
	opener.frmf_setParameter("SPMMO03400_rtn_spcscrnnm", spcscrnnm);
	opener.frmf_setParameter("SPMMO03400_rtn_useyn",     "Y");
	
	close();
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var iRow = ds_main_spclist.rowposition;
	if(iRow >= 0){
		var spccd     = ds_main_spclist.getColumn(iRow, "spccd");					
		var spcscrnnm = ds_main_spclist.getColumn(iRow, "spcscrnnm");
		
		opener.frmf_setParameter("SPMMO03400_rtn_spccd",     spccd);
		opener.frmf_setParameter("SPMMO03400_rtn_spcscrnnm", spcscrnnm);
		opener.frmf_setParameter("SPMMO03400_rtn_useyn",     "Y");
	}  else {
		sysf_messageBox ( "선택된 검체코드가 없습니다.", 'E');
		return;
	}
	
	close();
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	opener.frmf_setParameter("SPMMO03400_rtn_useyn", "N");
	close();
}
]]></Script>
  </Form>
</FDL>