came.git - Gitblit

<% 
acc1=request("page") 
if acc1=empty then acc1=clng(1) 
QuantityInt = 20 
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,vType 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 
            If rs("vType")=2 Then 
                OrdClassName=replace(rs("vtext"),"调度单","<br>") 
                OrdClassIDList    = OrdClassIDList&","&OrderClassID 
                OrdClassNameList    = OrdClassNameList&","&OrdClassName&"转运量,"&OrdClassName&"营业额,"&OrdClassName&"平均单价" 
            End If 
            rs.movenext 
        Loop 
        OrdClassListSql=Mid(OrdClassListSql,2) 
        OrdClassListSql=Replace(OrdClassListSql,",","','") 
    End If 
    rs.close() 
  Else 
    sql="select vID,vtext,vOrder2,vType 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 
        If rs("vType")=2 Then 
            OrdClassName=replace(rs("vtext"),"调度单","<br>") 
            OrdClassIDList    = OrdClassIDList&","&OrderClassID 
            OrdClassNameList    = OrdClassNameList&","&OrdClassName&"转运量,"&OrdClassName&"营业额,"&OrdClassName&"平均单价" 
        End If 
        rs.movenext 
    loop 
    rs.close() 
    OrdClassListSql=Mid(OrdClassListSql,2) 
    OrdClassListSql=Replace(OrdClassListSql,",","','") 
  End If 
end If 
If OrdClassIDList<>"" Then 
    OrdClassIDList=split(OrdClassIDList,",") 
End If 
 
If CoopUnitID<>"" And CoopUnitID<>"0" Then 
  If Left(CoopUnitID,2)="0," Then CoopUnitID=Mid(CoopUnitID,3) 
  CoopUnitSql=" And  ServiceOrdUnitID in ("&CoopUnitID&")" 
Else 
  CoopUnitSql="" 
End If 
 
 
'sql="select convert(nvarchar(10),year(DispatchOrd_NS_Time))+'年'+right('0'+convert(nvarchar(10),month(DispatchOrd_NS_Time)),2)+'月',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,year(DispatchOrd_NS_Time),month(DispatchOrd_NS_Time),vID order by year(DispatchOrd_NS_Time),month(DispatchOrd_NS_Time),vID" 
'时间转算 
sql="select "&Replace(Replace(SqlOrdDateType,"between","")," and ",",") 
rs.open sql,objConn,1,1 
    DataSt=rs(0) 
    DataBe=rs(1) 
rs.close() 
 
sql="select SumDate,Sum_OrdInt=SUM(Sum_OrdInt),DispatchOrdClass,Sum_TraTxnPrice=SUM(Sum_TraTxnPrice) from (select SumDate=convert(nvarchar(10),year(DispatchOrd_NS_Time))+'年'+right('0'+convert(nvarchar(10),month(DispatchOrd_NS_Time)),2)+'月',Sum_OrdInt=count(DispatchOrdID),DispatchOrdClass,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 dbo.ServiceOrder,dbo.DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10) 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,year(DispatchOrd_NS_Time),month(DispatchOrd_NS_Time),DispatchOrdClass) as aa GROUP BY SumDate,DispatchOrdClass order by SumDate" 
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 
    Else 
        ArrayY=QuantityInt 
    End If 
    '表头 
    FormFields="日期"&OrdClassNameList 
    FormFields=split(FormFields,",") 
    ArrayX=ubound(FormFields)+1 
    REDIM FormArray(ArrayX,ArrayY+3) 
    FormArray((i+1),0)=FormFields(0) 
    for i=0 to ubound(FormFields)  
        'FormArray((i+1),0)=FormFields(i) 
    next   
    Y=2 
     
    MoneySum=0 
    OrdSum=0 
    DateMonthOld="2016-1-1" 
    If not rs.Eof then 
        DateMonth=rs(0) 
    End If 
    for i=1 to ubound(OrdClassIDList)  
        FormArray(i*3-1,Y)=0 
        FormArray(i*3,Y)=0 
        FormArray(i*3+1,Y)=0 
    next 
    do while not rs.Eof and Y<=ArrayY 
      '读取数据 
 
       
      '读取数据--End 
      '写入数组 
     'FormArray(1,Y)=DateMonth 
     If DateMonth<>rs(0) Then 
        DateMonth=rs(0) 
        Y=Y+1 
        MoneySum=rs(3) 
        OrdSum=rs(1) 
        for i=1 to ubound(OrdClassIDList)  
            FormArray(i*3-1,Y)=0 
            FormArray(i*3,Y)=0 
            FormArray(i*3+1,Y)=0 
        next 
      Else 
        MoneySum=MoneySum+rs(3) 
        OrdSum=OrdSum+rs(1) 
      End If 
      FormArray(1,Y)=DateMonth 
       
      for i=1 to ubound(OrdClassIDList) 
            If OrdClassIDList(i)=rs(2) Then 
                FormArray((i*3-1),0)=FormFields(i*3-2) 
                FormArray((i*3),0)=FormFields(i*3-1) 
                FormArray((i*3+1),0)=FormFields(i*3) 
                FormArray(i*3-1,Y)="<a href="""&hrefURL&"?OrdDateType=0&OrdClassList=0&h_menu1_1=1&OrdDateStart="&Replace(Replace(rs(0),"年","/"),"月","/01 00:00:00")&"&OrdDateEnd="&DateAdd("s",-1,DateAdd("m",1,CDate(Replace(Replace(rs(0),"年","-"),"月","-1"))))&"&UnitClass="&OrdClassIDList(i)&"&CoopUnitID="&CoopUnitID&""" target=""_blank"">"&rs(1)&"</a>" 
                FormArray(i*3,Y)="<a href="""&hrefURL&"?OrdDateType=0&OrdClassList=0&h_menu1_1=1&OrdDateStart="&Replace(Replace(rs(0),"年","/"),"月","/01 00:00:00")&"&OrdDateEnd="&DateAdd("s",-1,DateAdd("m",1,CDate(Replace(Replace(rs(0),"年","-"),"月","-1"))))&"&UnitClass="&OrdClassIDList(i)&"&CoopUnitID="&CoopUnitID&""" target=""_blank"">"&rs(3)&"</a>" 
                FormArray(i*3+1,Y)="<a href="""&hrefURL&"?OrdDateType=0&OrdClassList=0&h_menu1_1=1&OrdDateStart="&Replace(Replace(rs(0),"年","/"),"月","/01 00:00:00")&"&OrdDateEnd="&DateAdd("s",-1,DateAdd("m",1,CDate(Replace(Replace(rs(0),"年","-"),"月","-1"))))&"&UnitClass="&OrdClassIDList(i)&"&CoopUnitID="&CoopUnitID&""" target=""_blank"">"&CInt(rs(3)/rs(1))&"</a>" 
            End If 
      Next 
      '写入数组--End 
       
      rs.movenext 
    Loop 
    'REDIM FormArray(ArrayX,Y) 
    rs.close() 
 
    '数据汇总 
    FormArray(1,Y+1)="汇总" 
    sunGZ=0 
    sunOther=0 
    X=2 
    for X=2 to ubound(FormArray) 
        FormArray(X,Y+1)=0 
        for i=2 to Y 
            sumData=FormArray(X,i) 
            FormArray(X,Y+1)=clng(FormArray(X,Y+1))+clng(Remove_HTML(sumData)) 
        Next 
        If InStr(FormArray(X,0),"平均")>0 Then FormArray(X,Y+1)="" 
        If InStr(FormArray(X,0),"广州<br>营业额")>0 Then 
            sunGZ=FormArray(X,Y+1) 
        ElseIf InStr(FormArray(X,0),"营业额")>0 Then 
            sunOther=sunOther+FormArray(X,Y+1) 
        End If 
    Next 
 
    FormArray(1,Y+2)="平均" 
    X=2 
    for X=2 to ubound(FormArray) 
        If InStr(FormArray(X,0),"平均")<=0 Then 
            sumData=FormArray(X,Y+1) 
            If IsNumeric(sumData) Then  
                FormArray(X,Y+2)=clng(sumData/Y) 
            End If 
        End If 
    Next 
End If 
%>