<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include file="JsonPost.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
<%
|
DispatchOrdID = trim(request("DispatchOrdID"))
|
JsonKey = trim(request("JsonKey"))
|
|
If DispatchOrdID="" Then
|
Response.Redirect "/DispatchOrder_List.gds?SystemMessageType=4&SMT=1"
|
End If
|
'session("JsonKey")="1"
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select DispatchOrdCar=(select CarLicense from CarData where CarID=DispatchOrdCarID),DispatchOrdClass,DispatchOrdID,DispatchOrdState,DispatchOrdTraSDTime,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrd_NS_Time,DispatchOrdNo,ServiceOrdTraDistance=(select ServiceOrdTraDistance from ServiceOrder where ServiceOrdID=ServiceOrdIDDt ),ServiceOrdPtOutHosp=(select ServiceOrdPtOutHosp from ServiceOrder where ServiceOrdID=ServiceOrdIDDt ) from DispatchOrd where DispatchOrdID="&DispatchOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
DispatchOrdClass = rs("DispatchOrdClass")
|
DispatchOrdID = rs("DispatchOrdID")
|
DispatchOrdState = rs("DispatchOrdState")
|
SDTime = rs("DispatchOrdTraSDTime")
|
DispatchOrdTraStreet= rs("DispatchOrdTraStreet")
|
DispatchOrdTraEnd = rs("DispatchOrdTraEnd")
|
ServiceOrdTraDistance=rs("ServiceOrdTraDistance")
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp")
|
DispatchOrdCar = rs("DispatchOrdCar")
|
DispatchOrdNo = DispatchOrdClass& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '调度单编号
|
|
If SDTime<>"" Then
|
DispatchOrdTraSDTime=year(SDTime)&"年"&month(SDTime)&"月"&day(SDTime)&"日"
|
If hour(SDTime)>0 Then DispatchOrdTraSDTime=DispatchOrdTraSDTime&" "&hour(SDTime)&"时"
|
If minute(SDTime)>0 Then DispatchOrdTraSDTime=DispatchOrdTraSDTime&minute(SDTime)&"分"
|
If DateDiff("d",Date(),formatdatetime(SDTime,2))=0 Then DispatchOrdTraSDTime=DispatchOrdTraSDTime&"(今天)"
|
If DateDiff("d",Date(),formatdatetime(SDTime,2))=1 Then DispatchOrdTraSDTime=DispatchOrdTraSDTime&"(明天)"
|
If DateDiff("d",Date(),formatdatetime(SDTime,2))=2 Then DispatchOrdTraSDTime=DispatchOrdTraSDTime&"(后天)"
|
End if
|
|
If ServiceOrdPtOutHosp<>"0" And ServiceOrdPtOutHosp<>"" And ServiceOrdPtOutHosp<>"4" Then
|
PtOutHosp="\n转出医院："&HospA(ServiceOrdPtOutHosp,"HospName")
|
End if
|
|
Else
|
Response.Redirect "/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=9"
|
End If
|
rs.close()
|
|
sql="select EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and OA_weixinStatus=1 and EntourageID in (1,2) and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" GROUP BY EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
EntourageOAid = rs("EntourageOAid")
|
EntourageLead = rs("EntourageLead")
|
OA_weixinUserID = rs("OA_weixinUserID")
|
touser=touser&OA_weixinUserID&"|"
|
rs.movenext
|
loop
|
rs.close()
|
'touser="ylkx_vicgame"&"|"
|
'touser=touser&"ylkx_vicgame"&"|"
|
If touser="" Then Response.Redirect "/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&closeWindow=YES"
|
touser=Mid(touser,1,Len(touser)-1)
|
|
'微信OA信息下发接口
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token="&access_token
|
|
args1="{"
|
args1=args1&"""touser"": """&touser&"""," '成员ID列表（消息接收者，多个接收者用‘|’分隔，最多支持1000个）。特殊情况：指定为@all，则向关注该企业应用的全部成员发送 |liaojunliang
|
args1=args1&"""toparty"": """"," '部门ID列表，多个接收者用‘|’分隔，最多支持100个。当touser为@all时忽略本参数
|
args1=args1&"""totag"": """"," '标签ID列表，多个接收者用‘|’分隔。当touser为@all时忽略本参数
|
args1=args1&"""agentid"": 21," '企业应用的id，整型。可在应用的设置页面查看
|
|
args1=args1&"""msgtype"": ""news"","
|
args1=args1&"""news"": {"
|
args1=args1&"""articles"":["
|
args1=args1&"{"
|
args1=args1&"""title"": ""【车况检查】"&DispatchOrdNo&""","
|
'args1=args1&"""description"": ""你收到了一个调度请求，拟出发时间："&DispatchOrdTraSDTime&"，快去看看吧～"","
|
args1=args1&"""description"": ""请检查"&DispatchOrdCar&"车况,并拍照上传"","
|
args1=args1&"""url"": """&WEBURL&"/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&""","
|
args1=args1&"""picurl"": """""
|
args1=args1&"}"
|
args1=args1&"]"
|
args1=args1&"}"
|
|
args1=args1&"}"
|
'Response.Write args1 &"<br><br>"
|
'Response.end
|
HTMLCODE= PostBody(appUrl,args1)
|
'Response.Write HTMLCODE &"<br>"
|
'Response.end
|
If Mid(HTMLCODE,12,1)<>"0" Then
|
Call OA_Running("weixin_message_send|21|"&touser&"|"&HTMLCODE)
|
'Response.Write HTMLCODE
|
End If
|
If JsonKey="PC" then
|
Response.Redirect "/DispatchOrder_End.gds?DispatchOrdID="&DispatchOrdID&"&h_menu1_1=1&SystemMessageType=3&SMT=9"
|
Else
|
Response.Redirect "/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&closeWindow=YES"
|
End If
|
%>
|
