YNU_JEUS/app_home/himed/xpapps/mis/delivexp/xp/SMRSO23000_적정재고량관리(부서).xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMRSO23000" position="absolute 0 0 1199 792" titletext="적정재고량등록(부서재고)" oninit="SMRSO23000_oninit" onload="SMRSO23000_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="적정재고량등록(부서재고)" class="tit_1" position="absolute 0 0 243 25"/>
        <Button id="button1" taborder="1" text="button1" position="absolute 1015 26 1065 46" onclick="button1_onclick"/>
        <Button id="btn_save" taborder="2" text="저장" class="btn4" position="absolute 1138 24 1194 46" anchor="top right" onclick="btn_save_onclick"/>
        <Shape id="line17" class="line_6" position="absolute 0 45 1195 51" anchor="left top right"/>
        <Div id="grp_search" taborder="3" class="div_SA2" position="absolute 0 49 1195 89" anchor="left top right">
          <Layouts>
            <Layout>
              <Button id="btn_search" taborder="4" text="조회" class="btn1" position="absolute 1129 8 1185 30" anchor="top right" onclick="grp_search_btn_search_onclick"/>
              <Combo id="cmb_instcd" taborder="5" innerdataset="@ds_main_init" codecolumn="cnstcd" datacolumn="cnstnm" class="combo_default" enable="false" position="absolute 117 11 253 30"/>
              <Static id="cap_instcd" text="기관코드:" class="search_name" position="absolute 33 11 119 28"/>
              <Static id="caption20" text="관리부서:" class="search_name" position="absolute 300 12 381 29"/>
              <Shape id="line30" linetype="vertical" class="line_4" position="absolute 1112 7 1118 32" anchor="top right"/>
              <Button id="btn_mngtdeptcd" taborder="6" class="icon_search" position="absolute 487 12 503 28" onclick="grp_search_btn_mngtdeptcd_onclick"/>
              <Edit id="ipt_mngtdeptcd" taborder="7" class="input_default" position="absolute 380 11 485 30" autoselect="true" autoskip="true" onkeydown="grp_search_ipt_mngtdeptcd_onkeydown"/>
              <Edit id="opt_mngtdeptnm" taborder="8" readonly="true" position="absolute 505 11 661 30" class="output"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption1" text="출고내역" class="tit_2" position="absolute 0 98 180 119"/>
        <Shape id="line1" class="line_10" position="absolute 0 114 1195 120" anchor="left top right"/>
        <Grid id="grd_prprtystoclist" class="datagrid2" taborder="4" binddataset="ds_main_prprtystoc_prprtystoclist" autoenter="select" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 119 1195 786" anchor="all" onexpanddown="grd_prprtystoclist_onexpanddown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="103"/>
                <Column size="359"/>
                <Column size="230"/>
                <Column size="69"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <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="최소재고량"/>
                <Cell col="9"/>
                <Cell col="10"/>
                <Cell col="11"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" displaytype="text" edittype="text" text="bind:goodcd" editautoselect="true" expandshow="show" enable="false"/>
                <Cell col="2" text="bind:goodnm"/>
                <Cell col="3" text="bind:goodspec"/>
                <Cell col="4" text="bind:deliveunit"/>
                <Cell col="5" displaytype="combo" edittype="combo" text="bind:reqprid" combodataset="ds_cmb_reqprid" combocodecol="value" combodatacol="label"/>
                <Cell col="6" text="bind:mthuseqty"/>
                <Cell col="7" displaytype="text" edittype="text" text="bind:stocqty"/>
                <Cell col="8" displaytype="text" edittype="text" text="bind:minqty"/>
                <Cell col="9" text="bind:allsizespecid"/>
                <Cell col="10" text="bind:instcd"/>
                <Cell col="11" text="bind:mngtdeptcd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_del" taborder="5" text="행삭제" class="btn2" position="absolute 1141 95 1194 114" anchor="top right" onclick="btn_del_onclick"/>
        <Button id="btn_insert" taborder="6" text="행추가" class="btn2" position="absolute 1087 95 1140 114" anchor="top right" onclick="btn_insert_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_search" 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="mngtdeptcd" type="STRING" size="256"/>
          <Column id="mngtdeptnm" type="STRING" size="256"/>
          <Column id="flag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd"/>
            <Col id="mngtdeptcd"/>
            <Col id="mngtdeptnm"/>
            <Col id="flag">main</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_prprtystoc_prprtystoclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="mngtdeptcd" type="STRING" size="256" sumtext="부서코드"/>
          <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="deliveunit" type="STRING" size="256" sumtext="단위"/>
          <Column id="reqprid" type="STRING" size="256" sumtext="청구주기"/>
          <Column id="mthuseqty" type="STRING" size="256" sumtext="월사용량"/>
          <Column id="stocqty" type="STRING" size="256" sumtext="적정재고"/>
          <Column id="minqty" type="STRING" size="256" sumtext="최소재고량"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cmb_reqprid" 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">1</Col>
          </Row>
          <Row>
            <Col id="label">월</Col>
            <Col id="value">2</Col>
          </Row>
        </Rows>
      </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="cnstnm" type="STRING" size="256"/>
          <Column id="cnstcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_popgood" 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="wareflag" type="STRING" size="256"/>
          <Column id="delivedd" type="STRING" size="256"/>
          <Column id="basedd" type="STRING" size="256"/>
          <Column id="selectyn" type="STRING" size="256"/>
          <Column id="goodcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd"/>
            <Col id="wareflag"/>
            <Col id="delivedd"/>
            <Col id="basedd"/>
            <Col id="selectyn"/>
            <Col id="goodcd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_popgood_goodlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_good_gooddetail" 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="deliveunit" type="STRING" size="256" sumtext="출고단위"/>
          <Column id="exchqty" type="STRING" size="256" sumtext="환산배수"/>
          <Column id="siqty" type="STRING" size="256" sumtext="시점재고"/>
          <Column id="hunqty" type="STRING" size="256" sumtext="현재고"/>
          <Column id="goodunitcost" type="STRING" size="256" sumtext="단가"/>
          <Column id="allsizespecid" type="STRING" size="256" sumtext="ALLSIZE"/>
          <Column id="purcunit" type="STRING" size="256" sumtext="입고단위"/>
          <Column id="mainusedeptcd" type="STRING" size="256" sumtext="주사용부서코드"/>
          <Column id="maincustlastsuplplce" type="STRING" size="256" sumtext="최종공급처"/>
          <Column id="wareflag" type="STRING" size="256" sumtext="창고구분"/>
          <Column id="wstyn" type="STRING" size="256" sumtext="의료폐기물 용기 여부"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_mthuseqty" 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="goodcd" type="STRING" size="256"/>
          <Column id="deptcd" type="STRING" size="256"/>
          <Column id="flag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd"/>
            <Col id="goodcd"/>
            <Col id="deptcd"/>
            <Col id="flag"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_mthuse" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="mthuseqty" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </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_mngtdeptcd" propid="value" datasetid="ds_send_search" columnid="mngtdeptcd"/>
      <BindItem id="item2" compid="grp_search.opt_mngtdeptnm" propid="value" datasetid="ds_send_search" columnid="mngtdeptnm"/>
    </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 SMRSO23000_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMRSO23000_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_prprtystoclist);
	grdf_setRowTypeIcon(grd_prprtystoclist, 0);
				
	misfComboComCdList("Z0007",grp_search.cmb_instcd);
						
	var instcd  =  ds_send_search.getColumn(0, "instcd");
	
	if(instcd == "031")
	{
		ds_send_search.setColumn(0, "mngtdeptcd", sysf_getUserInfo("dutunitcd"));
		ds_send_search.setColumn(0, "mngtdeptnm", sysf_getUserInfo("dutunitnm"));
	}
	else
	{
		ds_send_search.setColumn(0, "mngtdeptcd", sysf_getUserInfo("dutplcecd"));
		ds_send_search.setColumn(0, "mngtdeptnm", sysf_getUserInfo("dutplcenm"));	
	}
	
	ds_send_search.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));				
}

function grp_search_ipt_mngtdeptcd_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		misfValidationCheck("02", "", "mngtdeptcd,mngtdeptnm" );
	}
}

function grp_search_btn_mngtdeptcd_onclick(obj:Button,  e:ClickEventInfo)
{
	 var vOrigDeptcd = grp_search.ipt_mngtdeptcd.value;
	
	var recv_list = "mngtdeptcd,mngtdeptnm";
	misfOpenPopUpList("02", ds_send_search,"", recv_list);
}

function grp_search_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	if(utlf_isNull(grp_search.opt_mngtdeptnm.value))
	{
		sysf_messageBox("관리부서가 선택되지 않았습니다. \n\n먼저 관리부서를 선택하십시요.", "E999", "");	
		grp_search.ipt_mngtdeptcd.setFocus();
		return;
	}
	
	var oParam = {};
		oParam.id          = "TRRSO23001";
		oParam.service     = "deliveapp.DeliveMngt";
		oParam.method      = "reqGetPrprtyStocList";
		oParam.inds        = "req=ds_send_search";
		oParam.outds       = "ds_main_prprtystoc_prprtystoclist=prprtystoclist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRSO23001";

	tranf_submit(oParam);
}

function grd_prprtystoclist_onexpanddown(obj:Grid, e:GridMouseEventInfo)
{
	ds_popgood.setColumn(0, "instcd", grp_search.cmb_instcd.value);
	ds_popgood.setColumn(0, "selectyn", "");
	
	var objArg = new Object();
		objArg.arg_ds_popdata = ds_popgood;
	
	frmf_modal("SPRSO20700", "SPRSO20700", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	if(ds_popgood.getColumn(0, "selectyn") == "Y") 
	{
		fGetGoodDetail();
		grd_prprtystoclist.setCellPos(grd_prprtystoclist.getBindCellIndex("body", "deliveqty"));
		grd_prprtystoclist.showEditor(true);
	}
}

function fGetGoodDetail() 
{			
	for(var k = 0; k < ds_popgood_goodlist.rowcount; k++) 
	{		
		var bDup = false;
		
		for(var i = 0; i < ds_main_prprtystoc_prprtystoclist.rowcount; i++)
		{
			if( ds_main_prprtystoc_prprtystoclist.getColumn(i, "goodcd") == ds_popgood_goodlist.getColumn(k, "goodcd"))
			{
				sysf_messageBox("물품코드가 중복되었습니다. [" + ds_main_prprtystoc_prprtystoclist.getColumn(i, "goodcd") + "] ", "E999", ""); //E: 경고							
				bDup = true;
				continue;
			}								
		}
		
		if( bDup == false ) 
		{
			ds_popgood.setColumn(0, "goodcd", ds_popgood_goodlist.getColumn(k, "goodcd"));
			
			var oParam = {};
				oParam.id          = "TRRSO20104";
				oParam.service     = "deliveapp.DeliveMngt";
				oParam.method      = "reqGetGoodDetail";
				oParam.inds        = "req=ds_popgood";
				oParam.outds       = "ds_main_good_gooddetail=gooddetail";
				oParam.async       = false;
				oParam.callback    = "cf_TRRSO20104";

			tranf_submit(oParam);						
		}
	}
}

function cf_TRRSO20104(sSvcId, nErrorCode, sErrorMsg)
{
    if(nErrorCode < 0)
    {
		return;
	}
	else
	{
		if(!utlf_isNull(ds_main_prprtystoc_prprtystoclist.getColumn(ds_main_prprtystoc_prprtystoclist.rowcount-1, "goodcd")))
		{
			btn_insert_onclick();
		}

		ds_main_prprtystoc_prprtystoclist.setColumn(ds_main_prprtystoc_prprtystoclist.rowcount-1, "goodcd", ds_main_good_gooddetail.getColumn(0, "goodcd"));
		ds_main_prprtystoc_prprtystoclist.setColumn(ds_main_prprtystoc_prprtystoclist.rowcount-1, "goodnm", ds_main_good_gooddetail.getColumn(0, "goodnm"));
		ds_main_prprtystoc_prprtystoclist.setColumn(ds_main_prprtystoc_prprtystoclist.rowcount-1, "goodspec", ds_main_good_gooddetail.getColumn(0, "goodspec"));
		ds_main_prprtystoc_prprtystoclist.setColumn(ds_main_prprtystoc_prprtystoclist.rowcount-1, "deliveunit", ds_main_good_gooddetail.getColumn(0, "deliveunit"));
		ds_main_prprtystoc_prprtystoclist.setColumn(ds_main_prprtystoc_prprtystoclist.rowcount-1, "stocqty", "0");
		
		ds_send_mthuseqty.setColumn(0, "instcd", ds_main_prprtystoc_prprtystoclist.getColumn(ds_main_prprtystoc_prprtystoclist.rowposition, "instcd"));
		ds_send_mthuseqty.setColumn(0, "goodcd", ds_main_prprtystoc_prprtystoclist.getColumn(ds_main_prprtystoc_prprtystoclist.rowposition, "goodcd"));
		ds_send_mthuseqty.setColumn(0, "deptcd", ds_main_prprtystoc_prprtystoclist.getColumn(ds_main_prprtystoc_prprtystoclist.rowposition, "mngtdeptcd"));
		ds_send_mthuseqty.setColumn(0, "flag", "mthuseqty");
		
		var oParam = {};
			oParam.id          = "TRRSO23002";
			oParam.service     = "deliveapp.DeliveMngt";
			oParam.method      = "reqGetPrprtyStocList";
			oParam.inds        = "req=ds_send_mthuseqty";
			oParam.outds       = "ds_mthuse=mthuse";
			oParam.async       = false;
			//oParam.callback    = "cf_TRRSO23002";

		tranf_submit(oParam);

		if(!utlf_isNull(ds_mthuse.getColumn(0, "mthuseqty")))
		{
			ds_main_prprtystoc_prprtystoclist.setColumn(ds_main_prprtystoc_prprtystoclist.rowposition, "mthuseqty", ds_mthuse.getColumn(0, "mthuseqty"));
		}
		else
		{
			ds_main_prprtystoc_prprtystoclist.setColumn(ds_main_prprtystoc_prprtystoclist.rowposition, "mthuseqty", "0");
		}
	}
}

function btn_insert_onclick(obj:Button,  e:ClickEventInfo)
{
	if(utlf_isNull(grp_search.opt_mngtdeptnm.value))
	{
		sysf_messageBox("관리부서가 선택되지 않았습니다. \n\n먼저 관리부서를 선택하십시요.", "E999", "");
		grp_search.ipt_mngtdeptcd.setFocus();
		return;
	}

	var addRow = ds_main_prprtystoc_prprtystoclist.addRow();
	
	ds_main_prprtystoc_prprtystoclist.setColumn(addRow, "instcd", grp_search.cmb_instcd.value);
	ds_main_prprtystoc_prprtystoclist.setColumn(addRow, "mngtdeptcd", grp_search.ipt_mngtdeptcd.value);
	ds_main_prprtystoc_prprtystoclist.setColumn(addRow, "reqprid", "2");
}

function btn_del_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_prprtystoc_prprtystoclist.getRowType(ds_main_prprtystoc_prprtystoclist.rowposition) == "2")
	{
		ds_main_prprtystoc_prprtystoclist.deleteRow(ds_main_prprtystoc_prprtystoclist.rowposition)
	}
	else
	{
		ds_main_prprtystoc_prprtystoclist.updatecontrol = false;
		ds_main_prprtystoc_prprtystoclist.setRowType(ds_main_prprtystoc_prprtystoclist.rowposition, "d");
		ds_main_prprtystoc_prprtystoclist.updatecontrol = true;
	}
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	for(var i = 0; i < ds_main_prprtystoc_prprtystoclist.rowcount; i++)
	{
		var goodcd = ds_main_prprtystoc_prprtystoclist.getColumn(i, "goodcd")
		
		if(utlf_isNull(goodcd))
		{
			sysf_messageBox(i+"번째 품목이 선택되지 않았습니다.", "E999", "");
			return;
		}
	}

	if(utlf_isNull(grp_search.opt_mngtdeptnm.value))
	{
		sysf_messageBox("관리부서가 선택되지 않았습니다. \n\n먼저 관리부서를 선택하십시요.", "E999", "");
		grp_search.ipt_mngtdeptcd.setFocus();
		return;
	}
	
	var oParam = {};
		oParam.id          = "TXRSO23001";
		oParam.service     = "deliveapp.DeliveMngt";
		oParam.method      = "reqExePrprtyStocList";
		oParam.inds        = "prprtystoclist=ds_main_prprtystoc_prprtystoclist:u";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXRSO23001";

	tranf_submit(oParam);
}

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

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	frmf_modal("SMRSO24000", "SMRSO24000", "", "", "", "", "", "", "", "", "", "", "M");
}
]]></Script>
  </Form>
</FDL>