<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<%
'Response.Cookies("OA")("adminID")=""
'Response.end
ServiceOrdID=request("ServiceOrdID")
NEWOrder=request("NEWOrder")
DispatchOrdID=request("DispatchOrdID")
closeWindow=SafeRequest(Request("closeWindow"))
OrdEdit=SafeRequest(Request("OrdEdit"))
OldOrder=request("OldOrder")
admin_save=request("admin_save")
state=request("state")
If state<>"" Then
stateSP=split(state,"|")
for i = 0 to UBOUND(stateSP)
If InStr(stateSP(i),"DispatchOrdID=")=1 Then
DispatchOrdID=Replace(stateSP(i),"DispatchOrdID=","")
ElseIf InStr(stateSP(i),"closeWindow=")=1 Then
closeWindow=Replace(stateSP(i),"closeWindow=","")
ElseIf InStr(stateSP(i),"ServiceOrdID=")=1 Then
ServiceOrdID=Replace(stateSP(i),"ServiceOrdID=","")
ElseIf InStr(stateSP(i),"NEWOrder=")=1 Then
NEWOrder=Replace(stateSP(i),"NEWOrder=","")
ElseIf InStr(stateSP(i),"OrdEdit=")=1 Then
NEWOrder=Replace(stateSP(i),"OrdEdit=","")
ElseIf InStr(stateSP(i),"OldOrder=")=1 Then
OldOrder=Replace(stateSP(i),"OldOrder=","")
End If
Next
End If
%>
企微提交测试
<%
Set rs = Server.CreateObject("ADODB.Recordset")
'sql="select DispatchOrdID,ServiceOrdID,ServiceOrdTraUnitPrice=ServiceOrdTraTxnPrice/OrdDistance,ServiceOrdTraTxnPrice,OrdDistance from (select DispatchOrdID,ServiceOrdID,ServiceOrdTraUnitPrice,ServiceOrdTraTxnPrice,OrdDistance=case when PATINDEX('%[^0-9|.|-|+]%',Replace(Replace(ServiceOrdTraDistance,'公里',''),'km',''))=0 then convert(money,Replace(Replace(ServiceOrdTraDistance,'公里',''),'km','')) else -1 end from ServiceOrder,DispatchOrd where ServiceOrdType in (select vID from dictionary where vType=1 and vtitle='ServiceOrderType') and ServiceOrd_NS_Time>='2021-8-4' and ServiceOrd_NS_Time<'2021-8-7' and ServiceOrdID=ServiceOrdIDDt ) as aa where ServiceOrdTraTxnPrice>0 and OrdDistance>0 order by OrdDistance desc"
sql="select ServiceOrdID,ServiceOrdTaskRemarks from ServiceOrder,DispatchOrd where ServiceOrdID=ServiceOrdIDDt and DispatchOrd_NS_Time>='2022-11-1' and DispatchOrd_NS_Time<'2022-11-30'"
'sql="select ServiceOrdID,ServiceOrdTaskRemarks from ServiceOrder,DispatchOrd where ServiceOrdID=ServiceOrdIDDt and DispatchOrdID=3016083301"
sql="select DispatchOrdID,ServiceOrdID,ServiceOrdClass,ServiceOrdState,ServiceOrdAreaType,ServiceOrdType,ServiceOrdStartDate,ServiceOrdTraStreet,ServiceOrdTraEnd,ServiceOrdTraVia,ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrdTraUnitPrice,ServiceOrdTraTxnPrice=ServiceOrdTraTxnPrice+isnull((select sum(AddMoney) from PaidMoney_Add,DispatchOrd where AddMoneyType=1 and ToDispatchOrdID=DispatchOrdID and ServiceOrdID=ServiceOrdIDDt),0),ServiceOrdOperationRemarks,ServiceOrdTraDistance,OrderLevel from ServiceOrder,DispatchOrd where ServiceOrdID=ServiceOrdIDDt and DispatchOrd_NS_Time>='2024-7-1' and DispatchOrdClass='SA' And (DispatchOrdState=8 Or DispatchOrdState=9)"
rs.open sql,objConn,1,1
do while not rs.Eof
DispatchOrdID=rs("DispatchOrdID")
DispatchOrdPerfomance=rs("ServiceOrdTraTxnPrice")
Response.Write DispatchOrdID&" "&DispatchOrdPerfomance&"