<%@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"))
|
EntourageOAid_NEW = trim(request("EntourageOAid_NEW"))
|
|
If EntourageOAid_NEW<>"" And DispatchOrdID<>"" Then
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select 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),ServiceOrdPtInHosp=(select ServiceOrdPtInHosp from ServiceOrder where ServiceOrdID=ServiceOrdIDDt ) from DispatchOrd where DispatchOrdState<=3 and 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")
|
ServiceOrdPtInHosp = rs("ServiceOrdPtInHosp")
|
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
|
If ServiceOrdPtInHosp<>"0" And ServiceOrdPtInHosp<>"" And ServiceOrdPtInHosp<>"814" Then
|
DispatchOrdTraEnd=HospA(ServiceOrdPtInHosp,"HospName")
|
End If
|
|
Else
|
'Response.Redirect "/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=9"
|
Response.End()
|
End If
|
rs.close()
|
|
sql="select EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and EntourageState=3 and DispatchOrdIDDt="&DispatchOrdID&" and EntourageOAid="&EntourageOAid_NEW&" 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")
|
EntourageState = rs("EntourageState")
|
touser=touser&OA_weixinUserID&"|"
|
rs.movenext
|
loop
|
rs.close()
|
If touser="" Then Response.End()
|
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&"{"
|
If DispatchOrdClass="SP" Then
|
args1=args1&"""title"": ""【驻点调度请求】"&DispatchOrdNo&""","
|
args1=args1&"""description"": ""驻点时间："&DispatchOrdTraSDTime&"\n驻点地："&DispatchOrdTraEnd&""","
|
else
|
args1=args1&"""title"": ""【新调度请求】"&DispatchOrdNo&""","
|
args1=args1&"""description"": ""拟出发时间："&DispatchOrdTraSDTime&"\n出发地："&DispatchOrdTraStreet&PtOutHosp&"\n目的地："&DispatchOrdTraEnd&"（约"&ServiceOrdTraDistance&"）"","
|
End if
|
args1=args1&"""url"": """&WEBURL&"/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&""","
|
args1=args1&"""picurl"": """""
|
args1=args1&"}"
|
args1=args1&"]"
|
args1=args1&"}"
|
|
args1=args1&"}"
|
|
|
HTMLCODE= PostBody(appUrl,args1)
|
|
If Mid(HTMLCODE,12,1)<>"0" Then
|
Call OA_Running("weixin_message_send|21|"&touser&"|"&HTMLCODE)
|
'Response.Write HTMLCODE
|
End If
|
'Response.Write HTMLCODE &"<br>"
|
End If
|
%>
|
