YNU_JEUS/app_home/himed/xpapps/lis/statsmngtxp/xp/SMLBS00100_성분제제별입출고통계.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLBS00100" position="absolute 0 0 1261 792" titletext="성분제제별입출고통계" onload="SMLBS00100_onload">
    <Layouts>
      <Layout>
        <Button id="btn_reset" taborder="1" text="초기화" onclick="btn_reset_onclick" class="btn4" position="absolute 1187 4 1256 24" anchor="top right"/>
        <Button id="btn_print" taborder="2" text="출력" class="btn4" position="absolute 1127 4 1183 24" anchor="top right" onclick="btn_print_onclick"/>
        <Static id="caption6" text="성분제제별 입출고 통계" class="tit_1" position="absolute 0 0 189 25"/>
        <Div id="group2" anchor="left top right" taborder="3" style="align:center top;" class="div_SA" position="absolute 0 25 1256 101">
          <Layouts>
            <Layout>
              <Static id="caption5" text="조회구분" class="search_name" position="absolute 407 10 481 30"/>
              <Radio id="rdo_refflag" taborder="4" columncount="3" rowcount="0" index="0" codecolumn="codecolumn" datacolumn="datacolumn" value="1" class="radio_search" position="absolute 481 10 596 30">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" size="256"/>
                    <Column id="datacolumn" size="256"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">월별</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">년별</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Static id="caption3" text="혈액용량" class="search_name" position="absolute 620 10 694 30"/>
              <Radio id="rdo_blodvol" taborder="5" columncount="3" rowcount="0" index="0" codecolumn="codecolumn" datacolumn="datacolumn" value="0" class="radio_search" position="absolute 694 10 904 30" onitemchanged="group2_rdo_blodvol_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" size="256"/>
                    <Column id="datacolumn" size="256"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">0</Col>
                      <Col id="datacolumn">전체</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">320 ml</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">400 ml</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Static id="caption2" text="입고일자" class="search_name" position="absolute 8 10 82 30"/>
              <Static id="caption8" text="~" class="search_no_b" position="absolute 225 10 241 30" style="align:center middle;"/>
              <Calendar id="ipt_uedd" taborder="6" autoselect="true" dateformat="yyyy-MM-dd ddd" onchanged="lf_chkDate" position="absolute 240 10 340 31" style="align:center middle;" value="null"/>
              <Radio id="rdo_comprod" taborder="7" columncount="10" rowcount="2" innerdataset="@ds_cond_comprod" codecolumn="cd" datacolumn="nm" onitemchanged="group2_rdo_comprod_onitemchanged" position="absolute 80 35 906 69" anchor="left right bottom" style="align:left middle;"/>
              <Static id="caption7" text="성분제제" class="search_name" position="absolute 8 35 82 55"/>
              <MaskEdit id="input1" taborder="8" value="0000" type="string" mask="##:##" onkeydown="lf_chkTime" oneditclick="group3_group2_input1_oneditclick" class="input_search" position="absolute 185 10 225 30" style="align:center middle;"/>
              <MaskEdit id="input2" taborder="9" value="2359" type="string" mask="##:##" onkeydown="lf_chkTime" class="input_search" position="absolute 343 10 383 30" style="align:center middle;"/>
              <Button id="btn_ref" taborder="10" text="조회" onclick="group2_btn_ref_onclick" class="btn1" position="absolute 1188 10 1244 30" anchor="top right"/>
              <Calendar id="ipt_usdd" taborder="11" autoselect="true" position="absolute 83 9 184 31"/>
            </Layout>
          </Layouts>
          <InitValue/>
        </Div>
        <Static id="caption1" text="입고 조회" class="tit_2" position="absolute 1 109 81 125" style="align:left middle;"/>
        <Grid id="grd_win" taborder="4" binddataset="ds_grd_winlist" useinputpanel="false" autofittype="col" position="absolute 0 129 595 788" anchor="left top bottom" style="align:center middle;">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="100"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="일자"/>
                <Cell col="2" text="A"/>
                <Cell col="3" text="B"/>
                <Cell col="4" text="O"/>
                <Cell col="5" text="AB"/>
                <Cell col="6" text="계"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow+1"/>
                <Cell col="1" displaytype="text" style="align:center middle;" text="bind:windt"/>
                <Cell col="2" displaytype="number" style="align:center middle;" text="bind:a"/>
                <Cell col="3" displaytype="number" style="align:center middle;" text="bind:b"/>
                <Cell col="4" displaytype="number" style="align:center middle;" text="bind:o"/>
                <Cell col="5" displaytype="number" style="align:center middle;" text="bind:ab"/>
                <Cell col="6" displaytype="number" style="align:center middle;" text="bind:hap"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_delive" taborder="5" binddataset="ds_grd_delivelist" useinputpanel="false" autofittype="col" position="absolute 605 129 1256 789" anchor="all" style="align:center middle;">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="100"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="일자"/>
                <Cell col="2" text="A"/>
                <Cell col="3" text="B"/>
                <Cell col="4" text="O"/>
                <Cell col="5" text="AB"/>
                <Cell col="6" text="계"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow+1"/>
                <Cell col="1" displaytype="text" style="align:center middle;" text="bind:windt"/>
                <Cell col="2" displaytype="number" style="align:center middle;" text="bind:a"/>
                <Cell col="3" displaytype="number" style="align:center middle;" text="bind:b"/>
                <Cell col="4" displaytype="number" style="align:center middle;" text="bind:o"/>
                <Cell col="5" displaytype="number" style="align:center middle;" text="bind:ab"/>
                <Cell col="6" displaytype="number" style="align:center middle;" text="bind:hap"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption4" text="출고 조회" class="tit_2" position="absolute 605 109 686 125" style="align:left middle;"/>
        <Static id="caption9" text="(입고일 기준)" position="absolute 86 107 170 127"/>
        <Static id="caption10" text="(준비일 기준)" position="absolute 689 108 780 128"/>
        <Button id="button1" taborder="6" text="엑셀" onclick="button1_onclick" class="btn7" position="absolute 541 105 593 125"/>
        <Static id="caption11" text="* 실시간 통계" position="absolute 1114 106 1191 126" anchor="top right"/>
        <Button id="btn_excel" taborder="7" text="엑셀" onclick="btn_excel_onclick" class="btn7" position="absolute 1200 105 1252 125" anchor="top right"/>
        <Shape id="line12" class="line_1" position="absolute 0 125 595 131" anchor="left top" style="strokepen:3 solid #33bbbbff;"/>
        <Shape id="line00" class="line_1" position="absolute 605 125 1256 131" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_cond_comprod" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <column id="cd" type="STRING" size="256"/>
          <column id="nm" type="STRING" size="256"/>
          <column id="bloddiarydispseq" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_winlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="windt" type="STRING" size="256"/>
          <Column id="a" type="STRING" size="256"/>
          <Column id="b" type="STRING" size="256"/>
          <Column id="o" type="STRING" size="256"/>
          <Column id="ab" type="STRING" size="256"/>
          <Column id="hap" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_delivelist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="windt" type="STRING" size="256"/>
          <Column id="a" type="STRING" size="256"/>
          <Column id="b" type="STRING" size="256"/>
          <Column id="o" type="STRING" size="256"/>
          <Column id="ab" type="STRING" size="256"/>
          <Column id="hap" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_grd_winPrint" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="dt" type="STRING" size="256"/>
          <Column id="a" type="STRING" size="256"/>
          <Column id="b" type="STRING" size="256"/>
          <Column id="o" type="STRING" size="256"/>
          <Column id="ab" type="STRING" size="256"/>
          <Column id="sum" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_grd_delivePrint" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="dt" type="STRING" size="256"/>
          <Column id="a" type="STRING" size="256"/>
          <Column id="b" type="STRING" size="256"/>
          <Column id="o" type="STRING" size="256"/>
          <Column id="ab" type="STRING" size="256"/>
          <Column id="sum" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="usdd" type="STRING" size="256"/>
          <Column id="uedd" type="STRING" size="256"/>
          <Column id="ustm" type="STRING" size="256"/>
          <Column id="uetm" type="STRING" size="256"/>
          <Column id="refflag" type="STRING" size="256"/>
          <Column id="blodvol" type="STRING" size="256"/>
          <Column id="comprod" type="STRING" size="256"/>
          <Column id="selectcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="ustm">0800</Col>
            <Col id="uetm">0759</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="usdd" type="STRING" size="256"/>
          <Column id="uedd" type="STRING" size="256"/>
          <Column id="refflag" type="STRING" size="256"/>
          <Column id="blodvol" type="STRING" size="256"/>
          <Column id="comprod" type="STRING" size="256"/>
          <Column id="ustm" type="STRING" size="256"/>
          <Column id="uetm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.ipt_usdd" propid="value" datasetid="ds_hidden" columnid="usdd"/>
      <BindItem id="item1" compid="group2.ipt_uedd" propid="value" datasetid="ds_hidden" columnid="uedd"/>
      <BindItem id="item2" compid="group2.rdo_refflag" propid="value" datasetid="ds_hidden" columnid="refflag"/>
      <BindItem id="item3" compid="group2.rdo_blodvol" propid="value" datasetid="ds_hidden" columnid="blodvol"/>
      <BindItem id="item4" compid="group2.input1" propid="value" datasetid="ds_hidden" columnid="ustm"/>
      <BindItem id="item5" compid="group2.input2" propid="value" datasetid="ds_hidden" columnid="uetm"/>
      <BindItem id="item6" compid="group2.rdo_comprod" propid="value" datasetid="ds_hidden" columnid="comprod"/>
    </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";
include "lis_commonxp::LZZ001.xjs";
include "lis_commonxp::LLZ001.xjs";

function SMLBS00100_onload(obj:Form, e:LoadEventInfo)
{
		//폼 초기화 함수
	frmf_initForm(obj);

	fSetInit();
}

//초기화
function fSetInit()
{
	var toDay = utlf_getCurrentDate();
	ds_hidden.setColumn(0, "usdd", toDay);
	
	var mDate = utlf_getCurrentDate().toDate("YYYYMMDD").getAddDate(+1);
	ds_hidden.setColumn(0, "uedd", mDate.getDateFormat("YYYYMMDD"));
	
	ds_hidden.setColumn(0, "refflag", "1");
	ds_hidden.setColumn(0, "blodvol", "0");
	
	ds_grd_winlist.clearData();
	ds_grd_delivelist.clearData();
	fGetComProd();
}

//성분제제조회
 function fGetComProd()
 {	
	ds_send.setColumn(0, "blodvol", ds_hidden.getColumn(0, "blodvol"));
	
	var oParam = {};
		oParam.id          = "TRLBS00101";
		oParam.service     = "statsmngtapp.BloodBankStatsRefMngt";
		oParam.method      = "reqGetComProd";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_cond_comprod=getComProd";
		oParam.async       = false;
		//oParam.callback    = "cbf_SMLBS00100";
	tranf_submit(oParam);                       
}

 function fGetIO()
 {
	var usdd = group2.ipt_usdd.value;
	var uedd = group2.ipt_uedd.value;
	
	trace("usdd = " + usdd);
	trace("uedd = " +  uedd);
	
	
	if( utlf_isNull(ds_hidden.getColumn(0, "comprod")))
	{
		sysf_messageBox("성분제제를 " , "C002", ""); //선택하십시오!
		return;
	}
	
	if(ds_hidden.getColumn(0, "refflag") == "2")
	{
		ds_send.setColumn(0, "usdd", usdd);
		ds_send.setColumn(0, "uedd", uedd);
	}
	else
	{
		ds_send.setColumn(0, "usdd", ds_hidden.getColumn(0, "usdd"));
		ds_send.setColumn(0, "uedd", ds_hidden.getColumn(0, "uedd"));
	}
	
	ds_send.setColumn(0, "refflag", ds_hidden.getColumn(0, "refflag"));
	ds_send.setColumn(0, "comprod", ds_hidden.getColumn(0, "comprod"));	//성분제제
	ds_send.setColumn(0, "blodvol", ds_hidden.getColumn(0, "blodvol"));	//혈액용량
	ds_send.setColumn(0, "ustm", ds_hidden.getColumn(0, "ustm"));
	ds_send.setColumn(0, "uetm", ds_hidden.getColumn(0, "uetm"));
	
	var oParam = {};
		oParam.id          = "TRLBS00102";
		oParam.service     = "statsmngtapp.BloodBankStatsRefMngt";
		oParam.method      = "reqGetIO";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_grd_winlist=getWinList ds_grd_delivelist=getDeliveList";
		oParam.async       = false;
		//oParam.callback    = "cbf_SMLBS00100";
	tranf_submit(oParam); 
}

// 엑셀 저장
function lf_saveExcel(pGridId,pGridNm)
{
	grdf_exportExcel(pGridId, lf_lisGetTitle(this) + "_" + pGridNm, "sheet1", false);
}

// 출력
function fExePrint()
{
	ds_grid_grd_winPrint.clearData();
	ds_grid_grd_delivePrint.clearData();
	var addRw = 0;
	
	for(var i=0; i<ds_grid_grd_win.rowcount; i++)
	{
		addRw = ds_grid_grd_winPrint.addRow();
		ds_grid_grd_winPrint.setColumn(addRw, "dt", ds_grid_grd_win.getColumn(i, "windt"));
		ds_grid_grd_winPrint.setColumn(addRw, "a", ds_grid_grd_win.getColumn(i, "a"));
		ds_grid_grd_winPrint.setColumn(addRw, "b", ds_grid_grd_win.getColumn(i, "b"));
		ds_grid_grd_winPrint.setColumn(addRw, "o", ds_grid_grd_win.getColumn(i, "o"));
		ds_grid_grd_winPrint.setColumn(addRw, "ab", ds_grid_grd_win.getColumn(i, "ab"));
		ds_grid_grd_winPrint.setColumn(addRw, "sum", ds_grid_grd_win.getColumn(i, "hap"));
	}
	for(var i=0; i<ds_grid_grd_delive.rowcount; i++)
	{
		addRw = ds_grid_grd_delivePrint.addRow();
		ds_grid_grd_delivePrint.setColumn(addRw, "dt", ds_grid_grd_delive.getColumn(i, "windt"));
		ds_grid_grd_delivePrint.setColumn(addRw, "a", ds_grid_grd_delive.getColumn(i, "a"));
		ds_grid_grd_delivePrint.setColumn(addRw, "b", ds_grid_grd_delive.getColumn(i, "b"));
		ds_grid_grd_delivePrint.setColumn(addRw, "o", ds_grid_grd_delive.getColumn(i, "o"));
		ds_grid_grd_delivePrint.setColumn(addRw, "ab", ds_grid_grd_delive.getColumn(i, "ab"));
		ds_grid_grd_delivePrint.setColumn(addRw, "sum", ds_grid_grd_delive.getColumn(i, "hap"));
	}
	
	var objDOM = rptf_createDOM();           // DOM 객체 설정
	rptf_makeNodeToDOM(objDOM, "root/hidden/report");
	rptf_setValueToDOM(objDOM, "root/hidden/report/fromdd", group2.ipt_usdd.value);
	rptf_setValueToDOM(objDOM, "root/hidden/report/todd", group2.ipt_uedd.value);
	rptf_setValueToDOM(objDOM, "root/hidden/report/blodcom", group2.rdo_comprod.text);
	rptf_setNodeListToDOM(objDOM, "root/hidden/report/list/delivelist", ds_grid_grd_delivePrint);
	rptf_setNodeListToDOM(objDOM, "root/hidden/report/list/winlist", ds_grid_grd_winPrint);
	
	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(["RPLBS00100"],[objParam], option);
}

// callback 함수
function cbf_SMLBS00100(strSvcID, nErrorCode, strErrorMag)
{	
	if(nErrorCode != 0)
	{
		sysf_messageBox("ID: "+ strSvcID + "  Error: " + strErrorMag, "E009", "");
	}
	else
	{
		switch(strSvcID)
		{
			case "TRLBS00101":
					var fRw = ds_cond_comprod.findRow("nm","Phereris(본원)");
					if(fRw >=0)
					{
						ds_cond_comprod.setColumn(fRw, "nm", "Pheresis(본원)");
					}
				break;
			case "TRLBS00102":
					
				break;
			default:
				break;
		}
	}
}

function group2_btn_ref_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetIO();						
}

function group2_rdo_blodvol_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	lf_getComProd();
	group2.rdo_comprod.index=-1;
	ds_grid_grd_win.clearData();
	ds_grid_grd_delive.clearData();
}

function group2_rdo_comprod_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fGetIO();
}

//입고조회 엑셀출력
function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_grd_winlist.rowcount == 0)
	{
		sysf_messageBox("엑셀저장할  데이타가 없습니다." , "I", "");
		return;
	}
	grdf_exportExcel(grd_win, lf_lisGetTitle(this) + "_" + "입고목록", "입고목록");
}


//출고조회 엑셀출력
function btn_excel_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_grd_delivelist.rowcount == 0)
	{
		sysf_messageBox("엑셀저장할  데이타가 없습니다." , "I", "");
		return;
	}
	grdf_exportExcel(grd_delive, lf_lisGetTitle(this) + "_" + "출고목록", "출고목록");
}

//초기화버튼
function btn_reset_onclick(obj:Button, e:ClickEventInfo)
{
	this.reload();
}

//날짜 체크
function lf_chkDate(obj:Calendar, e:ChangeEventInfo)
{
	var startdt = group2.ipt_usdd.value + group2.input1.value;
	var enddt   = group2.ipt_uedd.value + group2.input2.value;
	
	if( startdt > enddt )
	{
		sysf_messageBox("시작일시를 종료일시보다 작게","C002");
		group2.ipt_usdd.value = group2.ipt_uedd.value;
		group2.input1.value   = "0000";
		return;
	}
}

//시간체크
function lf_chkTime(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		var startdt = group2.ipt_usdd.value + group2.input1.value;
		var enddt   = group2.ipt_uedd.value + group2.input2.value;
		
		if( startdt > enddt )
		{
			sysf_messageBox("시작일시를 종료일시보다 작게","C002");
			group2.input1.value   = "0000";
			return;
		}
	}
}

//출력버튼
function btn_print_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_grd_winlist.rowcount == 0 && ds_grd_delivelist.rowcount == 0)
	{
		sysf_messageBox("출력할 데이타가 없습니다." , "I", "");
		return;
	}
	fExePrint();
}

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