以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  没有打开项目能执行到期后事件执行?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170023)

--  作者:lin98
--  发布时间:2021/7/9 16:17:00
--  没有打开项目能执行到期后事件执行?
需求是:如何实现每月底对表A的所有数据记录进行审核,也就是“审核”为“是”,不为空?
 场景一:到期后没有打开项目能否执行事件审核执行?如果可以,怎样实现?如果不能实现,有替代的方法?如何实现?
 
   之所以,考虑没打开项目能执行,是因为下面原因:
1,正常上班时间,大家都会打开项目,但放假,比如5.1或国庆节放假或其他原因,企业恰好在月底这一天没上班,那这个
每月月底执行审核的事件就没能执行,过了这时间又不会执行,就无法满足需求功能。
2,或许说加上判断语句,每天判断审核情况,这个影响性能每天判断,还会表A的审核字段平时是允许为空,只有在每月月底才执行审核。
如何实现需求。

MyTimers

利用MyTimers集合,可以获得指定名称的计划,例如:

MyTimers("计划1")

计划的属性有:

Interval:执行间隔,单位为毫秒。
Enabled:  是否执行,设为False,暂停执行该计划

例如:

MyTimers("计划1").Enabled = False \'暂停计划1
MyTimers(
"计划2").Interval = 4000 \'计划2的执行间隔改为4秒


--  作者:有点蓝
--  发布时间:2021/7/9 16:22:00
--  
项目和程序必须一直运行,才能执行里面的代码。

可以发布一个程序放到服务器24小时开着

也可以在afteropenproject事件写代码处理一下,这主要每次打开项目都会执行一次

--  作者:lin98
--  发布时间:2021/7/10 12:42:00
--  
老师,有想法,就是写一个计划

如果 能正常在每月月底启用审核计划,进行审核,执行审核后,暂停审核计划,等下一月启动?

否则,不能或没有正常在每月月底启用审核计划,进行审核,就执行向下个一月延15天进行检测,在期间,在哪天启用审核计划,进行审核,就在哪天
执行审核后,暂停审核计划,等下一月启动。


这个代码,如何实现?

--  作者:有点蓝
--  发布时间:2021/7/10 14:00:00
--  
把计划管理间隔设置为3600000(一小时)

计时代码
dim d as date = date.today
If d.day = 1 AndAlso d.Hour = 0 then
进行审核的代码
end if

发布程序放到服务器24小时运行