Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]库存的预警系统


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

主题：[求助]库存的预警系统
帅哥哟，离线，有人找我吗？
william627
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：8 积分：182 威望：0 精华：0 注册：2013/1/17 12:32:00 		[求助]库存的预警系统  发帖心情 Post By：2013/6/9 16:51:00 [只看该作者]

参考了到期提醒设计http://help.foxtable.com/topics/2471.htm想做一个库存预警系统。

能夠实现 库存数+备货数 低於 安全警戒数 进行预警的提醒

遇到的问题是...由於这个范例是日期，而不是数字，要怎麽更改代码是数字能用的

到期日期＝生产天数+保值天数

安全警戒数＝库存数+备货数


目前是这麽参照的：
 1.设置表的DataColChanged事件代码：

Select Case e.DataCol.Name
Case "库存数","备货数"
If e.DataRow.IsNull("库存数") Then
e.DataRow("安全警戒数") = Nothing
Else
e.DataRow("安全警戒数") = e.DataRow("库存数").AddDays(e.DataRow("备货数"))
End If
End Select


2.

设置项目事件AfterOpenProject的代码，以便打开项目的时候，能够自动提示并显示即将到期的产品：

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("订货").Find("安全警戒数 <= #" & dt & "#")
If dr IsNot Nothing Then
MessageBox.Show("库存内有物料低於安全警戒!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("订货").Filter = "安全警戒数 <= #" & dt & "#"
MainTable = Tables("订货")
End If

[此贴子已经被作者于2013-6-9 16:59:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
delxkjhgq
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：153 积分：1013 威望：0 精华：0 注册：2012/11/6 14:55:00 		  发帖心情 Post By：2013/6/9 17:49:00 [只看该作者]

罗辑都不没有说清楚，叫人如何帮助。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/6/9 18:26:00 [只看该作者]

最好有个例子，否则别人好难理解的
 回到顶部
帅哥哟，离线，有人找我吗？
william627
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：8 积分：182 威望：0 精华：0 注册：2013/1/17 12:32:00 		  发帖心情 Post By：2013/6/10 22:52:00 [只看该作者]

已解决
首先在订单表 多设置一个表达式，类别为逻辑，名称魏为计算列1

表达式设置：
IsNull([库存数],0) + IsNull([备货数],0)  <  IsNull([安全警戒数],0) And [库存数] > -1


在项目事件AfterOpenProject设置代码：
Dim dt As Boolean = True 
Dim dr As DataRow = DataTables("订货").Find("计算列1 = '" & dt & "'")

If dr IsNot Nothing Then
   
MessageBox.Show("目前有物料低於安全警戒数,请立即订货!!!","提示!") '提示用户
    
Tables("订货").Filter = "计算列1 = '" & dt & "'"
    MainTable = Tables("订货")
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询