YNU_JEUS/app_home/himed/xpapps/mis/reqconsxp/xp/SMRSD20100_의료폐기물전용용기수령확인처리(경북대).xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMRSD20100" position="absolute 0 0 1201 767" titletext="의료폐기물 전용용기 수령확인처리" oninit="SMRSD20100_oninit" onload="SMRSD20100_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="의료폐기물 전용용기 수령확인처리" class="tit_1" position="absolute 0 0 299 25"/>
        <Shape id="line17" class="line_6" position="absolute 0 45 1195 51" anchor="left top right"/>
        <Button id="btn_cancel" taborder="1" text="수령확인취소" class="btn4" visible="false" position="absolute 985 24 1089 46" anchor="top right" onclick="btn_cancel_onclick"/>
        <Button id="btn_confirm" taborder="2" text="수령확인처리" class="btn4" position="absolute 1091 24 1195 46" anchor="top right" onclick="btn_confirm_onclick"/>
        <Div id="grp_search" taborder="3" class="div_SA2" position="absolute 0 49 1195 109" anchor="left top right">
          <Layouts>
            <Layout>
              <Button id="btn_search" taborder="0" text="조회" class="btn1" position="absolute 1124 9 1180 31" anchor="top right" onclick="grp_search_btn_search_onclick"/>
              <Combo id="cmb_instcd" taborder="1" innerdataset="ds_main_init" codecolumn="cnstcd" datacolumn="cnstnm" class="combo_default" enable="false" position="absolute 102 8 238 27"/>
              <Static id="cap_instcd" text="기관코드" class="search_name" position="absolute 23 10 100 27"/>
              <Shape id="line30" linetype="vertical" class="line_4" position="absolute 1107 6 1113 33" anchor="top right"/>
              <Static id="caption2" text="조회대상" class="search_name" position="absolute 805 37 885 54"/>
              <Radio id="rdo_dataflag" taborder="2" columncount="3" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 886 34 1083 54" onitemchanged="grp_search_rdo_dataflag_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">N</Col>
                      <Col id="datacolumn">미확인</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">Y</Col>
                      <Col id="datacolumn">수령확인</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">ALL</Col>
                      <Col id="datacolumn">전체</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Static id="cpt_dept" text="청구부서" class="search_name" position="absolute 260 10 340 27"/>
              <Button id="btn_reqdeptcd" taborder="3" class="icon_search" enable="false" position="absolute 412 9 428 25" onclick="grp_search_btn_reqdeptcd_onclick"/>
              <Calendar id="ipt_reqddfrom" taborder="4" class="input_search" position="absolute 886 8 984 27" mask="yyyy-mm-dd" autoselect="true" autoskip="true" onchanged="grp_search_ipt_reqddfrom_onchanged"/>
              <Edit id="ipt_reqdeptcd" taborder="6" class="input_search" enable="false" position="absolute 340 8 410 27"/>
              <Combo id="cmb_wareflag" taborder="7" innerdataset="@ds_init_wareflag_wareflaglist" codecolumn="cdid" datacolumn="cdnm" class="combo_default" position="absolute 675 8 785 27" onitemchanged="grp_search_cmb_wareflag_onitemchanged"/>
              <Static id="caption16" text="청구일자" class="search_name" position="absolute 805 9 885 26"/>
              <Edit id="opt_searchreqdeptnm" taborder="8" readonly="true" position="absolute 431 8 575 27" class="output"/>
              <Static id="caption19" text="창고구분" class="search_name" position="absolute 596 10 676 27"/>
              <Calendar id="ipt_reqddto" taborder="5" class="input_search" position="absolute 997 8 1095 27" mask="yyyy-mm-dd" autoselect="true" autoskip="true" onchanged="grp_search_ipt_reqddto_onchanged"/>
              <Static id="caption3" text="~" position="absolute 986 10 997 25"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line1" class="line_10" position="absolute 0 132 1195 138" anchor="left top right"/>
        <Static id="caption1" text="청구 내역" class="tit_2" position="absolute 0 116 180 138"/>
        <Grid id="grd_dtl" taborder="4" binddataset="ds_main_dtl_dtllist" autoenter="select" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 621 137 1195 737" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="84"/>
                <Column size="220"/>
                <Column size="106"/>
                <Column size="44"/>
                <Column size="50"/>
                <Column size="50"/>
              </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="출고량"/>
              </Band>
              <Band id="body">
                <Cell text="bind:goodcd"/>
                <Cell col="1" text="bind:goodnm"/>
                <Cell col="2" style="align:left middle;" text="bind:goodspec"/>
                <Cell col="3" text="bind:requnit"/>
                <Cell col="4" displaytype="number" text="bind:reqqty"/>
                <Cell col="5" displaytype="number" text="bind:deliveqty"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_mst" taborder="5" binddataset="ds_main_mst_mstlist" autoenter="select" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 137 620 737" anchor="left top bottom" oncellclick="grd_mst_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="74"/>
                <Column size="34"/>
                <Column size="163"/>
                <Column size="57"/>
                <Column size="74"/>
                <Column size="34"/>
                <Column size="74"/>
                <Column size="57"/>
                <Column size="32"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell colspan="2" text="청구일자/번호" taborder="undefined"/>
                <Cell col="2" text="청구부서"/>
                <Cell col="3" text="청구자"/>
                <Cell col="4" colspan="2" text="출고일자/번호" taborder="undefined"/>
                <Cell col="6" colspan="2" text="수령확인처리" taborder="undefined"/>
                <Cell col="8" text="선택"/>
                <Cell col="9" text="기관코드"/>
                <Cell col="10" text="물품구분"/>
                <Cell col="11" text="청구부서"/>
              </Band>
              <Band id="body">
                <Cell displaytype="date" text="bind:reqdd" calendardisplaynulltype="nulltext"/>
                <Cell col="1" text="bind:reqno"/>
                <Cell col="2" text="bind:reqdeptnm"/>
                <Cell col="3" text="bind:reqpsnnm"/>
                <Cell col="4" displaytype="date" text="bind:delivedd" calendardisplaynulltype="nulltext"/>
                <Cell col="5" text="bind:deliveno"/>
                <Cell col="6" displaytype="date" text="bind:recvdd" calendardisplaynulltype="nulltext"/>
                <Cell col="7" text="bind:recvpsnnm"/>
                <Cell col="8" displaytype="checkbox" edittype="checkbox" text="bind:selyn" expr="expr:selyn == 'Y' ? 1 : 0"/>
                <Cell col="9" text="bind:instcd"/>
                <Cell col="10" text="bind:reqflag"/>
                <Cell col="11" text="bind:reqdeptcd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption4" text="※ 수령확인취소를 하시려면 시설팀 담당자께 문의바랍니다." position="absolute 5 742 331 762" anchor="left bottom"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_search" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_send_search_oncolumnchanged">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="reqdeptcd" type="STRING" size="256"/>
          <Column id="reqdeptnm" type="STRING" size="256"/>
          <Column id="wareflag" type="STRING" size="256"/>
          <Column id="dataflag" type="STRING" size="256"/>
          <Column id="reqddfrom" type="STRING" size="256"/>
          <Column id="reqddto" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd"/>
            <Col id="reqdeptcd"/>
            <Col id="reqdeptnm"/>
            <Col id="wareflag"/>
            <Col id="dataflag">N</Col>
            <Col id="reqddfrom"/>
            <Col id="reqddto"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_mst_mstlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_mst_mstlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="reqflag" type="STRING" size="256" sumtext="물품구분"/>
          <Column id="reqdd" type="STRING" size="256" sumtext="청구일자"/>
          <Column id="reqno" type="STRING" size="256" sumtext="청구번호"/>
          <Column id="reqdeptcd" type="STRING" size="256" sumtext="청구부서"/>
          <Column id="reqdeptnm" type="STRING" size="256" sumtext="청구부서"/>
          <Column id="reqpsnnm" type="STRING" size="256" sumtext="청구자"/>
          <Column id="delivedd" type="STRING" size="256" sumtext="출고일자"/>
          <Column id="deliveno" type="STRING" size="256" sumtext="출고번호"/>
          <Column id="recvdd" type="STRING" size="256" sumtext="수령확인일자"/>
          <Column id="recvpsnnm" type="STRING" size="256" sumtext="수령확인자"/>
          <Column id="selyn" type="STRING" size="256" sumtext="선택"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_dtl_dtllist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="goodcd" type="STRING" size="256" sumtext="물품코드"/>
          <Column id="goodnm" type="STRING" size="256" sumtext="물품명"/>
          <Column id="goodspec" type="STRING" size="256" sumtext="규격"/>
          <Column id="requnit" type="STRING" size="256" sumtext="청구단위"/>
          <Column id="reqqty" type="STRING" size="256" sumtext="청구수량"/>
          <Column id="deliveqty" type="STRING" size="256" sumtext="출고수량"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnstcd" type="STRING" size="256"/>
          <Column id="cnstnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_wareflag_wareflaglist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_search.cmb_instcd" propid="value" datasetid="ds_send_search" columnid="instcd"/>
      <BindItem id="item1" compid="grp_search.ipt_reqdeptcd" propid="value" datasetid="ds_send_search" columnid="reqdeptcd"/>
      <BindItem id="item2" compid="grp_search.opt_searchreqdeptnm" propid="value" datasetid="ds_send_search" columnid="reqdeptnm"/>
      <BindItem id="item3" compid="grp_search.cmb_wareflag" propid="value" datasetid="ds_send_search" columnid="wareflag"/>
      <BindItem id="item4" compid="grp_search.ipt_reqddfrom" propid="value" datasetid="ds_send_search" columnid="reqddfrom"/>
      <BindItem id="item5" compid="grp_search.ipt_reqddto" propid="value" datasetid="ds_send_search" columnid="reqddto"/>
      <BindItem id="item6" compid="grp_search.rdo_dataflag" propid="value" datasetid="ds_send_search" columnid="dataflag"/>
    </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";
function SMRSD20100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMRSD20100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_dtl);
	grdf_initGrid(grd_mst);
	
	misfComboInstCdListMulti("grp_search.cmb_instcd",utlf_getCurrentDate(),"","N");
	
	var oParam = {};
		oParam.id          = "TRRSD20002";
		oParam.service     = "reqconsapp.ReqConsMngt";
		oParam.method      = "reqGetConsWareFlagList";
		oParam.inds        = "req=ds_send_search";
		oParam.outds       = "ds_init_wareflag_wareflaglist=conswareflaglist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRSD20002";

	tranf_submit(oParam);
	
	ds_send_search.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
	
	if ( sysf_getUserInfo("dutplcecd") == "4060100000"  || sysf_getUserInfo("userid") == "97089" ) 
	{
		grp_search.ipt_reqdeptcd.enable = true;
		grp_search.btn_reqdeptcd.enable = true;
		btn_cancel.visible = true;
	}
	else 
	{	
		ds_send_search.enableevent = false;
		ds_send_search.setColumn(0, "reqdeptcd", sysf_getUserInfo("dutplcecd"));
		ds_send_search.setColumn(0, "reqdeptnm", sysf_getUserInfo("dutplcenm"));
		ds_send_search.enableevent = true;
	}
	
	grp_search.cmb_wareflag.index = 0;
	
	ds_send_search.setColumn(0, "reqddfrom", utlf_getCurrentDate().toDate().getAddDate(-7, "D").getDateFormat("YYYYMMDD"));
	ds_send_search.setColumn(0, "reqddto", utlf_getCurrentDate());
	
	ds_send_search.setColumn(0, "dataflag", "N");
	btn_cancel.enable = false;
}

function ds_send_search_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "reqdeptcd")
	{
		grp_search.ipt_reqdeptcd.value = e.newvalue;
		grp_search.ipt_reqdeptcd.setFocus();
		misfValidationCheck("02", "", "reqdeptcd,reqdeptnm" );
		
		ds_main_dtl_dtllist.clearData();
		ds_main_mst_mstlist.clearData();
	}
}

function grp_search_btn_reqdeptcd_onclick(obj:Button,  e:ClickEventInfo)
{
	misfOpenPopUpList("02", ds_send_search,"","reqdeptcd,reqdeptnm");
	ds_main_dtl_dtllist.clearData();
	ds_main_mst_mstlist.clearData();
}

function grp_search_cmb_wareflag_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	ds_main_dtl_dtllist.clearData();
	ds_main_mst_mstlist.clearData();
}

function grp_search_ipt_reqddfrom_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	ds_main_dtl_dtllist.clearData();
	ds_main_mst_mstlist.clearData();
}

function grp_search_ipt_reqddto_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	ds_main_dtl_dtllist.clearData();
	ds_main_mst_mstlist.clearData();
}

function grp_search_rdo_dataflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	if(obj.value == "N") 
	{
		btn_confirm.enable = true;
		btn_cancel.enable = false;
	} 
	else if(obj.value == "Y") 
	{
		btn_confirm.enable = false;
		btn_cancel.enable = true;
	}
	else if(obj.value == "ALL")
	{
		btn_confirm.enable = false;
		btn_cancel.enable = false;
	}
	
	ds_main_dtl_dtllist.clearData();
	ds_main_mst_mstlist.clearData();
}

function grp_search_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRRSD20101";
		oParam.service     = "reqconsapp.ReqConsMngt";
		oParam.method      = "reqGetGwstReqList";
		oParam.inds        = "req=ds_send_search";
		oParam.outds       = "ds_main_mst_mstlist=mstlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRSD20101";

	tranf_submit(oParam);
	
	dsf_setFixVal(ds_main_mst_mstlist, "selyn:N");
	
	grd_mst_oncellclick();
}

function grd_mst_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	dsf_createDsRow("ds_send_search2", [{col:"instcd", type:"STRING", size:256 , val : ds_main_mst_mstlist.getColumn(ds_main_mst_mstlist.rowposition, "instcd")}
								     ,  {col:"reqflag", type:"STRING", size:256 , val : ds_main_mst_mstlist.getColumn(ds_main_mst_mstlist.rowposition, "reqflag")}
								     ,  {col:"reqdd", type:"STRING", size:256 , val : ds_main_mst_mstlist.getColumn(ds_main_mst_mstlist.rowposition, "reqdd")}
								     ,  {col:"reqno", type:"STRING", size:256 , val : ds_main_mst_mstlist.getColumn(ds_main_mst_mstlist.rowposition, "reqno")}
								     ,  {col:"reqdeptcd", type:"STRING", size:256 , val : ds_main_mst_mstlist.getColumn(ds_main_mst_mstlist.rowposition, "reqdeptcd")}]);
	   
	var oParam = {};
		oParam.id          = "TRRSD20102";
		oParam.service     = "reqconsapp.ReqConsMngt";
		oParam.method      = "reqGetGwstReqInfoList";
		oParam.inds        = "req=ds_send_search2";
		oParam.outds       = "ds_main_dtl_dtllist=dtllist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRSD20102";

	tranf_submit(oParam);
}

function ds_main_mst_mstlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "selyn")
	{
		obj.setColumn(e.row, "selyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
		
		if(grp_search.rdo_dataflag.value == "N") 
		{			
			if(e.newvalue == "Y")
			{
				var zeroflag = "zero";
				
				for(var i = 0; i < ds_main_dtl_dtllist.rowcount; i++) 
				{
					if(parseFloat(ds_main_dtl_dtllist.getColumn(i, "deliveqty") != 0 ))
					{
						zeroflag = "not zero";
						break;
					}
				}
				
				if(zeroflag == "zero")
				{
					obj.setColumn(e.row, "selyn", "N");
					
					obj.updatecontrol = false;
					obj.setRowType(e.row, "");
					obj.updatecontrol = true;
					
					sysf_messageBox("아직 출고부서에서 출고량을 등록하지 않아, 수령확인처리가 불가합니다.", "I999");				
				}
			}
		}	
	}								
}

function btn_cancel_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_mst_mstlist.rowcount == 0) 
	{
		return;
	}

	for(var i = 0; i < ds_main_mst_mstlist.rowcount; i++) 
	{
		if(ds_main_mst_mstlist.getColumn(i, "selyn") != "Y")
		{
			ds_main_mst_mstlist.updatecontrol = false;
			ds_main_mst_mstlist.setRowType(i, "");
			ds_main_mst_mstlist.updatecontrol = true;
		}
	}
	
	var oParam = {};
		oParam.id          = "TXRSD20102";
		oParam.service     = "reqconsapp.ReqConsMngt";
		oParam.method      = "reqExeConfirmCancel";
		oParam.inds        = "req=ds_main_mst_mstlist:u";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXRSD20102";

	tranf_submit(oParam);
}

function cf_TXRSD20102(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) 
	{
		return;
	}
	else
	{
		grp_search.btn_search.click();
	}
}

function btn_confirm_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_mst_mstlist.rowcount == 0)
	{
		return;
	}
	
	for(var i = 0; i < ds_main_mst_mstlist.rowcount; i++) 
	{
		if( ds_main_mst_mstlist.getColumn(i, "selyn") != "Y" )
		{
			ds_main_mst_mstlist.updatecontrol = false;
			ds_main_mst_mstlist.setRowType(i, "");
			ds_main_mst_mstlist.updatecontrol = true;
		}
	}

	var oParam = {};
		oParam.id          = "TXRSD20101";
		oParam.service     = "reqconsapp.ReqConsMngt";
		oParam.method      = "reqExeConfirm";
		oParam.inds        = "req=ds_main_mst_mstlist:u";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXRSD20101";

	tranf_submit(oParam);
}

function cf_TXRSD20101(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) 
    {
		return;
	}
	else
	{
		grp_search.btn_search.click();
	}
}]]></Script>
  </Form>
</FDL>