fee.asp

来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 463 行 · 第 1/2 页

<%
'*****************************************************
' Author       : Jianfeng Hua
' Date         : 2004.8.9
' File         : TouchMan.asp
' Description  : The TouchMan Info page
'*****************************************************
%>
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<%
	
    set  rs = server.createobject("adodb.recordset")
	set  rcs = server.createobject("adodb.recordset")
	
	Sqlstr = "select TouchManID from TouchMan where TouchManCreatorID ="&User_ID
	rcs.open Sqlstr,conn,3,2
	if (rcs.bof or rcs.eof) then
				response.write "<script language=javascript>"
				response.write"alert('尚未有任何联系人记录！无法进行活动操作！');"
				response.write"location.href='../menu.asp';"
				response.write "</script>"
				response.end
	end if
	rcs.close
	
	Sqlstr = "select ClientID,ClientName from Client where ClientCreatorID ="&User_ID&" order by ClientID"
	rcs.open Sqlstr,conn,3,2
	if (rcs.bof or rcs.eof) then
				response.write "<script language=javascript>"
				response.write"alert('尚未有任何客户记录！无法进行活动操作！');"
				response.write"location.href='../menu.asp';"
				response.write "</script>"
				response.end
	end if
	
	
	FeeID=request("FeeID")
	if FeeID = "" Then			'未指明访问客户ID
		Sqlstr = "select top 1 * from Fee where FeeCreatorID=" & User_ID & " order by FeeID"
		rs.open Sqlstr,conn,3,2
			if rs.bof or rs.eof then
				response.write "<script language=javascript>"
				response.write"alert('尚未有任何记录！系统将自动创建一个新记录');"
				response.write"location.href='NewFee.asp';"
				response.write "</script>"
				response.end
			end if
	else							'指明访问客户ID
		Sqlstr = "select * from Fee where (FeeCreatorID=" &User_ID& " and FeeID ="&FeeID&") or (FeeID ="&FeeID&" and FeeOpenFlag = 1 )"
		rs.open Sqlstr,conn,3,2
			if rs.bof or rs.eof then
				response.write "<script language=javascript>"
				response.write"alert('暂时无记录或该记录未公开！');"
				response.write"location.href='../menu.asp';"
				response.write "</script>"
				response.end
			end if
	end if
	FeeID=rs ("FeeID")
	FeeTopic  = rs("FeeTopic")
	FeeClientID = rs("FeeClientID")
	FeeTouchmanID = rs("FeeTouchmanID")
	FeeOppID = rs("FeeOppID")
	FeeSort = rs("FeeSort")
	FeeMoney = rs("FeeMoney")
	FeeDate  = rs("FeeDate")
	FeeDetail = rs("FeeDetail")
	FeeCreatorID   = rs("FeeCreatorID")
	FeeCreateDate = rs("FeeCreateDate")
	FeeOpenFlag  = rs("FeeOpenFlag")
	FeeOperatorID = rs("FeeRevisorID")
    FeeUpdateDate = rs("FeeReviseDate")
	if FeeClientID = 0 then
	FeeClientID = rcs("ClientID")
	end if
	if request("NotSave")=1 then
	FeeClientID = request("T_FeeClientID")
	end if
	FeeClientID = Cint(FeeClientID)
	rs.close
	Sqlstr = "select * from [User] where UserID=" & FeeCreatorID
	rs.open Sqlstr,conn,3,2
	if not (rs.bof or rs.eof) then
		FeeCreatorName = rs("UserName")
		FeeCreatorSnum = rs("UserSection")
	else
		FeeCreatorName = "未知"
		FeeCreatorSnum = 0
	end if

	rs.close
	Sqlstr = "select * from Section where SectionID =" & FeeCreatorSnum
	rs.open Sqlstr,conn,3,2
	if not (rs.bof or rs.eof) then
		FeeCreatorSName = rs("SectionName")
	else
		FeeCreatorSName = "未知"
	end if

	rs.close
	Sqlstr = "select * from [User] where UserID=" & FeeOperatorID
	rs.open Sqlstr,conn,3,2
	if not (rs.bof or rs.eof) then
		FeeOperatorName = rs("UserName")
	else
		FeeOperatorName = "未知"
	end if
	
	rs.close
	rspre=0
	rsnext=0
	rsfisrt=0
	rslast=0
	if FeeCreatorID = User_ID then					'浏览自己客户资料
		Sqlstr = "select top 1 FeeID  from Fee where FeeID<"&FeeID&" and FeeCreatorID="&User_ID&" order by FeeID desc"
		rs.open Sqlstr,conn,3,2
			if not (rs.bof or rs.eof) then
				rspre=1
				FeePreID = rs("FeeID")
			end if
		rs.close

		Sqlstr = "select top 1 FeeID  from Fee where FeeID>"&FeeID&" and FeeCreatorID="&User_ID&" order by FeeID"
		rs.open Sqlstr,conn,3,2
			if not (rs.bof or rs.eof) then
				rsnext=1
				FeeNextID = rs("FeeID")
			end if
		rs.close
		
		Sqlstr = "select count(FeeID) as Rnum  from Fee where FeeID<"&FeeID&" and FeeCreatorID="&User_ID
		rs.open Sqlstr,conn,3,2
		Rnum = rs("Rnum")
		rs.close

		Sqlstr = "select count(FeeID) as Totalnum , max(FeeID) as LastID , min(FeeID) as FirstID  from Fee where FeeCreatorID="&User_ID
		rs.open Sqlstr,conn,3,2
		Totalnum = rs("Totalnum")
		FirstID = rs("FirstID")
		LastID = rs("LastID")
		rs.close

		if FirstID<>FeeID then
		rsfirst = 1
		end if
		
		if LastID<>FeeID then
		rslast = 1
		end if
	else
	''浏览别人记录程序
		Sqlstr = "select top 1 FeeID  from Fee where FeeID<"&FeeID&" and FeeCreatorID<>"&User_ID&" and FeeOpenFlag = 1 order by FeeID desc"
		rs.open Sqlstr,conn,3,2
			if not (rs.bof or rs.eof) then
				rspre=1
				FeePreID = rs("FeeID")
			end if
		rs.close

		Sqlstr = "select top 1 FeeID  from Fee where FeeID>"&FeeID&" and FeeCreatorID<>"&User_ID&" and FeeOpenFlag = 1 order by FeeID"
		rs.open Sqlstr,conn,3,2
			if not (rs.bof or rs.eof) then
				rsnext=1
				FeeNextID = rs("FeeID")
			end if
		rs.close
		
		Sqlstr = "select count(FeeID) as Rnum  from Fee where FeeID<"&FeeID&" and FeeOpenFlag = 1 and FeeCreatorID<>"&User_ID
		rs.open Sqlstr,conn,3,2
		Rnum = rs("Rnum")
		rs.close

		Sqlstr = "select count(FeeID) as Totalnum , max(FeeID) as LastID , min(FeeID) as FirstID  from Fee where FeeOpenFlag = 1 and FeeCreatorID<>"&User_ID
		rs.open Sqlstr,conn,3,2
		Totalnum = rs("Totalnum")
		FirstID = rs("FirstID")
		LastID = rs("LastID")
		rs.close

		if FirstID<>FeeID then
		rsfirst = 1
		end if
		
		if LastID<>FeeID then
		rslast = 1
		end if

	end if
	set rs=nothing
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>费用信息察看</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</HEAD>
<LINK href="../css.css" rel=stylesheet>
<BODY><BR>

  <TABLE  width="751" border=0 align=center cellPadding=0 cellSpacing=0>
    <!--DWLayoutTable-->
    <TBODY>
	<FORM name=SearchFee  action=Feelist.asp method=post> 
    <TR> 
        <TD  width="12" height="24" valign="top"   ><Span align=center><img src="../images/DispStation_H.gif" width="11" height="24"></span></TD>
    <TD width="137" align="center" valign="middle" bgcolor="#566CDB" >费用信息察看</TD>
      <TD colspan="8" align="right" valign="middle" bgcolor="#DDDDDD" >快速查询：
        <select name="S_SearchOption" class="text100" id="S_SearchOption" >
          <option value="0">费用主题</option>
		<%
			'生成下拉列表
		SqlAttachNameTab = Array("相关机会","类型","金额","日期","费用细节")
			for i=1 to 5 
		%>
          <option value="<%=i%>"><%=SqlAttachNameTab(i-1)%></option>
		<% 
			next 
		%>
        </select>
&nbsp;&nbsp;
<select name="S_Relation" class="text100" id="S_Relation" >
          <option value="包含" selected>包含</option>
          <option value="不包含">不包含</option>
</select>
&nbsp;&nbsp;