- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 使用open QQ 不能显示正常编号，之前一直正常 现在其中几个出库单号异常显示00010101 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=137757)
-- 发布时间：2019/7/15 8:15:00
-- 使用open QQ 不能显示正常编号，之前一直正常 现在其中几个出库单号异常显示00010101
此主题相关图片如下：7yu$vpwn82ma3{u9hpck16.png
Dim cmd4 As New SQLCommand
Dim dt5 As Date
Dim dt6 As Date
Dim dt7 As Date
cmd4.C
cmd4.CommandText = "Select GetDate()"
dt5 = cmd4.ExecuteScalar()
dt6 = dt5.Date
dt7 = dt5.now
Dim bh As String = Format(dt6,"yyyyMMdd")
Dim rt As String = QQClient.SendWait(":c" & bh & "c:")
Dim id1 As Integer
If rt > "" Then
If Integer.TryParse(rt,id1) Then
fdr1("出库单号") = "CK" & bh & "-" & Format(id1,"000")
fdr1("日期") = dt6
fdr1("单号日期") = dt6
fdr1("出库单制作者") = Vars("_姓名")
fdr1("制作时间") = dt7
End If
End If
End If
-- 发布时间：2019/7/15 8:16:00
--
cmd4.C
-- 发布时间：2019/7/15 8:39:00
--
Dim rt As String = QQClient.SendWait(":c" & bh & "c:")
msgbox(rt)这里显示什么
服务端代码贴上来看看
-- 发布时间：2019/7/15 16:29:00
--
Public ckbhs As New Dictionary(of String,Integer)
-- 发布时间：2019/7/15 16:35:00
--
Dim cmd4 As New SQLCommand
cmd4.C
-- 发布时间：2019/7/15 16:37:00
--
文件
-- 发布时间：2019/7/15 16:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档 (7).zip |
-- 发布时间：2019/7/15 16:42:00
--
代码上传不了 只能全部放到文本里
分别是 AfterOpenProject事件 全局代码
Server_ReceivedMessage
|
Dim rt As String = QQClient.SendWait(":c" & bh & "c:")
msgbox(rt)这里显示什么
rt 正常情况下就是一个日期编号 例如20190715之类的 使用一年多，第一次出现 00010101这种情况 |
-- 发布时间：2019/7/15 17:08:00
--
这个好像和服务端没有关系，是数据库的问题
Dim cmd4 As New SQLCommand
Dim dt5 As Date
cmd4.C
cmd4.CommandText = "Select GetDate()"
dt5 = cmd4.ExecuteScalar()
msgbox(dt5) \'这里返回的日期是否正确
-- 发布时间：2019/7/15 17:17:00
--
一年多返回的都是正常的日期时间，出了这个错误后。检查了服务器的时间设置，其他单据单号设置 都没有问题