YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO03500_그룹검체리스트.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO03500" position="absolute 0 0 501 287" titletext="그룹검체리스트" oninit="SPMMO03500_oninit" onload="SPMMO03500_onload">
    <Layouts>
      <Layout>
        <Button position="absolute 388 267 443 287" id="button1" class="btn4" text="확인" onclick="button1_onclick"/>
        <Button position="absolute 445 267 500 287" id="button2" class="btn4" text="취소" onclick="button2_onclick"/>
        <Static text="그룹검체" position="absolute 0 27 133 47" align="align:center middle;" id="caption1" class="tit_2"/>
        <Shape position="absolute 0 40 231 46" linetype="vertical" id="line1" class="line_1"/>
        <Static text="검체리스트" position="absolute 235 27 368 47" align="align:center middle;" id="caption2" class="tit_2"/>
        <Shape position="absolute 235 40 501 46" linetype="vertical" id="line2" class="line_1"/>
        <Grid position="absolute 0 48 231 253" id="grd_spcgruplist" binddataset="ds_main_spcgrupinfo" autofittype="col" oncellclick="grd_spcgruplist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="80"/>
                <Column size="148"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="그룹검체코드"/>
                <Cell col="1" text="그룹검체명"/>
              </Band>
              <Band id="body">
                <Cell text="bind:spcgrupcd"/>
                <Cell col="1" text="bind:spcgrupnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid position="absolute 235 48 500 253" id="grd_spclist" binddataset="ds_main_spcinfo" autofittype="col" oncelldblclick="grd_spclist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="31"/>
                <Column size="80"/>
                <Column size="170"/>
              </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" text="bind:spccd"/>
                <Cell col="2" text="bind:spcscrnnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static position="absolute 0 0 492 20" align="align:center middle;" id="caption3" class="tit_2"/>
        <Shape id="line4" linetype="horizontal" class="line_3" position="absolute 0 16 500 22"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_spcinfo" 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>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="spcgrupcd" type="STRING" size="256"/>
          <Column id="tclscd" type="STRING" size="256"/>
          <Column id="savedata" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_spcgrupinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="spcgrupcd" type="STRING" size="256"/>
          <Column id="spcgrupnm" type="STRING" size="256"/>
        </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 SPMMO03500_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);  // 초기화
}

function SPMMO03500_onload(obj:Form, e:LoadEventInfo)
{
	caption3.text = opener.frmf_getParameter("SPMMO03500_param_tclsnm");			
	
	if(frmf_checkOpener()){
		var tclscd = opener.frmf_getParameter("SPMMO03500_param_tclscd");  //검체분류코드
	}else{
		sysf_messageBox("메인 화면을 찾는데", "E009");
		close();
	}								
	
	ds_send.setColumn(0, "tclscd", tclscd);	// ??? 
	
	//그룹검체 리스트 조회 
	var oParam = {};
    oParam.id          = "TRMMO03501";
    oParam.service     = "prcpmngtapp.PrcpMngt";
    oParam.method      = "reqGetSpcGrupList";
    oParam.inds        = "req=ds_send";
    oParam.outds       = "ds_main_spcgrupinfo=spcgruplist";
    oParam.async       = false;
	oParam.callback    = "cf_TRMMO03501";
	
	tranf_submit(oParam);
}

function cf_TRMMO03501(sSvcId, nErrorCode, sErrorMsg) {
    if ( utlf_isNull(ds_main_spcgrupinfo.getColumn(0, "spcgrupcd")) ) {
		close();
	}
}

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

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	opener.frmf_setParameter("SPMMO03500_rtn_useyn", "N");
	close();
}

function grd_spcgruplist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	var iRow = ds_main_spcgrupinfo.rowposition;
	if(iRow > -1){
		var spcgrupcd = ds_main_spcgrupinfo.getColumn(iRow, "spcgrupcd");
		ds_send.setColumn(0, "spcgrupcd", spcgrupcd);
	}			
// ds_send.setColumn(0, "tclscd", "LMA12004"); 테스트용 
	var oParam = {};
    oParam.id          = "TRMMO03502";
    oParam.service     = "prcpmngtapp.PrcpMngt";
    oParam.method      = "reqGetSpcGrupSpcList";
    oParam.inds        = "req=ds_send";
    oParam.outds       = "ds_main_spcinfo=spclist";
    oParam.async       = false;
    oParam.callback    = "cf_TRMMO03502";
    
	tranf_submit(oParam);
}

function cf_TRMMO03502(sSvcId, nErrorCode, sErrorMsg) {
	if(nErrorCode < 0) return;
}


function grd_spclist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var iRow = ds_main_spcinfo.rowposition;
	if(iRow > 0){						
		var spccd = ds_main_spcinfo.getColumn(iRow, "spccd"); 
		var spcscrnnm = ds_main_spcinfo.getColumn(iRow, "spcscrnnm"); 
		
		opener.frmf_setParameter("SPMMO03500_rtn_useyn", "Y" );  						
		opener.frmf_setParameter("SPMMO03500_rtn_spccd", spccd);
		opener.frmf_setParameter("SPMMO03500_rtn_spcscrnnm", spcscrnnm);
		close();						
	} else {
		sysf_messageBox ( "선택된 검체코드가 없습니다.", 'E');
		return;
	}					
}
]]></Script>
  </Form>
</FDL>