<%@ page contentType="text/html; charset=GBK"%> <%@ include file="/IncludeBegin.jsp"%> <%@ include file="/Accounting/include_accounting.jspf"%> 咨询还款计划 <% //定义变量 BusinessObject transaction = null; //获得页面参数 String loanSerialNo = (String) CurPage.getParameter("LoanSerialNo"); BusinessObjectManager bomanager = BusinessObjectManager.createBusinessObjectManager(); List irrrates = bomanager.loadBusinessObjects(BUSINESSOBJECT_CONSTANTS.loan_rate_segment, "ObjectType=:ObjectType and ObjectNo=:ObjectNo and RateType=:RateType and Status=:Status and (SegFromDate is null or SegFromDate='' or SegFromDate<= :BusinessDate) and (SegToDate is null or SegToDate='' or SegToDate > :BusinessDate)", "Status","1","BusinessDate",DateHelper.getBusinessDate(),"ObjectType","jbo.acct.ACCT_LOAN","ObjectNo",loanSerialNo,"RateType","04"); double irr = 0.0d; if(irrrates!=null && !irrrates.isEmpty()) { irr = irrrates.get(0).getDouble("BusinessRate"); } List list = bomanager.loadBusinessObjects(BUSINESSOBJECT_CONSTANTS.payment_schedule, "RelativeObjectType=:RelativeObjectType and RelativeObjectNo=:RelativeObjectNo and PSType=:PSType", "RelativeObjectType","jbo.acct.ACCT_LOAN", "RelativeObjectNo",loanSerialNo, "PSType","2"); double allPrincipalAmt = 0.0; double allInteAmt = 0.0; double allFeeAmt = 0.0; double allAmt = 0.0; %>
<% if(list != null){ for(BusinessObject bo:list){ BusinessObject pbo = BusinessObjectHelper.getBusinessObjectBySql(list, "SerialNo=:SerialNo", "SerialNo", bo.getString("ParentSerialNo")); if(pbo != null) continue; double otherFeeAmt = 0.0d; List cls = BusinessObjectHelper.getBusinessObjectsBySql(list, "ParentSerialNo=:SerialNo", "SerialNo", bo.getString("SerialNo")); for(BusinessObject cl:cls) { otherFeeAmt += cl.getDouble("PayPrincipalAmt")+cl.getDouble("PayInterestAmt"); } String payPrincipalColor = "black"; String payInteColor = "black"; String fixInstallmentColor = "black"; String payDateColor = "black"; String flag = ""; //1 为本金调整 2 为还款额调整 allPrincipalAmt += bo.getDouble("PayPrincipalAmt"); allInteAmt += bo.getDouble("PayInterestAmt"); allFeeAmt+=otherFeeAmt; allAmt += bo.getDouble("PayPrincipalAmt")+bo.getDouble("PayInterestAmt")+otherFeeAmt; %> " type=hidden value="<%=flag%>"/> <% } } %>
IRR月利率:<%=Arith.round(irr,4)%>（千分之）
期次 日期 应还IRR本金 应还IRR利息 应还IRR费用 应还总金额 IRR剩余本金
<%=bo.getInt("PeriodNo")%>" type=hidden value="<%=bo.getString("SerialNo")%>"/> " style='text-align: right;WIDTH: 80px;COLOR: <%=payDateColor%>' class=fftdinput type=text onblur=parent.trimField(this) readOnly value="<%=DataConvert.toString(bo.getString("PayDate"))%>" readonly > " style='text-align: right;WIDTH: 80px;COLOR: <%=payPrincipalColor%>' class=fftdinput type=text onblur=parent.trimField(this) value="<%=DataConvert.toMoney(bo.getDouble("PayPrincipalAmt"))%>" readonly > " style='text-align: right;WIDTH: 80px;COLOR: <%=payInteColor%>; ' class=fftdinput type=text onblur=parent.trimField(this) readOnly value="<%=DataConvert.toMoney(bo.getDouble("PayInterestAmt"))%>" > " style='text-align: right;WIDTH: 80px;COLOR: <%=payInteColor%>; ' class=fftdinput type=text onblur=parent.trimField(this) readOnly value="<%=DataConvert.toMoney(otherFeeAmt)%>" > " style='text-align: right;WIDTH: 80px;COLOR: <%=fixInstallmentColor%>' class=fftdinput type=text onblur=parent.trimField(this) value="<%=DataConvert.toMoney(bo.getDouble("PayPrincipalAmt")+bo.getDouble("PayInterestAmt")+otherFeeAmt)%>" readonly > " style='text-align: right;WIDTH: 80px; COLOR: black;' class=fftdinput type=text onblur=parent.trimField(this) readOnly value="<%=DataConvert.toMoney(bo.getDouble("PrincipalBalance"))%>" >
合计 <%=DataConvert.toMoney(allPrincipalAmt)%> <%=DataConvert.toMoney(allInteAmt)%> <%=DataConvert.toMoney(allFeeAmt)%> <%=DataConvert.toMoney(allAmt)%>
<%@ include file="/IncludeEnd.jsp"%>