- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助，根据时间自动生成单piao号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116912)
-- 发布时间：2018/4/2 16:41:00
-- 求助，根据时间自动生成单piao号
这个实现了，现在想要把时间精细一点，需要加上具体的时间，之前只是记录年月日，请问如何解决，票号还是按照之前的方式生成 ，就是在入库 和出库订单两个表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新库存管理系统.table |
-- 发布时间：2018/4/2 16:52:00
--
If e.DataCol.Name = "出库时间" Then
If e.DataRow.IsNull("出库时间") Then
e.DataRow("出库票号") = Nothing
Else
Dim bh As String = "CK" & Format(e.DataRow("出库时间"),"yyMMddHHmmss") \'取得编号的8位前缀
If e.DataRow("出库票号").StartsWith(bh) = False \'如果编号的前8位不符
Dim max As String
Dim idx As Integer
Dim d As Date = e.DataRow("出库时间")
max = e.DataTable.Compute("Max(出库票号)","出库时间 >= #" & d & "# and 出库时间 < #" & d.adddays(1) & "#") \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(bh.length,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("出库票号") = bh & Format(idx,"000")
End If
End If
End If
-- 发布时间：2018/4/2 16:52:00
--
出库时间列，要修改列属性
http://www.foxtable.com/webhelp/scr/0044.htm
-- 发布时间：2018/4/3 14:05:00
--
我想用DATETIME 但是现在票号编码和我想要的不一样了，票号编码只要当前日期的顺序排列,不要时间在票号里面
-- 发布时间：2018/4/3 14:12:00
--
改成
If e.DataCol.Name = "出库时间" Then
If e.DataRow.IsNull("出库时间") Then
e.DataRow("出库票号") = Nothing
Else
Dim bh As String = "CK"
If e.DataRow("出库票号").StartsWith(bh) = False \'如果编号的前8位不符
Dim max As String
Dim idx As Integer
Dim d As Date = e.DataRow("出库时间")
max = e.DataTable.Compute("Max(出库票号)","出库时间 >= #" & d & "# and 出库时间 < #" & d.adddays(1) & "#") \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(bh.length,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("出库票号") = bh & Format(idx,"000")
End If
End If
End If
-- 发布时间：2018/4/3 14:44:00
--
可能我没说清，我的意思是出库票号要ck180403001 这样的，因为我用DATETIME 出库票号是CK1804031440001 这样票号变化太大
-- 发布时间：2018/4/3 15:01:00
--
改成
If e.DataCol.Name = "出库时间" Then
If e.DataRow.IsNull("出库时间") Then
e.DataRow("出库票号") = Nothing
Else
Dim bh As String = "CK" & Format(e.DataRow("出库时间"),"yyMMdd") \'取得编号的8位前缀
If e.DataRow("出库票号").StartsWith(bh) = False \'如果编号的前8位不符
Dim max As String
Dim idx As Integer
Dim d As Date = e.DataRow("出库时间")
max = e.DataTable.Compute("Max(出库票号)","出库时间 >= #" & d & "# and 出库时间 < #" & d.adddays(1) & "#") \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(bh.length,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("出库票号") = bh & Format(idx,"000")
End If
End If
End If
-- 发布时间：2018/4/3 15:27:00
--
这样改后 点新增是没问题，一旦下面添加货物后 第二个订单就显示多个父行 票号没有改变
-- 发布时间：2018/4/3 15:31:00
--
1、先删除你原来的所有编号，然后重新生成新的编号。
2、如果还有出错提示，上传你做好的项目看看。
-- 发布时间：2018/4/3 16:16:00
--
麻烦了亲