YNU_JEUS/app_home/himed/xpapps/ast/pharmacystocxp/xp/SMADT50600_임상약품적정재고량관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMADT50200" position="absolute 0 0 615 777" titletext="약품 재고 관리" oninit="SMADT50200_oninit" onload="SMADT50200_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="적정재고량 관리" class="tit_1" position="absolute 0 0 229 25" onclick="caption6_onclick"/>
        <Shape id="line00" class="line_1" position="absolute 2 44 609 54" style="strokepen:3 solid #33bbbbff;"/>
        <Static id="caption3" text="임상재고관리 리스트" class="search_name" position="absolute 7 29 149 46"/>
        <Grid id="grd_iolist" taborder="2" binddataset="ds_iolist" useinputpanel="false" oncellclick="Grid00_oncellclick" onheadclick="Grid00_onheadclick" oncelldblclick="Grid00_oncelldblclick" position="absolute 2 51 608 768">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="117"/>
                <Column size="73"/>
                <Column size="330"/>
                <Column size="66"/>
              </Columns>
              <Rows>
                <Row size="45" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="과제명"/>
                <Cell col="1" text="약품코드"/>
                <Cell col="2" text="약품명"/>
                <Cell col="3" text="적정재고량"/>
              </Band>
              <Band id="body">
                <Cell style="align:left;padding:0 0 0 5;" text="bind:subjid"/>
                <Cell col="1" style="align:left;padding:5 5 5 5;" text="bind:drugcd"/>
                <Cell col="2" style="align:left;padding:0 0 0 5;" text="bind:drugnm"/>
                <Cell col="3" displaytype="number" edittype="text" editfilter="number" style="padding:0 5 0 0;" text="bind:safestocqty"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="Button00" taborder="3" text="저장" position="absolute 567 26 609 46" class="btn5" onclick="Button00_onclick"/>
        <Button id="Button01" taborder="4" text="엑셀저장" position="absolute 499 25 565 47" onclick="Button01_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="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="drugcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_iolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="drugcd" type="STRING" size="256"/>
          <Column id="drugnm" type="STRING" size="256"/>
          <Column id="safestocqty" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_stoclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="drugcd" type="STRING" size="256"/>
          <Column id="inqty" type="STRING" size="256"/>
          <Column id="outqty" type="STRING" size="256"/>
          <Column id="rtnqty" type="STRING" size="256"/>
          <Column id="totstocqty" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <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";

var arErrorCode = new HashArray();

/******************************************************************
 * Argument          : 
 * Description       : 초기화
 ******************************************************************/

function SMADT50200_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMADT50200_onload(obj:Form, e:LoadEventInfo)
{
	
	var drugcd = arg_drugcd;
	ds_send.setColumn(0, "fromdd", utlf_getCurrentDate().substr(0,6) + "01");
	ds_send.setColumn(0, "todd", utlf_getLastDate(utlf_getCurrentDate()));
	ds_send.setColumn(0, "drugcd", drugcd);
	
	//grdf_setRowTypeIcon(grd_iolist, 0); //상태값 표시
	//ds_iolist.updatecontrol = true;
	fSearch();
}

function group3_group2_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();
}

function fSearch() {
	var oParam = {};
		oParam.id          = "TRADT50601";
		oParam.service     = "pharmacystocapp.DrugStocSum";
		oParam.method      = "reqGetSafeStocInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_iolist=info";
		oParam.async       = false;
		//oParam.callback    = "TRADT50300";
	tranf_submit(oParam);

}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_send_savedata.clearData();
	alert(1);
	var updtdata1 = grdf_getGridUpdateData(grd_iolist, "all");
	grdf_setStatusColumn(updtdata1, "m");
	ds_send_savedata.copyData(updtdata1,true);
	
	var oParam = {};
		oParam.id          = "TXADT50401";
		oParam.service     = "pharmacystocapp.DrugStocSum";
		oParam.method      = "reqSetSafeStocInfo";
		oParam.inds        = "req=ds_send_savedata";
		oParam.outds       = "ds_iolist=info";
		oParam.async       = false;
		//oParam.callback    = "TRADT50300";
	tranf_submit(oParam);
	
	//fSearch();
}

function group2_caption24_onclick(obj:Static,  e:ClickEventInfo)
{
	
}

function Button00_onclick(obj:Button,  e:ClickEventInfo)
{	
	ds_send_savedata.clearData();
	
	var updtdata1 = grdf_getGridUpdateData(grd_iolist, "all");
	grdf_setStatusColumn(updtdata1, "m");
	ds_send_savedata.copyData(updtdata1,true);
	
	var oParam = {};
		oParam.id          = "TXADT50401";
		oParam.service     = "pharmacystocapp.DrugStocSum";
		oParam.method      = "reqSetSafeStocInfo";
		oParam.inds        = "req=ds_send_savedata";
		oParam.outds       = "ds_iolist=info";
		oParam.async       = false;
		//oParam.callback    = "TRADT50300";
	tranf_submit(oParam);
	
	fSearch();
}

function caption6_onclick(obj:Static,  e:ClickEventInfo)
{
	
}

function Button01_onclick(obj:Button,  e:ClickEventInfo)
{
	//조회된 자료가 없으면 먼저 조회하라고 message
	if(ds_iolist.rowcount < 1) {
		sysf_messageBox("조회된 결과가 존재하지 않습니다. \n\n먼저 조회 후 Download 하십시요. ", "E999", "");							
		return;
	}
																							
	grdf_exportExcel(grd_iolist, "excel", "입출고내역조회", false, "", "user", false);
}
]]></Script>
  </Form>
</FDL>