📄 d_salejylsmainfrm.asp
字号:
<td > </td>
<%end if%>
<%if GetMoney(rs.Fields("Ordernum"))<>"" then%>
<td ><%=GetMoney(rs.Fields("Ordernum"))%></td>
<%else%>
<td > </td>
<%end if%>
<%if GetYWYName(rs.Fields("Stuffnum"))<>"" then%>
<td><%=GetYWYName(rs.Fields("Stuffnum"))%></td>
<%else%>
<td > </td>
<%end if%>
</tr>
<%rs.MoveNext %>
<%if rs.EOF then exit for%>
<%next %>
<%if line<10 then%>
<%for i=line to 10%>
<tr><td width="18"> </td><td > </td><td > </td><td > </td><td > </td></tr>
<%next%>
<%end if%>
<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_level" value=<%=Request("par_level")%>>
</table><hr><br>
<a href="D_SaleJYLSmainFrm.asp?tag=2&page2=1&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>
<font size="2">
<%if page>1 then %>
<a href="D_SaleJYLSmainFrm.asp?tag=2&page2=<%=(page2-1)%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">上一页</a>
<% else%>
上一页
<%end if%>
<%if page1<rs.pagecount then %>
<a href="D_SaleJYLSmainFrm.asp?tag=2&page2=<%=(page2+1)%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">下一页</a>
<% else %>
下一页
<% end if%>
<a href="D_SaleJYLSmainFrm.asp?tag=2&page2=<%=rs.PageCount%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">尾页</a>
共<%=rs.pagecount%>页 第<%=page2%>页
<%rs.close%>
<%aa="Lookup"%><br>
<center><br><a href="D_SalekhsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_typ e=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a> </center>
</font>
<%Response.End %>
<%end if%>
<%if Request("tag")=1 then%><%''''''''''''''''''查看具体信息%>
<%par_id=Request("m_clientnum")%><%'''''''''''客户序号%>
<%m_order=Request("m_order")%>
<%set rs6=server.CreateObject("adodb.recordset")%>
<%rs6.open "select * from F_tblorder where Ordernum='"& m_order &"' and clientnum='"& par_id &"'",pubconn,1,3%>
<%if rs6.recordcount>0 then%>
<br><br><center><font size=3><b>历史交易信息</b></font></center> <br>
<table border=1 cellspacing=0 width="100%">
<tr bgcolor="ffffDf">
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" align="right">订单编号</td><td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><input type="text" size=12 name="m_order" readonly value=<%=m_order%>></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" align="right">经销商名称</td><td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><input type="text" size=12 name="m_clientnum" readonly value=<%=getNameByOrder(m_order)%>></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" align="right">订货日期</td><td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><input type="text" size=12 name="m_date" readonly value=<%=rs6.fields("orddate")%>></td>
</tr>
<tr bgcolor="ffffDf">
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" align="right">订货金额</td><td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><input type="text" size=12 name="m_money" readonly value=<%=GetMoney(m_order)%>></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" align="right">业 务 员</td><td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><input type="text" size=12 name="m_stuffnum" readonly value=<%=GetStuffByOrder(m_order)%>></td>
<td colspan=2 bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" align="right"> </td>
</tr>
<tr bgcolor="ffffDf">
<%bz=""
sql7="select * from f_tblorderdetail where ordernum='"& m_order &"'"
set rs7=pubconn.execute(sql7)
do while not rs7.eof
bz=bz+","+rs7("remark")
rs7.movenext
loop
bz=trim(replace(bz,",","",1,1))%>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" align="right">
备注</td><td colspan=5 align="center" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><input type="text" readonly size=70 name="m_remark" value=<%=bz%>></td>
</tr>
</table> <br><hr>
<%set rs1=server.CreateObject("adodb.recordset")%>
<%rs1.open "select * from F_TblOrderDetail where ordernum='"& m_order &"'",pubconn,1,3%>
<%if rs1.recordcount>0then%>
<table border=1 cellspacing=0 width="100%">
<tr>
<td bgcolor="#DDD2C4">商品名称</td><td bgcolor="#DDD2C4">商品规格</td><td bgcolor="#DDD2C4">扣率</td><td bgcolor="#DDD2C4">计量单位</td><td bgcolor="#DDD2C4">数量</td><td bgcolor="#DDD2C4">金额</td>
</tr>
<%line=0%>
<%rs1.movefirst%>
<%while not rs1.eof
line=cint(line)+1%>
<%if line mod 2 =0 then%>
<%backcolor="#f7f7f7"%>
<%else%>
<%backcolor="#EDEBEC"%>
<%end if%>
<tr bgcolor=<%=backcolor%>>
<%if GetProdNameByCode(rs1.fields("Prodcode"))<>"" then%>
<td><%=GetProdNameByCode(rs1.fields("Prodcode"))%></td>
<%else%>
<td> </td>
<%end if%>
<%if GetProdStandByCode(rs1.fields("Prodcode"))<>"" then%>
<td><%=GetProdStandByCode(rs1.fields("Prodcode"))%></td>
<%else%>
<td> </td>
<%end if%>
<%if rs1.fields("deduct")<>"" then%>
<td><%=rs1.fields("deduct")%></td>
<%else%>
<td> </td>
<%end if%>
<%if GetProdUnitByCode(rs1.fields("Prodcode"))<>"" then%>
<td><%=GetProdUnitByCode(rs1.fields("Prodcode"))%></td>
<%else%>
<td> </td>
<%end if%>
<%if rs1.fields("quantity")<>"" then%>
<td><%=rs1.fields("quantity")%></td>
<%else%>
<td> </td>
<%end if%>
<%if rs1.fields("money")<>"" then%>
<td><%=rs1.fields("money")%></td>
<%else%>
<td> </td>
<%end if%>
</tr>
<%rs1.MoveNext %>
<%wend%>
<%if line<10 then%>
<%for i=line to 10%>
<tr><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td></tr>
<%next%>
<%end if%>
</table>
<%else%><%''''''''''''''''''订单子表不存在%>
<table border=1 cellspacing=0 width="100%">
<tr>
<td bgcolor="#DDD2C4">商品名称</td><td bgcolor="#DDD2C4">商品规格</td><td bgcolor="#DDD2C4">定价(含税)</td><td bgcolor="#DDD2C4">扣率</td><td bgcolor="#DDD2C4">成交价</td><td bgcolor="#DDD2C4">计量单位</td><td bgcolor="#DDD2C4">数量</td><td bgcolor="#DDD2C4">金额</td>
</tr>
<%for i=1 to 10%>
<tr><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td></tr>
<%next%>
</table>
<%end if%>
<%else%> <%'''''''''''''''''''订单表的主表不存在%>
<%end if%>
<%aa="Lookup"%><br>
<center><a href="D_SaleJYLSmainFrm.asp?tag=2&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")%>"><font
size="2">返回</font></a></center>
<%Response.End %>
<%end if%>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -