📄 d_intentbj.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=getuser()
userclass=tablevisitor("f_tblintent",username)
departid=session("departid")%>
<%
ddbh=request("ddbh")
page1=request("page1")
page2=request("page2")
index=request("index")
lookup=request("lookup")
par_id=request("par_id")
khbz=request("khbz")
bcbz=request("bcbz")
m_date=request("m_date")%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<link href="../cread.css" rel="stylesheet" type="text/css">
<title></title>
</HEAD>
<BODY bgcolor="#FFFFFF">
<%if bcbz="1" then
bjsql="update f_tblintent set clientnum='"&par_id&"',orddate='"&m_date&"' where ordernum='"&ddbh&"'"
pubconn.execute(bjsql)%>
<%end if
%>
<script language="vbscript">
function click1()
ddbh=document.myform.ddbh.value
window.open "pubselectkh1.asp?ddbh="+ddbh,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end function
function kdatech(kdate)
if len(kdate)<>10 then
msgbox "请正确输入日期格式！如:2000-01-01。"
exit function
else
if vartype(cdate(kdate))<>7 then
msgbox "请正确输入日期格式！如:2000-01-01。"
exit function
end if
end if
end function
sub win()
msgbox "数据已保存，请返回！"
myform.submit
end sub
</script>
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b><font size="2">客户需求信息</font></b><hr width="70%" align="left" size="1"></td>
</tr>
</table> <center>
<%sql="select * from f_tblintent where ordernum='"&ddbh&"'"
set rs=pubconn.execute(sql)
%> <form method="POST" action="d_intentbj.asp" name="myform" >
<table border=1 cellspacing=0 width="511">
<tr bgcolor="ffffDf">
<td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" width="20%" align="right" bordercolor="#F7F4E5">需求编号</td><td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" width="83" bordercolor="#F7F4E5">
<input type="text" size=12 readonly name="ddbh" value="<%=ddbh%>"></td>
<td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" width="15%" bordercolor="#F7F4E5">
<p align="right">客户名称</p>
</td>
<td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" width="291" bordercolor="#F7F4E5">
<%if khbz<>"" then
for i=0 to Request("m_line")
if Request("checkbox1"&i)<>"" then
par_id=trim(Request("m_id"&i))
exit for
end if
next
end if
khsql="select clientname from d_clientinfo where clientnum='"&par_id&"'"
set khrs=pubconn.execute(khsql)%>
<input type="text" size=19 readonly name="m_clientnum" value=<%=khrs("clientname")%>>
<input type="button" name="B1" value="..." onclick="click1()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1"></td>
</tr>
<tr bgcolor="ffffDf">
<td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" width="20%" bordercolor="#F7F4E5">
<p align="right">预计订货日期</p>
</td><td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" width="83" bordercolor="#F7F4E5">
<p align="left"><input type="text" size=12 name="m_date" value="<%=rs("orddate")%>" onchange="kdatech(document.myform.m_date.value)"></p>
</td>
<td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" width="15%" bordercolor="#F7F4E5">
<p align="right">业务员</p>
</td><td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" width="127" bordercolor="#F7F4E5">
<%ywysql="select name from a_stuffinfo where stuffnum='"&rs("stuffnum")&"'"
set ywyrs=pubconn.execute(ywysql)%>
<input type="text" size=19 readonly name="m_ywy" value=<%=ywyrs("name")%>>
</td>
</tr>
<tr bgcolor="ffffDf">
<%bz=""
sqlbz="select remark from f_tblintentdetail where Ordernum='"& m_order &"'"
set brs=pubconn.execute(sqlbz)
do while not brs.eof
bz=bz&trim(brs("remark"))
brs.movenext
loop%>
<td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" width="20%" align="right" bordercolor="#F7F4E5">备注</td><td colspan=3 align="center" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" width="444" bordercolor="#F7F4E5">
<p align="left"><input type="text" readonly size=50 name="m_remark" value=<%=bz%>></p>
</td>
</tr>
</table> <br>
<input type="hidden" name="page2" value=<%=page2%>>
<input type="hidden" name="page1" value=<%=page1%>>
<input type="hidden" name="index" value=<%=index%>>
<input type="hidden" name="lookup" value=<%=lookup%>>
<input type="hidden" name="par_id" value=<%=par_id%>>
<input type="hidden" name="bcbz" value="1">
</form> </center>
<font size="2">
<a href="D_IntentMainFrm.asp?tag=2&index=<%=request("index")%>&lookup=<%=aa%>&page1=<%=Request("page1")%>&page2=<%=Request("page2")%>&par_id=<%=par_id%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>
<a href="#" onclick="win()">保存</a>
</font>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -