📄 inattemper_record_sign.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)
if flag > 4 then
call closedatabase
Response.End
end if
'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
if Request.ServerVariables("REQUEST_METHOD")="POST" then
sql = "update inward set inattemper = 1 where inwa_id = "&inwa_id&" and inwa_companyid = "&newcompanyid&""
conn.execute(sql)
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "opener.location.reload();window.close();"
Response.Write "</script>"
Response.End
else
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_rec_date = rs("inwa_rec_date")
'inwa_rec_man = rs("inwa_rec_man")
'inwa_rec_idcard = rs("inwa_rec_idcard")
'inwa_rec_operate = rs("inwa_rec_operate")
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"))
inattemper = rs("inattemper")
%>
<form action="inattemper_record_sign.asp" method="POST" name="input1">
<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>
<%
if dir_flag = true then
%>
<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_take_address & " "%></td>
</tr>
<tr>
<td width="15%">航班号：</td>
<td colspan="3" width="85%">
<%response.write inwa_line_no & " "%></td>
</tr>
<tr>
<td width="15%">空运提单号：</td>
<td colspan="3" width="85%">
<%response.write inwa_take_no & " "%></td>
</tr>
<%
end if
%>
<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_date & " "%></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&""
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%">DC信息：</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_type & " "%></td>
</tr>
<tr>
<td width="15%">预计到达时间：</td>
<td colspan="3" width="85%">
<%response.write inwa_yuji_time & " "%></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 bgcolor=green >
<td width="15%"><b><font color=white> 产品信息：</font></b></td>
<td width="35%">
<b><font color=white> 产品</font></b></td>
<%
if inwa_flag = 1 then
%>
<td width="25%">
<b><font color=white> 数量</font></b></td>
<td width="25%">
<b><font color=white> 实收数量</font></b></td>
<%
else
%>
<td width="50%">
<b><font colspan="2" color=white> 数量</font></b></td>
<%
end if
%>
</tr>
<%
sql = "select * from inward_detail where idetail_inwa_id = "&inwa_id&" order by idetail_id"
set rs_detail = conn.execute(sql)
do while not rs_detail.eof
prod_id = rs_detail("idetail_prod_id")
inwa_no = rs_detail("idetail_no")
inwa_rec_no = rs_detail("idetail_rec_no")
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_color = rs_prod("prod_color")
prod_pinming = rs_prod("prod_pinming")
prod_weight = rs_prod("prod_weight")
prod_volume = rs_prod("prod_volume")
Response.Write "<tr>"
Response.Write "<td width=""25%""> </td>"
Response.Write "<td width=""35%"">"
response.write prod_no &" " & prod_type &" " & prod_color &" " & prod_pinming &" " & prod_weight &" " & prod_volume
Response.Write "</td>"
if inwa_flag = 1 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>"
end if
rs_prod.close
set rs_prod = nothing
rs_detail.movenext
loop
rs_detail.close
set rs_detail = nothing
%>
<tr>
<td colspan=4 align=left bgcolor=green height=20><b><font color=white> 签 收 信 息</font></b></td>
</tr>
<%
if inwa_flag = 1 then
%>
<tr>
<td width="15%"> 入库日期：</td>
<td colspan="3" width="85%">
<%response.write formatdatetime(inwa_rec_date,2)%></td>
</tr>
<tr>
<td width="15%"> 签收时间：</td>
<td colspan="3" width="85%">
<%response.write formatdatetime(inwa_rec_date,4)%></td>
</tr>
<tr>
<td width="15%">签收人：</td>
<td colspan="3" width="85%">
<%response.write inwa_rec_man & " "%></td>
</tr>
<tr>
<td width="15%">身份证号：</td>
<td colspan="3" width="85%">
<%response.write inwa_rec_idcard&" "%></td>
</tr>
<tr>
<td width="15%">签收填写人：</td>
<td colspan="3" width="85%">
<%response.write inwa_rec_operate & " "%></td>
</tr>
<%
else
Response.Write "<tr><td colspan=""4"">入库签收尚未填写！！！<td></tr>"
end if
%>
<tr bgcolor=white>
<td colspan="4"><br><br>
<center>
<input class=buttonface type=hidden name=id value='<%=inwa_id%>'>
<input class=buttonface type=hidden name=companyid value='<%=newcompanyid%>'>
<%if inattemper <> 1 then%>
<input class=buttonface type=submit name=ok value=调度确认>
<%end if%>
</center>
<br><br>
</tr>
</table>
</form>
<%
else
Response.Write "可能该数据已经被他人删除,请刷新主页面!"
end if
rs.Close
set rs = nothing
call closedatabase
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -