YNU_JEUS/app_home/himed/xpapps/ast/pharmacyconsultxp/xp/SPADC62900_ADR유해증상.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPADC62900" position="absolute 0 0 651 201" titletext="ADR 유해증상" oninit="SPADC62900_oninit" onload="SPADC62900_onload">
    <Layouts>
      <Layout>
        <Static id="caption1" text="ADR 유해증상" class="tit_2" position="absolute 0 2 210 19"/>
        <Shape id="line1" linetype="horizontal" class="line_1" position="absolute 0 18 650 24"/>
        <Grid id="grd_symplist" taborder="1" binddataset="ds_main_symplist" useinputpanel="false" position="absolute 0 23 650 164" oncellclick="grd_symplist_oncellclick" oncelldblclick="grd_symplist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="35"/>
                <Column size="177"/>
                <Column size="176"/>
                <Column size="260"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="선택"/>
                <Cell col="1" colspan="3" taborder="undefined"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:chk" expr="expr : (chk==&quot;Y&quot;||chk==1)?1:0"/>
                <Cell col="1" text="bind:symp1"/>
                <Cell col="2" text="bind:symp2"/>
                <Cell col="3" text="bind:symp3"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_cfm" taborder="2" text="확인" class="btn4" position="absolute 535 171 591 193" onclick="btn_cfm_onclick"/>
        <Button id="btn_cls" taborder="3" text="닫기" class="btn4" position="absolute 594 171 650 193" onclick="btn_cls_onclick"/>
        <Shape id="line00" class="line_1" position="absolute 0 17 650 23"/>
        <Shape id="line02" class="line_1" position="absolute 0 19 650 25"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_symplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_main_symplist_oncolumnchanged">
        <ColumnInfo>
          <Column id="chk" type="STRING"/>
          <Column id="symp1" type="STRING"/>
          <Column id="symp2" type="STRING"/>
          <Column id="symp3" type="STRING"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_popdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="casrslt" type="STRING" size="256"/>
          <Column id="totscr" type="STRING" size="256"/>
          <Column id="koralgo" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_tempsymp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-03-02
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-03-02      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

/******************************************************************
 * Argument          : 
 * Description       : 초기화
 ******************************************************************/
function SPADC62900_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPADC62900_onload(obj:Form, e:LoadEventInfo)
{
	try{
		dsf_copyDs(ds_hidden_tempsymp, arg_ds_hidden_tempsymp);
	}catch(e){}
	
	var sSymp  = utlf_transNullToEmpty(ds_hidden_tempsymp.getColumn(0, "symp"));
	var aSympCnts = sSymp.split("^");

	ds_main_symplist.copyData(ds_hidden_tempsymp);
	
	if( aSympCnts.length > 1 ) {
		ds_main_symplist.setColumn(aSympCnts[0], "chk", "Y");
	}
}

/******************************************************************
 * Argument          : 
 * Description       : 체크박스 선택시 event
 ******************************************************************/
function grd_symplist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	var cCol = grd_symplist.currentcol;
	var cRow = ds_main_symplist.rowposition;
	
	if ( cCol == grd_symplist.getBindCellIndex("body","chk") ){
		if( ds_main_symplist.getColumn(cRow, "chk") == "Y" ) {
			fSelectClearGrid(cRow);
		}
	}
}

/******************************************************************
 * Argument          : 
 * Description       : row oncelldbsclick
 ******************************************************************/
function grd_symplist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var cRow = ds_main_symplist.rowposition;
	if( fSelectClearGrid(cRow) != "N" ) {
		fExeCnfm();
	}
}

/******************************************************************
 * Argument          : fSelectClearGrid(cRow)
 * Description       : 
 ******************************************************************/
function fSelectClearGrid(pRowNo) {
	for( var iNo = 0; iNo < ds_main_symplist.rowcount; iNo++ ) {
		if( iNo != pRowNo ) {
			ds_main_symplist.setColumn(iNo, "chk", "N");
		} else {
			if( utlf_isNull(ds_main_symplist.getColumn(iNo, "symp1")) ) {
				ds_main_symplist.setColumn(iNo, "chk", "N");
				sysf_messageBox("유해증상이 입력되어 있지 않아 선택", "E001");
				return "N";
				
			} else {
				ds_main_symplist.setColumn(iNo, "chk", "Y");
			}
		}
	}
	grd_symplist.refresh();
	
	return "Y";
}

/******************************************************************
 * Argument          : fExeCnfm()
 * Description       : 
 ******************************************************************/
function fExeCnfm() {
	var sSympCnts = "";
	var iRowNo = ds_main_symplist.findRow("chk", "Y");
	
	if( iRowNo >= -1 ) {
		for( var iNo = ds_main_symplist.getColCount(); iNo >= 1 ; iNo--) {
			if( !utlf_isNull(ds_main_symplist.getColumn(iRowNo, iNo)) ) {
				sSympCnts = ds_main_symplist.getColumn(iRowNo, iNo);
				break;
			}
		}
		opener.ds_temp_returnsymp.setColumn(0, "symp", iRowNo);
		opener.ds_temp_returnsymp.setColumn(0, "sympcnts", sSympCnts);
	} else {
		opener.ds_temp_returnsymp.setColumn(0, "symp", "");
		opener.ds_temp_returnsymp.setColumn(0, "sympcnts", "");
	}
	
	opener.ds_temp_returnsymp.setColumn(0, "cnfmyn", "Y");
	
	this.close();
}

/******************************************************************
 * Argument          : 
 * Description       : 확인 button event
 ******************************************************************/
function btn_cfm_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeCnfm();
}

/******************************************************************
 * Argument          : 
 * Description       : 닫기 button event
 ******************************************************************/
function btn_cls_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function ds_main_symplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid=="chk") {
		obj.setColumn(e.row,e.columnid,(e.newvalue=="Y"||e.newvalue==1)?"Y":"N");
	}
}
]]></Script>
  </Form>
</FDL>