YNU_JEUS/app_home/himed/xpapps/mis/accountinginfoxp/xp/SMRAR01400_월별감가상각처리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMRAR01400" position="absolute 0 0 1198 714" titletext="월 감가상각 처리" oninit="SMRAR01400_oninit" onload="SMRAR01400_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="월 감가상각 처리" class="tit_1" position="absolute 0 0 293 25"/>
        <Shape id="line14" class="line_2" position="absolute 0 56 1195 62" anchor="left top right"/>
        <Button id="button2" taborder="1" text="조회" class="btn1" position="absolute 887 35 943 57" onclick="button2_onclick" anchor="top right"/>
        <Button id="btn_depreciation" taborder="2" text="감가상각실행" class="btn4" position="absolute 945 35 1049 57" onclick="btn_depreciation_onclick" anchor="top right"/>
        <Button id="btn_clse" taborder="3" text="감가상각월마감관리" class="btn4" position="absolute 1051 35 1191 57" onclick="btn_clse_onclick" anchor="top right"/>
        <Shape id="line3" class="line_10" position="absolute 0 75 1195 81" anchor="left top right"/>
        <Static id="cap_goodflaghngnm" text="대분류" class="cell_1" position="absolute 372 110 522 137"/>
        <Static id="cap_instcd" text="기관코드" class="cell_1" position="absolute 740 80 890 107"/>
        <Static id="cap_goodflagengnm" text="유형자산구분" class="cell_1" position="absolute 3 110 153 137"/>
        <Edit id="ipt_fixasetcd_search" taborder="4" position="absolute 900 114 995 133" onkeydown="ipt_fixasetcd_search_onkeydown" autoselect="true"/>
        <Button id="btn_fixasetcd" taborder="5" class="icon_search" position="absolute 999 116 1015 132" onclick="btn_fixasetcd_onclick"/>
        <Edit id="ipt_fixasetnm_search" taborder="6" position="absolute 1023 114 1183 133" autoselect="true"/>
        <Static id="caption1" text="자산코드" class="cell_1" position="absolute 740 110 890 137"/>
        <Combo id="cmb_lrgcd_search" taborder="7" position="absolute 531 114 731 133"/>
        <Static id="caption2" text="기작업년월" class="cell_1" position="absolute 3 80 153 107"/>
        <Static id="caption5" text="작업년월" class="cell_1" position="absolute 372 80 522 107"/>
        <Edit id="ipt_be_yyyymm" taborder="8" readonly="true" autoselect="true" autoskip="true" class="output" position="absolute 161 83 361 102"/>
        <Shape id="line5" class="line_2" position="absolute 1 136 1196 142" anchor="left top right"/>
        <Shape id="line6" class="line_2" position="absolute 1 106 1196 112" anchor="left top right"/>
        <Shape id="line8" linetype="vertical" class="line_2" position="absolute 368 79 374 135"/>
        <Combo id="cmb_goodflag_search" taborder="9" innerdataset="@ds_init_goodflag" codecolumn="value" datacolumn="label" position="absolute 161 114 361 133" onitemchanged="cmb_goodflag_search_onitemchanged"/>
        <Edit id="ipt_yyyymm" taborder="10" position="absolute 532 83 732 102" autoselect="true" autoskip="true"/>
        <Combo id="cmb_instcd_search" taborder="11" enable="false" position="absolute 900 83 1183 102"/>
        <Shape id="line2" linetype="vertical" class="line_2" position="absolute 738 79 744 135"/>
        <Shape id="line1" linetype="vertical" class="line_2" position="absolute 1194 79 1197 137" anchor="top right"/>
        <Shape id="line4" linetype="vertical" class="line_2" position="absolute -1 79 5 137"/>
        <Grid id="grd_main" taborder="12" binddataset="ds_main_maindatalist" autoenter="select" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 171 1195 706" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="22" band="left"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="85"/>
                <Column size="70"/>
                <Column size="100"/>
                <Column size="90"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="90"/>
                <Column size="90"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="100"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="취득일자"/>
                <Cell col="2" text="기관코드"/>
                <Cell col="3" text="자산구분코드"/>
                <Cell col="4" text="대분류코드"/>
                <Cell col="5" text="자산코드"/>
                <Cell col="6" text="계정코드"/>
                <Cell col="7" text="내용년수"/>
                <Cell col="8" text="상각율"/>
                <Cell col="9" text="자본적지출일자"/>
                <Cell col="10" text="처분일자"/>
                <Cell col="11" text="취득수량"/>
                <Cell col="12" text="처분수량"/>
                <Cell col="13" text="취득금액"/>
                <Cell col="14" text="상각방법코드"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" displaytype="date" text="bind:possndd" calendardisplaynulltype="nulltext"/>
                <Cell col="2" text="bind:instcd"/>
                <Cell col="3" text="bind:goodflag"/>
                <Cell col="4" text="bind:lrgcd"/>
                <Cell col="5" text="bind:fixasetcd"/>
                <Cell col="6" text="bind:acntcd"/>
                <Cell col="7" text="bind:cntsyearno"/>
                <Cell col="8" text="bind:repayrate"/>
                <Cell col="9" displaytype="date" text="bind:jabonjcdate" calendardisplaynulltype="nulltext"/>
                <Cell col="10" displaytype="date" text="bind:chebundate" calendardisplaynulltype="nulltext"/>
                <Cell col="11" text="bind:goodqty"/>
                <Cell col="12" text="bind:chebunqty"/>
                <Cell col="13" displaytype="number" text="bind:possnamt"/>
                <Cell col="14" text="bind:repaymthd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line7" class="line_10" position="absolute 0 166 1195 172" anchor="left top right"/>
        <Static id="caption7" text="(* 10,000건 이상인 경우 10,000건만 조회가 됩니다. 다 조회가 안되도 감가상각실행 하시면 됩니다.)" position="absolute 85 151 645 164"/>
        <Static id="caption21" text="출력 목록" class="tit_2" position="absolute 0 150 131 171"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_be_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"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_fixasetlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_send_fixasetlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="instcd_search" type="STRING" size="256"/>
          <Column id="fixasetcd_search" type="STRING" size="256"/>
          <Column id="fixasetnm_search" type="STRING" size="256"/>
          <Column id="lrgcd_search" type="STRING" size="256"/>
          <Column id="before_yyyymm" type="STRING" size="256"/>
          <Column id="excute_yyyymm" type="STRING" size="256"/>
          <Column id="goodflag_search" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd_search"/>
            <Col id="fixasetcd_search"/>
            <Col id="fixasetnm_search"/>
            <Col id="lrgcd_search"/>
            <Col id="before_yyyymm"/>
            <Col id="excute_yyyymm"/>
            <Col id="goodflag_search"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_maindatalist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="possndd" type="STRING" size="256" sumtext=""/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="goodflag" type="STRING" size="256" sumtext=""/>
          <Column id="lrgcd" type="STRING" size="256" sumtext=""/>
          <Column id="fixasetcd" type="STRING" size="256" sumtext=""/>
          <Column id="acntcd" type="STRING" size="256" sumtext=""/>
          <Column id="cntsyearno" type="STRING" size="256" sumtext=""/>
          <Column id="repayrate" type="STRING" size="256" sumtext=""/>
          <Column id="jabonjcdate" type="STRING" size="256" sumtext=""/>
          <Column id="chebundate" type="STRING" size="256" sumtext=""/>
          <Column id="goodqty" type="STRING" size="256" sumtext=""/>
          <Column id="chebunqty" type="STRING" size="256" sumtext=""/>
          <Column id="possnamt" type="STRING" size="256" sumtext=""/>
          <Column id="last_yyyy" type="STRING" size="256" sumtext=""/>
          <Column id="repaymthd" type="STRING" size="256" sumtext=""/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_goodflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="ipt_be_yyyymm" propid="value" datasetid="ds_init_be_yyyymm" columnid="yyyymm"/>
      <BindItem id="item1" compid="ipt_yyyymm" propid="value" datasetid="ds_send_fixasetlist" columnid="excute_yyyymm"/>
      <BindItem id="item2" compid="cmb_instcd_search" propid="value" datasetid="ds_send_fixasetlist" columnid="instcd_search"/>
      <BindItem id="item3" compid="cmb_goodflag_search" propid="value" datasetid="ds_send_fixasetlist" columnid="goodflag_search"/>
      <BindItem id="item4" compid="cmb_lrgcd_search" propid="value" datasetid="ds_send_fixasetlist" columnid="lrgcd_search"/>
      <BindItem id="item5" compid="ipt_fixasetcd_search" propid="value" datasetid="ds_send_fixasetlist" columnid="fixasetcd_search"/>
      <BindItem id="item6" compid="ipt_fixasetnm_search" propid="value" datasetid="ds_send_fixasetlist" columnid="fixasetnm_search"/>
    </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";
include "mis_miscommonxp::RSZ001.xjs";
function SMRAR01400_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMRAR01400_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_main);
	grdf_setRowTypeIcon(grd_main, 0);
	
	fInitialize();
}

function fInitialize()
{
	var oParam = {};
		oParam.id          = "TRRAR01401";
		oParam.service     = "accountinginfoapp.AccountingInfo";
		oParam.method      = "getBefore_yyyymm";
		oParam.inds        = "req=ds_send_fixasetlist";
		oParam.outds       = "ds_init_be_yyyymm=be_yyyymm";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRAR01401";

	tranf_submit(oParam);
	
	misfComboComCdList("Z0007", cmb_instcd_search,   "N");	//기관코드
	cmb_instcd_search.value = sysf_getUserInfo("dutplceinstcd");

	rszfGoodFlagListByPgmGubn(cmb_goodflag_search,"2","N");	//유형자산구분
	cmb_goodflag_search.index = 0;
	  
	rszfLMSComboList(cmb_goodflag_search.value, "", "",  "cmb_lrgcd_search", "", "L");
	
	frmf_addComboItem("cmb_goodflag_search","--전체--","","above");
	frmf_addComboItem("cmb_lrgcd_search","--전체--","","above");
	
	cmb_goodflag_search.index = 0;
	cmb_lrgcd_search.index = 0;
}

function cmb_goodflag_search_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	rszfLMSComboList(obj.value, "", "",  "cmb_lrgcd_search", "", "L");
	frmf_addComboItem("cmb_lrgcd_search","--전체--","","above");
	cmb_lrgcd_search.value = "";
}

function ds_send_fixasetlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "fixasetcd_search")
	{
		var objFocus = this.getFocus();
		ipt_fixasetcd_search.value = e.newvalue;
		ipt_fixasetcd_search.setFocus();
		if(!utlf_isNull(e.newvalue))
		{
			rszfValidationCheck("TRRSD00241", "rfcmfacdlist", "instcd,requirementcd,requirementnm,goodflag", cmb_instcd_search.value +",fixasetcd," + e.newvalue+"," + cmb_goodflag_search.value,
								"", "fixasetcd,goodflaghngnm", ipt_fixasetcd_search, "SPRSD00240", "instcd,goodflag","cmb_instcd_search,cmb_goodflag_search");
			ds_send_fixasetlist.setColumn(0, "fixasetcd_search", ds_init_main.getColumn(0, "fixasetcd"));
			ds_send_fixasetlist.setColumn(0, "fixasetnm_search", ds_init_main.getColumn(0, "goodflaghngnm"));
		}
		else
		{
			ipt_fixasetnm_search.value = "";
		}
		
		objFocus.setFocus();
	}
}

function btn_fixasetcd_onclick(obj:Button,  e:ClickEventInfo)
{
	rszfOpenPopUpListByWndName(ipt_fixasetcd_search, "", "fixasetcd_search,fixasetnm_search","SPRSD00240","instcd,goodflag","cmb_instcd_search,cmb_goodflag_search");
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	if( fGetMainDataList()  )
	{	
		var oParam = {};
			oParam.id          = "TRRAR01402";
			oParam.service     = "accountinginfoapp.AccountingInfo";
			oParam.method      = "getSanggaklist";
			oParam.inds        = "req=ds_send_fixasetlist";
			oParam.outds       = "ds_main_maindatalist=maindatalist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRRAR01402";

		tranf_submit(oParam);
	}
}

function fGetMainDataList()	
{					
	if (utlf_isNull(ipt_yyyymm.value))
	{
		sysf_messageBox("작업년월을 ","C001");
		return false;
	}
	if (String(ipt_yyyymm.value).length != 6 )
	{
		sysf_messageBox("작업년월을 6 자리로","C001");
		return false;
	}
	return true;
}	

function btn_depreciation_onclick(obj:Button,  e:ClickEventInfo)
{
	if( fGetMainDataList()  ) 
	{	
		rtn = sysf_messageBox("입력하신 조건대로 감가상각 처리를 합니다.","Q002");
		if ( rtn == "6" )
		{	
			var oParam = {};
				oParam.id          = "TXRAR01401";
				oParam.service     = "accountinginfoapp.AccountingInfo";
				oParam.method      = "exeProcSanggak";
				oParam.inds        = "req=ds_send_fixasetlist";
				oParam.outds       = "ds_=line";
				oParam.async       = false;
				oParam.callback    = "cf_TXRAR01401";

			tranf_submit(oParam);
		}
	}
}

function cf_TXRAR01401(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) return;
    else
    {
		var oParam = {};
			oParam.id          = "TRRAR01401";
			oParam.service     = "accountinginfoapp.AccountingInfo";
			oParam.method      = "getBefore_yyyymm";
			oParam.inds        = "req=ds_send_fixasetlist";
			oParam.outds       = "ds_init_be_yyyymm=be_yyyymm";
			oParam.async       = false;
			//oParam.callback    = "cf_TRRAR01401";

		tranf_submit(oParam);
    }
}

function btn_clse_onclick(obj:Button,  e:ClickEventInfo)
{
	frmf_modal("SMRAR02400", "SMRAR02400", "", "", "", "", "", "", "", "", "", "", "M");
}

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