YNU_JEUS/app_home/himed/xpapps/sts/stscmcnwxp/xp/SMSDT01000_사회사업상담환자실적.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMSDT01000" position="absolute 0 0 1198 801" titletext="사회사업 접수/상담 환자 실적" oninit="SMSDT01000_oninit" onload="SMSDT01000_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="사회사업 접수/상담 환자 실적 조회" class="tit_1" position="absolute 0 0 280 25"/>
        <Static id="caption21" text="사회사업 접수/상담 환자 실적" class="tit_2" position="absolute 0 83 219 104"/>
        <Shape id="line1" linetype="horizontal" class="line_10" position="absolute 0 97 1195 108" anchor="left top right"/>
        <Div id="group4" anchor="left top right" taborder="2" class="div_SA" position="absolute 0 25 1195 65">
          <Layouts>
            <Layout>
              <Combo id="cmb_sumflaga2" taborder="2" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 335 11 445 30" onitemchanged="group4_cmb_sumflaga2_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">월별</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">3</Col>
                      <Col id="datacolumn">임상과별</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">4</Col>
                      <Col id="datacolumn">의뢰유형별</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">5</Col>
                      <Col id="datacolumn">연령별</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">6</Col>
                      <Col id="datacolumn">직업별</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">7</Col>
                      <Col id="datacolumn">학력별</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Combo id="cmb_sumflaga1" taborder="6" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 335 11 445 30" onitemchanged="group4_cmb_sumflaga1_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">월별</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">4</Col>
                      <Col id="datacolumn">의뢰유형별</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">5</Col>
                      <Col id="datacolumn">연령별</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Button id="button2" taborder="1" text="조회" class="btn1" position="absolute 1123 10 1179 32" anchor="top right" onclick="group4_button2_onclick"/>
              <Static id="caption23" text="조회구분 :" class="search_name" position="absolute 245 13 331 30"/>
              <Shape id="line2" linetype="vertical" position="absolute 1110 10 1116 32" anchor="top right"/>
              <Static id="cap1" text="~" position="absolute 672 11 681 31"/>
              <Calendar id="ipt_fromdd" taborder="3" class="input_search" position="absolute 565 11 665 30" mask="yyyy-mm" autoselect="true" autoskip="true" dateformat="yyyy-MM" value="null" editformat="yyyy-MM" onchanged="group4_ipt_fromdd_onchanged"/>
              <Calendar id="ipt_todd" taborder="4" class="input_search" position="absolute 688 11 788 30" mask="yyyy-mm" autoselect="true" dateformat="yyyy-MM" editformat="yyyy-MM" onchanged="group4_ipt_todd_onchanged"/>
              <Static id="caption1" text="조회기간 :" class="search_name" position="absolute 480 12 580 29"/>
              <Radio id="rdo_achivflag" taborder="5" columncount="4" rowcount="1" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 30 10 225 30" onitemchanged="group4_rdo_achivflag_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">A1</Col>
                      <Col id="datacolumn">접수환자실적</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">A2</Col>
                      <Col id="datacolumn">상담환자실적</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_excel" taborder="3" text="엑셀저장" class="btn7" position="absolute 1115 80 1195 99" anchor="top right" onclick="btn_excel_onclick"/>
        <Grid id="grd_cnst" class="datagrid2" taborder="4" binddataset="ds_main_cnstinfo_cnstlist" useinputpanel="false" position="absolute 0 104 1195 768" anchor="all" autoenter="select" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="201"/>
                <Column size="120"/>
                <Column size="120"/>
                <Column size="120"/>
                <Column size="120"/>
                <Column size="120"/>
                <Column size="120"/>
                <Column size="120"/>
                <Column size="128"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="구분"/>
                <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="전월대비실적비교"/>
              </Band>
              <Band id="body">
                <Cell text="bind:cond"/>
                <Cell col="1" text="bind:bizfilecommon"/>
                <Cell col="2" text="bind:bizfilereform"/>
                <Cell col="3" text="bind:bizfilemind"/>
                <Cell col="4" text="bind:bizfileorgantrans"/>
                <Cell col="5" text="bind:bizfilehospis"/>
                <Cell col="6" text="bind:sum"/>
                <Cell col="7" text="bind:bfsum"/>
                <Cell col="8" text="bind:bfcompare" expr="expr:parseInt(sum)-parseInt(bfsum)"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line37" linetype="horizontal" class="line_6" position="absolute 0 768 1195 774" anchor="left right bottom"/>
        <Button id="btn_search0" taborder="5" text="초기화" class="btn4" position="absolute 1127 772 1195 794" anchor="right bottom" onclick="btn_search0_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="sumflag" type="STRING" size="256"/>
          <Column id="achivflag" type="STRING" size="256"/>
          <Column id="cdgrupid" type="STRING" size="256"/>
          <Column id="fromyy" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="fromdd"/>
            <Col id="todd"/>
            <Col id="sumflag">2</Col>
            <Col id="achivflag">A1</Col>
            <Col id="cdgrupid"/>
            <Col id="fromyy"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_cnstinfo_cnstlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cond" type="STRING" size="256" sumtext="구분"/>
          <Column id="bizfilecommon" type="STRING" size="256" sumtext="일반의료"/>
          <Column id="bizfilereform" type="STRING" size="256" sumtext="재활의료"/>
          <Column id="bizfilemind" type="STRING" size="256" sumtext="정신의료"/>
          <Column id="bizfileorgantrans" type="STRING" size="256" sumtext="장기이식"/>
          <Column id="bizfilehospis" type="STRING" size="256" sumtext="호스피스"/>
          <Column id="sum" type="STRING" size="256" sumtext="합계"/>
          <Column id="bfcompare" type="STRING" size="256"/>
          <Column id="bfsum" type="STRING" size="256"/>
          <Column id="befsum" type="STRING" size="256"/>
          <Column id="befcompare" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group4.rdo_achivflag" propid="value" datasetid="ds_send_reqdata" columnid="achivflag"/>
      <BindItem id="item1" compid="group4.cmb_sumflaga1" propid="value" datasetid="ds_send_reqdata" columnid="sumflag"/>
      <BindItem id="item2" compid="group4.cmb_sumflaga2" propid="value" datasetid="ds_send_reqdata" columnid="sumflag"/>
      <BindItem id="item3" compid="group4.ipt_fromdd" propid="value" datasetid="ds_send_reqdata" columnid="fromdd"/>
      <BindItem id="item4" compid="group4.ipt_todd" propid="value" datasetid="ds_send_reqdata" columnid="todd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
function SMSDT01000_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMSDT01000_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_cnst);
	
	fInit();
}

function fInit()
{				
	var currentDate = utlf_getCurrentDate();
	var LastDate = currentDate.toDate().getAddDate(-1,"M").getDateFormat();
	var LastDateYM = String(LastDate).substr(0,6);
	
	ds_send_reqdata.setColumn(0, "fromdd", LastDateYM );					
	ds_send_reqdata.setColumn(0, "todd", LastDateYM );		
	ds_main_cnstinfo_cnstlist.clearData();
}

function group4_rdo_achivflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fAchivflagChagne();			
}

function fAchivflagChagne()
{
	if(group4.rdo_achivflag.value == 'A1')
	{
		ds_main_cnstinfo_cnstlist.clearData();
		group4.cmb_sumflaga1.visible = true;
		group4.cmb_sumflaga2.visible = false;
		group4.cmb_sumflaga1.value = 2;
	}
	else
	{
		ds_main_cnstinfo_cnstlist.clearData();
		group4.cmb_sumflaga1.visible = false;
		group4.cmb_sumflaga2.visible = true;
		group4.cmb_sumflaga2.value = 2;
	}
}

function group4_cmb_sumflaga2_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fAllSearch();
}

function group4_cmb_sumflaga1_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fAllSearch();
}

function fAllSearch()
{
	ds_main_cnstinfo_cnstlist.clearData();
	
	var val = ds_send_reqdata.getColumn(0, "sumflag");
		
	switch(val)
	{
		case("2"):  
			fDisableGrd(false);	
			var fromyy = ds_send_reqdata.getColumn(0, "fromdd");
			ds_send_reqdata.setColumn(0, "fromyy", String(fromyy).substr(0,4));	
			fPerMonthSearch();
			break;
		// 임상과
		case("3"):
			fDisableGrd(true);
			fClinicalSearch();
			break;						
		// 의뢰유형별
		case("4"):
			fDisableGrd(true);
			fSetSendValue("A0205");
			fSearch();
			   break;
		// 연령별
		case("5"):
			fDisableGrd(true);
			fSetSendValue("A0178");
			fSearch();
			break;
		// 직업별
		case("6"):
		fDisableGrd(true);
			fSetSendValue("M0068");
			fSearch();
			break;
		// 학력별
		case("7"):
			fDisableGrd(true);
			fSetSendValue("M0069");
			fSearch();
			break;
		}					
}

function fPerMonthSearch()
{					
	if(!fDefaultCheck()) return;
	
	var oParam = {};
		oParam.id          = "TRSDT01003";
		oParam.service     = "stscmcnwapp.SoclEndStats";
		oParam.method      = "reqGetPerMonthCnstInfo";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_cnstinfo_cnstlist=cnstlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRSDT01003";

	tranf_submit(oParam);
}

function cf_TRSDT01003(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) 
    {
		sysf_messageBox("조회를", "E009");
		return;
	}
    else
    {
		if(ds_main_cnstinfo_cnstlist.rowcount <= 1)
		{
			ds_main_cnstinfo_cnstlist.clearData();
			return;
		}						
		fGetPerMonthSum();			
    }
}


function fClinicalSearch()
{
	if(!fDefaultCheck()) return;
	
	var oParam = {};
		oParam.id          = "TRSDT01002";
		oParam.service     = "stscmcnwapp.SoclEndStats";
		oParam.method      = "reqGetClinicCnstInfo";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_cnstinfo_cnstlist=cnstlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRSDT01002";

	tranf_submit(oParam);
}
				
function cf_TRSDT01002(sSvcId, nErrorCode, sErrorMsg)
{
    if(nErrorCode < 0) 
    {
		sysf_messageBox("조회를", "E009");
		return;
	}
}

function fGetPerMonthSum()
{	
	if(ds_main_cnstinfo_cnstlist.rowcount > 1)
	{
		var sStat = 0;
		var insRow = ds_main_cnstinfo_cnstlist.addRow();
		ds_main_cnstinfo_cnstlist.setColumn(insRow, "cond", "전기간대비실적비교");
			
		for(var i = 1; i < 7; i++)
		{
			var bfResult = eval(ds_main_cnstinfo_cnstlist.getColumn(insRow-1 , i));												
			var sSum = eval(ds_main_cnstinfo_cnstlist.getColumn(insRow-2, i));
																							
			sStat = eval(sSum)- eval(bfResult);
			ds_main_cnstinfo_cnstlist.setColumn(insRow, i, eval(sStat));												
		}					
		ds_main_cnstinfo_cnstlist.setColumn(insRow-1, "bfcompare", "");
		ds_main_cnstinfo_cnstlist.setColumn(insRow, "bfcompare", "");
	}	 	
}

function fDefaultCheck()
{
	var fromdd = ds_send_reqdata.getColumn(0, "fromdd") +"01";
	var todd     = ds_send_reqdata.getColumn(0, "todd")+ "01";				
	var dateintval = utlf_getDateInterval(fromdd,todd);
	
	if(utlf_isNull(fromdd) == true || utlf_isNull(todd) == true)
	{
		sysf_messageBox("조회기간을", "C001");
		group4.ipt_fromdd.setFocus();
		return false;
	}
	
	if( !utlf_isValidDateTime(fromdd, 'YYYYMMDD') || !utlf_isValidDateTime(todd, 'YYYYMMDD'))
	{
		sysf_messageBox("입력하신 일이 정확한 날짜타입이 아닙니다.", "E999", "");
		group4.ipt_fromdd.setFocus();
		ds_main_cnstinfo_cnstlist.clearData();
		return false;	
	}
	if(fromdd>todd)
	{
		sysf_messageBox("조회시작일보다 큰 조회종료일을 입력하십시요.","I");
		group4.ipt_todd.setFocus();
		ds_main_cnstinfo_cnstlist.clearData();
		return false;		
	}
	
	if(dateintval>=365)
	{
		ds_main_cnstinfo_cnstlist.clearData();
		
		sysf_messageBox("조회기간은 최대1년까지 할 수 있습니다.","I");
		group4.ipt_fromdd.setFocus();
		
		return false;
	}
	else
	{
		return true;
	}
}

function fSetSendValue(cdgrupid)
{
	ds_send_reqdata.setColumn(0, "cdgrupid", cdgrupid);
}

function fDisableGrd(flag)
{
	if(flag == true)
	{
		grd_cnst.setFormatColProperty(7, "size", 0);
		grd_cnst.setFormatColProperty(8, "size", 0);
	}
	else
	{
		grd_cnst.setFormatColProperty(7, "size", 120);
		grd_cnst.setFormatColProperty(8, "size", 128);
	}
}

function fSearch()
{
	if(!fDefaultCheck()) return;
	
	var oParam = {};
		oParam.id          = "TRSDT01001";
		oParam.service     = "stscmcnwapp.SoclEndStats";
		oParam.method      = "reqGetCnstInfo";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_cnstinfo_cnstlist=cnstlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRSDT01001";

	tranf_submit(oParam);					
}

function cf_TRSDT01001(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) 
    {
		sysf_messageBox("조회를", "E009");
		return;
	}
}

function group4_ipt_fromdd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	ds_send_reqdata.setColumn(0, "fromdd", String(obj.value).substr(0,6));
}

function group4_ipt_todd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	ds_send_reqdata.setColumn(0, "todd", String(obj.value).substr(0,6));
}

function group4_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	fAllSearch();	
}

function btn_search0_onclick(obj:Button,  e:ClickEventInfo)
{
	fInit();
}

function btn_excel_onclick(obj:Button,  e:ClickEventInfo)
{
	fExcel();
}

function fExcel() 
{
	if (ds_main_cnstinfo_cnstlist.rowcount == 0)
	{
		sysf_messageBox("엑셀파일로 저장할 리스트 내역이", "I004");
		return;
	}
	
	grdf_exportExcel(grd_cnst, "사회사업접수상담환자실적", "SheetName", "true", "", "");
}]]></Script>
  </Form>
</FDL>