YNU_JEUS/app_home/himed/xpapps/lis/qcmngtxp/xp/SMLQP10100_핵의학QC결과조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLQP10100" position="absolute 0 0 1199 786" titletext="QC 결과조회" onload="SMLQP10100_onload" oninit="SMLQP10100_oninit">
    <Layouts>
      <Layout>
        <Static id="caption16" text="QC 결과조회" class="tit_1" position="absolute 0 0 184 23"/>
        <Shape id="line17" linetype="horizontal" class="line_6" position="absolute 0 40 1194 46" anchor="left top right"/>
        <Button id="button5" taborder="1" text="초기화" class="btn4" position="absolute 1127 19 1195 41" anchor="top right"/>
        <Grid id="grd_testDetlInfo" class="datagrid2" taborder="2" binddataset="ds_main_testdetlinfo_testdetlinfo" useinputpanel="false" position="absolute 0 161 1193 782" anchor="all" cellsizingtype="col" onheadclick="grd_testDetlInfo_onheadclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="23"/>
                <Column size="120"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="검사정보"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" style="align:center middle;background:EXPR(rsltcnfmdt==' SD' || rsltcnfmdt==' Mean' || rsltcnfmdt==' CV'? '#BDBDBD':'#FFFFFF');background2:EXPR(rsltcnfmdt==' SD' || rsltcnfmdt==' Mean' || rsltcnfmdt==' CV'? '#BDBDBD':'#FFFFFF');" text="bind:rsltcnfmdt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption9" text="검체정보상세내역" class="tit_2" position="absolute 0 140 130 161"/>
        <Button id="button6" taborder="3" text="엑셀" class="btn7" position="absolute 1142 137 1192 156" anchor="top right" onclick="button6_onclick"/>
        <Shape id="line2" class="line_10" position="absolute 0 156 1193 162" anchor="left top right"/>
        <Tab id="switch1" anchor="left top right" taborder="4" tabindex="0" class="sw_box" position="absolute 0 45 1195 139">
          <Tabpages>
            <Tabpage id="case2" text="Standard">
              <Layouts>
                <Layout>
                  <Div id="group3" anchor="left top right" taborder="0" class="div_SA" position="absolute 0 0 1193 60">
                    <Layouts>
                      <Layout>
                        <Button id="button3" taborder="1" class="icon_search" visible="false" position="absolute 363 34 379 50" onclick="switch1_case2_group3_button3_onclick"/>
                        <Button id="button4" taborder="2" class="icon_search" position="absolute 773 33 789 49" onclick="switch1_case2_group3_button4_onclick"/>
                        <Static id="caption1" text="~" class="search_no_b" position="absolute 195 10 210 30"/>
                        <Static id="caption2" text="검사항목 :" class="search_name" position="absolute 15 33 108 50"/>
                        <Static id="caption3" text="검사실 :" class="search_name" position="absolute 435 9 510 26"/>
                        <Static id="caption4" text="장비 :" class="search_name" position="absolute 850 9 925 26"/>
                        <Combo id="combo1" taborder="3" innerdataset="@ds_init_lb0111" codecolumn="cd" datacolumn="nm" class="combo_search" position="absolute 515 8 615 27" onitemchanged="switch1_case2_group3_combo1_onitemchanged"/>
                        <Combo id="combo2" taborder="4" innerdataset="@ds_init_lb0701" codecolumn="cd" datacolumn="nm" class="combo_search" position="absolute 940 8 1040 27" onitemchanged="switch1_case2_group3_combo2_onitemchanged"/>
                        <Combo id="cbo_testlist" taborder="5" innerdataset="@ds_init_eqmttestlist" codecolumn="cd" datacolumn="nm" class="combo_search" position="absolute 105 32 360 51" onitemchanged="switch1_case2_group3_cbo_testlist_onitemchanged"/>
                        <Button id="button1" taborder="6" text="조회" class="btn1" position="absolute 1123 20 1179 42" anchor="top right" onclick="switch1_case2_group3_button1_onclick"/>
                        <Combo id="combo4" taborder="7" innerdataset="@ds_init_lb0704" codecolumn="cd" datacolumn="nm" class="combo_search" position="absolute 940 31 1040 50"/>
                        <Static id="caption5" text="접수구분 :" class="search_name" position="absolute 850 32 936 49"/>
                        <Static id="caption6" text="레벨 :" class="search_name" position="absolute 435 33 528 50"/>
                        <Shape id="line1" linetype="vertical" class="line_4" position="absolute 1105 8 1111 52" anchor="top right"/>
                        <Edit id="ipt_levl" taborder="8" class="combo_search" position="absolute 515 32 770 51"/>
                        <Static id="caption7" text="접수일자 :" class="search_name" position="absolute 15 9 105 26"/>
                        <Calendar id="input2" taborder="9" autoselect="true" autoskip="true" dateformat="yyyy-MM-dd" class="input_search" position="absolute 105 8 190 27"/>
                        <Calendar id="ipt_acptTodd" taborder="10" autoselect="true" autoskip="true" dateformat="yyyy-MM-dd" class="input_search" position="absolute 210 8 295 27"/>
                      </Layout>
                    </Layouts>
                  </Div>
                </Layout>
              </Layouts>
            </Tabpage>
          </Tabpages>
        </Tab>
      </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="acptfromdd" type="STRING" size="256"/>
          <Column id="acpttodd" type="STRING" size="256"/>
          <Column id="testroom" type="STRING" size="256"/>
          <Column id="eqmtcd" type="STRING" size="256"/>
          <Column id="testcd" type="STRING" size="256"/>
          <Column id="testcd2" type="STRING" size="256"/>
          <Column id="levlcd" type="STRING" size="256"/>
          <Column id="testnm" type="STRING" size="256"/>
          <Column id="levlcd2" type="STRING" size="256"/>
          <Column id="levlnm" type="STRING" size="256"/>
          <Column id="testnm2" type="STRING" size="256"/>
          <Column id="deptflag" type="STRING" size="256"/>
          <Column id="acptflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="acptfromdd"/>
            <Col id="acpttodd"/>
            <Col id="testroom">00</Col>
            <Col id="eqmtcd">00</Col>
            <Col id="testcd">00</Col>
            <Col id="testcd2"/>
            <Col id="levlcd">00</Col>
            <Col id="testnm"/>
            <Col id="levlcd2"/>
            <Col id="levlnm"/>
            <Col id="testnm2"/>
            <Col id="deptflag"/>
            <Col id="acptflag">00</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_lb0111" 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"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_lb0701" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="cd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_eqmttestlist" 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"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_lb0704" 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"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_testdetlinfo_testdetlinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_lb0000" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_get_data2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden_testdetlinfo_count" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="switch1.case2.group3.input2" propid="value" datasetid="ds_send" columnid="acptfromdd"/>
      <BindItem id="item1" compid="switch1.case2.group3.ipt_acptTodd" propid="value" datasetid="ds_send" columnid="acpttodd"/>
      <BindItem id="item2" compid="switch1.case2.group3.combo1" propid="value" datasetid="ds_send" columnid="testroom"/>
      <BindItem id="item3" compid="switch1.case2.group3.combo2" propid="value" datasetid="ds_send" columnid="eqmtcd"/>
      <BindItem id="item4" compid="switch1.case2.group3.cbo_testlist" propid="value" datasetid="ds_send" columnid="testcd"/>
      <BindItem id="item5" compid="switch1.case2.group3.ipt_levl" propid="value" datasetid="ds_send" columnid="levlnm"/>
      <BindItem id="item6" compid="switch1.case2.group3.combo4" propid="value" datasetid="ds_send" columnid="acptflag"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-05-01
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-05-01      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "lis_commonxp::LZZ001.xjs";
include "lis_commonxp::LLZ001.xjs";
include "com_commodulexp::SSZFM00901.xjs";
function SMLQP10100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMLQP10100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_testDetlInfo);
	
	fSetInit();
}

function fSetInit()
{
	fbuttonvisible("B");
	
	var fromdate = utlf_getCurrentDate().toDate("YYYYMMDD").getAddDate(-30)
	
	ds_send.setColumn(0, "acptfromdd", fromdate.getDateFormat("YYYYMMDD"));
	ds_send.setColumn(0, "acpttodd", utlf_getCurrentDate());

	lf_getDbDeptcd("0000|0111|0701|0501|", "")
	
	dsf_makeValue(ds_send, "basecdid", "string", ds_init_lb0000.getColumn(0, "nm"), 0);
	dsf_makeValue(ds_send, "codeflag", "string", "0704|", 0);
	
	var oParam = {};
		oParam.id          = "TRLZZ00101";
		oParam.service     = "diagtestapplib.DiagTestBaseInfoMngt";
		oParam.method      = "reqGetInitCodeInfo";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_init_lb0704=0704";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLZZ00101";

	tranf_submit(oParam);
}

function fbuttonvisible(ref)
{
	ds_send.setColumn(0, "eqmtcd", "00");
	fGrdReSet();
}

function fGrdReSet()
{
	ds_main_testdetlinfo_testdetlinfo.clearData();
}

function switch1_case2_group3_combo1_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	obj.updateToDataset();
	fSetEqmtCd();
}

function fSetEqmtCd()
{
	ds_init_lb0701.clearData();
	
	var testroom = ds_send.getColumn(0, "testroom");

	dsf_makeValue(ds_send, "basecdid", "string", testroom, 0);
	dsf_makeValue(ds_send, "codeflag", "string", "0701|", 0);
	ds_send.setColumn(0, "eqmtcd", "00");
	
	var oParam = {};
		oParam.id          = "TRLZZ00101";
		oParam.service     = "diagtestapplib.DiagTestBaseInfoMngt";
		oParam.method      = "reqGetInitCodeInfo";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_init_lb0701=0701";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLZZ00101";

	tranf_submit(oParam);
}

function switch1_case2_group3_combo2_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fSetTestCd();
}

function fSetTestCd()
{
	ds_init_eqmttestlist.clearData();
	
	dsf_makeValue(ds_send, "basecdid", "string", ds_send.getColumn(0, "eqmtcd"), 0);
	dsf_makeValue(ds_send, "codeflag", "string", "0702|", 0);
	
	var oParam = {};
		oParam.id          = "TRLQP00112";
		oParam.service     = "grademngtprintapp.QCRsltReference";
		oParam.method      = "reqGetTestList2";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_init_eqmttestlist=eqmttestlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLQP00112";

	tranf_submit(oParam);

	ds_send.setColumn(0, "testcd", "00");
}

function fTestLevlSch()
{
	var eqmtcd    = ds_send.getColumn(0, "eqmtcd");
	var deptflag  = ds_init_lb0000.getColumn(0, "nm");
	var testcd    = ds_send.getColumn(0, "testcd");
	var sflag = "nu" + "▦" + eqmtcd + "▦" + deptflag + "▦" + testcd;

	dsf_createDsRow("ds_send_data", [{col:"sflag", type:"STRING", size:256 , val : sflag}]);
                                                       
	var objArg = new Object();
		objArg.ds_arg_temp_reqdata = ds_send_data;
	
	frmf_modal("SPLQP00200", "SPLQP00200", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	ds_send.setColumn(0, "levlnm", ds_get_data2.getColumn(0, "levlnm"));
	ds_send.setColumn(0, "levlcd", ds_get_data2.getColumn(0, "levlcd"));
	ds_send.setColumn(0, "levlcd2", ds_get_data2.getColumn(0, "levlcd2"));
}

function switch1_case2_group3_button4_onclick(obj:Button,  e:ClickEventInfo)
{
	fTestLevlSch();	
}

function switch1_case2_group3_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetRslt2();
}

function fGetRslt2()
{
	if(ds_send.getColumn(0, "eqmtcd") == "00")
	{
		sysf_messageBox("장비를", "C002","");
		return 0;
	}
	
	if(ds_send.getColumn(0, "testcd") == "00")
	{
		sysf_messageBox("검사항목을", "C002","");
		return 0;
	}
	
	if(ds_send.getColumn(0, "levlcd") == "00")
	{
		sysf_messageBox("Standard를", "C002","");
		return 0;
	}
	else
	{
		ds_main_testdetlinfo_testdetlinfo.clearData();
//		trace("lee1   " + grd_testDetlInfo.getCellCount("Head"));
		
		grd_testDetlInfo.splitContentsCell("head", 0, 2, 0, grd_testDetlInfo.getCellCount("Head") + 1, true);
		
		
		for(var i = grd_testDetlInfo.getCellCount("Head"); i > 1; i--)
		{
			grd_testDetlInfo.deleteContentsCol(i);
		}
		trace("lee2   " + grd_testDetlInfo.getCellCount("Head"));
		
		ds_send.setColumn(0, "deptflag", ds_init_lb0000.getColumn(0, "nm"));
		
		var oParam = {};
			oParam.id          = "TRLQP00102";
			oParam.service     = "grademngtprintapp.QCRsltReference";
			oParam.method      = "reqGetTestRslt2";
			oParam.inds        = "cond=ds_send";
			oParam.outds       = "ds_main_testdetlinfo_testdetlinfo=testrslt ds_hidden_testdetlinfo_count=count";
			oParam.async       = false;
			//oParam.callback    = "cf_TRLQP00102";

		tranf_submit(oParam);
		
		//var vCount 	= ds_main_testdetlinfo_testdetlinfo.getColCount();
		var vCount 	= ds_hidden_testdetlinfo_count.getColumn(0,"count");
//		trace ("lee3   "+ vCount);
		var vTestNm = switch1.case2.group3.cbo_testlist.text.split("^");;
		
		var vCap   =  "검사정보";		
		var appCol = 0;
		
		for(var i = 0; i < vCount; i++)
		{
			appCol = grd_testDetlInfo.appendContentsCol();
			
			grd_testDetlInfo.setCellProperty("head", appCol, "text", vTestNm[0]);
			
			grd_testDetlInfo.setCellProperty("Body", appCol, "text", "bind:column"+i);
			grd_testDetlInfo.setFormatColProperty(appCol, "size", 100);
			grd_testDetlInfo.setCellProperty("Body", appCol, "align", "center middle");
			grd_testDetlInfo.setCellProperty("Body", appCol, "wordwrap", "ward");
			grd_testDetlInfo.setCellProperty("Body", appCol, "padding", "1 1 1 1");
			
//             grd_testDetlInfo.setCellProperty("Body", vCount, "align", "center middle");
// 			grd_testDetlInfo.setCellProperty("Body", vCount, "wordwrap", "ward");
// 			grd_testDetlInfo.setCellProperty("Body", vCount, "padding", "1 1 1 1");			
			
			grd_testDetlInfo.setCellProperty("Body", appCol, "background","EXPR(rsltcnfmdt==' SD' || rsltcnfmdt==' Mean' || rsltcnfmdt==' CV'? '#BDBDBD':'#FFFFFF')" );
			grd_testDetlInfo.setCellProperty("Body", appCol, "background2","EXPR(rsltcnfmdt==' SD' || rsltcnfmdt==' Mean' || rsltcnfmdt==' CV'? '#BDBDBD':'#FFFFFF')" );
		}
		
		grd_testDetlInfo.mergeContentsCell("head", 0, 2, 0, vCount + 1, 2, false);
		
		
// 		if(!utlf_isNull(ds_main_testdetlinfo_testdetlinfo.getColumn(0, 1)))
// 		{
// 			for(var i = 1; i < vCount; i++)
// 			{
// 				grd_testDetlInfo.insertContentsCol(vCount);
// 				grd_testDetlInfo.setCellProperty("Head", vCount, "text", vTestNm[i]);
// 				ds_main_testdetlinfo_testdetlinfo.updateColID(1, vTestNm[i]);
// 				grd_testDetlInfo.setCellProperty("Body", vCount, "text", "bind:"+vTestNm[i]);
// 				grd_testDetlInfo.setCellProperty("Body", vCount, "align", "left middle");
// 				grd_testDetlInfo.setCellProperty("Body", vCount, "wordwrap", "ward");
// 				grd_testDetlInfo.setCellProperty("Body", vCount, "padding", "1 1 1 1");
// 			}
// 		}
	}	
}

function button6_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_testDetlInfo, "", "", false, "", "", false);
}

function switch1_case2_group3_cbo_testlist_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	switch1.case2.group3.button4.click();
}

function grd_testDetlInfo_onheadclick(obj:Grid, e:GridClickEventInfo)
{
	if (e.col != e.oldcol)      grdf_clearSort(obj);
	grdf_gridSort(grd_testDetlinfo,e);
}
]]></Script>
  </Form>
</FDL>