📄 sale.asp
字号:
{
document.form1.Contact_ID.options[i+1].selected=true;
}
}
}
</script>
</head>
<body bgcolor="#FFFFFF" scroll=no text="#000000" onclick="changeTabs()" onload="init()" onUnload="opener.location.reload();">
<table width="102%" border="1" cellspacing="0" cellpadding="2" bordercolorlight='#000000' bordercolordark='#FFFFFF'>
<tr>
<td height="200">
<TABLE style="HEIGHT: 100%; WIDTH:100%" cellSpacing="0" cellPadding="0" bgColor="#D4D0C8" id="Table3" >
<form name="form1" method="post" action="sale.asp" onsubmit="return check();">
<TR id=tabtr>
<TD class="selTab" id="t1" style="height:20;cursor:hand" width=2% nowrap> 销售 </TD>
<TD class="tab" id="t2" style="height:20;cursor:hand" width=2% nowrap> 其他信息 </TD>
<TD class="tab" id="t3" style="height:20;cursor:hand" width=2% nowrap> 自定义 </TD>
<TD id="lastT" bgcolor="#D4D0C8" style='color:white;font-weight:bold' align=right> </TD>
</TR>
<TR id=basetr>
<TD id="t1base" style="HEIGHT: 1px"></TD>
<TD id="t2base" style="BACKGROUND-COLOR: white; HEIGHT: 1px"></TD>
<TD id="t3base" style="BACKGROUND-COLOR: white; HEIGHT: 1px"></TD>
<TD id="lastbase" style="BACKGROUND-COLOR: white; HEIGHT: 1px"></TD>
</TR>
<TR id=contentstr>
<TD id="tabContents" style="BORDER-BOTTOM: black 1px solid; BORDER-LEFT: white 1px solid; BORDER-RIGHT: black 1px solid;padding:4px" colSpan="13" height="*">
<center id=t1Contents >
<table width="100%" border="1" cellspacing="0" cellpadding="2" bordercolorlight='#000000' bordercolordark='#FFFFFF'>
<tr>
<td width="20%" height="22">
<div align="right">主题：</div>
</td>
<td width="30%" height="22" colspan="3">
<input type="text" size="50" class="input" name="Regarding" value="<%=Regarding%>">
</td>
</tr>
<tr>
<td width="20%" height="22">
<div align="right">相关客户：</div>
</td>
<td width="30%" height="22">
<select name="client_ID" style='width:150;' onchange="fnDo('Contacts','client_ID','Contact_ID',this.value,'Contact_Name');">
<option value="">====选择====</option>
<%
strsql="select * from clients where client_owner='" & session("loginuser") & "' or IsPublic=1"
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
if not objrs.eof then
do while not objrs.eof
if client_id & "" =objrs.fields("client_id") & "" then
response.write "<option value=" & objrs.fields("client_id") & " selected>" & objrs.fields("client_name") & "</option>"
else
response.write "<option value=" & objrs.fields("client_id") & ">" & objrs.fields("client_name") & "</option>"
end if
objrs.movenext
loop
end if
%>
</select>
</td>
<td width="20%" height="22">
<div align="right">相关联系人：</div>
</td>
<td width="30%" height="22">
<select name="Contact_ID" style="width:100">
<option value="">====选择====</option>
</select>
</td>
</tr>
<tr>
<td width="20%" height="22">
<div align="right">销售日期：</div>
</td>
<td width="30%" height="22">
<input type="text" size="10" class=input name="sale_Date" maxlength="20" onclick="show_calendar('form1.sale_Date',null,null,'MM/DD/YYYY')" onmouseover="window.status='选择时间';return true;" onmouseout="window.status='';return true;" value="<%=sale_Date%>"><input type="button" class=button value="..." onclick="show_calendar('form1.sale_Date',null,null,'YYYY-MM-DD')">
</td>
<td width="20%" height="22">
<div align="right">订单/合同号：</div>
</td>
<td width="30%" height="22">
<input type="text" name="order_num" class="input" value="<%=order_num%>">
</td>
</tr>
<tr>
<td width="20%" height="22">
<div align="right">货币类型：</div>
</td>
<td width="30%" height="22"><%getSelectedNo "Currency_ID","select * from Dict_Currency ","Currency_Name","Currency_ID",Currency_ID%></td>
<td width="20%" height="22">
<div align="right">发票类型：</div>
</td>
<td width="30%" height="22"><%getSelectedNo "Invoice_ID","select * from Dict_Invoices ","Invoice","Invoice_ID",Invoice_ID%></td>
</tr>
<tr>
<td width="20%" height="22">
<div align="right">总计金额：</div>
</td>
<td width="30%" height="22">
<input type="text" name="Amount" class="input" value="<%=Amount%>">
</td>
<td width="20%" height="22">
<div align="right">已付款金额：</div>
</td>
<td width="30%" height="22">
<input type="text" name="Paid_Amount" class="input" value="<%=Paid_Amount%>">
</td>
</tr>
<tr>
<td width="20%" height="22">
<div align="right">已开票金额:</div>
</td>
<td width="30%" height="22">
<input type="text" name="Invoiced_Amount" class="input" value="<%=Invoiced_Amount%>">
</td>
<td height="22">
<input type="hidden" name="Sales_OPP_ID" value="<%=Sales_OPP_ID%>">
<%if Sales_OPP_ID<>"" then%>
<input type="hidden" name="meth" value="edit">
<%else%>
<input type="hidden" name="meth" value="add">
<%end if%>
</td>
<td>
<input type="checkbox" name="IsPublic" value="1" checked>公开此条纪录
</td>
</tr>
</table>
</center>
<center id=t2Contents style="display:none">
<table width="100%" border="1" cellspacing="0" cellpadding="2" bordercolorlight='#000000' bordercolordark='#FFFFFF'>
<tr>
<td width="16%" height="92">
<div align="right">备注信息：</div>
</td>
<td width="84%" height="92"><textarea name="Details" cols="50" rows="8" class="input"><%=Details%></textarea></td>
</tr>
</table>
</center>
<center id=t3Contents style="display:none">
<%
strTable="31"
dim User(5)
dim Dict(5)
if Sales_OPP_ID<>"" then
strsql="select * from SalesOpportunities where Sales_OPP_ID=" & Sales_OPP_ID
'response.write strsql
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
if not objRs.eof then
for j=0 to 4
User(j)=objRs.fields("User" & (cint(strTable)+j))
Dict(j)=objRs.fields("Dict" & (cint(strTable)+j) & "_ID")
next
end if
end if
%>
<table width="100%" border="1" cellspacing="0" cellpadding="1" bordercolorlight='#000000' bordercolordark='#FFFFFF'>
<%for i=0 to 4%>
<tr>
<td height="22"><div align="right"><%=getDicValue("Dict" & cint(strTable)+i)%></div></td>
<td height="22"><%getDic cint(strTable)+i,Dict(i)%></td>
<td height="22"><div align="right"><%=getDicValue("User" & cint(strTable)+i)%></div></td>
<td height="22"><%getUserField cint(strTable)+i,User(i)%></td>
</tr>
<%next%>
</table>
</center>
</TD>
</TR>
<tr>
<td colspan="4" align="center" height=25 >
<input type="submit" name="submit" value=" 保存 " class="button">
<input type="reset" value=" 重设 " class="button">
</td>
</tr>
</form>
</TABLE>
</td>
</tr>
<%if Sales_OPP_ID<>"" then%>
<tr>
<td height="320" valign="top">
<iframe style="height:100%; WIDTH: 100%;" src="saledetail.asp?Sales_OPP_ID=<%=Sales_OPP_ID%>" scrolling=auto frameborder=0></iframe>
</td>
</tr>
<%end if%>
</table>
</body>
</html>
<script>
if(document.form1.client_ID.options[document.form1.client_ID.selectedIndex].value!=""){
fnDo('Contacts','client_ID','Contact_ID',document.form1.client_ID.options[document.form1.client_ID.selectedIndex].value,'Contact_Name');
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -