📄 dealdetail.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "deal","read"
set objcheck=nothing
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_deal where dealid="&Request.QueryString("dealid"),conn,1,1
if rs.EOF then
Response.Write "记录不存在"
Response.End
end if
'注：修改记录：2004-6-15销售机会阶段的默认方法应取当前的销售机会中的值。
'查找默认dealstage
'set defrs=conn.Execute("select * from v_Event where dealid="&Request.QueryString("dealid")&" order by dealrate desc")
'if not defrs.eof then
' strdefdealstage=defrs("dealstage")
' strdefdealstagename=trim(defrs("dealstagename"))
'end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("deal")%></title>
</head>
<script language="JavaScript">
function window_onload()
{
window.moveTo(-2,-2);
window.resizeTo(screen.availWidth, screen.availHeight);
}
</script>
<body bgcolor="#ffffff" onload="window_onload()">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35%" height="25"><strong><font size="2"><b><font class="title">销售机会：<%=rs("deal")%></font></b></font></strong></td>
<td width="65%">
<a href="javascript:opensubwin3('newdeal.asp?id=<%=request("dealid")%>','','resizable=yes, scrollbars=no, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500');"><img src="../images/button_edit.gif" border=0></a>
</td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"></td>
</tr>
<tr>
<td height=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="FFFFFF">
<tr>
<td width="10%" height=18 align=center bgcolor="DEDFDE">销售机会</td>
<td width="25%" align=center bgcolor="efefef"><%=rs("deal")%></td>
<td width="10%" align=center bgcolor="DEDFDE">主题</td>
<td width="20%" align=center bgcolor="efefef"><%=rs("subject")%></td>
<td width="10%" align=center bgcolor="DEDFDE">所有者</td>
<td width="25%" align=center bgcolor="efefef"><%=rs("ownername")%></td>
</tr>
<tr>
<td align=center height=18 bgcolor="DEDFDE">开始日期</td>
<td align=center bgcolor="efefef"><%=rs("opendate")%></td>
<td align=center bgcolor="DEDFDE">完成日期</td>
<td align=center bgcolor="efefef"><%=rs("closeddate")%></td>
<td align=center bgcolor="DEDFDE">失败原因</td>
<td align=center bgcolor="efefef"><%=rs("lostreason")%></td>
</tr>
<tr>
<td align=center height=18 bgcolor="DEDFDE">客户</td>
<td align=center bgcolor="efefef"><%=rs("account")%></td>
<td align=center bgcolor="DEDFDE">联系人</td>
<td align=center bgcolor="efefef"><%=rs("contact")%></td>
<td align=center bgcolor="DEDFDE">销售机会阶段</td>
<td align=center bgcolor="efefef"><%=rs("dealstagename")%></td>
</tr>
<tr>
<td align=center height=18 bgcolor="DEDFDE">销售机会来源</td>
<td align=center bgcolor="efefef"><%=rs("dealsource")%></td>
<td align=center bgcolor="DEDFDE">销售机会流程</td>
<td align=center bgcolor="efefef"><%=rs("dealprocess")%></td>
<td align=center bgcolor="DEDFDE">成功几率</td>
<td align=center bgcolor="efefef"><%=rs("dealrate")%>%</td>
</tr>
<tr>
<td align=center height=18 bgcolor="DEDFDE">标的</td>
<td align=center bgcolor="efefef"><%=rs("totalamount")%></td>
<td align=center bgcolor="DEDFDE">货币代码</td>
<td align=center bgcolor="efefef"><%=rs("currencycode")%></td>
<td align=center bgcolor="DEDFDE">最后修改者</td>
<td align=center bgcolor="efefef"><%=rs("LastModName")%></td>
</tr>
<tr>
<td align=center height=18 bgcolor="DEDFDE">创建者</td>
<td align=center bgcolor="efefef"><%=rs("CreateName")%></td>
<td align=center bgcolor="DEDFDE">创建时间</td>
<td align=center bgcolor="efefef"><%=rs("CreateDate")%></td>
<td align=center bgcolor="DEDFDE">最后修改时间</td>
<td align=center bgcolor="efefef"><%=rs("lastmodDate")%></td>
</tr>
<tr>
<td align=center height=18 bgcolor="DEDFDE">描述</td>
<td colspan="5" align=center bgcolor="efefef"> <div align="left"><%=rs("description")%></div></td>
</tr>
<tr>
<td align=center height=18 bgcolor="DEDFDE">系统提示</td>
<td colspan="5" align=left bgcolor="efefef"><font color=red><%=rs("warn")%></font></td>
</tr>
</table>
<%
sql="select * from v_dealhistory where dealid="&Request.QueryString("dealid")
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12%"><strong><font size="2">销售机会阶段历史</font></b></strong></td>
<td width="88%"></td>
</tr>
<tr>
<td height=2 colspan="2" bgcolor="#4A699C"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr bgcolor="efefef">
<td width="5%" height=15 align=center bgcolor="efefef">序号</td>
<td width="10%" height="15" align=center>日期</td>
<td width="15%" height="15" align=center>销售机会流程</td>
<td width="15%" height="15" align=center>销售机会阶段</td>
<td width="10%" height="15" align=center>成功几率</td>
<td width="10%" height="15" align=center>销售员</td>
<td height="15" align=center>系统提示</td>
</tr>
<%i=1%>
<%if not rs1.EOF and not rs1.BOF then%>
<%do while not rs1.EOF%>
<tr bgcolor="#FFFFFF">
<td align=center height=18><%=i%></a></td>
<td align=center><%=year(rs1("OperateDate"))%>-<%=month(rs1("OperateDate"))%>-<%=day(rs1("OperateDate"))%></td>
<td align=center><%=rs1("DealProcess")%></td>
<td align=center><%=rs1("DealStageName")%></td>
<td align=center><%=rs1("Dealrate")%>%</td>
<td align=center><%=rs1("UserName")%></td>
<td align=center><%=rs1("warn")%></td>
</tr>
<%
i=i+1
rs1.MoveNext
loop
%>
</table>
<%
else
Response.Write "<table width=100% cellspacing=1><tr bgcolor=white><td >无记录</td></tr></table>"
end if
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width=12%><strong><font size="2">销售事件</font></strong></td>
<td align=left>
<%if request("dealstage")="" then%>
<a href="javascript:opensubwin3('../event/newevent.asp?dealid=<%=request.QueryString("dealid")%>','销售事件','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=650,height=500,top=100,left=100');">
<%else%>
<a href="javascript:opensubwin3('../event/newevent.asp?dealid=<%=request.QueryString("dealid")%>&dealstage=<%=request("dealstageid")%>','销售事件','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=650,height=500,top=100,left=100');">
<%end if%><img src="../images/button_new.gif" border="0"></a>
</td>
</tr>
<tr>
<td height=20 colspan="3">
<%
strdealprocessid=rs("dealprocessid")
dim connq
dim rsq
set connq=server.CreateObject("adodb.connection")
set rsq=server.CreateObject("adodb.recordset")
connq.Open connstring
rsq.Open "select * from v_dealstage where dealprocessid = '"&strdealprocessid&"' order by seq",connq,1,1
if not rs.EOF then
j=1
Response.Write "<table cellspacing=1 bgcolor='#ffffff'><tr>"
do while not rsq.EOF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -