YNU_JEUS/app_home/himed/xpapps/pam/clamuncoxp/xp/SMPIF30120_심사보류관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIF30120" position="absolute 0 0 1202 692" titletext="심사보류내역" oninit="SMPIF30120_oninit" onload="SMPIF30120_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 0 1202 669" id="group3" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Static text="심사보류내역" position="absolute 5 10 139 32" id="caption1" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 27 1194 33" linetype="horizontal" id="line1" class="line_1" anchor="default" style="strokepen:3 solid #33bbbbff;"/>
              <Grid position="absolute 1 75 1195 662" id="grd_pirhjdrt" class="datagrid2" visible="true" binddataset="ds_main_list00_gridpirhjdrt00" anchor="default" oncellclick="group3_grd_pirhjdrt_oncellclick" onkeydown="group3_grd_pirhjdrt_onkeydown" cellsizingtype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="35"/>
                      <Column size="61"/>
                      <Column size="36"/>
                      <Column size="45"/>
                      <Column size="45"/>
                      <Column size="70"/>
                      <Column size="38"/>
                      <Column size="38"/>
                      <Column size="70"/>
                      <Column size="50"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="40"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="60"/>
                      <Column size="120"/>
                      <Column size="100"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="35" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell text="청구월"/>
                      <Cell col="1" text="미수일련번호"/>
                      <Cell col="2" text="기관코드"/>
                      <Cell col="3" text="접수번호"/>
                      <Cell col="4" text="청구번호"/>
                      <Cell col="5" text="처리구분코드"/>
                      <Cell col="6" text="입금일자"/>
                      <Cell col="7" text="No"/>
                      <Cell col="8" text="처리구분"/>
                      <Cell col="9" text="입금&#10;여부"/>
                      <Cell col="10" text="진료과"/>
                      <Cell col="11" text="명일련"/>
                      <Cell col="12" text="심사차수"/>
                      <Cell col="13" colspan="2" text="조정사유" taborder="undefined"/>
                      <Cell col="15" text="등록번호"/>
                      <Cell col="16" text="수진자"/>
                      <Cell col="17" text="총진료비"/>
                      <Cell col="18" text="청구액"/>
                      <Cell col="19" text="상한금"/>
                      <Cell col="20" text="지원금"/>
                      <Cell col="21" text="장애인"/>
                      <Cell col="22" text="본인부담금"/>
                      <Cell col="23" text="심사결정액"/>
                      <Cell col="24" text="조정삭감액"/>
                      <Cell col="25" text="본인추가&#10;부담금"/>
                      <Cell col="26" text="본인부담&#10;환급금"/>
                      <Cell col="27" text="환자&#10;유형"/>
                      <Cell col="28" text="기관&#10;기호"/>
                      <Cell col="29" text="기관명"/>
                      <Cell col="30" text="심사자"/>
                      <Cell col="31" text="심사자보류&#10;등록내용"/>
                      <Cell col="32" text="비고"/>
                      <Cell col="33"/>
                      <Cell col="34"/>
                    </Band>
                    <Band id="body">
                      <Cell text="bind:clamym"/>
                      <Cell col="1" text="bind:decoseq"/>
                      <Cell col="2" text="bind:instcd"/>
                      <Cell col="3" text="bind:acptno"/>
                      <Cell col="4" text="bind:clamno"/>
                      <Cell col="5" text="bind:decotretflag"/>
                      <Cell col="6" text="bind:decodd"/>
                      <Cell col="7" text="bind:reteseqno"/>
                      <Cell col="8" text="bind:decotretflagnm"/>
                      <Cell col="9" text="bind:depoyn"/>
                      <Cell col="10" text="bind:orddeptcd"/>
                      <Cell col="11" text="bind:docuseqno"/>
                      <Cell col="12" text="bind:judgdg"/>
                      <Cell col="13" text="bind:adjtresn1"/>
                      <Cell col="14" text="bind:adjtresn2"/>
                      <Cell col="15" text="bind:pid"/>
                      <Cell col="16" text="bind:patnm"/>
                      <Cell col="17" displaytype="number" text="bind:clmcstotamt"/>
                      <Cell col="18" displaytype="number" text="bind:clclamamt"/>
                      <Cell col="19" displaytype="number" text="bind:clownbmaxexamt"/>
                      <Cell col="20" displaytype="number" text="bind:clsuppamt"/>
                      <Cell col="21" displaytype="number" text="bind:clhandicaprfund"/>
                      <Cell col="22" displaytype="number" text="bind:clownbamt"/>
                      <Cell col="23" displaytype="number" text="bind:jrjudgdeciamt"/>
                      <Cell col="24" displaytype="number" text="bind:adjtamt"/>
                      <Cell col="25" displaytype="number" text="bind:ownaddbamt"/>
                      <Cell col="26" displaytype="number" text="bind:ownbrtnamt"/>
                      <Cell col="27" text="bind:ioflag"/>
                      <Cell col="28" text="bind:corpmark"/>
                      <Cell col="29" text="bind:corpmarknm"/>
                      <Cell col="30" text="bind:judgrid"/>
                      <Cell col="31" displaytype="text" edittype="text" text="bind:judgrretespec"/>
                      <Cell col="32" displaytype="text" edittype="text" text="bind:rem"/>
                      <Cell col="33" text="bind:clamdg"/>
                      <Cell col="34" text="bind:pidsn"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button position="absolute 1114 7 1193 26" id="button12" class="btn7" text="엑셀저장" anchor="default" onclick="group3_button12_onclick"/>
              <Shape position="absolute 1 34 1193 69" id="roundrect3" class="roundrect_search" type="roundrectangle" anchor="default"/>
              <Static text="심사차수" position="absolute 21 44 84 60" id="caption2" anchor="default"/>
              <Combo position="absolute 80 41 180 60" id="cmb_judgdglist" innerdataset="@ds_main_list02_judgdg01" datacolumn="judgdg" codecolumn="judgdg" anchor="default"/>
              <Radio position="absolute 210 39 345 62" id="rdo_decotretflag" columncount="3" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default" onitemchanged="group3_rdo_decotretflag_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">01</Col>
                      <Col id="datacolumn">정상</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">02</Col>
                      <Col id="datacolumn">보류</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">04</Col>
                      <Col id="datacolumn">불능</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Button position="absolute 1127 42 1180 61" id="button2" class="btn2" text="초기화" anchor="default" onclick="group3_button2_onclick"/>
              <Button position="absolute 1019 7 1113 26" id="button7" class="btn7" text="Open Excel" anchor="default" onclick="group3_button7_onclick"/>
              <Button position="absolute 909 7 962 26" id="button10" class="btn2" text="열카피" anchor="default" onclick="group3_button10_onclick"/>
              <Button position="absolute 964 7 1017 26" id="button11" class="btn2" text="행카피" anchor="default" onclick="group3_button11_onclick"/>
              <Button position="absolute 854 7 907 26" id="button13" class="btn2" text="셀카피" anchor="default" onclick="group3_button13_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 5 660 1199 687" id="group2" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Button position="absolute 1074 5 1130 27" id="button1" class="btn4" text="저장" anchor="default" onclick="group2_button1_onclick"/>
              <Button position="absolute 1133 5 1189 27" id="button3" class="btn4" text="닫기" anchor="default" onclick="group2_button3_onclick"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_sendlnk" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_sendlist00" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="acptno" type="STRING" size="256"/>
          <Column id="clamno" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="judgdg" type="STRING" size="256"/>
          <Column id="decoseq" type="STRING" size="256"/>
          <Column id="insukind" type="STRING" size="256"/>
          <Column id="decotretflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="decotretflag">02</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_list02_judgdg01" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="judgdg" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_judgdg_current" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_send_judgdg_current_oncolumnchanged">
        <ColumnInfo>
          <Column id="judgdg" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_list02_decoseq" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="judgdg" type="STRING" size="256" sumtext="심사차수"/>
          <Column id="decoseq" type="STRING" size="256" sumtext="미수일련번호"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_list00_gridpirhjdrt00" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="clamym" type="STRING" size="256" sumtext="청구월"/>
          <Column id="decoseq" type="STRING" size="256" sumtext="미수일련번호"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="acptno" type="STRING" size="256" sumtext="접수번호"/>
          <Column id="clamno" type="STRING" size="256" sumtext="청구번호"/>
          <Column id="decotretflag" type="STRING" size="256" sumtext="미수처리구분"/>
          <Column id="depodd" type="STRING" size="256" sumtext="입금일자"/>
          <Column id="reteseqno" type="STRING" size="256" sumtext="순번"/>
          <Column id="decotretflagnm" type="STRING" size="256" sumtext="미수처리구분명"/>
          <Column id="depoyn" type="STRING" size="256" sumtext="입금여부"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="docuseqno" type="STRING" size="256" sumtext="명일련"/>
          <Column id="judgdg" type="STRING" size="256" sumtext="심사차수"/>
          <Column id="adjtresn1" type="STRING" size="256" sumtext="보류사유1"/>
          <Column id="adjtresn2" type="STRING" size="256" sumtext="보류사유2"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="patnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="clmcstotamt" type="STRING" size="256" sumtext="청구총진료비"/>
          <Column id="clclamamt" type="STRING" size="256" sumtext="청구액"/>
          <Column id="clownbamt" type="STRING" size="256" sumtext="청구본인부담금"/>
          <Column id="clownbmaxexamt" type="STRING" size="256" sumtext="상한액/대불금"/>
          <Column id="clsuppamt" type="STRING" size="256" sumtext="청구지원금"/>
          <Column id="clhandicaprfund" type="STRING" size="256" sumtext="청구장애인기금"/>
          <Column id="jrjudgdeciamt" type="STRING" size="256" sumtext="심결액"/>
          <Column id="adjtamt" type="STRING" size="256" sumtext="조정삭감액"/>
          <Column id="ownaddbamt" type="STRING" size="256" sumtext="본인추가부담금"/>
          <Column id="ownbrtnamt" type="STRING" size="256" sumtext="본인부담환급금"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="환자유형"/>
          <Column id="corpmark" type="STRING" size="256" sumtext="기관기호"/>
          <Column id="corpmarknm" type="STRING" size="256" sumtext="기관명"/>
          <Column id="judgrid" type="STRING" size="256" sumtext="심사자"/>
          <Column id="inddepoflag" type="STRING" size="256" sumtext="개인입금구분"/>
          <Column id="judgrretespec" type="STRING" size="256" sumtext="심사자보류등록내용"/>
          <Column id="rem" type="STRING" size="256" sumtext="비고"/>
          <Column id="clamdg" type="STRING" size="256" sumtext="청구차수"/>
          <Column id="pidsn" type="STRING" size="256" sumtext="등록번호순번"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group3.rdo_decotretflag" propid="value" datasetid="ds_send_sendlist00" columnid="decotretflag"/>
      <BindItem id="item1" compid="group3.cmb_judgdglist" propid="value" datasetid="ds_send_judgdg_current" columnid="judgdg"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";
include "pam_pamcomnxp::PAM.xjs";

var col = "N";
function SMPIF30120_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPIF30120_onload(obj:Form, e:LoadEventInfo)
{
	grdf_setToolTipBind(group3.grd_pirhjdrt);
	
	if(frmf_checkOpener()) 
	{
		ds_send_sendlnk.copyData(arg_ds_send_sendlnk);
	}
	
	select_init();
	
	var oParam = {};
		oParam.id          = "TRPIF30122";
		oParam.service     = "clamuncoapp.ClamUnco";
		oParam.method      = "reqGetPirhjdrt02";
		oParam.inds        = "req=ds_send_sendlnk";
		oParam.outds       = "ds_main_list02_judgdg01=judgdg01 ds_main_list02_decoseq=decoseq";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIF30122";

	tranf_submit(oParam);
	
	var oParam = {};
		oParam.id          = "TRPIF30121";
		oParam.service     = "clamuncoapp.ClamUnco";
		oParam.method      = "reqGetPirhjdrt01";
		oParam.inds        = "req=ds_send_sendlist00";
		oParam.outds       = "ds_main_list00_gridpirhjdrt00=gridpirhjdrt00";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIF30121";

	tranf_submit(oParam);

	ds_main_list00_gridpirhjdrt00.rowposition = -1;
	
	if(!utlf_isNull(ds_send_sendlnk.getColumn(0,"judgdg")))
	{
		frmf_addComboItem("group3.cmb_judgdglist","전체","","above");
		
		ds_send_judgdg_current.setColumn(0, "judgdg", ds_send_sendlnk.getColumn(0, "judgdg"));
	}
}

function select_init()
{
	if(utlf_isNull(ds_send_sendlnk.getColumn(0, "acptno")))
	{
		return false;
	}
	
	ds_send_sendlist00.setColumn(0, "acptno", ds_send_sendlnk.getColumn(0, "acptno"));
	ds_send_sendlist00.setColumn(0, "clamno", ds_send_sendlnk.getColumn(0, "clamno"));
	ds_send_sendlist00.setColumn(0, "instcd", ds_send_sendlnk.getColumn(0, "instcd"));
	ds_send_sendlist00.setColumn(0, "judgdg", ds_send_sendlnk.getColumn(0, "judgdg"));
	ds_send_sendlist00.setColumn(0, "decoseq", ds_send_sendlnk.getColumn(0, "decoseq"));
	 
	 ds_send_sendlist00.setColumn(0, "insukind", "11");
}

function ds_send_judgdg_current_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	ds_send_sendlist00.setColumn(0, "decotretflag", "02");
	
	var vjudgdg = ds_send_judgdg_current.getColumn(0, "judgdg");
	
	ds_send_sendlist00.setColumn(0, "judgdg", vjudgdg);
	
	for(var i = 0; i < ds_main_list02_judgdg01.rowcount; i++)
	{
		if(ds_send_judgdg_current.getColumn(0, "judgdg") == ds_main_list02_decoseq.getColumn(i, "judgdg"))
		{
			ds_send_sendlist00.setColumn(0, "decoseq", ds_main_list02_decoseq.getColumn(i, "decoseq"));
		}
	}
	
	var oParam = {};
		oParam.id          = "TRPIF30121";
		oParam.service     = "clamuncoapp.ClamUnco";
		oParam.method      = "reqGetPirhjdrt01";
		oParam.inds        = "req=ds_send_sendlist00";
		oParam.outds       = "ds_main_list00_gridpirhjdrt00=gridpirhjdrt00";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIF30121";

	tranf_submit(oParam);
}

function group3_rdo_decotretflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	var oParam = {};
		oParam.id          = "TRPIF30123";
		oParam.service     = "clamuncoapp.ClamUnco";
		oParam.method      = "reqGetPirhjdrt03";
		oParam.inds        = "req=ds_send_sendlist00";
		oParam.outds       = "ds_main_list00_gridpirhjdrt00=gridpirhjdrt00";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIF30123";

	tranf_submit(oParam);
}

function group3_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_send_sendlist00.setColumn(0, "decotretflag", "");
	ds_send_judgdg_current.setColumn(0, "judgdg", "");
	
	ds_main_list00_gridpirhjdrt00.clearData();
	
	group3.cmb_judgdglist.enable = true;
}

function group3_button13_onclick(obj:Button,  e:ClickEventInfo)
{
	col = "N";
	
	group3.grd_pirhjdrt.selecttype = "multiarea";
}

function group3_button10_onclick(obj:Button,  e:ClickEventInfo)
{
	col = "Y";
	
	group3.grd_pirhjdrt.selecttype = "multiarea";
}

function group3_button11_onclick(obj:Button,  e:ClickEventInfo)
{
	col = "N";
	
	group3.grd_pirhjdrt.selecttype = "multirow";
}

function group3_button7_onclick(obj:Button,  e:ClickEventInfo)
{
	system.execShell("excel");
}

function group3_button12_onclick(obj:Button,  e:ClickEventInfo)
{
	var today = new Date();
								
	var yy = today.getYear() + "";
	var mm = today.getMonth() + 1;
	var dd = today.getDate();
	
	if(mm < 10) 
	{ 
		mm = "0" + mm; 
	}
	else 
	{ 
		mm = mm + ""; 
	}
	
	if(dd < 10) 
	{ 
		dd = "0" + dd; 
	}
	else 
	{
		dd = dd + ""; 
	}
	
	var tmp = yy + mm + dd;
	
	if(ds_main_list00_gridpirhjdrt00.rowcount == 0)
	{
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
	else
	{
		grdf_exportExcel(group3.grd_pirhjdrt, "심사보류관리_"+tmp, "see");
	}
}

function group3_grd_pirhjdrt_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	var lv_nAreaStartRow;
	var lv_nAreaEndRow;
	var lv_nAreaStartCol;
	var lv_nAreaEndCol;

	if(col == "Y")
	{
		lv_nAreaStartRow = 0;
		lv_nAreaEndRow   = parseInt(obj.rowcount-1);
		lv_nAreaStartCol = parseInt(obj.currentcol);
		lv_nAreaEndCol   = parseInt(obj.currentcol);
		
		grdf_initGridStyle(obj);
		
		for(var nRow = lv_nAreaStartRow; nRow <= lv_nAreaEndRow; nRow++) 
		{
			for(var nCell = lv_nAreaStartCol; nCell <= lv_nAreaEndCol; nCell++) 
			{
				obj.setCellProperty("body",nCell,"background","#FFE7E5");
				obj.setCellProperty("body",nCell,"background2","#FFE7E5");
			}
		}
	}
	else
	{
		grdf_initGridStyle(obj);
	}
}

function group3_grd_pirhjdrt_onkeydown(obj:Grid, e:KeyEventInfo)
{
	if(col == "Y")
	{
		var CONST_SEPARATOR = "	";	//컬럼별 구분자
		var lv_oBindDs = eval(obj.binddataset);
		var lv_sColID;
		var lv_sVal;
		var lv_sClipboard = "";
		var lv_nAreaStartRow;
		var lv_nAreaEndRow;
		var lv_nAreaStartCol;
		var lv_nAreaEndCol;
	   
		if(obj.selecttype == "multiarea") 
		{
			lv_nAreaStartRow = 0;
			lv_nAreaEndRow   = parseInt(obj.rowcount-1);
			lv_nAreaStartCol = parseInt(obj.currentcol);
			lv_nAreaEndCol   = parseInt(obj.currentcol);
		} 
		
		for(var nRow = lv_nAreaStartRow; nRow <= lv_nAreaEndRow; nRow++) 
		{
			for(var nCell = lv_nAreaStartCol; nCell <= lv_nAreaEndCol; nCell++) 
			{
				lv_sColID = obj.getCellProperty("body",nCell,"text");
				lv_sVal = obj.getCellValue(nRow,nCell);
				lv_sClipboard = lv_sClipboard + lv_sVal + CONST_SEPARATOR;
			}

			lv_sClipboard = lv_sClipboard.substr(0,lv_sClipboard.length-1);
			lv_sClipboard = lv_sClipboard +String.fromCharCode(10);
		}

		lv_sClipboard = lv_sClipboard.substr(0,lv_sClipboard.length-1);
		
		iv_sClipboard = lv_sClipboard;	
		
		system.setClipboard("CF_TEXT",lv_sClipboard);
	}
	else
	{
		if (e.ctrlKey == true && e.keycode == 67 )
		{
			grdf_clipboardCopy(obj, "PAM");
		}
	}
}

function group2_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TXPIF30121";
		oParam.service     = "clamuncoapp.ClamUnco";
		oParam.method      = "reqPutPirhjdrt01";
		oParam.inds        = "req=ds_main_list00_gridpirhjdrt00";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXPIF30121";

	tranf_submit(oParam);
}

function cf_TXPIF30121(sSvcId, nErrorCode, sErrorMsg)
{
	if(nErrorCode < 0) 
	{
		sysf_messageBox("저장이","E009");
	}
	else
	{
		sysf_messageBox("저장이","I002");
		
		var oParam = {};
			oParam.id          = "TRPIF30121";
			oParam.service     = "clamuncoapp.ClamUnco";
			oParam.method      = "reqGetPirhjdrt01";
			oParam.inds        = "req=ds_send_sendlist00";
			oParam.outds       = "ds_main_list00_gridpirhjdrt00=gridpirhjdrt00";
			oParam.async       = false;
			//oParam.callback    = "cf_TRPIF30121";

		tranf_submit(oParam);
	}
}

function group2_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
]]></Script>
  </Form>
</FDL>