YNU_JEUS/app_home/himed/xpapps/mis/accountinginfoxp/xp/SMRAR02400_감가상각월마감.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMRAR02400" position="absolute 0 0 384 244" titletext="감가상각 월마감" oninit="SMRAR02400_oninit" onload="SMRAR02400_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="감가상각 마감" class="tit_1" position="absolute 0 0 230 25"/>
        <Shape id="line7" class="line_6" position="absolute 0 46 380 52"/>
        <Button id="btn_exec" taborder="1" text="저장" class="btn4" position="absolute 322 25 378 47" onclick="btn_exec_onclick"/>
        <Shape id="line1" class="line_10" position="absolute 0 72 270 78"/>
        <Static id="caption1" text="감가상각 월마감 작업" class="tit_2" position="absolute 0 56 180 78"/>
        <Shape id="line2" class="line_10" position="absolute 0 126 270 132"/>
        <Static id="cap_purccondd" text="기관코드" class="cell_1" position="absolute 0 77 110 100"/>
        <Static id="caption5" text="마감년월" class="cell_1" position="absolute 0 103 110 126"/>
        <Shape id="line10" class="line_2" position="absolute 0 99 270 105"/>
        <Combo id="cmb_instcd" taborder="2" innerdataset="ds_init_cmb_instcd" codecolumn="cnstcd" datacolumn="cnstnm" class="combo_default" enable="false" position="absolute 112 79 255 98"/>
        <Calendar id="ipt_endmonth" taborder="3" autoselect="true" autoskip="true" position="absolute 112 105 255 124" mask="yyyy-mm" dateformat="yyyy-MM" value="null" editformat="yyyy-MM" onchanged="ipt_endmonth_onchanged"/>
        <Static id="caption4" text="※ 감가상각 마감월 이전 자료는 감가상각을 실행할 수 없습니다." position="absolute 0 193 371 221"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_search" 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="endmonth" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd"/>
            <Col id="endmonth"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_clse_yyyymm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="yyyymm" type="STRING" size="256" sumtext="마감년월"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="cmb_instcd" propid="value" datasetid="ds_send_search" columnid="instcd"/>
      <BindItem id="item1" compid="ipt_endmonth" propid="value" datasetid="ds_send_search" columnid="endmonth"/>
    </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 SMRAR02400_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMRAR02400_onload(obj:Form, e:LoadEventInfo)
{
	misfComboInstCdListMulti("cmb_instcd",utlf_getCurrentDate(),"","N");					
	cmb_instcd.value = sysf_getUserInfo("dutplceinstcd");

	var oParam = {};
		oParam.id          = "TRRAR02401";
		oParam.service     = "accountinginfoapp.AccountingInfo";
		oParam.method      = "reqGetClse_yyyymm";
		oParam.inds        = "req=ds_send_search";
		oParam.outds       = "ds_init_clse_yyyymm=clse_yyyymm";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRAR02401";

	tranf_submit(oParam);

	ds_send_search.setColumn(0, "endmonth", ds_init_clse_yyyymm.getColumn(0, "yyyymm"));
	ipt_endmonth.setFocus();
}

function btn_exec_onclick(obj:Button,  e:ClickEventInfo)
{
	if(String(ipt_endmonth.value).length < 6) 
	{
		sysf_messageBox("마감년월이 올바로 선택되지 않았습니다. \n\n먼저 마감년월을 선택하십시요.", "E999", "");							
		ipt_endmonth.setFocus();
		return;
	}
	
	var oParam = {};
		oParam.id          = "TXRAR02401";
		oParam.service     = "accountinginfoapp.AccountingInfo";
		oParam.method      = "reqExeSaveMagam";
		oParam.inds        = "req=ds_send_search";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXRAR02401";

	tranf_submit(oParam);
}

function cf_TXRAR02401(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) return;
    else 
    {
		var oParam = {};
			oParam.id          = "TRRAR02401";
			oParam.service     = "accountinginfoapp.AccountingInfo";
			oParam.method      = "reqGetClse_yyyymm";
			oParam.inds        = "req=ds_send_search";
			oParam.outds       = "ds_init_clse_yyyymm=clse_yyyymm";
			oParam.async       = false;
			oParam.callback    = "cf_TRRAR02401";

		tranf_submit(oParam);
    }
}

function cf_TRRAR02401(sSvcId, nErrorCode, sErrorMsg)
{
    if(nErrorCode < 0) return;
    else
    {
		ds_send_search.setColumn(0, "endmonth", ds_init_clse_yyyymm.getColumn(0, "yyyymm"));
		
		sysf_messageBox("저장이 완료되었습니다.", "I999", "");	
    }
}

function ipt_endmonth_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	ds_send_search.setColumn(0, "endmonth", String(obj.value).substr(0,6))
}
]]></Script>
  </Form>
</FDL>