📄 outward_sra_edit.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-->
<!-- #include file=../data/flag.inc-->
<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">
<%
'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
outw_id = request("id")
if not isnumeric(outw_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
outw_dir_flag = request("outw_dir_flag")
if outw_dir_flag = "True" then
outw_take_address = trim(request("outw_take_address"))
outw_line_no = trim(request("outw_line_no"))
if outw_line_no = "" then
outw_line_no = " "
else
outw_line_no = replace(outw_line_no,"'","’")
end if
outw_take_no = trim(request("outw_take_no"))
if outw_take_no = "" then
outw_take_no = " "
else
outw_take_no = replace(outw_take_no,"'","’")
end if
end if
outw_date = trim(request("outw_date"))
outw_date = replace(outw_date,"：",":")
outw_consign_date = trim(request("outw_consign_date"))
outw_consign_date = replace(outw_consign_date,"：",":")
edit_beizu = trim(request("edit_beizu"))
edit_beizu = replace(edit_beizu,"'","’")
if flag < 4 then
sql="select * from outward where outw_companyid = "&newcompanyid&" and outw_id = "&outw_id&" "
elseif flag = 4 then
sql="select * from outward where outw_companyid = "&newcompanyid&" and outw_id = "&outw_id&" "
sql = sql + " and outw_dc_id in ("&dcservice&") "
else
call closedatabase
Response.End
end if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
'在修改记录之前将相应的数据保存到编辑表中，供以后查证
sql = "select * from outward_edit"
set rs_edit = server.CreateObject("adodb.recordset")
rs_edit.Open sql,conn,3,3
rs_edit.AddNew
rs_edit("outw_id") = outw_id
rs_edit("outw_date_old") = rs("outw_date")
rs_edit("outw_date_now") = outw_date
rs_edit("outw_fact_date_old") = rs("outw_fact_date")
rs_edit("outw_consign_date_old") = rs("outw_consign_date")
rs_edit("outw_consign_date_now") = outw_consign_date
rs_edit("outw_sra_old") = rs("outw_sra")
rs_edit("outw_dc_id") = rs("outw_dc_id")
rs_edit("outw_outstock_date_old") = rs("outw_outstock_date")
rs_edit("outw_stock_beizu_old") = rs("outw_stock_beizu")
rs_edit("outw_stock_man_old") = rs("outw_stock_man")
rs_edit("outw_stock_operate_old") = rs("outw_stock_operate")
rs_edit("outw_flag") = rs("outw_flag")
rs_edit("outw_companyid") = newcompanyid
rs_edit("outw_disabled") = rs("outw_disabled")
rs_edit("outw_dir_flag") = rs("outw_dir_flag")
rs_edit("outw_take_address_old") = rs("outw_take_address")
rs_edit("outw_line_no_old") = rs("outw_line_no")
rs_edit("outw_take_no_old") = rs("outw_take_no")
rs_edit("outw_service_beizu") = rs("outw_service_beizu")
rs_edit("outw_service_man") = rs("outw_service_man")
rs_edit("stock_flag") = rs("stock_flag")
rs_edit("cull_flag") = rs("cull_flag")
rs_edit("attemper_flag") = rs("attemper_flag")
rs_edit("tiaoma_flag") = rs("tiaoma_flag")
if outw_dir_flag = "True" then
rs_edit("outw_take_address_now") = outw_take_address
rs_edit("outw_line_no_now") = outw_line_no
rs_edit("outw_take_no_now") = outw_take_no
end if
rs_edit("delete_flag") = 0
rs_edit("edit_man") = User
rs_edit("edit_fact_date") = now()
rs_edit("edit_beizu") = edit_beizu
rs_edit.Update
rs_edit.Close
set rs_edit = nothing
'修改OUTWARD表中的相应记录
if outw_dir_flag = "True" then
rs("outw_take_address") = outw_take_address
rs("outw_line_no") = outw_line_no
rs("outw_take_no") = outw_take_no
end if
rs("outw_date") = outw_date
rs("outw_consign_date") = outw_consign_date
rs.Update
rs.close
set rs = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{alert(""记录修改成功！"");opener.location.reload();window.close();}"
Response.Write "</script>"
else
rs.close
set rs = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{alert(""该记录已经被删除或则您没有操作该记录的权限！"");opener.location.reload();window.close();}"
Response.Write "</script>"
end if
else'未POST
if flag < 4 then
sql="select * from outward where outw_companyid = "&newcompanyid&" and outw_id = "&outw_id&" "
elseif flag = 4 then
sql="select * from outward where outw_companyid = "&newcompanyid&" and outw_id = "&outw_id&" "
sql = sql + " and outw_dc_id in ("&dcservice&") "
else
call closedatabase
Response.End
end if
'Response.Write sql
'Response.End
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
outw_date = rs("outw_date")
outw_fact_date = rs("outw_fact_date")
outw_consign_date = rs("outw_consign_date")
outw_sra = rs("outw_sra")
outw_dc_id = rs("outw_dc_id")
outw_outstock_date = rs("outw_outstock_date")
outw_stock_beizu = rs("outw_stock_beizu")
outw_stock_man = rs("outw_stock_man")
outw_stock_operate = rs("outw_stock_operate")
outw_flag = rs("outw_flag")
outw_dir_flag = rs("outw_dir_flag")
outw_take_address = trim(rs("outw_take_address"))
outw_line_no = trim(rs("outw_line_no"))
outw_take_no = trim(rs("outw_take_no"))
outw_service_beizu = rs("outw_service_beizu")
outw_service_man = rs("outw_service_man")
stock_flag = rs("stock_flag")
cull_flag = rs("cull_flag")
attemper_flag = rs("attemper_flag")
%>
<form action="outward_sra_edit.asp" method="POST" name="output1">
<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 outw_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 "<input style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='outw_take_address' value='"&outw_take_address&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=40>"
%></td>
</tr>
<tr>
<td width="15%">航班号：</td>
<td colspan="3" width="85%">
<%
response.write "<input style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='outw_line_no' value='"&outw_line_no&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=15>"
%></td>
</tr>
<tr>
<td width="15%">空运提单号：</td>
<td colspan="3" width="85%">
<%
response.write "<input style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='outw_take_no' value='"&outw_take_no&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=15>"
%></td>
</tr>
<%
else
ziti_flag = 0
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 outw_id%></td>
</tr>
<tr>
<td width="15%">S R A：</td>
<td colspan="3" width="85%">
[ <a href="odd_edit_sra.asp?id=<%=outw_id%>&companyid=<%=newcompanyid%>"><font color=red> <%response.write outw_sra%> </font></a> ]</td>
</td>
</tr>
<tr>
<td width="15%">填写日期：</td>
<td colspan="3" width="85%">
<%
response.write "<input style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='outw_date' value='"&outw_date&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
%></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -