YNU_JEUS/app_home/himed/xpapps/ast/pharmacydrugsumxp/xp/SMADT12250_일련번호별재고조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMADT12250" classname="SMADT12250_일련번호별재고조회" inheritanceid="" position="absolute 0 0 1200 780" titletext="일련번호별 재고조회" onload="SMADT12250_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="일련번호별 재고조회" class="tit_1" position="absolute 0 0 165 25"/>
        <Static id="caption01" text="현재고" class="tit_2" position="absolute -1 99 170 120"/>
        <Shape id="line7" class="line_10" position="absolute 0 116 1195 122" anchor="left top right"/>
        <Div id="grp_button" anchor="left top right" taborder="40" position="absolute 0 13 1195 45">
          <Layouts>
            <Layout>
              <Shape id="line2" class="line_6" position="absolute 0 25 1195 31" anchor="left top right"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_download" taborder="41" text="엑셀 Download" class="btn2" position="absolute 1087 96 1195 115" anchor="top right" onclick="btn_download_onclick"/>
        <Div id="grp_search" anchor="left top right" taborder="42" class="div_SA" position="absolute 0 50 1195 85">
          <Layouts>
            <Layout>
              <Static id="caption2" text="일련번호 :" class="search_name" position="absolute 21 10 96 27"/>
              <Button id="btn_search" taborder="70" text="조회" onclick="grp_search_btn_search_onclick" class="btn1" position="absolute 1128 7 1184 29"/>
              <Edit id="Edit00" taborder="71" position="absolute 98 8 306 28" onkeydown="grp_search_Edit00_onkeydown"/>
              <Static id="caption00" text="약품코드:" class="search_name" position="absolute 328 10 395 27"/>
              <Combo id="Combo00" taborder="72" position="absolute 401 8 560 28" innerdataset="@ds_druglist" onitemchanged="grp_search_Combo00_onitemchanged" class="combo_search" codecolumn="drugcd" datacolumn="drugnm" index="-1"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_stoclist" taborder="43" binddataset="ds_stoclist" autoenter="key" useinputpanel="false" selecttype="multirow" cellsizingtype="col" cellsizebandtype="allband" cellclickbound="cell" onrbuttonup="switch1_case1_grd_narclist_onrbuttonup" onheadclick="switch1_case1_grd_narclist_onheadclick" oncelldblclick="switch1_case1_grd_narclist_oncelldblclick" position="absolute 0 121 1195 774" onkeydown="grd_stoclist_onkeydown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="27" band="left"/>
                <Column size="58" band="left"/>
                <Column size="60" band="left"/>
                <Column size="54" band="left"/>
                <Column size="77" band="left"/>
                <Column size="122" band="left"/>
                <Column size="62" band="left"/>
                <Column size="108" band="left"/>
                <Column size="90" band="left"/>
                <Column size="63" band="left"/>
                <Column size="139"/>
                <Column size="101"/>
                <Column size="30"/>
                <Column size="19"/>
                <Column size="49"/>
                <Column size="73"/>
                <Column size="69"/>
                <Column size="81"/>
                <Column size="88"/>
              </Columns>
              <Rows>
                <Row size="30" band="head"/>
                <Row size="21"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text=" 등록번호"/>
                <Cell col="2" text="환자명"/>
                <Cell col="3" text="투약번호"/>
                <Cell col="4" text="처방&#10;코드" wordwrap="char"/>
                <Cell col="5" text="처방명"/>
                <Cell col="6" text="불출저장소"/>
                <Cell col="7" text="LabelNo"/>
                <Cell col="8" text="제품번호" wordwrap="char"/>
                <Cell col="9" text="유효기간" wordwrap="char"/>
                <Cell col="10" text="제조번호" wordwrap="char"/>
                <Cell col="11" text="일련번호" wordwrap="char"/>
                <Cell col="12" colspan="2" text="seq" taborder="undefined">
                  <Cell text="seq" wordwrap="char" taborder="undefined"/>
                  <Cell col="1"/>
                </Cell>
                <Cell col="14" text="잔량"/>
                <Cell col="15" text="불출일자"/>
                <Cell col="16" text="반환일자"/>
                <Cell col="17" text="잔량처리일자"/>
                <Cell col="18" text="취급일자"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="expr:currow + 1"/>
                <Cell col="1" style="background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:pid"/>
                <Cell col="2" style="background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:pat_nm"/>
                <Cell col="3" displaytype="text" text="bind:drugno"/>
                <Cell col="4" style="align:center top;padding:4 2 3 2;background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:drugcd" wordwrap="char" autosizerow="limitmin"/>
                <Cell col="5" style="align:left;" text="bind:prduct_nm" tooltiptext="bind:prduct_nm"/>
                <Cell col="6" text="bind:storge_no"/>
                <Cell col="7" text="bind:labelno" mask="@@@@-@@-@@ @@@"/>
                <Cell col="8" style="align:left top;padding:4 2 3 2;background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:gtin" wordwrap="char" autosizerow="limitmin"/>
                <Cell col="9" style="align:left top;padding:4 2 3 2;background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:prd_valid_de" wordwrap="char" autosizerow="limitmin"/>
                <Cell col="10" displaytype="text" style="align:left top;padding:4 2 3 2;background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:mnf_no" wordwrap="char" autosizerow="limitmin"/>
                <Cell col="11" displaytype="text" style="align:left top;padding:4 2 1 2;background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:mnf_seq" wordwrap="char" autosizerow="limitmin"/>
                <Cell col="12" style="background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:seq" taborder="undefined">
                  <Cell style="align:right;padding:0 2 0 0;background2:#f0f0f0ff;" text="bind:seq"/>
                </Cell>
                <Cell col="13" style="background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:histno"/>
                <Cell col="14" text="bind:spreqy"/>
                <Cell col="15" style="background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:outdd"/>
                <Cell col="16" style="background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:rtndd"/>
                <Cell col="17" style="background:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));background2:EXPR(EXPR( fnshfg == '1' ? 'yellow' : ''));" text="bind:spredd"/>
                <Cell col="18" text="bind:hdr_de"/>
              </Band>
            </Format>
            <Format id="format_copy"/>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Bind>
      <BindItem id="item12" compid="SMADT12170" propid="text" datasetid="ds_main_prntlist_patinfo" columnid=""/>
      <BindItem id="item0" compid="grp_search.Edit00" propid="value" datasetid="ds_send_search" columnid="mnf_seq"/>
      <BindItem id="item1" compid="grp_search.Combo00" propid="value" datasetid="ds_send_search" columnid="drugcd"/>
    </Bind>
    <Objects>
      <Dataset id="ds_send_search" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_send_search_oncolumnchanged">
        <ColumnInfo>
          <Column id="mnf_seq" type="STRING" size="256"/>
          <Column id="drugcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_storgelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="storge_no" type="STRING" size="256"/>
          <Column id="storge_nm" type="STRING" size="256"/>
          <Column id="storge_nonm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_stoclist" 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="drugcd" type="STRING" size="256"/>
          <column id="infg" type="STRING" size="256"/>
          <column id="histno" type="STRING" size="256"/>
          <column id="gtin" type="STRING" size="256"/>
          <column id="prd_valid_de" type="STRING" size="256"/>
          <column id="mnf_no" type="STRING" size="256"/>
          <column id="mnf_seq" type="STRING" size="256"/>
          <column id="seq" type="STRING" size="256"/>
          <column id="prd_sgtin" type="STRING" size="256"/>
          <column id="storge_no" type="STRING" size="256"/>
          <column id="prtm_se_nm" type="STRING" size="256"/>
          <column id="prd_min_distb_qy" type="STRING" size="256"/>
          <column id="prd_min_distb_unit" type="STRING" size="256"/>
          <column id="prd_tot_pce_qy" type="STRING" size="256"/>
          <column id="prd_pce_unit" type="STRING" size="256"/>
          <column id="in_pce_qy" type="STRING" size="256"/>
          <column id="indd" type="STRING" size="256"/>
          <column id="opp_bssh_cd" type="STRING" size="256"/>
          <column id="opp_bssh_nm" type="STRING" size="256"/>
          <column id="opp_storge_no" type="STRING" size="256"/>
          <column id="in_dtl_cd" type="STRING" size="256"/>
          <column id="in_trnsfe_se_cd" type="STRING" size="256"/>
          <column id="out_fg" type="STRING" size="256"/>
          <column id="out_pce_qy" type="STRING" size="256"/>
          <column id="fnshfg" type="STRING" size="256"/>
          <column id="prcpno" type="STRING" size="256"/>
          <column id="drugdd" type="STRING" size="256"/>
          <column id="drugno" type="STRING" size="256"/>
          <column id="ioflag" type="STRING" size="256"/>
          <column id="drugseqno" type="STRING" size="256"/>
          <column id="pat_id_no_ty_cd" type="STRING" size="256"/>
          <column id="pat_id_no" type="STRING" size="256"/>
          <column id="pat_in" type="STRING" size="256"/>
          <column id="lcns_asort_cd" type="STRING" size="256"/>
          <column id="lcns_no" type="STRING" size="256"/>
          <column id="prsc_doc_nm" type="STRING" size="256"/>
          <column id="prsc_ord_no" type="STRING" size="256"/>
          <column id="diss_code" type="STRING" size="256"/>
          <column id="once_qy" type="STRING" size="256"/>
          <column id="ade_cnt" type="STRING" size="256"/>
          <column id="tot_dcnt" type="STRING" size="256"/>
          <column id="sum_qy" type="STRING" size="256"/>
          <column id="aft_dsuse_qy" type="STRING" size="256"/>
          <column id="dsuse_se_cd" type="STRING" size="256"/>
          <column id="dsuse_prv_cd" type="STRING" size="256"/>
          <column id="dsuse_mth_cd" type="STRING" size="256"/>
          <column id="dsuse_loc" type="STRING" size="256"/>
          <column id="dsuse_de" type="STRING" size="256"/>
          <column id="dsuse_instt_cd" type="STRING" size="256"/>
          <column id="dsuse_doc_de" type="STRING" size="256"/>
          <column id="outdd" type="STRING" size="256"/>
          <column id="out_bssh_cd" type="STRING" size="256"/>
          <column id="out_bssh_nm" type="STRING" size="256"/>
          <column id="out_storge_no" type="STRING" size="256"/>
          <column id="out_dtl_cd" type="STRING" size="256"/>
          <column id="out_trnsfr_se_cd" type="STRING" size="256"/>
          <column id="insendfg" type="STRING" size="256"/>
          <column id="outsendfg" type="STRING" size="256"/>
          <column id="spreqy" type="STRING" size="256"/>
          <column id="spredd" type="STRING" size="256"/>
          <column id="spredt" type="STRING" size="256"/>
          <column id="rtnfg" type="STRING" size="256"/>
          <column id="rtndd" type="STRING" size="256"/>
          <column id="rtndt" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="labelno" type="STRING" size="256"/>
          <Column id="hdr_de" type="STRING" size="256"/>
          <Column id="cnt" type="STRING" size="256"/>
          <Column id="prduct_nm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_receivedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="receiveref" type="STRING" size="256"/>
          <Column id="receive_drugcd" type="STRING" size="256"/>
          <Column id="receive_hngnm" type="STRING" size="256"/>
          <Column id="receive_gtin" type="STRING" size="256"/>
          <Column id="receive_prtm_se_nm" type="STRING" size="256"/>
          <Column id="receive_prd_min_distb_qy" type="STRING" size="256"/>
          <Column id="receive_prd_min_distb_unit" type="STRING" size="256"/>
          <Column id="receive_prd_tot_pce_qy" type="STRING" size="256"/>
          <Column id="receive_prd_pce_unit" type="STRING" size="256"/>
          <Column id="basedd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_druglist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="drugcd" type="STRING" size="256"/>
          <Column id="drugnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************
 * System Name		:	경대 의료정보시스템
 * Job Name 		:	ast_pharmacydrugsumxp-> SMADT12170
 * Creator			:	pjb
 * Make Date 		:	2018-04-11
 * Description		:	
 *---------------------------------------------------------------------------------------
 * Modify Date		Modifier		Modify Description
 *---------------------------------------------------------------------------------------
 * 2018-04-11		pjb				XP개발
 * 
 *---------------------------------------------------------------------------------------
 ****************************************************************************************/


//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";
//include "mis_miscommonxp::MIS.xjs";
//include "mis_humtrafactmngtxp::RPB001.xjs";

//=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------
var arErrorCode 	= new HashArray();


//=======================================================================================
// Function
//---------------------------------------------------------------------------------------


//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components		: Form
 * Components ID	: SMADT12170
 * Event			: oninit
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 처음 초기화시
 ****************************************************************************************/
function SMADT12170_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);	//폼 초기화
}

/****************************************************************************************
 * Components		: Form
 * Components ID	: SMADT12170
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 로딩 완료시
 ****************************************************************************************/

function SMADT12250_onload(obj:Form, e:LoadEventInfo)
{
	//grdf_setRowTypeIcon(grd_stoclist, 0);
	grdf_setGridSort(grd_stoclist);
	

	//ds_movinfo.setColumn(0, "status", "i"); // 작업구분(i, u, d)
	
	//저장소 목록 조회
	/*
	var oParam = {};
		oParam.id          = "TRADT12112";
		oParam.service     = "pharmacydrugsumapp.NarcManagent";
		oParam.method      = "reqGetStorgeList";
		oParam.inds        = "req=";
		oParam.outds       = "ds_storgelist=storgelist";
		oParam.async       = false;
	//	oParam.callback    = "cf_TRADT12112";

	tranf_submit(oParam);
	*/
	
	//frmf_addComboItem("grp_search.cmb_storge_no","전체","","above");
	//ds_send_search.setColumn(0, "storge_no", "S0001");  //default setting : S0001 기본저장소
	//ds_send_search.setColumn(0, "prtm_se_nm", "");  //default setting : 관리구분
		
	//grp_search.cmb_storge_no.setFocus(); 

}



/****************************************************************************************
 * Components		: Button
 * Components ID	: grp_search_btn_search
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 조회버튼 클릭시
 ****************************************************************************************/
function grp_search_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{	
	//현재고 조회
	fSearch2();
	
	
}

function cf_TRADT12251(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/****************************************************************************************
 * Components		: Dataset
 * Components ID	: ds_send_search
 * Event			: oncolumnchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 컬럼의 값 변경시
 ****************************************************************************************/
function ds_send_search_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "indd_from" || e.columnid == "indd_to" || e.columnid == "storge_no" || e.columnid == "prtm_se_nm" ) {

		//Grid Clear
		ds_stoclist.clearData();
	}
	else if(e.columnid == "drugcd") {
		if(e.newvalue != e.oldvalue) {
			obj.setColumn(0, "hngnm", "");
			obj.setColumn(0, "gtin", "");
		}
	}

}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_gtin
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 제품코드 버튼 Click시
 ****************************************************************************************/
function grp_search_btn_gtin_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_temp_receivedata.setColumn(0,"receiveref","ds_send_search");
	ds_temp_receivedata.setColumn(0,"receive_drugcd","drugcd");
	ds_temp_receivedata.setColumn(0,"receive_hngnm","hngnm");
	ds_temp_receivedata.setColumn(0,"receive_gtin","gtin");
	ds_temp_receivedata.setColumn(0,"receive_prtm_se_nm",""); //prtm_se_nm
	ds_temp_receivedata.setColumn(0,"receive_prd_min_distb_qy","prd_min_distb_qy");
	ds_temp_receivedata.setColumn(0,"receive_prd_min_distb_unit","prd_min_distb_unit");
	ds_temp_receivedata.setColumn(0,"receive_prd_tot_pce_qy","prd_tot_pce_qy");
	ds_temp_receivedata.setColumn(0,"receive_prd_pce_unit","prd_pce_unit");
	ds_temp_receivedata.setColumn(0,"basedd",""); //utlf_getCurrentDate() //ds_send_search.getColumn(0, "indd_to")

	var objArg = new Object();
	objArg.arg_ds_temp_receivedata = ds_temp_receivedata;
	frmf_modal("SMADT12120","SMADT12120", objArg, "", "", 100, 150, "", "", "", "", "", "M");	

}

function fSearch(){
	
	var oParam = {};
		oParam.id          = "TRADT12251";
		oParam.service     = "pharmacydrugsumapp.NarcManagent";
		oParam.method      = "reqGetMnfseqCodeInfo";
		oParam.inds        = "req=ds_send_search";
		oParam.outds       = "ds_druglist=stoclist";
		oParam.async       = false;
		oParam.callback    = "cf_TRADT12251";

	tranf_submit(oParam);
	
	ds_send_search.setColumn(0, "drugcd", "");
	
	if(ds_druglist.rowcount == 1) {
		ds_send_search.setColumn(0, "drugcd", ds_druglist.getColumn(0, "drugcd"));
		fSearch2();
	}
}

function fSearch2() {
	
	var drugcd = ds_send_search.getColumn(0, "drugcd");
	
	if(drugcd == "" || drugcd == null) {
		sysf_messageBox("약품코드를 선택하세요 ", "E999", "");	
		return;
	}
	
	
	
	var oParam = {};
		oParam.id          = "TRADT12251";
		oParam.service     = "pharmacydrugsumapp.NarcManagent";
		oParam.method      = "reqGetMnfseqStocList";
		oParam.inds        = "req=ds_send_search";
		oParam.outds       = "ds_stoclist=stoclist";
		oParam.async       = false;
		oParam.callback    = "cf_TRADT12251";

	tranf_submit(oParam);	
	
	if(ds_stoclist.rowcount == 0) {
		sysf_messageBox("조회된 결과가 존재하지 않습니다. \n\n일련번호를 확인하여 주세요. ", "E999", "");	
	}
	
	if (arErrorCode.pop("TRADT12251") > -1){
	
	}
}

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

function btn_download_onclick(obj:Button,  e:ClickEventInfo)
{
	//조회된 자료가 없으면 먼저 조회하라고 message
	if(ds_stoclist.rowcount < 1) {
		sysf_messageBox("조회된 결과가 존재하지 않습니다. \n\n먼저 조회 후 Download 하십시요. ", "E999", "");							
		return;
	}
																							
	grdf_exportExcel(grd_stoclist, "excel", "savetype", false, "", "user", false);
	
}

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


function grp_search_Combo00_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fSearch2();
}

function grd_stoclist_onkeydown(obj:Grid, e:KeyEventInfo)
{	
	fGridCopyClipboard(obj, e);
}

function fGridCopyClipboard(obj:Grid, e:KeyEventInfo)
{
	var bPushed = e.ctrlKey;
    var clipStr = "";
            
    if (e.keycode == 67 && bPushed == true )		// ctrl + c
    {
    	clipStr = obj.getCellText(obj.currentrow, obj.currentcol);
		system.clearClipboard();
		system.setClipboard("CF_TEXT",clipStr);
    }
}
]]></Script>
  </Form>
</FDL>