以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191228)

--  作者:admin22327
--  发布时间:2024/4/3 8:43:00
--  日期计算

这个表,我要求找到最后一次服务的某客户,从开始服务的那天计算,365天后自动增加一行,进行收费,这个代码怎么写,求助,谢谢


图片点击可在新窗口打开查看此主题相关图片如下:财务.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2024/4/3 8:45:04编辑过]

--  作者:有点蓝
--  发布时间:2024/4/3 9:31:00
--  
请举例具体的数据,说明一下最终的效果
--  作者:admin22327
--  发布时间:2024/4/3 9:38:00
--  
比如A客户,开始服务期限是2023年10月10日,我们收取服务3000,到2024年10月10日,2025年10月10日,2026年10月10日……,每年都收取3000服务费,每年到期前10天有个提醒,到期自动增加一行,依次类推,有的客户比如收取2年后,不在服务,我们填入结束服务日期,这类客户后期不在提醒,不在增加一行
--  作者:admin22327
--  发布时间:2024/4/3 9:41:00
--  

 

[此贴子已经被作者于2024/4/3 9:41:38编辑过]

--  作者:有点蓝
--  发布时间:2024/4/3 10:01:00
--  
datacolchanged事件

if  e.datacol.name = "开始服务日期" then
if e.datarow.isnull("结束服务日期") andalso if e.datarow.isnull("开始服务日期") = false then
dim d as date = e.datarow("开始服务日期") 
if d.addyears(1) = date.today then
dim dr as datarow = e.datatable.addnew
dr("开始服务日期") = date.today
dr("
客户名称") = e.datarow("客户名称") 
end if
end if
end if

每天打开项目重置一次列

--  作者:admin22327
--  发布时间:2024/4/3 10:13:00
--  
重置列没有反应哈
--  作者:有点蓝
--  发布时间:2024/4/3 10:15:00
--  
开始服务日期没有符合要求的数据,比如今天是2024-04-03,那么要开始服务日期是2024-03-03的才会增加一行