📄 newevent.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
if request("id")<>"" then
objcheck.CheckUserFunction "event","edit"
else
objcheck.CheckUserFunction "event","add"
end if
set objcheck=nothing
if request("id")<>"" then
dim connq
dim rsq
set connq=server.CreateObject("adodb.connection")
set rsq=server.CreateObject("adodb.recordset")
connq.Open connstring
rsq.Open "select * from Event where id="&request("id"),connq,2,3,1
strsubject=rsq("subject")
strowner=rsq("username")
strownername=getfieldvalue("usertable","loginid",rsq("username"),"username")
streventdate=rsq("eventdate")
streventtime=rsq("eventtime")
strrelativetype=rsq("relativetype")
strtype=rsq("type")
strdealprocessid=rsq("dealprocessid")
strdealid=rsq("dealid")
strdeal=getfieldvalue("deal","dealid",rsq("dealid"),"subject")
strdealstage=rsq("dealstage")
strdealstagename=getfieldvalue("userdefine","id",rsq("dealstage"),"name")
strContact=rsq("Contactid")
strcontactname=getfieldvalue("contact","contactid",rsq("contactid"),"contact")
straddress=rsq("address")
strdealrate=rsq("dealrate")
straccount=rsq("accountid")
straccountname=getfieldvalue("account","accountid",rsq("accountid"),"account")
strresult=rsq("result")
strdescription=rsq("description")
rsq.Close
set rsq=nothing
connq.Close
set connq=nothing
else
strowner=session("loginid")
strownername=session("username")
straccount=-1
strcontact=-1
streventdate=date()
streventtime=time()
strdealid=-1
strdealprocessid=-1
strdealstage=-1
'从销售机会而新建的销售事件
if request.QueryString("dealid")<>"" then
strrelativetype="客户"
straccount=getfieldvalue("deal","dealid",request.QueryString("dealid"),"accountid")
straccountname=getfieldvalue("account","accountid",straccount,"account")
strdealid=request.QueryString("dealid")
strdealprocessid=getfieldvalue("deal","dealid",request.QueryString("dealid"),"dealprocessid")
strdeal=getfieldvalue("deal","dealid",request.QueryString("dealid"),"subject")
if request.QueryString("dealstage")<>"" then
strdealstage=request.QueryString("dealstage")
else
strdealstage=getfieldvalue("deal","dealid",request.QueryString("dealid"),"dealstage")
end if
strdealstagename=getfieldvalue("userdefine","id",strdealstage,"name")
'取成功几率
dim connrate
dim rsrate
set connrate=server.CreateObject("adodb.connection")
set rsrate=server.CreateObject("adodb.recordset")
connrate.Open connstring
rsrate.Open "select * from DealStage where dealprocessid="&strdealprocessid&" and dealstage="&strdealstage,connrate,2,3,1
strdealrate=rsrate("dealrate")
rsrate.Close
set rsrate=nothing
connrate.Close
set connrate=nothing
end if
'从客户而新建的销售事件
if Request.QueryString("accountid")<>"" then
strrelativetype="客户"
straccount=Request.QueryString("accountid")
straccountname=getfieldvalue("account","accountid",straccount,"account")
end if
'从联系人而新建的销售事件
if Request.QueryString("contactid")<>"" then
strrelativetype="客户"
strcontact=Request.QueryString("contactid")
strcontactname=getfieldvalue("contact","contactid",strcontact,"contact")
straccount=getfieldvalue("contact","contactid",strcontact,"accountid")
straccountname=getfieldvalue("account","accountid",straccount,"account")
end if
end if
if request("subject")<>"" then
Dim objevent
Set objevent=Server.CreateObject("SmartSales.Event")
objevent.SaveEvent
set objevent=nothing
%>
<script language=javascript>
window.opener.location.reload();
window.close();
</script>
<%
end if
%>
<HTML>
<HEAD>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>销售事件</TITLE>
</head>
<script language=javascript src="../tools/newcalendar.js"></script>
<div id="overDiv" style="position:absolute; visibility:hidden; z-index:1000;"></div>
<script language="javascript">
function save(){
if (form1.subject.value==''){
alert('请输入主题！');
form1.subject.focus();
return;
}
if (document.form1.relativetype.value == "其他"){
if(document.form1.EventType2.value == "-1"){
alert("请选择相关其他类型!");
return false;}
}
if (document.form1.relativetype.value == "客户"){
if(document.form1.EventType1.value == "-1"){
alert("请选择相关客户类型!");
return false;}
if(document.form1.accountname.value == ""){
alert("请选择客户!");
return false;}
}
if (document.form1.dealname.value != ""){
if(document.form1.dealstagename.value == ""){
alert("请选择销售机会阶段!");
return false;}
}
var daistring=""
for(i=0;i<form1.Right.length;i++){
form1.Right.selectedIndex=i
var a=form1.Right.value.split("/");
daistring=daistring+a[0]+",";
}
form1.attendant.value=daistring;
daistring="";
form1.submit();
}
function relativetype_onchange()
{
if (form1.relativetype.value=="其他"){
accountname.style.display='none';
EventType1.style.display='none';
EventType2.style.display='block';
form1.EventType1.value=-1;
form1.EventType2.value=-1;
form1.account.value=-1;
form1.accountname.value="";
form1.contact.value=-1;
form1.contactname.value="";
form1.prcDealProcess.value=-1;
form1.deal.value=-1;
form1.dealname.value="";
form1.dealstage.value=-1;
form1.dealstagename.value="";
form1.dealrate.value="";
}
if (form1.relativetype.value=="客户"){
accountname.style.display='block';
EventType1.style.display='block';
EventType2.style.display='none';
form1.EventType1.value=-1;
form1.EventType2.value=-1;
}
}
function clearcontact(){
form1.contact.value=-1;
form1.contactname.value="";
}
function cleardealno(){
form1.deal.value=-1;
form1.dealname.value="";
form1.prcDealProcess.value=-1;
form1.dealstage.value=-1;
form1.dealstagename.value="";
}
function selectdealno()
{
if(form1.account.value!=-1){
opensubwin2('form1','deal',form1.account.value,'DealProcess');
}
else{
alert('请先选择客户!');
}
}
function selectdealstage()
{
if (form1.prcDealProcess.value==-1){
alert('请先选择相关销售机会!');
return false;
}
if(form1.prcDealProcess.value==-1){
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -