YNU_JEUS/app_home/himed/xpapps/ast/healexamstatxp/xp/SMAHS03100_공단입금내역.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMAHS03100" position="absolute 0 0 1206 774" titletext="공단입금내역" onload="SMAHS03100_onload">
    <Layouts>
      <Layout>
        <Div id="group2" position="absolute 0 25 1195 65" style="" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption2" class="search_name" position="absolute 10 12 83 29" style="" text="일자 :" anchor="default"/>
              <Calendar id="ipt_fromdd" class="input_search" taborder="7" position="absolute 77 11 182 30" style="" anchor="default" autoselect="true"/>
              <Static id="caption19" class="search_n_b" position="absolute 186 12 198 29" style="font:,,bolder;" text="~" anchor="default"/>
              <Calendar id="input1" class="input_search" taborder="7" position="absolute 200 11 305 30" style="" anchor="default" autoselect="true"/>
              <Static id="caption13" class="search_name" position="absolute 328 12 410 29" style="" text="건진구분 :" anchor="default"/>
              <Radio datacolumn="datacolumn" codecolumn="codecolumn" columncount="-1" rowcount="-1" id="radio1" visible="true" position="absolute 414 10 564 30" style="" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">A</Col>
                      <Col id="datacolumn">공단검진</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">H</Col>
                      <Col id="datacolumn">통합검진</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Button id="btn_excelsave" class="btn7" visible="false" position="absolute 960 10 1040 32" style="" text="엑셀저장" onclick="group2_btn_excelsave_onclick" anchor="top right"/>
              <Shape id="line3" class="line_4" linetype="vertical" position="absolute 1047 10 1050 32" anchor="default" visible="false"/>
              <Button id="btn_prt" class="btn6" position="absolute 1054 10 1110 32" style="" text="출력" onclick="group2_btn_prt_onclick" anchor="top right"/>
              <Shape id="line2" class="line_4" linetype="vertical" position="absolute 1116 10 1119 32" anchor="top right"/>
              <Button id="btn_search" class="btn1" position="absolute 1123 10 1179 32" style="" text="조회" onclick="group2_btn_search_onclick" anchor="top right"/>
            </Layout>
          </Layouts>
        </Div>
        <Div id="group3" position="absolute 0 63 1196 770" style="" anchor="all">
          <Layouts>
            <Layout>
              <Grid id="grd_reqlst" binddataset="ds_main_reqlst_item" position="absolute 0 10 1195 701" style="" cellsizingtype="col" anchor="all">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="72"/>
                      <Column size="73"/>
                      <Column size="122"/>
                      <Column size="114"/>
                      <Column size="0"/>
                      <Column size="80"/>
                      <Column size="0"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="238"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                      <Row size="24" band="summ"/>
                    </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="입금액"/>
                      <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"/>
                    </Band>
                    <Band id="body">
                      <Cell displaytype="date" style="background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:incomedd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                      <Cell col="1" displaytype="date" style="background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:clamdd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                      <Cell col="2" displaytype="expr:getRowLevel(currow) == 1 ? '' : 'combo'" edittype="none" style="align:left middle;background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:cretflag" combodataset="ds_main_cretflag" combocodecol="value" combodatacol="label"/>
                      <Cell col="3" style="align:left middle;background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:sisfilename"/>
                      <Cell col="4" text="bind:clamseqno"/>
                      <Cell col="5" displaytype="number" style="background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:sumclamamt"/>
                      <Cell col="6" displaytype="number" style="background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:clamamt"/>
                      <Cell col="7" displaytype="number" style="background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:incomeamt"/>
                      <Cell col="8" displaytype="number" style="background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:cashamt"/>
                      <Cell col="9" displaytype="number" style="background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:cardamt"/>
                      <Cell col="10" displaytype="number" style="background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:addamt"/>
                      <Cell col="11" displaytype="number" style="background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:discamt"/>
                      <Cell col="12" displaytype="number" style="background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:restamt"/>
                      <Cell col="13" style="align:left top;background:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');background2:EXPR(getRowLevel(currow) == 1 ? '#7CBBDD' : '');color:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');color2:EXPR(getRowLevel(currow) == 1 ? '#ffffff' : '');font:EXPR(getRowLevel(currow) == 1 ? 'arial,9,bold' : '');" text="bind:remfact" wordwrap="char"/>
                    </Band>
                    <Band id="summary">
                      <Cell style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,9;"/>
                      <Cell col="1" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,9;"/>
                      <Cell col="2" style="align:left middle;background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;" text="총 계"/>
                      <Cell col="3" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;"/>
                      <Cell col="4" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;"/>
                      <Cell col="5" displaytype="number" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;" text="expr:getSum('sumclamamt')"/>
                      <Cell col="6" displaytype="number" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;" text="expr:getSum('clamamt')"/>
                      <Cell col="7" displaytype="number" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;" text="expr:getSum('incomeamt')"/>
                      <Cell col="8" displaytype="number" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;" text="expr:getSum('cashamt')"/>
                      <Cell col="9" displaytype="number" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;" text="expr:getSum('cardamt')"/>
                      <Cell col="10" displaytype="number" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;" text="expr:getSum('addamt')"/>
                      <Cell col="11" displaytype="number" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;" text="expr:getSum('discamt')"/>
                      <Cell col="12" displaytype="number" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;" text="expr:getSum('restamt')"/>
                      <Cell col="13" displaytype="number" style="background:#99ff99ff;background2:#99ff99ff;font:arial,9,bold;"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption60" text="공단 입금내역" class="tit_1" position="absolute 0 0 183 25" style="align:left;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_reqlst" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_main_reqlst_item" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep">
        <ColumnInfo>
          <Column id="incomedd" type="STRING" size="256"/>
          <Column id="clamdd" type="STRING" size="256"/>
          <Column id="cretflag" type="STRING" size="256" prop="TEXT" sumtext="소 계"/>
          <Column id="sisfilename" type="STRING" size="256"/>
          <Column id="clamseqno" type="STRING" size="256"/>
          <Column id="sumclamamt" type="INT" size="256"/>
          <Column id="clamamt" type="INT" size="256"/>
          <Column id="incomeamt" type="INT" size="256"/>
          <Column id="cashamt" type="INT" size="256"/>
          <Column id="cardamt" type="INT" size="256"/>
          <Column id="addamt" type="INT" size="256"/>
          <Column id="discamt" type="INT" size="256"/>
          <Column id="restamt" type="INT" size="256"/>
          <Column id="remfact" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="incomedd"/>
            <Col id="clamdd"/>
            <Col id="cretflag"/>
            <Col id="sisfilename"/>
            <Col id="clamseqno"/>
            <Col id="sumclamamt"/>
            <Col id="clamamt"/>
            <Col id="incomeamt"/>
            <Col id="cashamt"/>
            <Col id="cardamt"/>
            <Col id="addamt"/>
            <Col id="discamt"/>
            <Col id="restamt"/>
            <Col id="remfact"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rexinfo" type="STRING" size="256"/>
          <Column id="export" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchfromdd" type="STRING" size="256"/>
          <Column id="srchtodd" type="STRING" size="256"/>
          <Column id="srchhealexamgubun" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_cretflag" 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="value">1</Col>
            <Col id="label">건강검진1.2차</Col>
          </Row>
          <Row>
            <Col id="value">2</Col>
            <Col id="label">암</Col>
          </Row>
          <Row>
            <Col id="value">3</Col>
            <Col id="label">보건소</Col>
          </Row>
          <Row>
            <Col id="value">4</Col>
            <Col id="label">구강</Col>
          </Row>
          <Row>
            <Col id="value">5</Col>
            <Col id="label">영유아</Col>
          </Row>
          <Row>
            <Col id="label">소 계</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_reqlst_item_temp" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep">
        <ColumnInfo>
          <Column id="incomedd" type="STRING" size="256"/>
          <Column id="clamdd" type="STRING" size="256"/>
          <Column id="cretflag" type="STRING" size="256" prop="TEXT" sumtext="소 계"/>
          <Column id="sisfilename" type="STRING" size="256"/>
          <Column id="clamseqno" type="STRING" size="256"/>
          <Column id="sumclamamt" type="INT" size="256"/>
          <Column id="clamamt" type="INT" size="256"/>
          <Column id="incomeamt" type="INT" size="256"/>
          <Column id="cashamt" type="INT" size="256"/>
          <Column id="cardamt" type="INT" size="256"/>
          <Column id="addamt" type="INT" size="256"/>
          <Column id="discamt" type="INT" size="256"/>
          <Column id="restamt" type="INT" size="256"/>
          <Column id="remfact" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="incomedd"/>
            <Col id="clamdd"/>
            <Col id="cretflag"/>
            <Col id="sisfilename"/>
            <Col id="clamseqno"/>
            <Col id="sumclamamt"/>
            <Col id="clamamt"/>
            <Col id="incomeamt"/>
            <Col id="cashamt"/>
            <Col id="cardamt"/>
            <Col id="addamt"/>
            <Col id="discamt"/>
            <Col id="restamt"/>
            <Col id="remfact"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_rexinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.ipt_fromdd" propid="value" datasetid="ds_send" columnid="srchfromdd"/>
      <BindItem id="item1" compid="group2.input1" propid="value" datasetid="ds_send" columnid="srchtodd"/>
      <BindItem id="item2" compid="group2.radio1" propid="value" datasetid="ds_send" columnid="srchhealexamgubun"/>
    </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 "com_basiccodexp::ZBC001.xjs";
include "com_zipcodexp::ZBP001.xjs";


/*
*	소계 및 총계를 생성한다.
*/
function fSetRcptSum(){
// 2.0에서는 submit 후 keystring 처리 
// dateset sum row 추가 처리

//  1.0 소스 막음 
// 	group3.grd_reqlst.subtotalPosition = "below";
// 	group3.grd_reqlst.subtotal("clear", group3.grd_reqlst.colRef("cretflag") , i ,"format:(-,+)#,###; roundmode:round; roundpostion:2", "background-color:#7CBBDD; color:#ffffff; font-weight:bold ", group3.grd_reqlst.colRef("cretflag") , "소 계" );
// 	group3.grd_reqlst.subtotal("clear", -1, i, "format:(-,+)#,###; roundmode:round; roundpostion:2", "background-color:#99ff99; font-weight:bold", group3.grd_reqlst.colRef("cretflag"),  "총 계" );
// 
// 	for(var i=0; i < group3.grd_reqlst.cols ; i++){
// 		if(i >= group3.grd_reqlst.colRef("sumclamamt") && i <= group3.grd_reqlst.colRef("restamt")){
// 			group3.grd_reqlst.subtotal("sum", group3.grd_reqlst.colRef("cretflag") , i ,"format:(-,+)#,###; roundmode:round; roundpostion:2", "background-color:#7CBBDD; color:#ffffff; font-weight:bold ", group3.grd_reqlst.colRef("cretflag") , "소 계" );
// 			group3.grd_reqlst.subtotal("sum", -1, i, "format:(-,+)#,###; roundmode:round; roundpostion:2", "background-color:#99ff99; font-weight:bold", group3.grd_reqlst.colRef("cretflag"),  "총 계" );
// 		}
// 	}
}

//스크립트 끝
 function SMAHS03100_onload(obj:Form, e:LoadEventInfo) {
	frmf_initForm(obj); 
	 //grdf_initGrid(grd_XXX); 
	 //grdf_setGridSort(grd_XXX); 
	 //grdf_setRowTypeIcon(grd_XXX, 0_컬럼위치값); 

	//일자초기화
	ds_send.setColumn( 0, "srchfromdd"	, utlf_getCurrentDate());
	ds_send.setColumn( 0, "srchtodd"		, utlf_getCurrentDate());
	ds_send.setColumn( 0, "srchhealexamgubun"		, "A");
	

}


function group2_btn_excelsave_onclick(obj:Button, e:ClickEventInfo) {

	grdf_exportExcel(group3.grd_reqlst, "excel", "SheetName", "true", "", "");
}

function group2_btn_prt_onclick(obj:Button, e:ClickEventInfo) {

	dsf_makeValue( ds_main_rexinfo, "instcd", "string",  sysf_getUserInfo("dutplceinstcd"));
	dsf_makeValue( ds_main_rexinfo, "usernm", "string",  sysf_getUserInfo("usernm"));
	dsf_makeValue( ds_main_rexinfo, "fromdd", "string",  ds_send.getColumn(0, "srchfromdd"));
	dsf_makeValue( ds_main_rexinfo, "todd", "string",  ds_send.getColumn(0, "srchtodd"));
	
    var objDOM = rptf_createDOM();
    var objParam = new Object();
    rptf_setNodeListToDOM(objDOM, "/root/main/rexinfo" , ds_main_rexinfo);
    rptf_setNodeListToDOM(objDOM, "/root/main/reqlst/item" , ds_main_reqlst_item_temp);
    
    objParam.xml_data_XML1 	= objDOM.documentElement.source;
    var option = "open=1;save=1;directprint=0;printdialog=1;print=1;zoom=0";
    rptf_exeReportPreview30(["RPAHS03100"],[objParam], option);

}

function group2_btn_search_onclick(obj:Button, e:ClickEventInfo) {

	
	var oParam = {};
    oParam.id          = "TRAHS03100";
    oParam.service     = "healexamstatapp.StatRef";
    oParam.method      = "reqGetGclmList";
    oParam.inds        = "req=ds_send";
    oParam.outds       = "ds_main_reqlst_item=item";
    oParam.async       = false;
    //oParam.callback    = "cf_TRAHS03100";

	tranf_submit(oParam);
	ds_main_reqlst_item_temp.copyData(ds_main_reqlst_item);
    ds_main_reqlst_item.keystring = "G:+cretflag";

}

function cf_TRAHS03100(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    fSetRcptSum();
}
]]></Script>
  </Form>
</FDL>