📄 rukutongzhi.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(""请先选择公司再做此步操作！"");"
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=gb_2312-80">
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<body topmargin="0">
<%
dim rtu
rtu = 0
inward_id = trim(request("id"))
if not isnumeric(inward_id) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""id必须为整数！"");history.go(-1);"
Response.Write "</script>"
Response.End
end if
'sql = "select * from inward join dc on inward.inwa_dc_id = dc.dc_id where inwa_id = "&inward_id&""
sql = "select * from inward where inwa_id = "&inward_id&" and inwa_companyid = "&newcompanyid&""
set rs_tongzhi = server.CreateObject("adodb.recordset")
rs_tongzhi.Open sql,conn,3,2
if not rs_tongzhi.eof then
dc_id = rs_tongzhi("inwa_dc_id")
inwa_sia = rs_tongzhi("inwa_sia")
inwa_date = rs_tongzhi("inwa_date")
inwa_type = rs_tongzhi("inwa_type")
inwa_yuji_time = rs_tongzhi("inwa_yuji_time")
inwa_contact = rs_tongzhi("inwa_contact")
inwa_flag = rs_tongzhi("inwa_flag")
'inwa_rec_datetime = rs_tongzhi("inwa_rec_date")
'inwa_rec_date = formatdatetime(inwa_rec_datetime,2)
'inwa_rec_time = formatdatetime(inwa_rec_datetime,4)
'inwa_rec_man = rs_tongzhi("inwa_rec_man")
sql = "select dc_code,dc_name from dc where dc_id = "&dc_id&""
set rs_dc = conn.execute(sql)
if not rs_dc.eof then
dc_code = rs_dc("dc_code")
dc_name = rs_dc("dc_name")
end if
rs_dc.close
set rs_dc = nothing
%>
<div align=center><font size=4>入库通知书</font></div><br>
<div align="center">
<p align="left">致RDC/EDC： <%Response.Write "<font size=3><b>"&dc_name&"</b></font>"%> 日期：<%Response.Write date()%> </p>
<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.</td>
<td width="97" rowspan="2"><div align="center">
<p>Stock Inward<br>
Advice No.</p>
</td>
<td height="30" colspan="4"><div align="center">货品信息</div></td>
<td colspan="3"><div align="center">其它信息</div></td>
<td colspan="4"><div align="center">签收信息</div></td>
<td width="63" rowspan="2"><div align="center">备注</div></td>
</tr>
<tr>
<td width="90" height="50"><div align="center">型号</div></td>
<td width="55" height="50"><div align="center">颜色</div></td>
<td width="25" height="50"><div align="center">数量</div></td>
<td width="49" height="50"><div align="center">商品号</div></td>
<td width="48" height="50"><div align="center">空运或汽运</div></td>
<td width="51" height="50"><div align="center">预计到达时间</div></td>
<td width="49" height="50"><div align="center">联系人/电话</div></td>
<td width="38" height="50"><div align="center">实收<br>
数量</div></td>
<td width="97" height="50"><div align="center">签收日期</div></td>
<td width="35" height="50"><div align="center">签收<br>
时间</div></td>
<td width="52" height="50"><div align="center">签收人</div></td>
</tr>
<%
i = 0
sql = "select * from inward_detail where idetail_inwa_id = "&inward_id&" order by idetail_id asc"
'Response.Write sql
'Response.End
set rs_det = server.CreateObject("adodb.recordset")
rs_det.Open sql,conn,3,3
do while not rs_det.eof
prod_id = rs_det("idetail_prod_id")
inwa_no = rs_det("idetail_no")
rec_no = rs_det("idetail_rec_no")
inwa_rec_datetime = rs_det("idetail_rec_date")
if inwa_rec_datetime <> "" then
inwa_rec_date = formatdatetime(inwa_rec_datetime,2)
inwa_rec_time = formatdatetime(inwa_rec_datetime,4)
end if
inwa_rec_man = rs_det("idetail_rec_man")
sql = "select prod_type,prod_color,prod_no from product where prod_id = "&prod_id&""
set rs_prod = conn.execute(sql)
if not rs_prod.eof then
prod_type = rs_prod("prod_type")
prod_color = rs_prod("prod_color")
prod_no = rs_prod("prod_no")
end if
rs_prod.close
set rs_prod = nothing
i = i + 1
%>
<tr>
<td width="24"><%=i%></td>
<td width="97"><%Response.write inwa_sia%></td>
<td><%response.write prod_type%></td>
<td><%response.write prod_color%></td>
<td width="25"><div align="center"><%response.write inwa_no%></div></td>
<td width="49"><div align="center"><%response.write prod_no%></div></td>
<td><div align="center"><%response.write inwa_type%></div></td>
<td><%response.write inwa_yuji_time%></td>
<td><%response.write inwa_contact%></td>
<td width="38"><div align="center">
<%
if rec_no <> 0 then
response.write rec_no
else
Response.Write " "
end if
%></div></td>
<td width="97">
<%
if rec_no <> 0 then
response.write inwa_rec_date
else
Response.Write " "
end if
%></td>
<td width="35">
<%
if rec_no <> 0 then
response.write inwa_rec_time
else
Response.Write " "
end if%></td>
<td width="52"><div align="center">
<%
if rec_no <> 0 then
response.write inwa_rec_man
else
Response.Write " "
end if
%></div></td>
<%
if i = 1 then
%>
<td rowspan="<%=rs_det.recordcount%>" width="63"> </td>
<%
end if
%>
</tr>
<%
rs_det.MoveNext
loop
rs_det.Close
set rs_det = nothing
rtu = 1
end if
rs_tongzhi.Close
set rs_tongzhi = nothing
%>
<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>
<td width="63"> </td>
</tr>
</table>
<p align="left"> </p>
</div>
</body>
</html>
<script language=javascript>
<%if rtu = 1 then%>
window.print();
<%end if%>
window.close();
</script>
<%call closedatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -