YNU_JEUS/app_home/himed/xpapps/sts/stscmcnwxp/xp/SMSDT04000_사회사업협의뢰및회신실적.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMSDT04000" position="absolute 0 0 1197 802" titletext="사회사업협진의뢰및회신실적" oninit="SMSDT04000_oninit" onload="SMSDT04000_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="사회사업 협진의뢰 및 회신실적 조회" class="tit_1" position="absolute 0 0 278 25"/>
        <Static id="caption21" text="사회사업 협진의뢰 및 회신실적" class="tit_2" position="absolute 0 87 232 109"/>
        <Shape id="line1" linetype="horizontal" class="line_10" position="absolute 0 101 1195 112" anchor="left top right"/>
        <Div id="group4" taborder="2" class="div_SA" position="absolute 0 25 1195 65" anchor="left top right">
          <Layouts>
            <Layout>
              <Button id="button2" taborder="1" text="조회" class="btn1" position="absolute 1123 9 1179 31" anchor="top right" onclick="group4_button2_onclick"/>
              <Static id="caption23" text="조회구분 :" class="search_name" position="absolute 16 12 102 29"/>
              <Shape id="line2" linetype="vertical" position="absolute 1110 9 1116 31" anchor="top right"/>
              <Static id="cap1" text="~" position="absolute 455 11 464 31"/>
              <Calendar id="ipt_fromdd" taborder="2" autoselect="true" autoskip="true" class="input_search" position="absolute 348 11 448 30" mask="yyyy-mm" dateformat="yyyy-MM" value="null" editformat="yyyy-MM" onchanged="group4_ipt_fromdd_onchanged"/>
              <Calendar id="ipt_todd" taborder="3" autoselect="true" class="input_search" position="absolute 471 11 571 30" mask="yyyy-mm" dateformat="yyyy-MM" editformat="yyyy-MM" onchanged="group4_ipt_todd_onchanged"/>
              <Static id="caption1" text="조회기간 :" class="search_name" position="absolute 256 13 356 30"/>
              <Combo id="cmb_sumflag" taborder="4" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 110 11 220 30" onitemchanged="group4_cmb_sumflag_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">월별</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">임상주치의별</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_excel" taborder="3" text="엑셀저장" class="btn7" position="absolute 1115 84 1195 103" 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 108 1195 772" autoenter="select" autofittype="col" cellsizingtype="col" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="120"/>
                <Column size="95"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="64"/>
                <Column size="64"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24" band="head"/>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell rowspan="3" colspan="2" text="구분" taborder="undefined"/>
                <Cell col="2" colspan="2" text="일반진료" taborder="undefined"/>
                <Cell col="4" colspan="2" text="재활의료" taborder="undefined"/>
                <Cell col="6" colspan="2" text="정신의료" taborder="undefined"/>
                <Cell col="8" colspan="2" text="장기이식" taborder="undefined"/>
                <Cell col="10" colspan="2" text="호스피스" taborder="undefined"/>
                <Cell col="12" colspan="2" text="합계" taborder="undefined"/>
                <Cell col="14" colspan="2" text="전월실적" taborder="undefined"/>
                <Cell col="16" colspan="2" text="전월대비실적비교" taborder="undefined"/>
                <Cell row="1" col="2" rowspan="2" text="consult" taborder="undefined"/>
                <Cell row="1" col="3" rowspan="2" text="reply" taborder="undefined"/>
                <Cell row="1" col="4" rowspan="2" text="consult" taborder="undefined"/>
                <Cell row="1" col="5" rowspan="2" text="reply" taborder="undefined"/>
                <Cell row="1" col="6" rowspan="2" text="consult" taborder="undefined"/>
                <Cell row="1" col="7" rowspan="2" text="reply" taborder="undefined"/>
                <Cell row="1" col="8" rowspan="2" text="consult" taborder="undefined"/>
                <Cell row="1" col="9" rowspan="2" text="reply" taborder="undefined"/>
                <Cell row="1" col="10" rowspan="2" text="consult" taborder="undefined"/>
                <Cell row="1" col="11" rowspan="2" text="reply" taborder="undefined"/>
                <Cell row="1" col="12" rowspan="2" text="consult" taborder="undefined"/>
                <Cell row="1" col="13" rowspan="2" text="reply" taborder="undefined"/>
                <Cell row="1" col="14" rowspan="2" text="consult" taborder="undefined"/>
                <Cell row="1" col="15" rowspan="2" text="reply" taborder="undefined"/>
                <Cell row="1" col="16" rowspan="2" text="consult" taborder="undefined"/>
                <Cell row="1" col="17" rowspan="2" text="reply" taborder="undefined"/>
              </Band>
              <Band id="body">
                <Cell text="bind:cdnm" suppress="1" suppressalign="middle,over"/>
                <Cell col="1" text="bind:usernm" suppress="2" suppressalign="middle,over"/>
                <Cell col="2" text="bind:reqcnt1"/>
                <Cell col="3" text="bind:replcnt1"/>
                <Cell col="4" text="bind:reqcnt2"/>
                <Cell col="5" text="bind:replcnt2"/>
                <Cell col="6" text="bind:reqcnt3"/>
                <Cell col="7" text="bind:replcnt3"/>
                <Cell col="8" text="bind:reqcnt4"/>
                <Cell col="9" text="bind:replcnt4"/>
                <Cell col="10" text="bind:reqcnt5"/>
                <Cell col="11" text="bind:replcnt5"/>
                <Cell col="12" text="bind:reqtot"/>
                <Cell col="13" text="bind:repltot"/>
                <Cell col="14" text="bind:bfreqcnt"/>
                <Cell col="15" text="bind:bfreplcnt"/>
                <Cell col="16" text="bind:bfreqcntconsult" expr="expr:parseInt(reqtot) - parseInt(bfreqcnt)"/>
                <Cell col="17" text="bind:bfreplcntreply" expr="expr:parseInt(repltot) - parseInt(bfreplcnt)"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line37" class="line_6" position="absolute 0 772 1195 778" anchor="left right bottom"/>
        <Button id="btn_search0" taborder="5" text="초기화" class="btn4" position="absolute 1127 777 1195 799" anchor="right bottom" onclick="btn_search0_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_cond" 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"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="fromdd"/>
            <Col id="todd"/>
            <Col id="sumflag">1</Col>
          </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="dispseq" type="STRING" size="256" sumtext="dispseq"/>
          <Column id="cdnm" type="STRING" size="256" sumtext="cdnm"/>
          <Column id="usernm" type="STRING" size="256" sumtext="usernm"/>
          <Column id="userdispseq" type="STRING" size="256" sumtext="userdispseq"/>
          <Column id="reqcnt1" type="STRING" size="256" sumtext="일반진료consult"/>
          <Column id="replcnt1" type="STRING" size="256" sumtext="일반진료reply"/>
          <Column id="reqcnt2" type="STRING" size="256" sumtext="재활의료consult"/>
          <Column id="replcnt2" type="STRING" size="256" sumtext="재활의료reply"/>
          <Column id="reqcnt3" type="STRING" size="256" sumtext="정신의료consult"/>
          <Column id="replcnt3" type="STRING" size="256" sumtext="정신의료reply"/>
          <Column id="reqcnt4" type="STRING" size="256" sumtext="장기이식consult"/>
          <Column id="replcnt4" type="STRING" size="256" sumtext="장기이식reply"/>
          <Column id="reqcnt5" type="STRING" size="256" sumtext="호스피스consult"/>
          <Column id="replcnt5" type="STRING" size="256" sumtext="호스피스reply"/>
          <Column id="reqtot" type="STRING" size="256" sumtext="합계consult"/>
          <Column id="repltot" type="STRING" size="256" sumtext="합계reply"/>
          <Column id="bfreqcnt" type="STRING" size="256"/>
          <Column id="bfreplcnt" type="STRING" size="256"/>
          <Column id="bfreqcntconsult" type="STRING" size="256"/>
          <Column id="bfreplcntreply" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group4.cmb_sumflag" propid="value" datasetid="ds_main_cond" columnid="sumflag"/>
      <BindItem id="item1" compid="group4.ipt_fromdd" propid="value" datasetid="ds_main_cond" columnid="fromdd"/>
      <BindItem id="item2" compid="group4.ipt_todd" propid="value" datasetid="ds_main_cond" 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 SMSDT04000_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

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

function fInit()
{
	ds_main_cnstinfo_cnstlist.clearData();
	group4.cmb_sumflag.index = 0;

	var currentDate = utlf_getCurrentDate();
	var LastDate = currentDate.toDate().getAddDate(-1,"M").getDateFormat();
	var LastDateYM = String(LastDate).substr(0,6);
	
	ds_main_cond.setColumn(0, "fromdd"	,LastDateYM );
	ds_main_cond.setColumn(0, "todd"	,LastDateYM );
}	

function group4_cmb_sumflag_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fGetSoclConfCnstInfo();		
}

function fGetSoclConfCnstInfo()
{	
	var fdate = ds_main_cond.getColumn(0, "fromdd");
	var todate = ds_main_cond.getColumn(0, "todd");
	
	var fromdd = ds_main_cond.getColumn(0, "fromdd") +"01";
	var todd   = ds_main_cond.getColumn(0, "todd")+ "01";				
	var dateintval = utlf_getDateInterval(fromdd,todd);
	
	if(utlf_isNull(fdate))
	{
		sysf_messageBox("조회시작일자는","I003");
		group4.ipt_fromdd.setFocus();
		return;
	}
	if(utlf_isNull(todate))
	{
		sysf_messageBox("조회종료일자는","I003");
		group4.ipt_todd.setFocus();
		return;
	}
	if(fdate>todate)
	{
		sysf_messageBox("조회시작일보다 큰 조회종료일을 입력하십시요.","I");
		group4.ipt_todd.setFocus();
		return;
	}
	
	if(dateintval >= 365)
	{
		sysf_messageBox("조회기간은 최대1년까지 할 수 있습니다.","I");
		group4.ipt_todd.setFocus();
		return;
	}
	
	if(group4.cmb_sumflag.value == '2')
	{	
		var oParam = {};
			oParam.id          = "TRSDT04001";
			oParam.service     = "stscmcnwapp.SoclEndStats";
			oParam.method      = "reqGetSoclReplClinic";
			oParam.inds        = "req=ds_main_cond";
			oParam.outds       = "ds_main_cnstinfo_cnstlist=cnstlist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRSDT04001";

		tranf_submit(oParam);
		
		grd_cnst.setFormatColProperty(0, "size", 120);
		grd_cnst.setFormatColProperty(1, "size", 95);
		grd_cnst.setFormatColProperty(14, "size", 0);
		grd_cnst.setFormatColProperty(15, "size", 0);
		grd_cnst.setFormatColProperty(16, "size", 0);
		grd_cnst.setFormatColProperty(17, "size", 0);
	}
	else if(group4.cmb_sumflag.value == '1') 
	{
		var oParam = {};
			oParam.id          = "TRSDT04001";
			oParam.service     = "stscmcnwapp.SoclEndStats";
			oParam.method      = "reqGetSoclReplMonth";
			oParam.inds        = "req=ds_main_cond";
			oParam.outds       = "ds_main_cnstinfo_cnstlist=cnstlist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRSDT04001";

		tranf_submit(oParam);
		
		grd_cnst.setFormatColProperty(14, "size", 64);
		grd_cnst.setFormatColProperty(15, "size", 64);
		grd_cnst.setFormatColProperty(16, "size", 64);
		grd_cnst.setFormatColProperty(17, "size", 64);
		
		fStat();
	}
}

function fStat() 
{
	if(ds_main_cnstinfo_cnstlist.rowcount > 1)
	{
		var sStat = 0;
		var insRow = ds_main_cnstinfo_cnstlist.addRow();
		ds_main_cnstinfo_cnstlist.setColumn(insRow, "cdnm", "전기간대비실적비교");
		ds_main_cnstinfo_cnstlist.setColumn(insRow, "usernm", "전기간대비실적비교");
		
		for(var i = 4; i < 16; 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, "bfreqcntconsult", "");
		ds_main_cnstinfo_cnstlist.setColumn(insRow, "bfreqcntconsult", "");
		ds_main_cnstinfo_cnstlist.setColumn(insRow-1, "bfreplcntreply", "");
		ds_main_cnstinfo_cnstlist.setColumn(insRow, "bfreplcntreply", "");
		
		grd_cnst.setFormatColProperty(0, "size", 200);
		grd_cnst.setFormatColProperty(1, "size", 0);
	}
	else
	{
		ds_main_cnstinfo_cnstlist.clearData();
	}
}

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

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

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

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_brgstincmexpsprescond, "사회사업 협진의뢰및회신실적", "SheetName", "true", "", "");
}

function btn_search0_onclick(obj:Button,  e:ClickEventInfo)
{
	fInit();
}
]]></Script>
  </Form>
</FDL>