📄 d_salejylsmainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% departid=session("departid")
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title><link href="../cread.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF">
<%function GetYWYName(aa)
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from A_stuffinfo where stuffnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount>0 then
GetYWYName=rs1.Fields("Name")
else
GetYWYName=""
end if
rs1.close
end function%>
<%function GetMoney(aa)''根据订单编号统计金额
set rs3=server.CreateObject("adodb.recordset")
if rs3.State=1 then rs3.Close
rs3.open "select * from F_TblOrderDetail where ordernum='"& aa &"'",pubconn,1,3
if rs3.RecordCount>0 then
GetMoney=0
rs3.movefirst
while not rs3.eof
GetMoney=GetMoney+rs3.Fields("Money")
rs3.movenext
wend
else
GetMoney=""
end if
end function %>
<%function getName(aa) '取出客户姓名
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from D_clientinfo where clientnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
getName=""
else
getName=rs1.Fields("clientname")
end if
end function%>
<%function getYGName(aa) ''取员工姓名
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from A_stuffinfo where stuffnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
getYGName=""
else
getYGName=rs1.Fields("name")
end if
end function%>
<%function getNameByOrder(aa)'''根据定单号取出客户姓名
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from F_TblOrder where ordernum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
getNameByOrder=""
else
getNameByOrder=getName(rs1.Fields("clientnum"))'''getName根据序号取客户姓名
end if
end function%>
<%function GetStuffByOrder(aa)'''根据订单编号取业务员姓名
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from F_TblOrder where ordernum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
GetStuffByOrder=""
else
GetStuffByOrder=getYGName(rs1.Fields("stuffnum"))''''getYGName根据序号取员工姓名
end if
end function%>
<%function GetProdNameByCode(aa)''''''''''''''''根据商品编码取名称
set rs3=server.CreateObject("adodb.recordset")
if rs3.State=1 then rs3.Close
rs3.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
if rs3.RecordCount<=0 then
GetProdNameByCode=""
else
GetProdNameByCode=rs3.Fields("ProdName")
end if
end function%>
<%function GetProdStandByCode(aa)''''''''''''''''''''根据商品编码取规格
set rs4=server.CreateObject("adodb.recordset")
if rs4.State=1 then rs4.Close
rs4.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
if rs4.RecordCount<=0 then
GetProdStandByCode=""
else
GetProdStandByCode=rs4.Fields("Standard")
end if
end function%>
<%function GetProdUnitByCode(aa)''''''''''''''''''''根据商品编码取单位
set rs5=server.CreateObject("adodb.recordset")
if rs5.State=1 then rs5.Close
rs5.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
if rs5.RecordCount<=0 then
GetProdUnitByCode=""
else
GetProdUnitByCode=rs5.Fields("Unit")
end if
end function%>
<%if Request("tag")=2 then%><%'''''''''''''''''''''''''''''''''''''''第一次装载%>
<%m_id=trim(Request("par_id"))%><%'''''''客户序号%>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from F_tblorder where Clientnum='"& m_id &"' and departid like '"&departid&"%'",pubconn,1,3%>
<form name="form1" method="post" action="D_SaleJYLSmainFrm.asp">
<%if rs.RecordCount<=0 then%>
<%aa="Lookup"%>
<br><br><br><br><br><center><font size="2">提示:<%=getName(m_id)%>尚未建立历史交易信息!<br></font><br><br><br>
<a href="D_SalekhsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>"><font
size="2">返回</font></a>
</center>
<input type="hidden" name="page2" value=<%=page2%>>
<input type="hidden" name="line" value=<%=line%>>
<input type="hidden" name="par_id" value=<%=trim(Request("par_id"))%>><%'''''''客户序号%>
<input type="hidden" name="page1" value=<%=Request("page1")%>>
<input type="hidden" name="par_name" value=<%=Request("par_name")%>>
<input type="hidden" name="par_type"value=<%=Request("par_type")%>>
<input type="hidden" name="par_level" value=<%=Request("par_level")%>>
<%Response.End %>
<%end if%>
<br><br><center><font size=3><b>历史交易信息</b></font></center> <br>
<table border=0 cellspacing=0 width="100%">
<tr>
<td>经销商名称:  <%=getName(m_id)%></td><td><input type="hidden" name="m_clientname" size=20 value=<%=getName(m_id)%>></td>
</tr>
</table><hr>
<table border=1 cellspacing=0 width="100%">
<tr>
<td width="18" bgcolor="#DDD2C4"></td><td bgcolor="#DDD2C4">订单编号</td><td bgcolor="#DDD2C4" >订货日期</td><td bgcolor="#DDD2C4" >订货金额</td><td bgcolor="#DDD2C4" >业务员</td>
</tr>
<%if request("page2")<>"" then
page2=cint(request("page2"))
else
page2=1
end if
rs.pagesize=10
if page2>=rs.pagecount then
page2=rs.pagecount
else
if page2<1 then
page2=1
end if
end if
rs.AbsolutePage=page2
line=0%>
<%for i=1 to rs.PageSize
line=cint(line)+1%>
<%if line mod 2 =0 then%>
<%backcolor="#f7f7f7"%>
<%else%>
<%backcolor="#EDEBEC"%>
<%end if%>
<tr bgcolor=<%=backcolor%>>
<td width="18"><input type="checkbox" name=<%="checkbox"&line%> value=1 id=checkbox1></td>
<input type="hidden" name=<%="m_order"&line%> value=<%=rs.fields("ordernum")%> id=hidden1>
<td ><a href="D_SaleJYLSmainFrm.asp?tag=1&m_order=<%=rs.Fields("ordernum")%>&page2=<%=page2%>&page1=<%=Request("page1")%>&lookup=<%=tag1%>&m_clientnum=<%=m_id%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>"><%=rs.Fields("ordernum")%></a></td>
<%if rs.Fields("Orddate")<>"" then%>
<td><%=rs.Fields("Orddate")%></td>
<%else%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -