- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]QPEN QQ自定义信息提示窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125758)
-- 发布时间：2018/10/6 9:43:00
-- [求助]QPEN QQ自定义信息提示窗口
我弄了2个OPENQQ自定义提示··一个审核信息·把2个窗口都弹出来··请问老师·哪里出问题了··
项目事件SystemIdle·
If fhs.Count > 0 AndAlso Forms("新增订单").Opened = False Then
Dim pts() As String = fhs(0).Split("|")
fhs.RemoveAt(0)
With Forms("新增订单")
.Open()
.Controls("Label1").Text = pts(2) & "新增订单" & pts(1) & ",请审核!"
.Controls("Label2").Text = pts(0) \'将发货单主健设置为Label2的标题
End With
End If
If fhsa.Count > 0 AndAlso Forms("提示").Opened = False Then
Dim pts1() As String = fhsa(0).Split("|")
fhsa.RemoveAt(0)
With Forms("提示")
.Open()
.Controls("Label1").Text = pts1(2) & "新增订货单" & pts1(1) & ",请审核确认!"
.Controls("Label2").Text = pts1(0) \'将发货单主健设置为Label2的标题
End With
End If
-ReceivedMessage
Dim pts() As String = e.Message.Split("|")
If pts.Length = 4 AndAlso pts(0) = "+@" \'如果是申请审核消息
fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) \'将主健?单号和制单人合成为一个字符串存储在集合中
ElseIf pts.Length = 3 AndAlso pts(0) = "-@" \'如果是审核通过消息
PopMessage("生产通知单" & pts(1) & "已由" & pts(2) & "审核通过!")
Dim dr As DataRow = DataTables("生产通知单").Find("计划合同编号 = \'" & pts(1) & "\'")
If dr IsNot Nothing Then
dr.Load
End If
End If
Dim pts1() As String = e.Message.Split("|")
If pts1.Length = 4 AndAlso pts1(0) = "+@" \'如果是申请审核消息
fhsa.Add(pts(1) & "|" & pts1(2) & "|" & pts1(3)) \'将主健?单号和制单人合成为一个字符串存储在集合中
ElseIf pts1.Length = 3 AndAlso pts1(0) = "-@" \'如果是审核通过消息
PopMessage("采购订单表" & pts1(1) & "已由" & pts1(2) & "审核通过!")
Dim dr As DataRow = DataTables("采购订单表").Find("计划合同编号 = \'" & pts1(1) & "\'")
If dr IsNot Nothing Then
dr.Load
End If
End If
全局代码·
Public fhs As New List(of String)
Public fhsa As New List(of String)
生产通知单的审核也触发采购订单表的审核··请老师帮忙看看哪里没有弄好
我有2个PopupForm窗·一个是名字叫·提示·一个名字叫·新增订单·
[此贴子已经被作者于2018/10/6 9:45:52编辑过]
-- 发布时间：2018/10/6 11:25:00
--
你发送过来的信息，必须加上表名的信息，或者类型的信息，不然如何区分是生产的还是采购的？
比如之前的发送代码是这样
QQClient.Send("李四","+@|" & r("_Identify") & "|" & r("单号") & "|" & User.Name)
那你就要改成
QQClient.Send("李四","+@|" & r("_Identify") & "|" & r("单号") & "|" & User.Name & "|表名")
判断pts(4)是什么表名，对应做什么操作。
-- 发布时间：2018/10/6 13:13:00
-- 回复：（有点甜）你发送过来的信息，必须加上表名的信...
老师·我是不是改错了呢·怎么不提示呢·
·
我提交是这样的·
If MessageBox.Show(" 是否导提交到计划部门 !","提示",MessageBoxButtons.YesNo)=DialogResult.Yes Then
Dim r As Row = Tables("生产通知单").Current
r.Save()
QQClient.Send("生产部.李海荣","+@|" & r("_Identify") & "|" & r("计划合同编号") & "|" & User.Name & "|生产通知单" ,True)
End If
但是从来不现实提示框·
审核是这样的·
If MessageBox.Show(" 是否提交回执销售部 !","提示",MessageBoxButtons.YesNo)=DialogResult.Yes Then
Dim r As Row = Tables("生产通知单").Current
r("审核状态") = True
r.Save()
\'发送审核通过的消息
QQClient.Send("销售部.吴磊","+@|" & r("计划合同编号") & "|" & User.Name & "|生产通知单" ,True)
End If
----
可以出现显示框·
但出现的应该是提交那个显示框·他最后显示成审核提示样子
图片是审核完出现的提示框·
就是顺序出现反了·
提交没有出现提示·
此主题相关图片如下：1.png
此主题相关图片如下：2.png
[此贴子已经被作者于2018/10/6 13:13:29编辑过]
-- 发布时间：2018/10/6 13:34:00
-- 回复：（有点甜）你发送过来的信息，必须加上表名的信...
现在他出现2种同时出现·
RT
·
应该出现一种模式·现在全部触发·
此主题相关图片如下：采购.jpg
应该出现下面图的这种··
此主题相关图片如下：生产.jpg
[此贴子已经被作者于2018/10/6 13:34:56编辑过]
-- 发布时间：2018/10/6 14:24:00
--
修改代码比如
Dim pts() As String = e.Message.Split("|")
msgbox(e.message)
msgbox(pts.length)
If pts.Length = 5 AndAlso pts(0) = "+@" \'如果是申请审核消息
msgbox(pts(4))
fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) \'将主健?单号和制单人合成为一个字符串存储在集合中
ElseIf pts.Length = 4 AndAlso pts(0) = "-@" \'如果是审核通过消息
msgbox(pts(3))
PopMessage("生产通知单" & pts(1) & "已由" & pts(2) & "审核通过!")
Dim dr As DataRow = DataTables("生产通知单").Find("计划合同编号 = \'" & pts(1) & "\'")
If dr IsNot Nothing Then
dr.Load
End If
End If
-- 发布时间：2018/10/6 14:46:00
-- 回复：（有点甜）修改代码比如 Dim pts() As...
msgbox(e.message)
msgbox(pts.length)
---------------
是不是要重新定义下呢·不然他不出现自己弄的提示窗口
-- 发布时间：2018/10/6 14:49:00
--
1、5楼代码弹出什么？
2、不会做就做个实例发上来测试。
-- 发布时间：2018/10/6 14:51:00
-- 回复：（有点甜）1、5楼代码弹出什么？ 2、不...
弹出个这个·
此主题相关图片如下：qq截图20181006144056.jpg
-- 发布时间：2018/10/6 14:52:00
--
回复8楼，send的代码加上表名啊
-- 发布时间：2018/10/6 15:43:00
-- 回复：（有点甜）回复8楼，send的代码加上表名啊
甜老师·改表名字·也还会出现那个框·
·请老师帮忙看下实际情况
[此贴子已经被作者于2018/10/8 8:57:42编辑过]