<%@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
|
|
%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<!--#include virtual="/inc/core.asp"-->
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
<meta name="viewport" content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, user-scalable=no">
|
<title>企微提交测试</title>
|
<link href="css/main.css" type="text/css" rel="stylesheet">
|
</head>
|
<body>
|
<%
|
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&"<br><br>"
|
'人员绩效
|
call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
|
|
|
rs.movenext
|
Loop
|
rs.close()
|
%>
|
</body>
|
