Foxtable(狐表)用户栏目专家坐堂 → 局域网开单订单号冲突


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

主题:局域网开单订单号冲突

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


加好友 发短信
等级:童狐 帖子:228 积分:2057 威望:0 精华:0 注册:2017/8/18 17:51:00
局域网开单订单号冲突  发帖心情 Post By:2018/7/27 16:45:00 [只看该作者]


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


 


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

如上图所示,局域网内A和B同时开单,当A,B先后点Save按钮保存时,报错存在相同的订单号。怎么解决这个问题。

订单号采用内部函数自动生成。

 

[此贴子已经被作者于2018/7/27 16:46:04编辑过]

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


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

你订单号生成有问题。

 

生成订单号以后,请立马保存本行数据。

 

如果提示确实偶尔存在相同订单号的情况,你可以重新获取生成一个订单号。


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


加好友 发短信
等级:童狐 帖子:228 积分:2057 威望:0 精华:0 注册:2017/8/18 17:51:00
  发帖心情 Post By:2018/7/27 17:42:00 [只看该作者]

我是先生成销售明细表,后生成销售订单的。

添加明细的时候就保存当前行了。

Add Product 按钮代码:

        Dim tbl As Table = Tables("销售明细表")
        Dim r As Row = tbl.AddNew()
        r("订单号") = e.Form.Controls("TextBox2").Text
        r("产品型号") = e.Form.Controls("dropbox2").Text
        r("产品类别") = e.Form.Controls("产品类别").Text
        r("单价成本") = e.Form.Controls("单价成本").Text
        r("销售单价") = e.Form.Controls("TextBox5").Text
        r("数量") = e.Form.Controls("NumericComboBox2").Text
        'r("已提数量") = e.Form.Controls("NumericComboBox1").Text
        If tbl.Current IsNot Nothing Then
            tbl.Current.Save()
        End If
        If e.Form.Controls("NumericComboBox1").Value <> 0 Then
            Dim tb As Table = Tables("订单出库明细表")
            Dim r1 As Row = tb.AddNew()
            r1("提货日期") = e.Form.Controls("datetimepicker1").Text
            r1("订单号") = e.Form.Controls("TextBox2").Text
            r1("产品型号") = e.Form.Controls("dropbox2").Text
            r1("数量") = e.Form.Controls("NumericComboBox2").Text
            r1("已提数量") = e.Form.Controls("NumericComboBox1").Text
            If tb.Current IsNot Nothing Then
                tb.Current.Save()
            End If
        End If

   


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


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

1、只有同时开单的时候才生成相同编号?其余时候会不会生成相同编号?

 

2、如果生成相同编号了,你可以重新获取一个编号赋值回去。

 

3、不然参考

 

http://www.foxtable.com/webhelp/scr/1994.htm

 

http://www.foxtable.com/webhelp/scr/3008.htm

 


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


加好友 发短信
等级:童狐 帖子:228 积分:2057 威望:0 精华:0 注册:2017/8/18 17:51:00
  发帖心情 Post By:2018/7/27 18:10:00 [只看该作者]

1、只有多人同时开单的时候订单号才会冲突,其余时候不会。

2、订单号生成是自动的,怎么才能重新获取一个编号呢

3、尝试过网络环境下的复杂编号,不知道窗口中的订单号控件怎么和表中的订单号结合起来


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


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

你的订单号如何生成的?用什么代码生成的?

 

你重新执行代码以后得到编号重新赋值进去。


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


加好友 发短信
等级:童狐 帖子:228 积分:2057 威望:0 精华:0 注册:2017/8/18 17:51:00
  发帖心情 Post By:2018/7/27 19:35:00 [只看该作者]

不知道什么原因代码发不上来。截图发上来

内部函数:计算自动增长,代码如下

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

 

窗口AfterLoad

Dim ddh As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim bh As String = Format(Date.Today,"TCyyMMdd")
ddh.Text = Functions.Execute("计算自动增长","销售订单","订单号",bh,4,2,"database")


[此贴子已经被作者于2018/7/27 19:37:17编辑过]

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


加好友 发短信
等级:童狐 帖子:228 积分:2057 威望:0 精华:0 注册:2017/8/18 17:51:00
  发帖心情 Post By:2018/7/27 19:45:00 [只看该作者]

如果采用“网络环境下的复杂编号”的例子,窗口中的订单号控件怎么和销售订单表的订单号列结合起来(窗口的订单号和销售订单表的订单号列一样)。

采用控件绑定订单号列行不通。

[此贴子已经被作者于2018/7/27 20:10:25编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110648 积分:563148 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/27 20:50:00 [只看该作者]

销售订单表的订单号列是怎么生成订单号的,为什么行不通?

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


加好友 发短信
等级:童狐 帖子:228 积分:2057 威望:0 精华:0 注册:2017/8/18 17:51:00
  发帖心情 Post By:2018/7/27 21:32:00 [只看该作者]

如果采用帮助文件的“网络环境下的复杂编号”的例子,销售订单表的订单号列当你增加行时会自动生成订单号,如果窗口订单号控件绑定此列,那么窗口中显示的订单号并不是新增行的订单号,二是上一行的订单号。

 回到顶部
总数 19 1 2 下一页