'列出详情页面,可给自己接单,可给别人派单, 并要在这里通知 报障人
'这里是画接单的界面
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.title="接单&派单明细"
' wb.AppendHTML("<script src='http://res.wx.qq.com/open/js/jweixin-1.2.0.js'></script>",True) '引入JS-SDK库
' wb.AppendHTML("<script src='../ajax/libs/jssdk.js'></script>") '引入脚本文件 这个js文件是微信扫码功能自动调用的 'jssdk是用来往网页里各字段填充内容的
'msgbox(1) 可以弹出
If e.PostValues.Count = 0 Then '生成网页 供填写报障信息
'开始正常生成网页内容 '这里可能要改!
wb.AddForm("","form1","ITFailureInOrder.htm") ' .Attribute="" 'ITFailure.htm 是接收本表单数据的网页(需要在else里先验证数据是否有缺失), DeviceInfoQueryFunction 函数是用来弹出对话框提示提交是否成功
Dim dr_报障信息 As DataRow= DataTables("硬件报障记录表").SQLFind("_identify= '" & e.GetValues("RepairID") & "'") '注意Find 和sql find的区别? find估计只能找SN sqlfind估计可以找_identify
If dr_报障信息 IsNot Nothing Then '如果dr不为空
With wb.AddInputGroup("form1","ipg1","基本信息")
' msgbox(e.GetValues("RepairID")) ' 可以弹出 33 http://127.0.0.1/xdf/service/ITFailureInOrder.htm?RepairID=33.
msgbox(dr_报障信息("SN"))
' With .AddInput("id","单号","text") '报障单号
' .Value=dr_报障信息("_identify")
' ' .Readonly=True
' End With
.AddInput("id","单号","text").Value=dr_报障信息("_identify")
With .AddInput("number","sn","text") '二维码的SN号
.Value=dr_报障信息("SN")
.Readonly=True
End With
With .AddInput("sblx","设备类型","text")
.Value=dr_报障信息("设备类型")
.Readonly=True
End With
With .AddInput("sbxh","设备型号","text")
.Value=dr_报障信息("设备型号")
.Readonly=True
End With
With .AddInput("szl","所在楼","text")
.Value=dr_报障信息("所在楼")
.Readonly=True
End With
With .AddInput("szks","所在科室","text")
.Value=dr_报障信息("所在科室")
.Readonly=True
End With
With .AddInput("szfj","所在房间","text")
.Value=dr_报障信息("所在房间")
.Readonly=True
End With
With .AddInput("xm","姓名","text")
.Value=dr_报障信息("RemarkName")
.Readonly=True
End With
With .AddInput("gh","工号","text")
.Value=dr_报障信息("EmployeeID")
.Readonly=True
End With
With .AddInput("dh","电话","text")
.Value=dr_报障信息("电话")
.Readonly=True
End With
With .AddInput("ks","科室","text")
.Value=dr_报障信息("科室")
.Readonly=True
End With
With .AddInput("jlsj","记录时间","datetime-local")
.Value=dr_报障信息("记录时间")
.Readonly=True
End With
End With
With wb.AddInputGroup("form1","ipg2","故障描述")
.AddTextArea("gzms",2).Placeholder = dr_报障信息("故障描述")
' .Readonly=True
End With
End If
'在下面选择接单人
With wb.AddInputGroup("form1","ipg3","指定接单人")
.AddSelect("Repairman","接单人","冯夏13986806710|危泽13047154586|王真奇18986778780")
'''''''''''''''''''''''''''''''''''''''' Dim dr_维修人员信息 As DataRow= DataTables("运维人员字典").SQLFind("姓名 '" & & "'") '注意Find 和sql find的区别? find估计只能找SN sqlfind估计可以找_identify
' dr_维修人员信息("")
' .AddSelect("Repairman","接单人","冯夏13986806710|危泽13047154586|王真奇18986778780")
' With wb.AddInputGroup("form1","ipg1","动态列表")
With .AddSelect("Repairman","接单人","|冯夏|危泽|王真奇")
.Attribute = """ '同步模式,把Repairman(控件ID),传送给后台的TelNum网页,得到电话字段
End With
.AddInput("接单人电话","接单人电话","") '第一个是表中字段名,第二个是控件显示的标签名
' End With
.AddInput("jlsj","记录时间","datetime-local").Value = Format(Date.Now,"yyyy-MM-ddTHH:mm") '增加记录时间字段
' With wb.AddInputGroup("form1","ipg3","预计上门时间")
.AddSelect("ArrivalTime","等候时间","10~30分钟|30~60分钟|下个半天")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "提交", "submit")
End With
Else '显示提交成功或失败的网页
msgbox(3)
'msgbox(e.PlainText) 用来测试一下PlainText 里面是不是仅仅是条码号,用来和下面else的内容进行区分.
'提交之前的表单校验
Dim nms() As String = {"id","RepairMan","ArrivalTime"} '网页上的控件ID(单号ID),维修Repairman(维修人)
For Each nm As String In nms
If e.PostValues(nm)="" Then '生成错误提示页
e.WriteString("请输入" & nm & "!")
Return "wrong" '必须返回,不再往下执行
End If
Next
'msgbox("验证成功")
'校验通过则存到数据库中
' nms= new String(){"接单人"}
Dim dr_报障信息 As DataRow= DataTables("硬件报障记录表").Find("[_identify]= '" & e.PostValues("id") & "'")
If dr_报障信息 IsNot Nothing Then '如果dr不为空
dr_报障信息("接单人")=e.PostValues("RepairMan")
dr_报障信息("预计上门时间")=e.PostValues("ArrivalTime")
dr_报障信息.Save()
msgbox(dr_报障信息("ID"))
'发送模板消息的函数
Functions.Execute("微信模版_接单通知",e.Cookies("openid"),dr_报障信息("_identify"),dr_报障信息("接单人"),dr_报障信息("接单人手机"),dr_报障信息("预计上门时间"),dr_报障信息("设备类型"),dr_报障信息("故障描述"))
With wb.AddMsgPage("","msgpage","接单成功", "正常情况下,报障人将收到接单成功通知!") '增加接单成功的跳转提示信息
'.AddButton("btn1","继续报障","ITFailure.htm")
.AddButton("btn1","返回服务列表","ApplyService.htm")
End With
End If
End If
' wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的数据
' wb.AppendHTML("<script src='../ajax/libs/DeviceInfoQuery.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
加好友 
发短信
Post By：2019/7/22 11:47:00 [只看该作者]
