YNU_JEUS/app_home/himed/xpapps/ast/healexamxp/xp/SMAHA02800_DM발송관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMAHA02800" position="absolute 0 0 1204 805" titletext="건진 DM발송관리" oninit="SMAHA02800_oninit" onload="SMAHA02800_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="DM 발송관리" class="tit_1" position="absolute 0 0 210 25"/>
        <Static id="caption1" text="DM 발송 LIST" class="tit_2" position="absolute 0 80 210 102"/>
        <Shape id="line1" class="line_10" position="absolute 0 96 1195 102" anchor="left top right"/>
        <Grid id="dtg_healdmlist" taborder="1" binddataset="ds_main_healdminfo_healdmlist_item" useinputpanel="false" position="absolute 0 101 1195 765" autoenter="select" autofittype="none" cellsizingtype="col" anchor="all" selecttype="multirow" onheadclick="dtg_healdmlist_onheadclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="24"/>
                <Column size="25"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="80"/>
                <Column size="278"/>
                <Column size="55"/>
                <Column size="260"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox"/>
                <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="마지막검진일"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chk" expr="expr:chk == 'Y' ? 1 : 0"/>
                <Cell col="2" edittype="none" text="bind:pid"/>
                <Cell col="3" edittype="none" text="bind:hngnm"/>
                <Cell col="4" edittype="none" text="bind:rrgstno"/>
                <Cell col="5" edittype="none" text="bind:telno"/>
                <Cell col="6" edittype="none" text="bind:mpphon"/>
                <Cell col="7" edittype="none" text="bind:zipcode" mask="###-###" maskchar=" "/>
                <Cell col="8" edittype="none" style="align:left middle;padding:0 0 0 3;" text="bind:address"/>
                <Cell col="9" edittype="none" text="bind:accnum"/>
                <Cell col="10" style="align:left middle;" text="bind:testnm" mask="expr:parseInt(testnm) ? '####-##-##' :''"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="grp_sea" anchor="left top right" taborder="2" class="div_SA" position="absolute 0 25 1195 65">
          <Layouts>
            <Layout>
              <Static id="caption2" text="조회조건 :" class="search_name" position="absolute 15 11 101 28"/>
              <Static id="caption5" text="~" class="search_no_b" position="absolute 485 12 497 29"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1104 9 1110 31" anchor="top right"/>
              <Calendar id="ipt_fromdd" taborder="1" class="input_s_essential" position="absolute 382 11 482 30" autoselect="true"/>
              <Calendar id="ipt_todd" taborder="2" class="input_s_essential" position="absolute 500 11 600 30" autoselect="true"/>
              <Button id="btn_sea" taborder="3" text="조회" class="btn1" position="absolute 1123 9 1179 31" anchor="top right" onclick="grp_sea_btn_sea_onclick"/>
              <Static id="caption3" text="발송일자 :" class="search_name" position="absolute 290 12 376 29"/>
              <Combo id="cmb_state" taborder="4" innerdataset="@ds_init_baseinfo_detlcodelst_item" codecolumn="etcdetlcd" datacolumn="etcdetlnm" class="combo_search" position="absolute 110 10 260 29"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_excsave" taborder="3" text="엑셀저장" class="btn7" position="absolute 1115 77 1195 96" anchor="top right" onclick="btn_excsave_onclick"/>
        <Button id="btn_prt" taborder="4" text="출력" class="btn6" position="absolute 0 770 56 792" anchor="left bottom" onclick="btn_prt_onclick"/>
        <Combo id="combo2" taborder="5" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 60 771 160 790" anchor="left bottom">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">01</Col>
                <Col id="datacolumn">2x5</Col>
              </Row>
              <Row>
                <Col id="codecolumn">02</Col>
                <Col id="datacolumn">2x8</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Button id="button1" taborder="6" text="추후검사 출력" class="btn6" position="absolute 164 770 280 792" anchor="left bottom" onclick="button1_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchfromdd" type="STRING" size="256"/>
          <Column id="srchtodd" type="STRING" size="256"/>
          <Column id="srchstate" type="STRING" size="256"/>
          <Column id="clscd" type="STRING" size="256"/>
          <Column id="etccd" type="STRING" size="256"/>
          <Column id="printformat" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchfromdd"/>
            <Col id="srchtodd"/>
            <Col id="srchstate"/>
            <Col id="clscd"/>
            <Col id="etccd"/>
            <Col id="printformat">02</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_healdminfo_healdmlist_item" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_healdminfo_healdmlist_item_oncolumnchanged">
        <ColumnInfo>
          <Column id="chk" type="STRING" size="256" sumtext="check"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="zipcode" type="STRING" size="256" sumtext="우편번호"/>
          <Column id="address" type="STRING" size="256" sumtext="주소"/>
          <Column id="telno" type="STRING" size="256" sumtext="전화번호"/>
          <Column id="mpphon" type="STRING" size="256" sumtext="핸드폰번호"/>
          <Column id="rrgstno" type="STRING" size="256" sumtext="주민번호"/>
          <Column id="accnum" type="STRING" size="256" sumtext="누적횟수"/>
          <Column id="testnm" type="STRING" size="256" sumtext="마지막검진일"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_baseinfo_detlcodelst_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_seqprntdata_labelname_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="sexage" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_seqprntdata_labelname" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="chk" type="STRING" size="256" sumtext="check"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="zipcode" type="STRING" size="256" sumtext="우편번호"/>
          <Column id="address" type="STRING" size="256" sumtext="주소"/>
          <Column id="telno" type="STRING" size="256" sumtext="전화번호"/>
          <Column id="mpphon" type="STRING" size="256" sumtext="핸드폰번호"/>
          <Column id="rrgstno" type="STRING" size="256" sumtext="주민번호"/>
          <Column id="accnum" type="STRING" size="256" sumtext="누적횟수"/>
          <Column id="testnm" type="STRING" size="256" sumtext="마지막검진일"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_rexaddprnt_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="rrgstno" type="STRING" size="256"/>
          <Column id="zipcode" type="STRING" size="256"/>
          <Column id="address" type="STRING" size="256"/>
          <Column id="testnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.cmb_state" propid="value" datasetid="ds_send" columnid="srchstate"/>
      <BindItem id="item1" compid="grp_sea.ipt_fromdd" propid="value" datasetid="ds_send" columnid="srchfromdd"/>
      <BindItem id="item2" compid="grp_sea.ipt_todd" propid="value" datasetid="ds_send" columnid="srchtodd"/>
      <BindItem id="item3" compid="combo2" propid="value" datasetid="ds_send" columnid="printformat"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
function SMAHA02800_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMAHA02800_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(dtg_healdmlist);
	grdf_setToolTipBind(dtg_healdmlist);
	fGetScreenInit();
}

function fGetScreenInit()
{
	ds_main_healdminfo_healdmlist_item.clearData();
	ds_send.setColumn(0, "srchfromdd"	, utlf_getCurrentDate());
	ds_send.setColumn(0, "srchtodd"	, utlf_getCurrentDate());
	ds_send.setColumn(0, "clscd"	, "G");
	ds_send.setColumn(0, "etccd"	, "G16");
	
	var oParam = {};
		oParam.id          = "TRAHB00602";
		oParam.service     = "healexambaseapp.EtcCode";
		oParam.method      = "reqGetDetlCodeList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_init_baseinfo_detlcodelst_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHB00602";

	tranf_submit(oParam);
	
	ds_init_baseinfo_detlcodelst_item.updatecontrol = false;
	dsf_setFixVal(ds_init_baseinfo_detlcodelst_item, "sel:N");
	ds_init_baseinfo_detlcodelst_item.updatecontrol = true;
	
	frmf_addComboItem("grp_sea.cmb_state", "전체", "all", "above");
	grp_sea.cmb_state.value = "all";
}

function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	if(utlf_isNull(ds_send.getColumn(0, "srchstate"))||ds_send.getColumn(0, "srchstate") == "all")
	{
		sysf_messageBox("조회조건을", "C002");
		return;
	}
	var oParam = {};
		oParam.id          = "TRAHA02800";
		oParam.service     = "healexamrsrvacptapp.DmSendMngt";
		oParam.method      = "reqGetHealDmSendLst";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_healdminfo_healdmlist_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA02800";

	tranf_submit(oParam);
}

function btn_excsave_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(dtg_healdmlist, "excel", "Sheet1", "true", "", "");
}

function ds_main_healdminfo_healdmlist_item_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "chk")
	{
		obj.setColumn(e.row, "chk", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}



function btn_prt_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetLabeladdr();
}

function fGetLabeladdr()
{			
	var nodeList = ds_main_healdminfo_healdmlist_item.getCaseCount("chk == 'Y'");
	if(nodeList == 0)
	{
		sysf_messageBox("출력할 내역이 ", "I004");
		return ;
	}
	
	var vGrd = null;
	var printFormat = ds_send.getColumn(0, "printformat");

	ds_main_seqprntdata_labelname_list.clearData();
	
	for(var i = 0; i < ds_main_healdminfo_healdmlist_item.rowcount; i++)
	{
		if(ds_main_healdminfo_healdmlist_item.getColumn(i, "chk") == "Y")
		{
			var addRow = ds_main_seqprntdata_labelname.addRow();
			ds_main_seqprntdata_labelname.copyRow(addRow, ds_main_healdminfo_healdmlist_item, i);
		}
	}
	
	nodeList = ds_main_seqprntdata_labelname.rowcount;
	
	if(nodeList != 0 )
	{
		if(printFormat == "01") 
		{
			var objDOM = rptf_createDOM();
				rptf_setNodeListToDOM(objDOM, "/root/main/seqprntdata/labelname/list", ds_main_seqprntdata_labelname);
			var objParam = new Object();
				objParam.xml_data_XML1 = objDOM.documentElement.source; 
			var option = ""; 
			rptf_exeReportPreview30(["RPAHA00410"],[objParam], option);
		}
		else if(printFormat == "02") 
		{
			var objDOM = rptf_createDOM();
				rptf_setNodeListToDOM(objDOM, "/root/main/seqprntdata/labelname/list", ds_main_seqprntdata_labelname);
			var objParam = new Object();
				objParam.xml_data_XML1 = objDOM.documentElement.source; 
			var option = ""; 
			rptf_exeReportPreview30(["RPAHA00411"],[objParam], option);
		}					
	 }
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_send.getColumn(0, "srchstate") == "07" || ds_send.getColumn(0, "srchstate") == "08" || ds_send.getColumn(0, "srchstate") == "09")
	{
		var idx = 0;
		var cnt = ds_main_healdminfo_healdmlist_item.rowcount;
		ds_rexaddprnt_item.clearData();
		for(var i = 0; i < cnt; i++)
		{
			if(ds_main_healdminfo_healdmlist_item.getColumn(i, "chk") == "Y")
			{
			
			    var iRow = ds_rexaddprnt_item.addRow();
			    
// 				dsf_makeValue(ds_rexaddprnt_item, "pid","string", ds_main_healdminfo_healdmlist_item.getColumn(i, "pid"), iRow);
// 				dsf_makeValue(ds_rexaddprnt_item, "hngnm","string", ds_main_healdminfo_healdmlist_item.getColumn(i, "hngnm"), iRow);
// 				dsf_makeValue(ds_rexaddprnt_item, "rrgstno","string", ds_main_healdminfo_healdmlist_item.getColumn(i, "rrgstno"), iRow);
// 				dsf_makeValue(ds_rexaddprnt_item, "zipcode","string", ds_main_healdminfo_healdmlist_item.getColumn(i, "zipcode"), iRow);
// 				dsf_makeValue(ds_rexaddprnt_item, "address","string", ds_main_healdminfo_healdmlist_item.getColumn(i, "address"), iRow);
// 				dsf_makeValue(ds_rexaddprnt_item, "testnm","string", ds_main_healdminfo_healdmlist_item.getColumn(i, "testnm"), iRow);
// 				idx++;
//trace('iRow '+iRow+"/"+ds_main_healdminfo_healdmlist_item.getColumn(i, "pid"));
				ds_rexaddprnt_item.setColumn(iRow,"pid",     ds_main_healdminfo_healdmlist_item.getColumn(i, "pid"));
 				ds_rexaddprnt_item.setColumn(iRow,"hngnm",   ds_main_healdminfo_healdmlist_item.getColumn(i, "hngnm"));
 				ds_rexaddprnt_item.setColumn(iRow,"rrgstno", ds_main_healdminfo_healdmlist_item.getColumn(i, "rrgstno"));
 				ds_rexaddprnt_item.setColumn(iRow,"zipcode", ds_main_healdminfo_healdmlist_item.getColumn(i, "zipcode"));
 				ds_rexaddprnt_item.setColumn(iRow,"address", ds_main_healdminfo_healdmlist_item.getColumn(i, "address"));
 				ds_rexaddprnt_item.setColumn(iRow,"testnm",  ds_main_healdminfo_healdmlist_item.getColumn(i, "testnm"));
 				idx++;
			}
		}
		
		//trace(ds_rexaddprnt_item.saveXML());
		
		var instcd = sysf_getUserInfo("dutplceinstcd");
		if (instcd == "031")
		{ 
			var objDOM = rptf_createDOM();
				rptf_setNodeListToDOM(objDOM, "/root/rexaddprnt/item", ds_rexaddprnt_item);
			var objParam = new Object();
				objParam.xml_data_XML1 = objDOM.documentElement.source; 
			var option = ""; 
			rptf_exeReportPreview30(["RPAHA02800"],[objParam], option);
		}
		else
		{
			var objDOM = rptf_createDOM();
				rptf_setNodeListToDOM(objDOM, "/root/rexaddprnt/item", ds_rexaddprnt_item);
			var objParam = new Object();
				objParam.xml_data_XML1 = objDOM.documentElement.source; 
			var option = ""; 
			rptf_exeReportPreview30(["RPAHA02801"],[objParam], option);
		}
		//ds_rexaddprnt_item.clearData();
	}
	else
	{
		sysf_messageBox("추후검사일 경우에만", "I006");
	}
}


function dtg_healdmlist_onheadclick(obj:Grid, e:GridClickEventInfo)
{

    if (e.col != 0 && e.col != 1 ){
		if (e.col != e.oldcol)      grdf_clearSort(obj);
		grdf_gridSort(dtg_healdmlist,e);
	}

}
]]></Script>
  </Form>
</FDL>