<%
|
acc1=request("page")
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 2000
|
acc2=0
|
acc3=0
|
|
'查看各分公司报表权限
|
if isDepartment("070109")=1 then
|
OrdClassListSql=""
|
If UnitNameID<>"" And UnitNameID<>"0" Then
|
sql="select vOrder2 from dictionary where vtitle='UnitName' and vID="&UnitNameID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
UnitTypeID=rs(0)
|
rs.close()
|
sql="select vID,vtext,vOrder2 from dictionary where vID in ("&UnitTypeID&") and vtitle='OrderClass' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
OrderClassID = rs("vOrder2")
|
OrdClassListSql = OrdClassListSql&","&OrderClassID
|
rs.movenext
|
Loop
|
OrdClassListSql=Mid(OrdClassListSql,2)
|
OrdClassListSql=Replace(OrdClassListSql,",","','")
|
End If
|
rs.close()
|
Else
|
sql="select vID,vtext,vOrder2 from dictionary where vType in (1,2) and vtitle='OrderClass' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
OrderClassID = rs("vOrder2")
|
OrdClassListSql = OrdClassListSql&","&OrderClassID
|
rs.movenext
|
loop
|
rs.close()
|
OrdClassListSql=Mid(OrdClassListSql,2)
|
OrdClassListSql=Replace(OrdClassListSql,",","','")
|
End If
|
end If
|
|
'查看合作公司
|
If CoopUnitID<>"" And CoopUnitID<>"0" Then
|
If Left(CoopUnitID,2)="0," Then CoopUnitID=Mid(CoopUnitID,3)
|
CoopUnitSql=" And (ServiceOrdUnitID in ("&CoopUnitID&")"
|
sql="select HospID,HospIntroducerDate from HospData,IntroducerData where HospIntroducerID=IntroducerID and IntroducerUnitID in ("&CoopUnitID&") GROUP BY HospID,HospIntroducerDate order by HospIntroducerDate"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
UnitHospDateOld=""
|
do while not rs.Eof
|
If UnitHospDateOld<>rs(1) then
|
UnitHospDate=UnitHospDate&"|"&rs(1)
|
UnitHospID=UnitHospID&"|"
|
UnitHospDateOld=rs(1)
|
End If
|
UnitHospID=UnitHospID&","&rs(0)
|
rs.movenext
|
Loop
|
UnitHospDateSP = SPLIT(UnitHospDate,"|")
|
UnitHospIDSP = SPLIT(UnitHospID,"|")
|
for i=1 to ubound(UnitHospDateSP)
|
CoopUnitSql=CoopUnitSql&" or (ServiceOrdPtOutHospID in ("&Mid(UnitHospIDSP(i),2)&") and ServiceOrd_CC_Time>='"&UnitHospDateSP(i)&"')"
|
Next
|
End If
|
rs.close()
|
CoopUnitSql=CoopUnitSql&")"
|
Else
|
CoopUnitSql=""
|
End If
|
|
'订单类型列表
|
sql="select vID,vtext,vOrder2 from dictionary where vType in (1,2) and vtitle='ServiceOrderType' and vID not in (13) order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
OrderTypeID = rs("vID")
|
OrderTypeName = rs("vtext")
|
OrderTypeList = OrderTypeList&","&OrderTypeID&"|"&OrderTypeName
|
rs.movenext
|
loop
|
rs.close()
|
OrderTypeList=Mid(OrderTypeList,2)
|
OrderTypeArray = SPLIT(OrderTypeList,",")
|
'Response.Write OrderTypeList
|
|
'sql="select ServiceOrdClass,count(DispatchOrdID),vtext,sum(ServiceOrdTraTxnPrice+StretcherMoney) from dbo.ServiceOrder,dbo.DispatchOrd,dictionary where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10) and vID=ServiceOrdType and vtitle='ServiceOrderType' and DispatchOrd_NS_Time "&SqlOrdDateType&" GROUP BY vtext,ServiceOrdClass,vID order by ServiceOrdClass,vID"
|
'时间转算
|
sql="select "&Replace(Replace(SqlOrdDateType,"between","")," and ",",")
|
rs.open sql,objConn,1,1
|
DataSt=rs(0)
|
DataBe=rs(1)
|
rs.close()
|
|
sql=""
|
sql=sql&"select UnitShort,Sum_OrdInt=SUM(Sum_OrdInt),vtext,Sum_TraTxnPrice=SUM(Sum_TraTxnPrice),vID,UnitID from ("
|
|
sql=sql&"select (case when UnitShort='微信小程序' then '广州' else UnitShort END) as UnitShort,Sum_OrdInt=count(DispatchOrdID),vtext,vID,Sum_TraTxnPrice=SUM(ServiceOrdTraTxnPrice+StretcherMoney),(case when UnitShort='微信小程序' then 0 else UnitID END) as UnitID from ServiceOrder,DispatchOrd,dictionary,IntroducerUnitData where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10) and vID=ServiceOrdType and ServiceBranch=ServiceOrdClass and ServiceBranch<>'' and UnitID<>32 and vtitle='ServiceOrderType' and DispatchOrd_NS_Time between '"&DataSt&"' and '"&DataBe&"' "&CoopUnitSql&" and (ServiceOrdClass in ('"&OrdClassListSql&"') or DispatchOrdClass in ('"&OrdClassListSql&"')) and ServiceOrdType not in (13) GROUP BY ServiceOrdID,DispatchOrdPerfomance,vtext,vID,UnitShort,vID,UnitID"
|
|
''sql=sql&" UNION ALL "
|
|
''sql=sql&"select UnitShort=ServiceOrdClass,Sum_OrdInt=count(DispatchOrdID),vtext,vID,Sum_TraTxnPrice=SUM(ServiceOrdTraTxnPrice+StretcherMoney) from dbo.ServiceOrder,dbo.DispatchOrd,dictionary where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10) and vID=ServiceOrdAreaType and vtitle='ServiceOrdAreaType' and DispatchOrd_NS_Time between '"&DataSt&"' and '"&DataBe&"' "&CoopUnitSql&" and (ServiceOrdClass in ('"&OrdClassListSql&"') or DispatchOrdClass in ('"&OrdClassListSql&"')) and ServiceOrdType not in (13) GROUP BY ServiceOrdID,DispatchOrdPerfomance,vtext,vID,ServiceOrdClass,vID"
|
|
sql=sql&") as aa GROUP BY UnitShort,vtext,vID,UnitID order by UnitID"
|
hrefURL="DispatchOrder_List.gds"
|
'If Right(sql,2)=", " Then sql=Left(sql,Len(sql)-2)
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=QuantityInt
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
else
|
SystemMessageType=2
|
SystemMessageTXT="数据库中相关无数据！"
|
end If
|
If SystemMessageType<>"2" then
|
Dim FormArray()
|
ArrayX=50
|
If acc3<QuantityInt Or (is_CSV=1 And acc3>QuantityInt) Then
|
ArrayY=acc3+1
|
Else
|
ArrayY=QuantityInt
|
End If
|
'表头
|
FormFields="机构名称,总收入,确认单数"
|
If OrdDateTypeName1<>"时间段" And isDepartment("030211")=1 And is_CSV<>"1" Then FormFields="全选,"&FormFields
|
For i=0 to Ubound(OrderTypeArray)
|
OrderTypeArray1 = SPLIT(OrderTypeArray(i),"|")
|
FormFields = FormFields&","&OrderTypeArray1(1)&"单数,"&OrderTypeArray1(1)&"金额"
|
Next
|
FormFields=split(FormFields,",")
|
ArrayX=ubound(FormFields)+1
|
REDIM FormArray(ArrayX,ArrayY+1)
|
for i=0 to ubound(FormFields)
|
FormArray((i+1),0)=FormFields(i)
|
next
|
Y=2
|
|
MoneySum=0
|
OrdSum=0
|
DateMonthOld=""
|
If not rs.Eof then
|
DateMonth=rs(0)
|
End If
|
For i=0 to Ubound(OrderTypeArray)
|
FormArray(i*2+4,Y)=0
|
FormArray(i*2+5,Y)=0
|
Next
|
|
SOData="0"
|
do while not rs.Eof and Y<=ArrayY
|
'读取数据
|
|
|
'读取数据--End
|
|
'写入数组
|
FormArray(1,Y)=DateMonth
|
FormArray(2,Y)=MoneySum
|
FormArray(3,Y)=OrdSum
|
If DateMonth<>rs(0) Then
|
DateMonth=rs(0)
|
Y=Y+1
|
MoneySum=0
|
OrdSum=0
|
For i=0 to Ubound(OrderTypeArray)
|
FormArray(i*2+4,Y)=0
|
FormArray(i*2+5,Y)=0
|
Next
|
End If
|
MoneySum=MoneySum+rs(3)
|
OrdSum=OrdSum+rs(1)
|
If SOData<>rs(0) Then
|
SOData=rs(0)
|
SODataInt=0
|
SODataMoney=0
|
End If
|
CoopUnitID1=rs("UnitID")
|
For i=0 to Ubound(OrderTypeArray)
|
OrderTypeArray1 = SPLIT(OrderTypeArray(i),"|")
|
If rs(2)=OrderTypeArray1(1) Then
|
FormArray(i*2+4,Y) = "<a href="""&hrefURL&"?OrdDateType=0&OrdClassList=0&h_menu1_1=1&searchTXT=OrdType|"&rs(4)&"&OrdDateStart="&DataSt&"&OrdDateEnd="&DateAdd("s",-1,DateAdd("m",0,DataBe))&"&UnitNameID="&UnitNameID&"&CoopUnitID="&CoopUnitID1&""" target=""_blank"">"&rs(1)&"</a>"
|
FormArray(i*2+5,Y) = rs(3)
|
ElseIf rs(2)<>"测试" And SOData=rs(0) Then
|
SODataInt=SODataInt+rs(1)
|
SODataMoney=SODataMoney+rs(3)
|
End If
|
Next
|
|
DateMonthOld=DateMonth
|
FormArray(1,Y)=DateMonth
|
FormArray(2,Y)=MoneySum
|
FormArray(3,Y)=OrdSum
|
'写入数组--End
|
|
rs.movenext
|
Loop
|
'REDIM FormArray(ArrayX,Y)
|
rs.close()
|
End If
|
%>
|
