YNU_JEUS/app_home/himed/xpapps/mis/dligclaznsmngtxp/xp/SMRPD01500_월근태집계.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMRPD01500" position="absolute 0 0 581 275" titletext="월근태집계" oninit="SMRPD01500_oninit" onload="SMRPD01500_onload">
    <Layouts>
      <Layout>
        <Edit id="ipt_errormsg" taborder="3" visible="false" position="absolute 89 78 304 97" autoselect="true" autoskip="true"/>
        <Static id="caption6" text="월근태집계" class="tit_1" position="absolute 0 0 220 25"/>
        <Shape id="line204" linetype="horizontal" class="line_2" position="absolute 0 97 280 103"/>
        <Shape id="line203" class="line_10" position="absolute 0 47 280 53"/>
        <Shape id="line1" class="line_3" position="absolute 0 125 280 131"/>
        <Static id="caption278" text="월근태집계" class="tit_2" position="absolute 0 31 157 52"/>
        <Calendar id="ipt_payym" taborder="1" class="input_default" position="absolute 89 103 274 122" mask="yyyy-mm" autoselect="true" autoskip="true" dateformat="yyyy-MM" value="null" editformat="yyyy-MM" onchanged="ipt_payym_onchanged"/>
        <Static id="cap_payym" text="근무년월" class="cell_1" position="absolute 0 100 87 126"/>
        <Radio id="rdo_idflag" taborder="2" columncount="2" rowcount="0" innerdataset="@ds_init_radio1" codecolumn="value" datacolumn="label" position="absolute 92 77 187 96"/>
        <Static id="cap_idflag" text="작업구분" class="cell_1" position="absolute 0 76 87 99"/>
        <Combo id="cmb_instcd" taborder="4" class="combo_search" position="absolute 89 54 280 73"/>
        <Static id="caption1" text="근무기관" class="cell_1" position="absolute 0 52 87 75"/>
        <Shape id="line2" class="line_6" position="absolute 0 128 306 134"/>
        <Button id="btn_save" taborder="5" text="작업" class="btn4" position="absolute 250 132 306 154" onclick="btn_save_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_paycalc" 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="idflag" type="STRING" size="256"/>
          <Column id="payym" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="idflag">I</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="errormsg" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_radio1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">생성</Col>
            <Col id="value">I</Col>
          </Row>
          <Row>
            <Col id="label">삭제</Col>
            <Col id="value">D</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="cmb_instcd" propid="value" datasetid="ds_send_paycalc" columnid="instcd"/>
      <BindItem id="item1" compid="rdo_idflag" propid="value" datasetid="ds_send_paycalc" columnid="idflag"/>
      <BindItem id="item2" compid="ipt_errormsg" propid="value" datasetid="ds_temp" columnid="errormsg"/>
      <BindItem id="item3" compid="ipt_payym" propid="value" datasetid="ds_send_paycalc" columnid="payym"/>
    </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_humtrafactmngtxp::RPB001.xjs";
function SMRPD01500_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMRPD01500_onload(obj:Form, e:LoadEventInfo)
{
	fSetPreMonth();
	
	misfComboInstCdListMulti("cmb_instcd",ds_send_paycalc.getColumn(0, "payym")+String(utlf_getCurrentDate()).substr(6, 2),"","N");
	
	misfGetAndSetUserInfo();
	misfGetUserAuth();
	
	ds_send_paycalc.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
	
	fSetControlAuth();
	btn_save.enable = frmf_checkAuth("X");
}

function fSetPreMonth()
{
	var sYm = utlf_getCurrentDate().toDate().getAddDate(-1,"M").getDateFormat("YYYYMMDD").substr(0, 6);
	
	ds_send_paycalc.setColumn(0, "payym", sYm);
}

function fSetControlAuth()
{
	if(sysf_getUserInfo("dutplceinstcd") == "001" && DUTY_PART_YN == "Y")
	{
		cmb_instcd.enable = true;
	}
	else if(sysf_getUserInfo("dutplceinstcd") != "001" && DUTY_PART_YN == "Y")
	{
		cmb_instcd.enable = false;
	}
}

function ipt_payym_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	var instcd = cmb_instcd.value;
	var date = String(obj.value).substr(0,6);
	
	if( utlf_getStringLength(date) == "6" ) 
	{
		cmb_instcd.value = "";
		ds_send_paycalc.setColumn(0, "instcd", "");
		
		misfComboInstCdListMulti("cmb_instcd",date+"31","","Y");
		cmb_instcd.value = instcd;
	}
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	if(DUTY_PART_YN != "Y")
	{
		sysf_messageBox("인사 담당자만 작업할 수 있습니다.", "I999");
		return;
	}
	
	var dlgRslt;
	
	if(ds_send_paycalc.getColumn(0, "idflag") == "D")
	{
		dlgRslt = sysf_messageBox("근태 집계를", "Q001");
		
		if(dlgRslt != 6) 
		{
			return;
		}
		
		dlgRslt = sysf_messageBox("계속", "Q003");
		
		if(dlgRslt != 6) 
		{
			return;
		}
	}
	
	if(!frmf_isRequiredControls("rdo_idflag", "ipt_payym")) 
	{
		return;
	}
	
	var oParam = {};
		oParam.id          = "TXRPD01501";
		oParam.service     = "dligclaznsmngtapp.DligcLaznsSumMngt";
		oParam.method      = "reqExeSPDligcLaznsSumProcess";
		oParam.inds        = "req=ds_send_paycalc";
		oParam.outds       = "ds_temp=temp";
		oParam.async       = false;
		oParam.callback    = "cf_TXRPD01501";

	tranf_submit(oParam);
	
	if(!utlf_isNull(ipt_errormsg.value))
	{
		sysf_messageBox(ipt_errormsg.value, "I999");
	}
}
]]></Script>
  </Form>
</FDL>