<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
OrdType=Request("OrdType")
|
sqlWhere=Request("sqlWhere")
|
OrdClassListSql=Request("OrdClassListSql")
|
If OrdType="DispatchOrder_List" Then
|
sql="select Sum_OrdInt=SUM(Sum_OrdInt),Sum_TraTxnPrice=SUM(Sum_TraTxnPrice) from (select Sum_OrdInt=COUNT(DispatchOrdID),case when isnull(SUM(ServiceOrdTraTxnPrice+StretcherMoney),0)=0 or DispatchOrdPerfomance=0 then 0 else SUM(ServiceOrdTraTxnPrice+StretcherMoney)/((select SUM(DispatchOrdPerfomance) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10))/DispatchOrdPerfomance) END as Sum_TraTxnPrice from DispatchOrd LEFT JOIN ServiceOrder on ServiceOrdIDDt=ServiceOrdID where "&sqlWhere&" and (ServiceOrdClass in ('"&OrdClassListSql&"') or DispatchOrdClass in ('"&OrdClassListSql&"')) and DispatchOrdState not in (10) GROUP BY DispatchOrdPerfomance,ServiceOrdID) as aa"
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
Sum_OrdInt = rs("Sum_OrdInt")
|
Sum_TraTxnPrice = Int(rs("Sum_TraTxnPrice"))
|
rs.close()
|
Response.Write "当前查询统计 单据数量:"&Sum_OrdInt&" 费用合计:"&Sum_TraTxnPrice&"元 (不包括取消)"
|
End If
|
%>
|
