YNU_JEUS/app_home/himed/xpapps/lis/qcmngtxp/xp/SMLQF10600_핵의학QC물질관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLQF10600" position="absolute 0 0 1201 762" titletext="New Form" oninit="SMLQF10600_oninit" onload="SMLQF10600_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="Standard 및 Control 관리" class="tit_1" position="absolute 0 0 264 23"/>
        <Shape id="line2" class="line_2" position="absolute 0 23 1194 29" anchor="left top right"/>
        <Button id="btn_save" taborder="1" text="저장" class="btn4" position="absolute 1068 28 1124 50" anchor="top right" onclick="btn_save_onclick"/>
        <Button id="btn_init" taborder="2" text="초기화" class="btn4" position="absolute 1127 28 1195 50" anchor="top right" onclick="btn_init_onclick"/>
        <Shape id="line1" class="line_10" position="absolute 0 110 1194 116" anchor="left top right"/>
        <Static id="caption1" text="Control 목록" class="tit_2" position="absolute 0 94 172 116"/>
        <Div id="group2" taborder="3" class="div_SA" position="absolute 0 51 1195 86" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption5" text="조회구분 :" class="search_name" position="absolute 15 9 101 26"/>
              <Button id="btn_ref" taborder="1" text="조회" class="btn1" position="absolute 1123 7 1180 29" anchor="top right"/>
              <Shape id="line3" linetype="vertical" class="line_4" position="absolute 1105 6 1111 28" anchor="top right"/>
              <Combo id="cmb_refflag" taborder="2" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_s_essential" position="absolute 106 8 226 27" onitemchanged="group2_cmb_refflag_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </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>
              </Combo>
              <Edit id="ipt_searchtext" taborder="3" class="input_s_button" position="absolute 973 9 1093 28" autoselect="true" autoskip="true" inputmode="upper" onkeyup="group2_ipt_searchtext_onkeyup"/>
              <Static id="caption7" text="검색구분 :" class="search_name" position="absolute 760 10 846 27"/>
              <Combo id="cmb_searchflag" taborder="4" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 850 9 970 28">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">Control 코드</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">Control 명</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_matlist" taborder="4" binddataset="ds_main_getmatlist" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 115 1194 759" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="150"/>
                <Column size="141"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="200"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="0"/>
                <Column size="100"/>
                <Column size="100"/>
                <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="Control 코드"/>
                <Cell col="2" text="Standard 및 Control수"/>
                <Cell col="3" text=" 사용시작일자"/>
                <Cell col="4" text="사용종료일자"/>
                <Cell col="5" text="Control 명"/>
                <Cell col="6" text="입고일자"/>
                <Cell col="7" text="Lot번호"/>
                <Cell col="8" text="OnCall Lot번호"/>
                <Cell col="9" text="제조회사"/>
                <Cell col="10" text="제조일자"/>
                <Cell col="11" text="라벨명"/>
                <Cell col="12" text="IF연동코드"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="text" edittype="text" style="align:left middle;" text="bind:matrcd"/>
                <Cell col="2" displaytype="combo" edittype="combo" style="align:left middle;" text="bind:levlcd" combodataset="ds_init_lb0501" combocodecol="cd" combodatacol="nm"/>
                <Cell col="3" displaytype="date" edittype="date" style="align:left middle;" text="bind:matrfromdd" calendardisplaynulltype="nulltext"/>
                <Cell col="4" displaytype="date" style="align:left middle;" text="bind:matrtodd" calendardisplaynulltype="nulltext"/>
                <Cell col="5" displaytype="text" edittype="text" style="align:left middle;" text="bind:matrnm"/>
                <Cell col="6" displaytype="date" edittype="date" style="align:left middle;" text="bind:windt" calendardisplaynulltype="nulltext"/>
                <Cell col="7" displaytype="text" edittype="text" style="align:left middle;" text="bind:lotno"/>
                <Cell col="8" displaytype="text" edittype="text" style="align:left middle;" text="bind:oclotno"/>
                <Cell col="9" displaytype="text" edittype="text" style="align:left middle;" text="bind:prodcmpy"/>
                <Cell col="10" displaytype="date" edittype="date" style="align:left middle;" text="bind:proddt" calendardisplaynulltype="nulltext"/>
                <Cell col="11" displaytype="text" edittype="text" text="bind:levlnm"/>
                <Cell col="12" displaytype="text" edittype="text" text="bind:matrifcd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_addrow" taborder="5" text="행추가" class="btn2" position="absolute 1141 91 1194 110" anchor="top right" onclick="btn_addrow_onclick"/>
        <Button id="btn_end" taborder="6" text="종료" class="btn2" position="absolute 1096 91 1138 110" anchor="top right" onclick="btn_end_onclick"/>
        <Button id="button1" taborder="7" text="Control변경" class="btn2" visible="false" position="absolute 987 91 1073 110" anchor="top right" onclick="button1_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_getmatlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="matrcd" type="STRING"/>
          <Column id="levlcd" type="STRING"/>
          <Column id="matrfromdd" type="STRING"/>
          <Column id="matrtodd" type="STRING"/>
          <Column id="matrnm" type="STRING"/>
          <Column id="windt" type="STRING"/>
          <Column id="lotno" type="STRING"/>
          <Column id="oclotno" type="STRING"/>
          <Column id="prodcmpy" type="STRING"/>
          <Column id="proddt" type="STRING"/>
          <Column id="levlnm" type="STRING"/>
          <Column id="matrifcd" type="STRING"/>
        </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="userdeptcd" type="STRING" size="256"/>
          <Column id="searchtext" type="STRING" size="256"/>
          <Column id="searchflag" type="STRING" size="256"/>
          <Column id="refflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_lb0000" 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_lb0501" 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_hidden_temp_getmatlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="matrcd" type="STRING"/>
          <Column id="levlcd" type="STRING"/>
          <Column id="matrfromdd" type="STRING"/>
          <Column id="matrtodd" type="STRING"/>
          <Column id="matrnm" type="STRING"/>
          <Column id="windt" type="STRING"/>
          <Column id="lotno" type="STRING"/>
          <Column id="oclotno" type="STRING"/>
          <Column id="prodcmpy" type="STRING"/>
          <Column id="proddt" type="STRING"/>
          <Column id="levlnm" type="STRING"/>
          <Column id="matrifcd" type="STRING"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_tmp_addcontrol" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="levlcd" type="STRING" size="256"/>
          <Column id="matrcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.cmb_refflag" propid="value" datasetid="ds_hidden" columnid="refflag"/>
      <BindItem id="item1" compid="group2.cmb_searchflag" propid="value" datasetid="ds_hidden" columnid="searchflag"/>
      <BindItem id="item2" compid="group2.ipt_searchtext" propid="value" datasetid="ds_hidden" columnid="searchtext"/>
    </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::LLZ001.xjs";
function SMLQF10600_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMLQF10600_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_matlist);
	fSetInit();
}

function fSetInit() 
{
	lf_getDbDeptcd("0000|", "")
	
	dsf_createDsRow("ds_send", [{col:"basecdid", type:"STRING", size:256 , val : ds_init_lb0000.getColumn(0, "nm")}
						     ,  {col:"codeflag", type:"STRING", size:256 , val : "0501|"}]);

	var oParam = {};
		oParam.id          = "TRLZZ00101";
		oParam.service     = "diagtestapplib.DiagTestBaseInfoMngt";
		oParam.method      = "reqGetInitCodeInfo";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_init_lb0501=0501";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLZZ00101";

	tranf_submit(oParam);
	
	ds_hidden.setColumn(0, "refflag", "1");
	ds_hidden.setColumn(0, "searchflag", "1");
	ds_hidden.setColumn(0, "searchtext", "");
	
	grd_matlist.setFormatColProperty(4, "size", 0)

	ds_main_getmatlist.clearData();
	fGetMatList();
}

function fGetMatList() 
{
	ds_hidden.setColumn(0, "userdeptcd", ds_init_lb0000.getColumn(0, "nm"));
	
	var oParam = {};
		oParam.id          = "TRLQF00601";
		oParam.service     = "grademngtbasemngtapp.QCMaterialMngt";
		oParam.method      = "reqGetMat";
		oParam.inds        = "cond=ds_hidden";
		oParam.outds       = "ds_main_getmatlist=getMat";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLQF00601";

	tranf_submit(oParam);
}

function group2_cmb_refflag_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	if(obj.value == "2") 
	{
		grd_matlist.setFormatColProperty(4, "size", 100);
	} 
	else 
	{
		grd_matlist.setFormatColProperty(4, "size", 0);
	}
}

function group2_ipt_searchtext_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		fKeyEvent();
	}
}

function fKeyEvent()
{
	fGetMatList();
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	fAddRow2();
}

function btn_end_onclick(obj:Button,  e:ClickEventInfo)
{
	fEndMat();
}

function btn_addrow_onclick(obj:Button,  e:ClickEventInfo)
{
	fAddRow();
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fInsMat();
}

function btn_init_onclick(obj:Button,  e:ClickEventInfo)
{
	this.reload();
}

function fAddRow2()
{
	ds_hidden_temp_getmatlist.copyRow(0, ds_main_getmatlist, ds_main_getmatlist.rowposition);
	fEndMat();
	
	var addRow = ds_main_getmatlist.addRow();

	ds_main_getmatlist.setColumn(addRow, "matrcd", ds_hidden_temp_getmatlist.getColumn(0, "matrcd"));
	ds_main_getmatlist.setColumn(addRow, "levlcd", ds_hidden_temp_getmatlist.getColumn(0, "levlcd"));
	ds_main_getmatlist.setColumn(addRow, "matrnm", ds_hidden_temp_getmatlist.getColumn(0, "matrnm"));
		
	var fromdate = utlf_getCurrentDate().toDate("YYYYMMDD").getAddDate(1);
	
	ds_main_getmatlist.setColumn(addRow, "matrfromdd", fromdate.getDateFormat("YYYYMMDD"));
	ds_main_getmatlist.setColumn(addRow, "matrtodd", "99991231");
	ds_main_getmatlist.setColumn(addRow, "windt", utlf_getCurrentDate());
	ds_main_getmatlist.setColumn(addRow, "lotno", "-");
	ds_main_getmatlist.setColumn(addRow, "prodcmpy", "-");
	ds_main_getmatlist.setColumn(addRow, "proddt", "19000101");
	ds_main_getmatlist.setColumn(addRow, "matrifcd", "-");
}

function fEndMat()
{
	ds_main_getmatlist.updatecontrol = false;
	ds_main_getmatlist.setRowType(ds_main_getmatlist.rowposition, "d");
	ds_main_getmatlist.updatecontrol = true;

	ds_hidden.setColumn(0, "userdeptcd", ds_init_lb0000.getColumn(0, "nm"));
	
	var oParam = {};
		oParam.id          = "TXLQF00602";
		oParam.service     = "grademngtbasemngtapp.QCMaterialMngt";
		oParam.method      = "reqExeMat";
		oParam.inds        = "grid=ds_main_getmatlist:u cond=ds_hidden";
		oParam.async       = false;
		//oParam.callback    = "cf_TXLQF00602";

	tranf_submit(oParam);
	
	fGetMatList();
}

function fAddRow()
{
	frmf_modal("SPLQF10100", "SPLQF10100", "", "", "", "", "", "", "", "", "", "", "M");	
	
	var levlcd = ds_tmp_addcontrol.getColumn(0, "levlcd");
	var matrcd = ds_tmp_addcontrol.getColumn(0, "matrcd");
	
	var levlcdsplit = levlcd.split("@");						
	var levlcdcount = levlcdsplit.length;	
	
	if(levlcdcount > 0)
	{
		for(var i = 0 ; i < levlcdcount-1 ; i++)
		{
			var row = ds_main_getmatlist.addRow();
			
			ds_main_getmatlist.setColumn(row, "matrfromdd", utlf_getCurrentDate());
			ds_main_getmatlist.setColumn(row, "matrtodd", "99991231");
			ds_main_getmatlist.setColumn(row, "windt", utlf_getCurrentDate());
			ds_main_getmatlist.setColumn(row, "lotno", "-");
			ds_main_getmatlist.setColumn(row, "prodcmpy", "-");
			ds_main_getmatlist.setColumn(row, "proddt", "19000101");
			ds_main_getmatlist.setColumn(row, "matrifcd", "-");
			ds_main_getmatlist.setColumn(row, "levlcd", levlcdsplit[i]);
			ds_main_getmatlist.setColumn(row, "matrcd", matrcd);
		}
	}
}
function fInsMat()
{
	var row = ds_main_getmatlist.rowcount;
	
	for(var i = 0; i < row; i++)
	{
		if(ds_main_getmatlist.getRowType(i) == 2)
		{
			if(utlf_isNull(ds_main_getmatlist.getColumn(i, "matrcd")))
			{	
				sysf_messageBox("QC물질 코드는", "I003");
				return;
			}
			else if(utlf_isNull(ds_main_getmatlist.getColumn(i, "levlcd")))
			{
				sysf_messageBox("레벨코드는", "I003");
				return;
			}
			else if(utlf_isNull(ds_main_getmatlist.getColumn(i, "matrfromdd")))
			{
				sysf_messageBox("사용시작일자는", "I003");
				return;
			}
			else if(utlf_isNull(ds_main_getmatlist.getColumn(i, "matrnm")))
			{
				sysf_messageBox("QC물질명은", "I003");
				return;
			}
			else if(utlf_isNull(ds_main_getmatlist.getColumn(i, "matrtodd")))
			{
				if(ds_hidden.getColumn(0, "refflag") == "2")
				{
					sysf_messageBox("사용종료일자는", "I003");
					return;
				} 
				else
				{
					ds_main_getmatlist.setColumn(i, "matrtodd", "99991231");
				}
			}
			
			if(utlf_isNull(ds_main_getmatlist.getColumn(i, "windt")))
			{
				ds_main_getmatlist.setColumn(i, "windt", utlf_getCurrentDate());
			}
			if(utlf_isNull(ds_main_getmatlist.getColumn(i, "lotno")))
			{
				ds_main_getmatlist.setColumn(i, "lotno", "-");
			}
			if(utlf_isNull(ds_main_getmatlist.getColumn(i, "oclotno")))
			{
				ds_main_getmatlist.setColumn(i, "oclotno", "-");
			}
			if(utlf_isNull(ds_main_getmatlist.getColumn(i, "prodcmpy")))
			{
				ds_main_getmatlist.setColumn(i, "prodcmpy", "-");
			}
			if(utlf_isNull(ds_main_getmatlist.getColumn(i, "proddt")))
			{
				ds_main_getmatlist.setColumn(i, "proddt", "19000101");
			}
			if(utlf_isNull(ds_main_getmatlist.getColumn(i, "matrifcd")))
			{
				ds_main_getmatlist.setColumn(i, "matrifcd", "-");
			}
			if(utlf_isNull(ds_main_getmatlist.getColumn(i, "levlnm")))
			{
				var cd = ds_main_getmatlist.getColumn(i, "levlcd")
				ds_main_getmatlist.setColumn(i, "levlnm", ds_init_lb0501.lookup("cd", cd, "etc01"));
			}
		} 
	}
	
	ds_hidden.setColumn(0, "userdeptcd", ds_init_lb0000.getColumn(0, "nm"));
	
	var oParam = {};
		oParam.id          = "TXLQF00601";
		oParam.service     = "grademngtbasemngtapp.QCMaterialMngt";
		oParam.method      = "reqInsMat";
		oParam.inds        = "grid=ds_main_getmatlist:U cond=ds_hidden";
		oParam.async       = false;
		//oParam.callback    = "cf_TXLQF00601";

	tranf_submit(oParam);

	
	fGetMatList();
}]]></Script>
  </Form>
</FDL>