业务描述：
如上图所示，根据起始时间、截止时间、租赁期限、租金总额、付款期数自动生成期数、应付款时间、应付款金额到网格中；
实现方法：
效果展示：
原文地址:http://bbs.delit.cn/thread-1017-1-1.html
转载请注明出处:
撰写人:度量科技www.delit.cn
如上图所示，根据起始时间、截止时间、租赁期限、租金总额、付款期数自动生成期数、应付款时间、应付款金额到网格中；
实现方法：
点击(此处)折叠或打开
-
网格部件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
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/328153/viewspace-2109340/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
【报表】报表中写代码实现复杂功能简介
下一篇：
平台中构建业务表时报sql语法错误
请登录后发表评论
登录
全部评论
