Foxtable(狐表)用户栏目专家坐堂 → 如何在记录保存时再生成单据编号?


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

主题:如何在记录保存时再生成单据编号?

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


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
如何在记录保存时再生成单据编号?  发帖心情 Post By:2012/2/8 16:03:00 [只看该作者]

帮助中有如下示例:


假定有个表,需要按月自动生成编,四位年,两位月,最后三位是顺序,如下图所示:


要自动生成上述编,只需将表事件DataColChanged的代码设置为:

If e.DataCol.Name = "日期" Then
    If
 e.DataRow.IsNull("日期"Then
        e.
DataRow("编") = Nothing
    Else
        Dim
 d As Date = e.DataRow("日期")
        Dim
 y As Integer = d.Year
        Dim
 m As Integer = d.Month
        Dim
 Days As Integer = Date.DaysInMonth(y,m)
        Dim
 fd As Date = New Date(y,m,1'获得该月的第一天
        
Dim ld As Date = New Date(y,m,Days'获得该月的最后一天
        
Dim bh As String = Format(d,"yyyyMM"'生成编的前6位,4位年,2位月.
        
If e.DataRow("编").StartsWith(bh) = False '如果编的前6位不符
            
Dim max As String
            
Dim idx As Integer
            max = e.
DataTable.Compute("Max(编)","日期 >= #" & fd & "# And 日期 <= #" & ld & "#"'取得该月的最大编
            
If max > "" Then '如果存在最大编
                idx = CInt(max.Substring(
7,3)) + 1 '获得最大编的后三位顺序,并加1
            
Else
                idx = 
1 '否则顺序等于1
            
End If
            e.
DataRow("编") = bh & "-" & Format(idx,"000")
        End
 If
    End
 If
End
 If

本页地址:http://www.foxtable.com/help/topics/0194.htm


 回到顶部
帅哥,在线噢!
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/8 16:11:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
  发帖心情 Post By:2012/2/8 17:26:00 [只看该作者]

 用上述方法,还是会出现重编码(一用户正在新增记录,此时服务单号尚未生成,另一用户在前一用户未保存之前新增记录先保存,结果两者服务单号一样)
BeforeSaveDataRow事件如下: 
If e.DataRow.IsNull("服务日期") Then
        e.DataRow("服务单号") = Nothing
    Else
        Dim d As Date = e.DataRow("服务日期")
        Dim y As Integer = d.Year
        Dim m As Integer = d.Month
        Dim Days As Integer = Date.DaysInMonth(y,m)
        Dim fd As Date = New Date(y,m,1) '获得该月的第一天
        Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
        Dim bh As String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
        If e.DataRow("服务单号").StartsWith(bh) = False '如果编号的前6位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(服务单号)","服务日期 >= #" & fd & "# And 服务日期 <= #" & ld & "#") '取得该月的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1  '无前缀KF时 idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("服务单号") = "KF" & bh & "-" & Format(idx,"000") '无前缀KF时  e.DataRow("服务单号") = bh & "-" & Format(idx,"000")
        End If
    End If

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


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
  发帖心情 Post By:2012/2/8 17:27:00 [只看该作者]

使用的是窗口中的table副本

 回到顶部
帅哥,在线噢!
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/8 17:33:00 [只看该作者]


 回到顶部