业务描述:
如上图所示,根据起始时间、截止时间、租赁期限、租金总额、付款期数自动生成期数、应付款时间、应付款金额到网格中;
如上图所示,根据起始时间、截止时间、租赁期限、租金总额、付款期数自动生成期数、应付款时间、应付款金额到网格中;
实现方法:
网格部件1.RefreshData()
dim dt=网格部件1.DataTable
if isnull(记录部件1.GetFieldValue("起始时间")) = false and isnull(记录部件1.GetFieldValue("截止时间")) = false and isnull(记录部件1.GetFieldValue("租金总额")) = false and isnull(记录部件1.GetFieldValue("付款期数")) = false and isnull(记录部件1.GetFieldValue("租赁期限")) = false then
'计算应付款金额
dim yfk =记录部件1.GetFieldValue("租金总额")/ 记录部件1.GetFieldValue("付款期数")
'根据付款期数计算每期间隔多少月
dim ys = 记录部件1.GetFieldValue("租赁期限") * 12/记录部件1.GetFieldValue("付款期数")
dim dr
For i=1 to 记录部件1.GetFieldValue("付款期数")
dr= dt.NewRow()
dt.Rows.Add(dr)
dr["ID"]=guid()
dr["期数"]=i
dr["应付款时间"] = DateAdd(记录部件1.GetFieldValue("起始时间"),(i-1)*ys,"M")
dr["应付款金额"] = yfk
dr["实收金额"] = 0
dr["未收金额"] = yfk
next
else
msgbox("起始时间、截止时间、租金总额、租赁期限、付款期数不能为空")
end if
效果展示:
原文地址:http://bbs.delit.cn/thread-1017-1-1.html
转载请注明出处;
撰写人:度量科技www.delit.cn