YNU_JEUS/app_home/himed/xpapps/mis/stocsumxp/xp/SMRST02900_장기재고현황(약국).xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMRST02900" position="absolute 0 0 1203 777" titletext="장기재고현황(약국)" oninit="SMRST02900_oninit" onload="SMRST02900_onload">
    <Layouts>
      <Layout>
        <Shape position="absolute 0 48 1195 83" id="roundrect1" type="roundrectangle"/>
        <Shape position="absolute 0 108 1195 114" linetype="horizontal" id="line1" class="line_10"/>
        <Grid position="absolute 0 113 1195 771" id="grd_longtermnodelivelist" binddataset="ds_main_longtermnodelivelist">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="24"/>
                <Column size="125"/>
                <Column size="241"/>
                <Column size="121"/>
                <Column size="88"/>
                <Column size="65"/>
                <Column size="65"/>
                <Column size="79"/>
                <Column size="71"/>
                <Column size="102"/>
                <Column size="110"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" colspan="2" text="약품" taborder="undefined"/>
                <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" text="bind:goodcd"/>
                <Cell col="2" text="bind:goodnm"/>
                <Cell col="3" text="bind:goodspec"/>
                <Cell col="4" displaytype="number" style="align:right middle;" text="bind:goodunitcost" enable="false"/>
                <Cell col="5" text="bind:purcunit"/>
                <Cell col="6" text="bind:deliveunit"/>
                <Cell col="7" displaytype="number" style="align:right middle;" text="bind:exchqty"/>
                <Cell col="8" displaytype="number" style="align:right middle;" text="bind:stocqty"/>
                <Cell col="9" displaytype="number" style="align:right middle;" text="bind:stocamt"/>
                <Cell col="10" displaytype="date" text="bind:lastdelivedd" mask="yyyy-mm-dd" calendardisplaynulltype="none"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Edit readonly="true" position="absolute 1050 53 1077 72" id="opt_goodflag" visible="false" class="output"/>
        <Static text="장기재고현황(약국) List" position="absolute 2 92 185 108" id="caption3" class="tit_2"/>
        <Button position="absolute 1125 54 1181 76" id="btn_search" class="btn1" text="조회" onclick="btn_search_onclick"/>
        <Shape position="absolute 1107 53 1113 75" linetype="vertical" id="line13" class="line_4"/>
        <Static text="기관코드 :" position="absolute 15 57 101 74" id="cap_instcd" class="search_name"/>
        <Static text="미출고 조회일자 :" position="absolute 326 57 456 74" id="cap_orginspym" class="search_name"/>
        <Edit readonly="true" position="absolute 100 56 250 75" align="align:center middle;" id="opt_instcdnm" class="output"/>
        <Edit readonly="true" position="absolute 1030 53 1050 72" id="opt_instcd" visible="false" class="output"/>
        <Calendar position="absolute 460 56 580 75" align="align:center middle;" id="ipt_delivefrdd" class="input_essential"/>
        <Calendar position="absolute 602 56 722 75" align="align:center middle;" id="ipt_delivetodd" class="input_essential"/>
        <Static text="~" position="absolute 585 54 602 74" align="align:center middle;" id="caption16"/>
        <Combo position="absolute 865 56 1015 75" id="cmb_mngtcls" class="combo_essential"/>
        <Static text="관리분류 :" position="absolute 780 57 868 74" id="caption2" class="search_name"/>
        <Static id="caption6" text="장기재고현황(약국)" class="tit_1" position="absolute 0 0 243 25"/>
        <Button id="btn_print" taborder="1" text="리스트출력" class="btn6" position="absolute 0 26 92 48" onclick="btn_print_onclick"/>
        <Button id="btn_init" taborder="2" text="초기화" class="btn4" position="absolute 1127 26 1195 48" onclick="btn_init_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_longtermnodelivelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send" 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="goodflag" type="STRING" size="256"/>
          <Column id="lrgcd" type="STRING" size="256"/>
          <Column id="instcdnm" type="STRING" size="256"/>
          <Column id="delivefrdd" type="STRING" size="256"/>
          <Column id="delivetodd" type="STRING" size="256"/>
          <Column id="mngtcls" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd"/>
            <Col id="goodflag"/>
            <Col id="lrgcd"/>
            <Col id="instcdnm"/>
            <Col id="delivefrdd"/>
            <Col id="delivetodd"/>
            <Col id="mngtcls"/>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="opt_instcdnm" propid="value" datasetid="ds_send" columnid="instcdnm"/>
      <BindItem id="item1" compid="ipt_delivefrdd" propid="value" datasetid="ds_send" columnid="delivefrdd"/>
      <BindItem id="item2" compid="ipt_delivetodd" propid="value" datasetid="ds_send" columnid="delivetodd"/>
      <BindItem id="item3" compid="cmb_mngtcls" propid="value" datasetid="ds_send" columnid="mngtcls"/>
    </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";
include "mis_miscommonxp::PIC002.xjs";
include "mis_miscommonxp::RAC001.xjs";
include "mis_miscommonxp::RBC001.xjs";
include "mis_miscommonxp::RSZ001.xjs";

var arErrorCode 	= new HashArray();

function SMRST02900_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);	//폼 초기화
}

function SMRST02900_onload(obj:Form, e:LoadEventInfo)
{
	//화면 Control을 초기화한다
	fInitialize();
	grdf_initGrid(grd_longtermnodelivelist);
}

// 화면 open시와 초기화 버튼 클릭시 화면 초기화 기능을 수행한다.
function fInitialize() 
{	
	misfGridInit(grd_longtermnodelivelist);
	misfComboComCdList("030M0003", cmb_mngtcls);		
	ds_send.setColumn(0, "mngtcls", ds_init_cmb_mngtcls_comcodelist.getColumn(0, "cdid"));
	//misfMsterDetailSet(grd_longtermnodelivelist, null, "TRRST02901", "N");

	opt_instcd.value = sysf_getUserInfo("dutplceinstcd");
	opt_instcdnm.value = sysf_getUserInfo("dutplceinstnm");
	// [2010.08.26]AS-IS 코드 TO_BE 코드 전환을 위한 물품구분 변경 (goodflag= P) => (goodflag= PH) 
	opt_goodflag.value = "PH";
	
	// 현재 날짜 기본 입력(6개월 간격 설정)
	var reqdate = utlf_getCurrentDate().toDate("YYYYMMDD");
	ipt_delivefrdd.value = reqdate.getAddDate(-3, "M").getDateFormat("YYYYMMDD"); 
	ipt_delivetodd.value = utlf_getCurrentDate();
}
function btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	misfGridInit(grd_longtermnodelivelist);

	if(!frmf_isRequiredControls("opt_instcd") )return false;		// 물품구분
	if(!frmf_isRequiredControls("opt_goodflag") )return false;		// 물품구분
	if(!frmf_isRequiredControls("ipt_delivefrdd") )return false;		// 작업년월
	if(!frmf_isRequiredControls("ipt_delivetodd") )return false;		// 작업년월
	if(!frmf_isRequiredControls("cmb_lrgcd") )return false;		// 대분류
	
	var oParam = {};
		oParam.id          = "TRRST02901";
		oParam.service     = "stocsumapp.StocSumMngt";
		oParam.method      = "reqGetLongTermNoDeliveList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_longtermnodelivelist=longtermnodelivelist";
		oParam.async       = false;		

	tranf_submit(oParam);
}

function btn_init_onclick(obj:Button,  e:ClickEventInfo)
{
	fInitialize();
}

function btn_print_onclick(obj:Button,  e:ClickEventInfo)
{	
	var objDOM = rptf_createDOM();			
	rptf_setNodeListToDOM(objDOM, "root/main/longtermnodelivelist", ds_main_longtermnodelivelist);	// 데이터셋 1		

	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;														// 최상의노드 XML 스트링 추출

	var option = "open=1;save=1;directprint=0;print=1;zoom=0;";		
	rptf_exeReportPreview30(["RPRST02901"],[objParam], option);
}
]]></Script>
  </Form>
</FDL>