📄 codesearch_out.asp
字号:
<%@language=vbscript%>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%'On Error Resume Next%>
<%const title="条码查询结果"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<!-- #include file=../data/flag.inc-->
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<%
newcompanyid = request("companyid")
if newcompanyid = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""请先选择公司再做此步操作！"");"
Response.write "history.go(-1);"
Response.Write "</script>"
Response.End
elseif not isnumeric(newcompanyid) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
Response.Write "</script>"
Response.End
else
newcompanyid = cint(newcompanyid)
end if
xianhao = trim(request("xianhao"))
sia = trim(request("sia"))
if xianhao = "" and sia = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""箱号或者条码至少一个不得为空白!!!"");"
Response.Write "</script>"
Response.End
end if
xianhao = replace(xianhao,"'","’")
sia = replace(sia,"'","’")
sql = "select company_table from io_company where io_flag = 2 and company_id = "&newcompanyid&" order by id desc"
'Response.Write sql
'Response.End
set rs_data = conn.execute(sql)
if rs_data.eof then
rs_data.close
set rs_data = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""箱号或者条码不存在!!!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
else
dim io_flag
io_flag = 0
do while not rs_data.eof
'Response.Write sql
'Response.End
io_table = rs_data("company_table")
'如果条码为空,则箱号所在的记录可能是同一记录的多个产品
if sia <> "" then
sql = "select out_elink_id,out_detail_id from " &io_table&" where 1 = 1 "
if xianghao <> "" then
sql = sql + " and out_info_xianghao = '"&xianhao&"' "
end if
sql = sql + " and out_info_code = '"&sia&"'"
set rs_io = conn.execute(sql)
if not rs_io.eof then
elink_id = rs_io("out_elink_id")
detail_id = rs_io("out_detail_id")
io_flag = 1
'找到记录则立即退出循环
rs_io.close
set rs_io = nothing
exit do
end if
rs_io.close
set rs_io = nothing
else
sql = "select out_elink_id,out_detail_id from " &io_table&" where out_info_xianghao = '"&xianhao&"' "
sql = sql + "group by out_elink_id,out_detail_id "
'Response.Write sql
'Response.End
set rs_o = server.CreateObject("adodb.recordset")
rs_o.Open sql,conn,1,3
if not rs_o.EOF then
count = rs_o.RecordCount
if count = 1 then
elink_id = rs_o("out_elink_id")
detail_id = rs_o("out_detail_id")
io_flag = 1
'找到记录则立即退出循环
rs_o.Close
set rs_o = nothing
exit do
else
elink_id = ""
detail_id = ""
elink_flag = false
do while not rs_o.EOF
if elink_flag = true then
elink_id = elink_id &","& rs_o("out_elink_id")
detail_id = detail_id &","& rs_o("out_detail_id")
else
elink_id = elink_id & rs_o("out_elink_id")
detail_id = detail_id & rs_o("out_detail_id")
elink_flag = true
end if
rs_o.MoveNext
loop
io_flag = 1
'找到记录则立即退出循环
rs_o.Close
set rs_o = nothing
exit do
end if
end if
rs_o.Close
set rs_o = nothing
end if
rs_data.movenext
loop
if io_flag = 0 then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""箱号或者条码不存在!!!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
end if
rs_data.close
set rs_data = nothing
%>
<body topmargin="0">
<%
Showtitle(title)
%>
<form name="form1" method="post" action="baobiao_out_view_print.asp" target=_blank>
<div align="center">
<table width=100% align=center border='1' cellspacing='0' bordercolordark='#000000' bordercolorlight='#DADBFC' bordercolor='#000000'>
<tr>
<td rowspan="2" width="32">
<div align="center">No.</div>
</td>
<td rowspan="2" width="88">
<div align="center">易联单号</div>
</td>
<td colspan="4">
<div align="center">货品信息</div>
</td>
<td colspan="4">
<div align="center">收货人信息</div>
</td>
<td colspan="2">
<div align="center">发运信息</div>
</td>
<td rowspan="2" width="85">
<div align="center">备注</div>
</td>
</tr>
<tr>
<td width="57">
<div align="center">型号</div>
</td>
<td width="57">
<div align="center">颜色</div>
</td>
<td width="58">
<div align="center">数量</div>
</td>
<td width="65">
<div align="center">商品号</div>
</td>
<td width="68">
<div align="center">收货人</div>
</td>
<td width="73">
<div align="center">联系电话</div>
</td>
<td width="67">
<div align="center">派送地址</div>
</td>
<td width="71">
<div align="center">身份证号</div>
</td>
<td width="67">
<div align="center">运输方式</div>
</td>
<td width="79">
<div align="center">要求到达时间</div>
</td>
</tr>
<%
sql = "select * from outward_elink "
sql = sql + " join outward_detail on outward_elink.elink_id = outward_detail.detail_elink_id "
sql = sql + " join detail_info on outward_detail.detail_id = detail_info.info_detail_id "
sql = sql + " join product on outward_detail.detail_prod_id = product.prod_id "
if sia <> "" or count = 1 then
sql = sql + " where outward_elink.elink_companyid = "&newcompanyid&" and outward_elink.elink_id = "&elink_id&" "
sql = sql + " and outward_detail.detail_id = "&detail_id&" "
else
sql = sql + " where outward_elink.elink_companyid = "&newcompanyid&" and outward_elink.elink_id in ("&elink_id&") "
sql = sql + " and outward_detail.detail_id in ("&detail_id&") "
end if
if flag > 3 then
sql = sql + " and (outward_elink.elink_dc_id in ("&dcservice&") or outward_elink.attemper_dc_id in ("&dcservice&")) "
end if
sql = sql + " order by outward_detail.detail_id asc "
'Response.Write sql
'Response.End
set rs_tongzhi = server.CreateObject("adodb.recordset")
rs_tongzhi.Open sql,conn,1,1
if not rs_tongzhi.eof then
'rs_tongzhi.movefirst
i = 1
do while not rs_tongzhi.eof
%>
<tr>
<td width="30">
<div align="center"><%=i%></div>
</td>
<td width="83">
<div align="center">
<a href="#" onclick="javascript:window.open('elink_record_info.asp?id=<%=rs_tongzhi("elink_id")%>&companyid=<%=newcompanyid%>','hamier899e','height=500,width=500,scrollbars')"><font color=navy><%Response.Write rs_tongzhi("elink_odd")%></font></a>
</div>
</td>
<td width="48">
<div align="center"><%Response.Write rs_tongzhi("prod_type")%></div>
</td>
<td width="48">
<div align="center"><%
if trim(rs_tongzhi("prod_color")) = "" then
Response.Write " "
else
response.write rs_tongzhi("prod_color")
end if
%></div>
</td>
<td width="49">
<div align="center"><%Response.Write rs_tongzhi("detail_no")%></div>
</td>
<td width="55">
<div align="center"><%Response.Write rs_tongzhi("prod_no")%></div>
</td>
<%
sql = "select * from guest where guest_id = "&rs_tongzhi("detail_guest_id")&""
set rs_comp = conn.execute(sql)
if not rs_comp.eof then
guest_user = rs_comp("guest_user")
guest_tel = rs_comp("guest_tel")
if trim(guest_tel) = "" then guest_tel=" "
guest_address = rs_comp("guest_address")
if trim(guest_address) = "" then guest_address=" "
guest_idcard = rs_comp("guest_idcard")
if trim(guest_idcard) = "" then guest_idcard=" "
end if
rs_comp.close
set rs_comp = nothing
%>
<td width="65">
<div align="center"><%Response.Write guest_user%></div>
</td>
<td width="67">
<div align="center"><%Response.Write guest_tel%></div>
</td>
<td width="64">
<div align="center"><%Response.Write guest_address%></div>
</td>
<td width="154">
<div align="center"><%Response.Write guest_idcard%></div>
</td>
<%
outw_flag = rs_tongzhi("elink_flag")
%>
<td width="42">
<div align="center"><%
transport_type = rs_tongzhi("transport_type")
if transport_type = 1 then
Response.Write "汽运"
elseif transport_type = 2 then
Response.Write "空运"
elseif transport_type = 3 then
Response.Write "铁路"
elseif transport_type = 4 then
Response.Write "EMS"
elseif transport_type = 0 then
Response.Write " "
else
Response.End
end if
%></div>
</td>
<%
outw_yuji_time = trim(rs_tongzhi("info_yuji_time"))
%>
<td width="60">
<div align="center"><%
Response.Write outw_yuji_time &" "
%></div>
</td>
<td width="63"><input type="checkbox" name="<%=i%>" value="<%=rs_tongzhi("detail_id")%>" checked></td>
</tr>
<%
i = i + 1
rs_tongzhi.movenext
loop
end if
%>
<tr>
<td width="24"><div align="center">总计</div></td>
<td width="97"> </td>
<td> </td>
<td> </td>
<td width="25"> </td>
<td width="49"> </td>
<td> </td>
<td> </td>
<td> </td>
<td width="38"> </td>
<td width="97"> </td>
<td width="35"> </td>
<td width="52"> </td>
</tr>
</table>
<input type="hidden" name="no" value="<%=rs_tongzhi.recordcount%>">
<input type="hidden" name="companyid" value="<%=newcompanyid%>">
<input type="hidden" name="oddsra" value="2">
<%
if rs_tongzhi.recordcount > 0 then
%>
<input class=buttonface type="submit" name="ok" value="打印选择项">
<input class=buttonface type="reset" name="ok" value="重设">
<%
end if
rs_tongzhi.Close
set rs_tongzhi = nothing
call closedatabase
%>
<input class=buttonface type="button" name="ok" value="返回" onclick="javascript:window.location.href='codesearch.asp?companyid=<%=newcompanyid%>'">
</form>
<p align="left"> </p>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -