Foxtable(狐表)用户栏目专家坐堂 → 关于计划管理


  共有2272人关注过本帖树形打印复制链接

主题:关于计划管理

帅哥哟,离线,有人找我吗?
outcat
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
  发帖心情 Post By:2020/9/22 15:07:00 [只看该作者]

我在计划管理里谢了如下代码 想实现比如今天忘记了交班,我在一个固定的时间里让系统自动交班,我现在设置的是 15:01 执行这个代码,可是没有生成及交班记录,请老师看一下

Dim d As Date = Date.now
If d.hour=15 And d.Minute=0 And d.Second=1 Then
    
    Dim rr As DataRow
    rr = DataTables("营业综合报表").sqlFind("日期 = '" & d & "'")
    If rr Is Nothing Then
        Dim r As Row = Tables("营业综合报表").AddNew
        r("商家订货数量") = DataTables("供应商订货总表").Compute("sum(订货数量)","日期 = '#" & d & "#'")
        r("商家订货金额") = DataTables("供应商订货总表").Compute("sum(订货金额)","日期 = '#" & d & "#'")
        r("商家订货单数") = DataTables("供应商订货总表").Compute("count(订货单号)","日期 = '#" & d & "#'")
        r("供应商回货数量") = DataTables("供应商回货总表").Compute("sum(回货数量)","日期 = '#" & d & "#'")
        r("供应商回货金额") = DataTables("供应商回货总表").Compute("sum(回货金额)","日期 = '#" & d & "#'")
        r("供应商回货单数") = DataTables("供应商回货总表").Compute("count(回货单号)","日期 = '#" & d & "#'")
        r("客户订货数量") = DataTables("供应商回货总表").Compute("count(回货单号)","日期 = '#" & d & "#'")
        r("客户订货金额") = DataTables("客户订货总表").Compute("sum(应付金额)","日期 = '#" & d & "#'")
        r("客户订货单数") =  DataTables("客户订货总表").Compute("count(订货单号)","日期 = '#" & d & "#'")
        r("客户订货订金") = DataTables("客户订货总表").Compute("sum(预付订金)","日期 = '#" & d & "#'")
        r("商家送货数量") = DataTables("商场送货总表").Compute("sum(送货数量)","日期 = '#" & d & "#'")
        r("商家送货单数") = DataTables("商场送货总表").Compute("count(送货单号)","日期 = '#" & d & "#'")
        r("客户订货付款金额") = DataTables("客户订货付款表").Compute("sum(付款金额)","日期 = '#" & d & "#'")
        r("客户订货结款金额") = DataTables("客户订货总表").Compute("sum(实付金额)","日期 = '#" & d & "#'")
        r("收入金额") = DataTables("客户订货总表").Compute("sum(预付订金)","日期 = '#" & d & "#'") + DataTables("客户订货总表").Compute("sum(实付金额)","日期 = '#" & d & "#'") +DataTables("客户订货付款表").Compute("sum(付款金额)","日期 = '#" & d & "#'")
        r("支出金额") = DataTables("供应商订货总表").Compute("sum(订货金额)","日期 = '#" & d & "#'")
        r("利润") = r("收入金额") - r("支出金额")
        r("交班员") = "Admin"
        r("日期") = d
        
        Tables("营业综合报表").Current.save
        DataTables("营业综合报表").save
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/22 15:26:00 [只看该作者]

计划管理时间间隔设置为1分钟

If d.hour=15 And (d.Minute>0 or d.Minute<=1 ) Then
[此贴子已经被作者于2020/9/22 15:26:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
outcat
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
  发帖心情 Post By:2020/9/22 20:59:00 [只看该作者]

老师,现在定义的是Dim d As Date = Date.now 

 r("商家订货数量") = DataTables("供应商订货总表").Compute("sum(订货数量)","日期 = ''" & d & "''")
可这个 日期 是Date.Today 

如何把 日期 = ''" & d & "''" 中的  d,转换为转换为 日期格式呢

 回到顶部
帅哥哟,离线,有人找我吗?
outcat
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
  发帖心情 Post By:2020/9/22 21:20:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:131.jpg
图片点击可在新窗口打开查看

r("商家订货数量") = DataTables("供应商订货总表").Compute("sum(订货数量)","日期 = ''" & d & "''")  老师,我把 d 改成了,Date.Today  ,结果就出来了这个错误,老师,这是什么意思呢



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/22 21:43:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1337.htm

r("商家订货数量") = DataTables("供应商订货总表").Compute("sum(订货数量)","日期 = #" & d & "#")

 回到顶部
帅哥哟,离线,有人找我吗?
outcat
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
  发帖心情 Post By:2020/9/22 22:51:00 [只看该作者]

老师,现在设置的时间间隔是 1分钟,这样的话,每过一分钟就生成一条交班记录,这样是不对的,我把时间间隔 24小时(86400000),这样就执行不了

这个怎样让在这个固定的时间段生成一条交班记录,就不要在生成了,或者生成了一条记录,这个计划就停止了,到第二天的时候,再根据条件判断,生成记录

因为每天的交班记录只是一条呀。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/22 23:01:00 [只看该作者]

不可能每过一分钟就生成一条交班记录,虽然计划管理每一分钟就检测一次,但是12楼的条件一天只有一次才会符合条件并执行,也就是一天才执行一次

 回到顶部
总数 17 上一页 1 2