YNU_JEUS/app_home/himed/xpapps/com/hismainxp/xp/SPZUM90000_TranInfo.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNO01000" position="absolute 0 0 820 372" titletext="Tran Test" onload="SMMNO01000_onload" ontimer="SMMNO01000_ontimer">
    <Layouts>
      <Layout>
        <Div id="group3" scrollbars="autoboth" position="absolute 0 0 790 367" style="">
          <Layouts>
            <Layout width="790" height="555">
              <Static id="caption6" position="absolute 0 19 775 66" style="font:,30,bold;align:center ;" text="Tran Test" anchor="default"/>
              <Shape id="line5" class="line_1" linetype="horizontal" position="absolute 15 66 775 69" style="strokepen:3 solid #33bbbbff;" anchor="default"/>
              <Static id="caption15" class="cell_1" position="absolute 15 94 209 159" style="font:,20,bold;align:center middle;" text="입력값" anchor="default"/>
              <Edit id="ipt_inputval" taborder="4" position="absolute 220 94 613 159" style="align:center;font:arial,30,bold;" anchor="default" onkeypress="" onkeydown="group3_ipt_inputval_onkeydown"/>
              <Static id="caption4" class="cell_1" position="absolute 16 174 209 359" style="font:,20,bold;align:center middle;" text="확인" anchor="default"/>
              <TextArea id="text_message" enable="False" position="absolute 220 174 775 354" style="font:,18,bold;" wordwrap="char" taborder="1" anchor="default"/>
              <Button id="button00" taborder="5" text="Submit Test" position="absolute 621 94 775 159" style="background:#99ccffff;color:#1f1e1eff;align:center;font:arial,15,bold;" onclick="group3_button00_onclick" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="inputval" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="inputval"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_recv_rtninfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="rtnmsg" type="STRING" size="256"/>
          <Column id="rtncode" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group3.ipt_inputval" propid="value" datasetid="ds_main_cond" columnid="inputval"/>
      <BindItem id="item1" compid="group3.text_message" propid="value" datasetid="ds_recv_rtninfo" columnid="rtnmsg"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-09
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-09      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";
include "emr_carecomxp::CareCom.xjs";
include "emr_prcpmngtxp::MMOCommon.xjs";
include "com_departmentcodexp::ZSD001.xjs";


//스크립트 시작 *** 
function SMMNO01000_onload(obj:Form, e:LoadEventInfo) {
	frmf_initForm(obj); 
	
	group3.ipt_inputval.setFocus();
	
}



// 디스플레이 초기화
function fInitDisply() {
	ds_main_cond.setColumn( 0, "inputval",  "");
	ds_recv_rtninfo.setColumn( 0, "rtnmsg"  , ""); 

	group3.ipt_inputval.enable = true;
	group3.ipt_inputval.setFocus();
}

function fTestTran() {
	var sRtnMsg   = "";

	if (ds_main_cond.getColumn(0, "inputval") == "") {
		sysf_messageBox("입력값을 입력하지 ","E007");
		return;
	}

	ds_recv_rtninfo.clearData();

	var oParam = {};
    oParam.id          = "TXZUM90001";
	oParam.service     = "hismainapp.HisMain";
	//oParam.method      = "reqTranTest_OLD";
	oParam.method      = "reqTranTest_NEW";
    oParam.inds        = "req=ds_main_cond";
    oParam.outds       = "ds_recv_rtninfo=rtninfo";
    oParam.callback    = "cf_TXZUM90001";
    oParam.transaction = false;
    oParam.async       = false;
	
	var bRtn = tranf_submit(oParam);

	if(bRtn) {
		group3.ipt_inputval.enable = false;

		sRtnMsg  = ds_recv_rtninfo.getColumn(0, "rtnmsg");
		ds_recv_rtninfo.setColumn( 0, "rtnmsg"  , sRtnMsg);

		this.setTimer(0, 5000);
	}
}


function cf_TXZUM90001(sSvcId, nErrorCode, sErrorMsg) {
    //trace("cf_TXZUM90001 sSvcId : " + sSvcId);
    //trace("cf_TXZUM90001 nErrorCode : " + nErrorCode);
    //trace("cf_TXZUM90001 sErrorMsg : " + sErrorMsg);
}


function SMMNO01000_ontimer(obj:Form, e:TimerEventInfo)
{
	if (e.timerid == 0) {
		this.killTimer(0);
		fInitDisply();
    }
}


function group3_btn_Init_onclick(obj:Button, e:ClickEventInfo) {

	fInitDisply();

}


function group3_button00_onclick(obj:Button,  e:ClickEventInfo)
{
	fTestTran(); 
}

function group3_ipt_inputval_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if (e.keycode == 13) {
		obj.updateToDataset();
		fTestTran(); 
	}	
}
]]></Script>
  </Form>
</FDL>