Case "swfwwgqr.htm" '<商务服务下单>,<商务服务抢单>,<商务服务完工申请>,<商务服务完工确认>四个环节.
'/**显示【商务服务完工申请】页面
If e.PostValues.count = 0 Then
'//** 以下部分必须放在"e.PostValues.count = 0 "之后,否则e.PostValues.count <> 0时不能正常显示
'//** 建立数据链接
Dim drs As List(of DataRow) '集合
drs = DataTables("商务服务工单").Select("[服务结束日期] Is not null And [服务结束确认日期] Is null","[记录编号]")
Dim cod As String
If drs.Count<1 Then
With wb.AddMsgPage("","msg_add","温馨提示", "当前没有可申请完工结算的工单,请您确认已有抢单,再点击查看,下次祝您好运,【返回首页】")
.AddButton("btn3","返回首页","default.htm").Kind=1
End With
e.WriteString(wb.Build)
Return ""
End If
For i As Integer = 0 To drs.Count - 1 '重算余下行的余额
cod = cod & "|" & drs(i)("记录编号")
Next
'服务节点内容={"采购编号","采购方式","合同标的物","服务内容","标准服务费","接单服务费"}
wb.InsertHTML("<h3 align='center' style='margin-top:5px;background-color:blue;color:white' '>商务服务工单详情</h3>")
wb.AddForm("","form1","swfwwgqr.htm")
With wb.AddInputGroup("form1","ig1","工单已完数据:" & dat.Date)
With .AddSelect("记录编号","工单号",cod)
.Attribute = "" '调用js函数,获取【完工申请】信息
End With
.AddInput("采购编号","采购编号","text").Readonly=True
.AddInput("采购方式","采购方式","text").Readonly=True
.AddInput("合同标的物","合同标的物","text").Readonly=True
.AddInput("填报日期","下单时间","datetime-local").Readonly=True
.AddInput("填报人","下单人","text").Readonly=True
.AddInput("服务内容","服务内容","text").Readonly=True
.AddInput("标准服务费","标准服务费","number").Readonly=True
.AddInput("接单服务费","接单服务费","number").Readonly=True
.AddInput("审核日期","抢单时间","datetime-local").Readonly=True
.AddInput("审核人","抢单人","text").Readonly=True
.AddInput("服务结束日期","服务结束日期","datetime-local").Readonly=True
.AddInput("合同编号","合同编号","text").Readonly=True
.AddInput("合同金额","合同金额","number").Readonly=True
.AddInput("实际结算服务费","实际结算服务费","number").Readonly=True
.AddInput("供应商名称","供应商名称","text").Readonly=True
End With
With wb.AddInputGroup("form1","ig2","确认意见:" )
.AddInput("完工确认意见","完工确认意见","text")
.AddInput("服务评价","服务评价(分)","number")
.AddInput("服务评价建议","服务评价建议","text")
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "同意", "submit")
'.Add("btn2","取消").Attribute=""
.Add("btn2","不同意","","disagree.htm")
End With
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文
e.WriteString(wb.Build) '生成网页
'Return ""
Else
'/**
Dim dr As DataRow= DataTables("商务服务工单").Find("记录编号='" & e.PostValues("记录编号") & "'")
If dr IsNot Nothing Then
dr("服务结束确认日期")=dat
dr("完工确认意见")=iif(dr.IsNull("完工确认意见"),"",dr("完工确认意见") & "|") & e.PostValues("完工确认意见")
dr("服务评价")=e.PostValues("服务评价")
dr("服务评价建议")=e.PostValues("服务评价建议")
'''///OpenQQ消息推送
' Dim r As Row = dr. .Current
Dim p As String = IIF( dr.RowState = DataRowState.Added, "A#", "U#")
dr.Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & dr.DataTable.Name & "#" & dr("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
'/**
With wb.AddMsgPage("","msg_add","温馨提示", "完工确认已成功提交,请【返回首页】")
.AddButton("btn2","返回首页","default.htm").Kind=1
End With
Else
With wb.AddMsgPage("","msg_add","温馨提示", "完工确认提交未成功,请【返回首页】")
.AddButton("btn2","返回首页","default.htm").Kind=1
End With
End If
e.WriteString(wb.Build)
Return "" '这是必须的
End If
Case "gdwgqr.htm" '工单完工确认
Dim codfil As String ="记录编号='" & e.PostValues("记录编号") & "'"
Dim dr As DataRow = DataTables("商务服务工单").Find(codfil)
If dr IsNot Nothing Then
Dim bh As String=iif(dr.IsNull("采购编号"),"***",dr("采购编号"))
Dim fs As String=iif(dr.IsNull("采购方式"),"***",dr("采购方式"))
Dim bdw As String=iif(dr.IsNull("合同标的物"),"***",dr("合同标的物"))
Dim tbrq As Date =iif(dr.IsNull("填报日期"),dat,dr("填报日期"))
Dim tbr As String =iif(dr.IsNull("填报人"),"***",dr("填报人"))
Dim fwnr As String=iif(dr.IsNull("服务内容"),"***",dr("服务内容"))
Dim bzfwf As Double=iif(dr.IsNull("标准服务费"),0,dr("标准服务费"))
Dim jdfwf As Double=iif(dr.IsNull("接单服务费"),0,dr("接单服务费"))
Dim shrq As Date = iif(dr.IsNull("审核日期"),dat,dr("审核日期"))
Dim shr As String=iif(dr.IsNull("审核人"),"***",dr("审核人"))
Dim fwjsri As Date = iif(dr.IsNull("服务结束日期"),dat,dr("服务结束日期"))
Dim htbh As String=iif(dr.IsNull("合同编号"),"***",dr("合同编号"))
Dim htje As Double=Iif(dr.IsNull("合同金额"),0,dr("合同金额"))
Dim jsfwf As Double=iif(dr.IsNull("实际结算服务费"),0,dr("实际结算服务费"))
Dim gysmc As String=iif(dr.IsNull("供应商名称"),"***",dr("供应商名称"))
Dim pps As String = bh & "|" & fs & "|" & bdw & "|" & tbrq & "|" & tbr & "|" & fwnr & "|" & bzfwf & "|" & jdfwf & "|" & shrq & "|" & shr & "|" & _
fwjsri & "|" & htbh & "|" & htje & "|" & jsfwf & "|" & gysmc
e.WriteString(pps)
End If
Case "disagree.htm"
Dim dr As DataRow= DataTables("商务服务工单").Find("记录编号='" & e.PostValues("记录编号") & "'")
If dr IsNot Nothing Then
dr("完工确认意见")=iif(dr.IsNull("完工确认意见"),"",dr("完工确认意见") & "|") & "# " & dat.Date & "@" & e.PostValues("完工确认意见")
'''///OpenQQ消息推送
' Dim r As Row = dr. .Current
Dim p As String = IIF( dr.RowState = DataRowState.Added, "A#", "U#")
dr.Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & dr.DataTable.Name & "#" & dr("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
'/**
With wb.AddMsgPage("","msg_add1","温馨提示", "完工确认【不同意】已成功提交,请【返回首页】")
.AddButton("btn3","返回首页","default.htm").Kind=1
End With
End If
加好友 
发短信
Post By：2018/12/17 0:39:00 [只看该作者]
此主题相关图片如下：例1.png
