📄 siabaobiao_in_view.asp
字号:
<%@language=vbscript%>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<!-- #include file=../data/flag.inc-->
<%
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
%>
<%'On Error Resume Next%>
<%const title="入库统计报表"%>
<html>
<head>
<title>入库统计报表</title>
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<%
start_year = 1900
start_month = 1
start_day = 1
end_year = 2999
end_month = 12
end_day = 31
start_date = start_year&"-"&start_month&"-"&start_day
end_date = end_year&"-"&end_month&"-"&end_day
smallinput = request("dc_id")
if smallinput = "" then
smallinput = 0
else
smallinput = replace(smallinput,"'","’")
end if
biglocation = request("biglocation")
if biglocation = "" then
biglocation = 0
else
biglocation = replace(biglocation,"'","’")
end if
sia = trim(request("sia"))
sia = replace(sia,"'","’")
oddsia = request("oddsia")
smalllocation = request("smalllocation")
if smalllocation = "" then
smalllocation = 0
else
smalllocation = replace(smalllocation,"'","’")
end if
prod_type2 = trim(request("prod_type"))
prod_type2 = replace(prod_type2,"'","’")
prod_danwei = trim(request("prod_danwei"))
prod_danwei = replace(prod_danwei,"'","’")
inwa_stat = trim(request("inwa_stat"))
inwa_stat = replace(inwa_stat,"'","’")
%>
<body topmargin="0">
<%
Showtitle(title)
%>
<form name="form1" method="post" action="userbaobiao_in_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 width="24" rowspan="2"><div align="center">No.</div></td>
<td width="80" rowspan="2"><div align="center">
<p>进仓编号SIA</p></div>
</td>
<td height="30" colspan="8"><div align="center">货物信息</div></td>
<td height="30" colspan="2"><div align="center">运输信息</div></td>
<td rowspan="2" colspan="2"><div align="center">备注</div></td>
</tr>
<tr>
<td width="62" height="50"><div align="center">货<br>
名</div></td>
<td width="25" height="50"><div align="center">单<br>
位</div></td>
<td width="34" height="50"><div align="center">重<br>
量</div></td>
<td width="53" height="50"><div align="center">尺<br>码</div></td>
<td width="31" height="50"><div align="center">数<br>
量</div></td>
<td width="49" height="50"><div align="center">物品号</div></td>
<td width="51" height="50"><div align="center">管理员</div></td>
<td width="69" height="50"><div align="center">货物情况</div></td>
<td width="86" height="50"><div align="center">送货地区</div></td>
<td width="76" height="50"><div align="center">送货车牌（拆箱箱号）</div></td>
</tr>
<%
sql = "select * from inward,dc,inward_detail,product "
sql = sql + " where inward.inwa_dc_id = dc.dc_id "
sql = sql + "and inward.inwa_id = inward_detail.idetail_inwa_id "
sql = sql + "and inward_detail.idetail_prod_id = product.prod_id "
sql = sql + " and inward.inwa_companyid = "&newcompanyid&" and inward.inwa_date >= #"&start_date&"# and inward.inwa_date <= #"&end_date&"# "
if sia <> "" then
sql = sql + " and inward.inwa_sia like '%"&sia&"%' "
end if
sql = sql + " order by inward.inwa_id asc"
'Response.Write sql
'Response.End
set rs_tongzhi = server.CreateObject("adodb.recordset")
rs_tongzhi.Open sql,conn,1,2
if not rs_tongzhi.eof then
i = 1
do while not rs_tongzhi.eof
%>
<tr>
<td width="24"><%=i%></td>
<td width="80">
<div align="center"><a href="#" onclick="javascript:window.open('ruku_record_info.asp?id=<%=rs_tongzhi("inwa_id")%>&companyid=<%=newcompanyid%>','hamier899e','height=500,width=500,scrollbars')"><font color=navy><%Response.Write rs_tongzhi("inwa_sia")%></font></a></div>
</td>
<td><%response.write rs_tongzhi("prod_pinming")%></td>
<td><%response.write rs_tongzhi("prod_danwei")%></td>
<td><%
prod_danweiwe = trim(rs_tongzhi("prod_weight"))
if prod_danweiwe = "" then
response.write " "
else
response.write prod_danweiwe
end if
idetail_rec_no = rs_tongzhi("idetail_rec_no")
%></td>
<td><%response.write rs_tongzhi("prod_tiji")%></td>
<td width="31"><div align="center"><%response.write rs_tongzhi("idetail_no")%></div></td>
<td width="49"><div align="center"><%response.write rs_tongzhi("prod_no")%></div></td>
<td align="center"><%response.write rs_tongzhi("inwa_contact")%></td>
<td width="69"><div align="center">
<%response.write rs_tongzhi("inwa_stat")%>
</div></td>
<td width="86"><div align="center">
<%response.write rs_tongzhi("inwa_sendto")%>
</div></td>
<td width="76"><div align="center">
<%response.write rs_tongzhi("inwa_sendno")%>
</div></td>
<td width="59"><div align="center">
<%response.write rs_tongzhi("inwa_ser_beizu")%>
</div></td>
<td width="29" align="center"><input type="checkbox" name="<%=i%>" value="<%=rs_tongzhi("idetail_id")%>" checked></td>
</tr>
<%
i = i + 1
rs_tongzhi.movenext
loop
end if
%>
<tr>
<td width="24"><div align="center">总计</div></td>
<td width="80"> </td>
<td> </td>
<td> </td>
<td width="34"> </td>
<td width="53"> </td>
<td> </td>
<td> </td>
<td> </td>
<td width="69"> </td>
<td width="86"> </td>
<td width="76"> </td>
<td width="59"> </td>
<td width="29"> </td>
</tr>
</table>
<input type="hidden" name="no" value="<%=rs_tongzhi.recordcount%>">
<input type="hidden" name="companyid" value="<%=newcompanyid%>">
<%
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:history.go(-1)">
</form>
</div>
<!--#include file=../data/copyright.asp-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -