YNU_JEUS/app_home/himed/xpapps/lis/refprintmngtxp/xp/SMLBP01620_과별성분제제별불출건수.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLBP01600" position="absolute 0 0 1256 805" titletext="과별 성분제재별 출고건수조회" onload="SMLBP01600_onload">
    <Layouts>
      <Layout>
        <Static id="caption5" text="과별 성분제재별 출고건수조회" class="tit_1" position="absolute 0 0 257 25"/>
        <Div id="group2" taborder="4" position="absolute 0 25 1252 92" anchor="left top right" class="div_SA">
          <Layouts>
            <Layout>
              <Calendar id="input1" taborder="1" class="input_s_essential" position="absolute 81 18 171 38" mask="####-##-##" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
              <Button id="btn_sea" taborder="2" text="조회" onlbuttonup="btn_sea_onlbuttonup" class="btn1" position="absolute 606 18 662 38" anchor="top right" onclick="group2_btn_sea_onclick"/>
              <Static id="caption9" text="조회일자" class="search_name" position="absolute 8 18 82 38" anchor="default"/>
              <Calendar id="input2" taborder="3" class="input_s_essential" position="absolute 230 18 320 38" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
              <Static id="caption13" text="~" class="search_no_b" position="absolute 214 18 230 38" anchor="default" style="align:center;"/>
              <Static id="caption20" text="혈액성분" class="search_name" position="absolute 387 18 461 38" anchor="default"/>
              <Combo id="combo1" taborder="5" position="absolute 461 18 581 38" anchor="default" innerdataset="@ds_init_lb0606" codecolumn="cd" datacolumn="nm"/>
              <MaskEdit id="input6" taborder="8" mask="##:##" position="absolute 323 18 363 38" style="align:center middle;" anchor="default" type="string"/>
              <MaskEdit id="input3" taborder="12" mask="##:##" position="absolute 174 18 214 38" style="align:center middle;" anchor="default" type="string"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="button51" taborder="7" text="엑셀" onlbuttonup="button51_onlbuttonup" class="btn7" position="absolute 1088 48 1144 68" anchor="top right" onclick="button51_onclick"/>
        <Static id="caption3" text="불출 내역" class="tit_2" position="absolute 0 102 117 122"/>
        <Button id="btn_cle" taborder="27" text="초기화" onlbuttonup="btn_cle_onlbuttonup" class="btn4" position="absolute 1147 48 1216 68" anchor="top right"/>
        <Grid id="grd_delive" taborder="29" binddataset="ds_grid_grd_delive" useinputpanel="false" oncellclick="grd_delive_oncellclick" position="absolute 640 280 941 560" anchor="all" onclick="grd_delive_onclick" selecttype="cell" autoenter="select" onheadclick="grd_delive_onheadclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="60"/>
                <Column size="80"/>
                <Column size="46"/>
                <Column size="66"/>
                <Column size="112"/>
                <Column size="30"/>
                <Column size="80"/>
                <Column size="74"/>
                <Column size="90"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="66"/>
                <Column size="66"/>
                <Column size="66"/>
                <Column size="66"/>
                <Column size="66"/>
                <Column size="66"/>
                <Column size="66"/>
                <Column size="106"/>
                <Column size="106"/>
                <Column size="106"/>
                <Column size="106"/>
                <Column size="100"/>
                <Column size="106"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="40"/>
                <Column size="100"/>
                <Column size="114"/>
                <Column size="100"/>
                <Column size="500"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="상태"/>
                <Cell col="2" text="혈액번호"/>
                <Cell col="3" text="seq"/>
                <Cell col="4" text="혈액형"/>
                <Cell col="5" text="성분제제"/>
                <Cell col="6" text="Irr"/>
                <Cell col="7" text="환자명"/>
                <Cell col="8" text="등록번호"/>
                <Cell col="9" text="병동/병실"/>
                <Cell col="10" text="접수자"/>
                <Cell col="11" text="검사자"/>
                <Cell col="12" text="불출자"/>
                <Cell col="13" text="수령자"/>
                <Cell col="14" text="검사결과"/>
                <Cell col="15" text="실온 Saline"/>
                <Cell col="16" text="37˚c ALB/LISS"/>
                <Cell col="17" text="Coombs"/>
                <Cell col="18" text="Special"/>
                <Cell col="19" text="4˚c Saline"/>
                <Cell col="20" text="Enzyme"/>
                <Cell col="21" text="불출일자"/>
                <Cell col="22" text="준비일자"/>
                <Cell col="23" text="검사일자"/>
                <Cell col="24" text="유효일자"/>
                <Cell col="25" text="반환,폐기"/>
                <Cell col="26" text="반환,폐기일"/>
                <Cell col="27" text="지정Donor"/>
                <Cell col="28" text="처방의"/>
                <Cell col="29" text="Filter"/>
                <Cell col="30" text="수혈시작시간"/>
                <Cell col="31" text="수혈부작용"/>
                <Cell col="32" text="수혈부서"/>
                <Cell col="33" text="Comment"/>
                <Cell col="34" text="caption2"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow+1"/>
                <Cell col="1" text="bind:blodcomstat"/>
                <Cell col="2" displaytype="text" edittype="text" text="bind:blodno" editautoselect="true"/>
                <Cell col="3" text="bind:prepblodseqno"/>
                <Cell col="4" text="bind:btype"/>
                <Cell col="5" style="align:left middle;" text="bind:blodcomnm"/>
                <Cell col="6" style="align:center middle;" text="bind:iryn"/>
                <Cell col="7" style="align:center middle;" text="bind:patnm"/>
                <Cell col="8" displaytype="text" edittype="text" text="bind:pid" editautoselect="true"/>
                <Cell col="9" text="bind:wardroom"/>
                <Cell col="10" style="align:center middle;" text="bind:prepid"/>
                <Cell col="11" style="align:center middle;" text="bind:cmid"/>
                <Cell col="12" displaytype="normal" style="align:center middle;" text="bind:deliveid"/>
                <Cell col="13" style="align:center middle;" text="bind:acptid"/>
                <Cell col="14" displaytype="combo" text="bind:cmrslt" combodataset="ds_rslt" combocodecol="value" combodatacol="label"/>
                <Cell col="15" text="bind:cmrslt01"/>
                <Cell col="16" text="bind:cmrslt02"/>
                <Cell col="17" text="bind:cmrslt03"/>
                <Cell col="18" text="bind:cmrslt04"/>
                <Cell col="19" text="bind:cmrslt05"/>
                <Cell col="20" text="bind:cmrslt06"/>
                <Cell col="21" text="bind:delivedt" mask="expr:delivedt==null?'':'####-##-## ##:##'"/>
                <Cell col="22" text="bind:prepdt" mask="expr:prepdt==null?'':'####-##-## ##:##'"/>
                <Cell col="23" text="bind:testdt" mask="expr:testdt==null?'':'####-##-## ##:##'"/>
                <Cell col="24" text="bind:validt" mask="expr:validt==null?'':'####-##-## ##:##'"/>
                <Cell col="25" text="bind:rtnabn"/>
                <Cell col="26" text="bind:rtnabndt" mask="expr:rtnabndt==null?'':'####-##-## ##:##'"/>
                <Cell col="27" style="align:center middle;" text="bind:dnornm"/>
                <Cell col="28" style="align:center middle;" text="bind:orddrnm"/>
                <Cell col="29" style="align:center middle;" text="bind:filteryn"/>
                <Cell col="30" text="bind:tnsstrddtm" mask="expr:tnsstrddtm==null?'':'####-##-## ##:##'"/>
                <Cell col="31" text="bind:tnssideeffect"/>
                <Cell col="32" text="bind:dept"/>
                <Cell col="33" style="align:left;" text="bind:cmt"/>
                <Cell col="34"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_tnslist" class="datagrid2" taborder="30" binddataset="ds_grid_grd_tnslist" useinputpanel="false" treeuseline="false" treeusecheckbox="false" treeuseimage="false" position="absolute 0 122 1248 805" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="75"/>
                <Column size="248"/>
                <Column size="139"/>
                <Column size="122"/>
              </Columns>
              <Rows>
                <Row size="35" band="head"/>
                <Row size="32"/>
              </Rows>
              <Band id="head">
                <Cell text="No."/>
                <Cell col="1" text="수혈희망일"/>
                <Cell col="2" text="수혈구분"/>
                <Cell col="3" text="처방과"/>
                <Cell col="4" text="성분제제"/>
                <Cell col="5" text="제제코드"/>
                <Cell col="6" text="출고건수"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow+1"/>
                <Cell col="1" text="bind:prcphopedd" mask="expr:prcphopedd==null?'':'####-##-##'"/>
                <Cell col="2" text="bind:tnsreqacptflag"/>
                <Cell col="3" text="bind:orddeptnm"/>
                <Cell col="4" style="align:left;" text="bind:blodcomnm"/>
                <Cell col="5" text="bind:blodcomcd"/>
                <Cell col="6" text="bind:cnt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_cond_refgbn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">준비일자</Col>
            <Col id="value">1</Col>
          </Row>
          <Row>
            <Col id="label">불출일자</Col>
            <Col id="value">2</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_lb0606" 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="etc01" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cond_btype" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">-전체-</Col>
            <Col id="value">00</Col>
          </Row>
          <Row>
            <Col id="label">A+</Col>
            <Col id="value">A+</Col>
          </Row>
          <Row>
            <Col id="label">B+</Col>
            <Col id="value">B+</Col>
          </Row>
          <Row>
            <Col id="label">O+</Col>
            <Col id="value">O+</Col>
          </Row>
          <Row>
            <Col id="label">AB+</Col>
            <Col id="value">AB+</Col>
          </Row>
          <Row>
            <Col id="label">other</Col>
            <Col id="value">E</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_grid_grd_delive" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" onrowposchanged="ds_grid_grd_rslt_onrowposchanged">
        <ColumnInfo>
          <column id="blodcomstat" type="STRING" size="256"/>
          <column id="blodno" type="STRING" size="256"/>
          <column id="prepblodseqno" type="STRING" size="256"/>
          <column id="btype" type="STRING" size="256"/>
          <column id="blodcomnm" type="STRING" size="256"/>
          <column id="iryn" type="STRING" size="256"/>
          <column id="patnm" type="STRING" size="256"/>
          <column id="pid" type="STRING" size="256"/>
          <column id="wardroom" type="STRING" size="256"/>
          <column id="dept" type="STRING" size="256"/>
          <column id="prepid" type="STRING" size="256"/>
          <column id="cmid" type="STRING" size="256"/>
          <column id="deliveid" type="STRING" size="256"/>
          <column id="acptid" type="STRING" size="256"/>
          <column id="cmrslt" type="STRING" size="256"/>
          <column id="cmrslt01" type="STRING" size="256"/>
          <column id="cmrslt02" type="STRING" size="256"/>
          <column id="cmrslt03" type="STRING" size="256"/>
          <column id="cmrslt04" type="STRING" size="256"/>
          <column id="cmrslt05" type="STRING" size="256"/>
          <column id="cmrslt06" type="STRING" size="256"/>
          <column id="delivedt" type="STRING" size="256"/>
          <column id="prepdt" type="STRING" size="256"/>
          <column id="testdt" type="STRING" size="256"/>
          <column id="validt" type="STRING" size="256"/>
          <column id="rtnabn" type="STRING" size="256"/>
          <column id="rtnabndt" type="STRING" size="256"/>
          <column id="tnsstrddtm" type="STRING" size="256"/>
          <column id="tnssideeffect" type="STRING" size="256"/>
          <column id="orddrnm" type="STRING" size="256"/>
          <column id="filteryn" type="STRING" size="256"/>
          <column id="cmt" type="STRING" size="256"/>
          <column id="returncnt" type="BIGDECIMAL" size="256"/>
          <column id="dnornm" type="STRING" size="256"/>
          <column id="patcmt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_rslt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">적합</Col>
            <Col id="value">1</Col>
          </Row>
          <Row>
            <Col id="label">부적합</Col>
            <Col id="value">2</Col>
          </Row>
          <Row>
            <Col id="label">적합(응급)</Col>
            <Col id="value">3</Col>
          </Row>
          <Row>
            <Col id="label">준비</Col>
            <Col id="value">4</Col>
          </Row>
          <Row>
            <Col id="label">검사중</Col>
            <Col id="value">5</Col>
          </Row>
          <Row>
            <Col id="label">보류</Col>
            <Col id="value">6</Col>
          </Row>
          <Row>
            <Col id="label">최소적합</Col>
            <Col id="value">7</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_grid_grd_tnslist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="orddeptnm" type="STRING" size="256"/>
          <Column id="blodcomnm" type="STRING" size="256"/>
          <Column id="blodcomcd" type="STRING" size="256"/>
          <Column id="cnt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <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";

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

	lf_setInit();
}

function lf_setInit() {

	//0121 혈액원기관코드
	lf_getDbDeptcd("0000|0606|");
	
	var toDay = utlf_getCurrentDate();
	var mDate = utlf_addDate(toDay, 1);
	group2.input1.value = toDay;
	group2.input2.value = mDate;
	group2.input3.value = "0800";
	group2.input6.value = "0759";
	group2.combo1.value = "00";
	group2.combo2.value = "00";
	group00.input5.value = "3";
	group2.combo3.value = "1";
	group2.ipt_blodno.value = "";
	group2.ipt_blodno2.value = "";	
}

function lf_getPidDelive(cnt) {
	
	var fromdd = group2.input1.value;
	var todd   = group2.input2.value;
	var fromtm = group2.input3.value;
	var totm   = group2.input6.value;
	var blodcomcd = group2.combo1.value;

	var sInDsName = dsf_createDsRow("ds_temp_search"
 	                             , [{col: "fromdd", val:fromdd }
 	                             , {col: "todd", val:todd }
 	                             , {col: "fromtm", val:fromtm }
 	                             , {col: "totm", val:totm }
 	                             , {col: "blodcomcd", val:blodcomcd }
// 	                             , {col: "btype", val:btype }
// 	                             , {col: "pid", val:pid }
// 	                             , {col: "blodno", val:blodno }
// 	                             , {col: "cnt", val:cnt }
// 	                             , {col: "refgbn", val:refgbn }
 	                             ]);
	var oParam = {};
		oParam.id          = "TRLBP01601";
		oParam.service     = "refprintmngtapp.BloodBankRefPrintMngt";
		oParam.method      = "reqGetDeliveSumList";
		oParam.inds        = "cond="+sInDsName;
		oParam.outds       = "ds_grid_grd_tnslist=getTnsReqList";
		oParam.async       = false;
		oParam.callback    = "cbf_SMLBP01600";

	tranf_submit(oParam);
}

//키이벤트  엔터키 입력시  
function lf_keyEvent(target) {	
		
	// 등록번호 바코드 리딩시
	if(target == "ipt_blodno") {
		
		if(utlf_isNull(group2.ipt_blodno.value)) {
			sysf_messageBox("등록번호를 입력하십시오","E");
			return;
		}
		
		group2.ipt_blodno.value = frmf_setInputNodeCurPid_Change(group2.ipt_blodno.value);  //등록번호 9자리로 변경
		var val = group2.ipt_blodno.value;
		group2.ipt_blodno.value = val.toUpperCase();			
		lf_getPidDelive();			
		group2.ipt_blodno.setSelect();
	}	
	
	// 혈액번호 바코드 리딩시
	if(target == "ipt_blodno2"){ 
		
		if(utlf_isNull(group2.ipt_blodno2.value)) {
			sysf_messageBox("혈액번호를 입력하십시오","E");
			return;
		}
		
		var val = group2.ipt_blodno2.value;
		val = val.toUpperCase();
		group2.ipt_blodno2.value = val.substr(0, 10);
		lf_getPidDelive();
		group2.ipt_blodno2.setSelect();
	}	
}

//환자코멘트 가져오기 
function lf_getpatCMT() {
	var row = ds_grid_grd_delive.rowposition;	
	if(!utlf_isNull(ds_grid_grd_delive.getColumn(row, "patcmt"))) {		
		var cmt = ds_grid_grd_delive.getColumn(row, "patcmt");
		sysf_messageBox("* 환자별 코멘트  \n" + cmt, "I");
	}
}

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

// callback 함수
function cbf_SMLBP01600(strSvcID, nErrorCode, strErrorMag) {
	
	if(nErrorCode != 0) {
		sysf_messageBox("ID: "+ strSvcID + "  Error: " + strErrorMag, "E009", "");
	}else{
		switch(strSvcID) {
			case "TRLZZ00101":
					var toDay = utlf_getCurrentDate();
					var mDate = utlf_addDate(toDay, 1);
					group2.input1.value = toDay;
					group2.input2.value = mDate;
					group2.input3.value = "0800";
					group2.input6.value = "0759";
					group2.combo1.value = "00";
					group2.combo2.value = "00";
					group00.input5.value = "3";
					group2.combo3.value = "1";
					group2.ipt_blodno.value = "";
					group2.ipt_blodno2.value = "";
				break;
			case "TRLBP01601":
					// 환자명 보이기					
					if(!utlf_isNull(group2.ipt_blodno.value)){
						if(ds_grid_grd_delive.rowcount > 1){
							ds_grid_grd_delive.rowposition = 0;
							group2.opt_patnm.value = ds_grid_grd_delive.getColumn(ds_grid_grd_delive.rowposition, "patnm");
						}	
					}else{
							group2.opt_patnm.value = "";
					}
					
					// 반환 노란색으로
					if(ds_grid_grd_delive.rowcount > 1) {
						
						grdf_setRowStyle( grd_delive , "6" , "혈액반환" , "blodcomstat" , "equal");	// 7 - 주황색
						grdf_setRowStyle( grd_delive , "0" , "수혈접수" , "blodcomstat" , "equal");
						grdf_setRowStyle( grd_delive , "0" , "혈액준비" , "blodcomstat" , "equal");
						grdf_setRowStyle( grd_delive , "0" , "매칭검사" , "blodcomstat" , "equal");
						grdf_setRowStyle( grd_delive , "0" , "불출대기" , "blodcomstat" , "equal");
					}
					group2.out_return.value = ds_grid_grd_delive.getSum("returncnt");
				break;
			default:
				break;
		}
	}
}

function btn_sea_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	lf_getPidDelive();
}

function group2_ipt_blodno_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode==13) {
		lf_keyEvent(obj.name);
	}
}

function group2_ipt_blodno2_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode==13) {
		lf_keyEvent(obj.name);
	}
}

function button1_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	lf_getPidDelive(group00.input5.value);
}

function button51_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	lf_saveExcel(grd_tnslist);
}

function grd_delive_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	lf_getpatCMT();	// 환자별 코멘트 가져오기 
}

function button2_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	var objArg = new Object();
	var rtn = frmf_modal("SMLBP02900", "SMLBP02900", objArg, "", "", 0, 0, "", "", "title=true,status=true close=true", "", "", "M");

}

function btn_cle_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	this.reload();
}


function button51_onclick(obj:Button,  e:ClickEventInfo)
{
	
}

function group3_btn_reftext_onclick(obj:Button,  e:ClickEventInfo)
{
	if( utlf_isNull(group2.ipt_blodno.value))
	{
		alert("등록번호를 입력하십시오");
	}else{
		lf_getPidDelive();
	}
}
function group2_btn_reftext00_onclick(obj:Button,  e:ClickEventInfo)
{
	if( utlf_isNull(group2.ipt_blodno2.value))
	{
		alert("혈액번호를 입력하십시오");
	}else{
		lf_getPidDelive();
	}
}
function grd_delive_onheadclick(obj:Grid, e:GridClickEventInfo)
{
	if (e.col != e.oldcol)
	{
		var pos = grd_delive.hscrollbar.pos;
		grdf_clearSort(obj);
		grdf_gridSort(grd_delive,e);
		grd_delive.hscrollbar.pos = pos;
	}
}
]]></Script>
  </Form>
</FDL>