?? baobiao_in_view_print.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-->
<%
newcompanyid = request("companyid")
if newcompanyid = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert("""+newcompanyid +"請先選擇公司再做此步操作！"");"
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%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<body topmargin="0">
<%
sql = "select company_name from company where company_id = "&newcompanyid&""
set rs_company = conn.execute(sql)
if not rs_company.eof then
company_name = rs_company("company_name")
end if
rs_company.close
set rs_company = nothing
%>
<label name=table id=table>
<div align=center><font size=4><%=company_name%>入庫統計報表</font></div><br>
<div align="center">
<p align="left">致： 日期：<%Response.Write date()%> </p>
<table width=100% align=center border='1' cellspacing='0' bordercolordark='#000000' bordercolorlight='#DADBFC' bordercolor='#000000'>
<tr>
<td width=26 rowspan="2"><div align="center">No.</td>
<td width=29 rowspan="2"><div align="center">
<p>進倉編號SIA.</p>
</td>
<td height="30" colspan="10"><div align="center">物品信息</div></td>
<td height="30" colspan="3"><div align="center">運輸信息</div></td>
<td colspan="2"><div align="center">時間信息</div></td>
<td width="49" rowspan="2"><div align="center">備注</div></td>
</tr>
<tr>
<td width="55" height="50"><div align="center">貨名</div></td>
<td width="20" height="50"><div align="center">單位</div></td>
<td width="19" height="50"><div align="center">重量</div></td>
<td width="27" height="50"><div align="center">尺碼</div></td>
<td width="23" height="50"><div align="center">數量</div></td>
<td width="27" height="50"><div align="center">物品號</div></td>
<td width="29" height="50"><div align="center">上下車金額元</div></td>
<td width="19" height="50"><div align="center">管理員</div></td>
<td width="38" height="50"><div align="center">貨物情況</div></td>
<td width="47" height="50"><div align="center">庫位</div></td>
<td width="52" height="50"><div align="center">送貨地區</div></td>
<td width="49" height="50"><div align="center">送貨車牌（拆箱箱號）</div></td>
<td width="58" height="50"><div align="center">裝箱箱號（提貨車號）</div></td>
<td width="64" height="50"><div align="center">入庫日期</div></td>
<td width="64" height="50"><div align="center">出庫日期</div></td>
</tr>
<%
no = clng(Request.Form("no"))
if no > 0 then
u =0
flag1 = ""
for i = 1 to no
flag = trim(Request.Form(""&i&""))
if flag<> "" then
u = u + 1
flag1 =flag1 & trim(Request.Form(""&i&"")) & ","
end if
next
if trim(flag1) <> "" then
flag1 = left(flag1,len(flag1)-1)
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_detail.idetail_id in ("&flag1&") "
sql = sql + " order by inward.inwa_id asc "
set rs_tongzhi = server.CreateObject("adodb.recordset")
rs_tongzhi.Open sql,conn,1,1
if not rs_tongzhi.eof then
i = 1
rs_tongzhi.MoveFirst
do while not rs_tongzhi.eof
%>
<tr>
<td width="26" align="center"><%=i%></td>
<td width="29" align="center"><%Response.write rs_tongzhi("inwa_sia")%></td>
<td width="55" align="center"><%response.write rs_tongzhi("prod_pinming")%></td>
<td width="20"><%prod_danweiwe = trim(rs_tongzhi("prod_danwei"))
if prod_danweiwe = "" then
response.write " "
else
response.write prod_danweiwe
end if
inwa_dc_id = rs_tongzhi("inwa_dc_id")
%></td>
<td><%response.write rs_tongzhi("prod_weight")%></td>
<td width="27"><div align="center"><%response.write rs_tongzhi("prod_tiji")%></div></td>
<td width="23"><div align="center"><%response.write rs_tongzhi("idetail_no")%></div></td>
<td><div align="center"><%response.write rs_tongzhi("prod_no")%></div></td>
<td width="29"><div align="center"><%response.write rs_tongzhi("prod_danjia")%></div></td>
<td width="19"><div align="center"><%response.write rs_tongzhi("inwa_contact")%></div></td>
<td><div align="center"><%response.write rs_tongzhi("inwa_stat")%></div></td>
<%
sql = "select * from dc where dc_id = "&inwa_dc_id&""
'Response.Write sql
'Response.End
set rs_dc = conn.execute(sql)
if not rs_dc.eof then
dc_name = rs_dc("dc_name")
end if
rs_dc.close
set rs_dc = nothing
%>
<td width="47"><div align="center">
<%response.write dc_name %>
</div></td>
<td width="52"><div align="center">
<%response.write rs_tongzhi("inwa_sendto")%>
</div></td>
<td width="49"><div align="center">
<%response.write rs_tongzhi("inwa_sendno")%>
</div></td>
<td width="58"><div align="center">
<%response.write rs_tongzhi("inwa_getno")%>
</div></td>
<td width="64">
<%response.write rs_tongzhi("inwa_fact_date")%>
</td>
<td width="64"><div align="center">
<%response.write rs_tongzhi("inwa_outdate")%>
</div></td>
<%if i = 1 then%>
<td rowspan=<%=u%> width="49"><%response.write rs_tongzhi("inwa_ser_beizu")%> </td>
<%end if%>
</tr>
<%
i = i + 1
rs_tongzhi.movenext
loop
end if
rs_tongzhi.Close
set rs_tongzhi = nothing
call closedatabase
end if
%>
<tr>
<td width="26"><div align="center">總計</div></td>
<td width="29"> </td>
<td width="55"> </td>
<td width="20"> </td>
<td width="19"> </td>
<td width="27"> </td>
<td> </td>
<td> </td>
<td> </td>
<td width="19"> </td>
<td width="38"> </td>
<td width="47"> </td>
<td width="52"> </td>
<td width="49"> </td>
<td width="58"> </td>
<td width="64"> </td>
<td width="64"> </td>
<td width="49"> </td>
</tr>
</table>
<%
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -