📄 search_ruku_record_info.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%const title="入库记录详细信息"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
</head>
<body topmargin="0">
<%
if isempty(session("username")) then
call closedatabase
Response.Write "请重新登入!"
Response.End
end if
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
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
'Response.Write "<p align=center><font size=+2 color=blue><a href='#' onclick=""javascript:window.close()"">[关闭]</a></font></p>"
'response.write "<hr size=1>"
' 选则dc
inwa_id = request("id")
if not isnumeric(inwa_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 where inwa_companyid = "&newcompanyid&" and inwa_id = "&inwa_id&""
'Response.Write sql
'Response.End
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
inwa_id = rs("inwa_id")
inwa_date = rs("inwa_date")
inwa_fact_date = rs("inwa_fact_date")
inwa_sia = rs("inwa_sia")
inwa_dc_id = rs("inwa_dc_id")
inwa_type = rs("inwa_type")
inwa_yuji_time = rs("inwa_yuji_time")
inwa_contact = rs("inwa_contact")
inwa_operate = rs("inwa_operate")
inwa_ser_beizu = rs("inwa_ser_beizu")
inwa_flag = rs("inwa_flag")
dir_flag = rs("inwa_dir_flag")
inwa_take_address = trim(rs("inwa_take_address"))
inwa_line_no = trim(rs("inwa_line_no"))
inwa_take_no = trim(rs("inwa_take_no"))
%>
<table align=center width=100% cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC' border="1">
<tr>
<td colspan=4 align=center bgcolor=red><b><font color=yellow>入库记录详细信息一览</font></b></td>
</tr>
<tr>
<td colspan=4 align=left bgcolor=green height=20><b><font color=white> 订 单 信 息</font></b></td>
</tr>
<tr>
<td width="15%">系统编号：</td>
<td colspan="3" width="85%">
<%response.write inwa_id%></td>
</tr>
<tr>
<td width="15%">S I A：</td>
<td colspan="3" width="85%">
<%response.write inwa_sia%></td>
</tr>
<tr>
<td width="15%">入库单日期：</td>
<td colspan="3" width="85%">
<%response.write inwa_fact_date & " "%></td>
</tr>
<%
sql = "select * from dc where dc_companyid = "&newcompanyid&" and dc_id = "&inwa_dc_id&""
'Response.Write sql
'Response.End
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
%>
<tr>
<td width="15%">仓库信息：</td>
<td colspan="3" width="85%">
<%response.write dc_code &" "& dc_name %></td>
</tr>
<tr>
<td width="15%">联系人/电话：</td>
<td colspan="3" width="85%">
<%response.write inwa_contact & " "%></td>
</tr>
<tr>
<td width="15%">入库单填写人：</td>
<td colspan="3" width="85%">
<%response.write inwa_operate & " "%></td>
</tr>
<tr>
<td width="26%">状态：</td>
<td colspan="6">
<%set rs_stat=server.CreateObject("adodb.recordset")
rs_stat.Open "select * from stat where stat_sia="&inwa_sia, conn, 1, 3
if not rs_stat.eof then
stat1=rs_stat("stat")
if stat1=1 then
response.Write("良好")
elseif stat1=0 then
response.Write("损坏")
end if
end if
rs_stat.close
set rs_stat=nothing%></td>
</tr>
<tr bgcolor=green >
<td width="15%"><b><font color=white> 物品信息：</font></b></td>
<td width="35%">
<b><font color=white> 物品</font></b></td>
<td width="25%">
<b><font color=white> 数量</font></b></td>
<td width="25%">
<b><font color=white> 签收数量</font></b></td>
</tr>
<%
sql = "select * from inward_detail where idetail_inwa_id = "&inwa_id&" order by idetail_id"
set rs_detail = conn.execute(sql)
record = 0
do while not rs_detail.eof
record=record+1
if record/2=int(record/2) then
bgclr="#F1F1C9"
else
bgclr="#F1F1C9"
end if
prod_id = rs_detail("idetail_prod_id")
inwa_no = rs_detail("idetail_no")
inwa_rec_no = rs_detail("idetail_rec_no")
idetail_rec_date = rs_detail("idetail_rec_date")
idetail_rec_man = rs_detail("idetail_rec_man")
idetail_rec_idcard = rs_detail("idetail_rec_idcard")
idetail_rec_operate = rs_detail("idetail_rec_operate")
idetail_flag = rs_detail("idetail_flag")
sql = "select * from product where prod_companyid = "&newcompanyid&" and prod_id = "&prod_id&""
set rs_prod = conn.execute(sql)
if not rs_prod.eof then
prod_no = rs_prod("prod_no")
prod_type = rs_prod("prod_type")
prod_danwei = rs_prod("prod_danwei")
prod_pinming = rs_prod("prod_pinming")
prod_danjia = rs_prod("prod_danjia")
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""25%""> </td>"
Response.Write "<td width=""35%"">"
response.write prod_no &" " & prod_type &" " & prod_danwei &" " & prod_pinming &" " & prod_danjia &"" & "元"
Response.Write "</td>"
if inwa_rec_no <> 0 then
Response.Write "<td width=""20%"">"
response.write " "&inwa_no
Response.Write "</td>"
Response.Write "<td width=""20%"">"
response.write " "&inwa_rec_no
else
Response.Write "<td colspan=2 width=""40%"">"
response.write " "&inwa_no
Response.Write "</td>"
end if
Response.Write "</td>"
Response.Write "</tr>"
'Response.Write "<tr>"
'if iu = 0 then
' Response.Write "<td width=""25%"">数量：</td>"
'else
' Response.Write "<td width=""25%""> </td>"
'end if
'Response.Write "<td width=""75%"">"
'response.write inwa_no
'Response.Write "</td>"
'Response.Write "</tr>"
end if
rs_prod.close
set rs_prod = nothing
%>
<%
if inwa_rec_no <> 0 then
%>
<tr>
<td colspan="2"> </td>
<td width="15%"> 序列号：</td>
<td width="85%">
<%set rs_stat=server.CreateObject("adodb.recordset")
rs_stat.Open "select * from stat where stat_sia="&inwa_sia&" order by id", conn, 1, 3
if not rs_stat.eof then
stat1=rs_stat("stat_prod_sn")
response.Write(stat1)
end if
rs_stat.close
set rs_stat=nothing%></td>
</tr>
<tr>
<td colspan="2"> </td>
<td width="15%"> 入库日期：</td>
<td width="85%">
<%response.write formatdatetime(idetail_rec_date,2)%></td>
</tr>
<tr>
<td colspan="2"> </td>
<td width="15%"> 签收时间：</td>
<td width="85%">
<%response.write formatdatetime(idetail_rec_date,4)%></td>
</tr>
<tr>
<td colspan="2"> </td>
<td width="15%">签收人：</td>
<td width="85%">
<%response.write idetail_rec_man & " "%></td>
</tr>
<tr>
<td colspan="2"> </td>
<td width="15%">身份证号：</td>
<td width="85%">
<%response.write idetail_rec_idcard&" "%></td>
</tr>
<tr>
<td colspan="2"> </td>
<td width="15%">签收填写人：</td>
<td width="85%">
<%response.write idetail_rec_operate & " "%></td>
</tr>
<%
end if
rs_detail.movenext
loop
rs_detail.close
set rs_detail = nothing
%>
<%
if inwa_flag <> 1 then
%>
<tr>
<td colspan=4 align=left bgcolor=green height=20><b><font color=white> 签 收 信 息</font></b></td>
</tr>
<%
Response.Write "<tr><td colspan=""4""><font color=red>入库签收尚未填写完整！！！</font><td></tr>"
end if
%>
</table>
<%
else
Response.Write "可能该数据已经被他人删除,请刷新主页面!"
end if
rs.Close
set rs = nothing
call closedatabase
%>
<br>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -