📄 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>
<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>
<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_consign_date' value='"&outw_consign_date&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
%></td>
</tr>
<tr>
<td width="15%">实际填写日期：</td>
<td colspan="3" width="85%">
<%response.write outw_fact_date & " "%></td>
</tr>
<%
sql = "select * from dc where dc_companyid = "&newcompanyid&" and dc_id = "&outw_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%">仓库信息：</td>
<td colspan="3" width="85%">
<%response.write dc_code &" "& dc_name %></td>
</tr>
<%
sql = "select detail_guest_id,min(detail_id) as detail_id from outward_detail where detail_outw_id = "&outw_id&" group by detail_guest_id order by min(detail_id) asc"
set rs_detail = conn.execute(sql)
do while not rs_detail.eof
guest_id = rs_detail("detail_guest_id")
detail_id = rs_detail("detail_id")
Response.Write "<tr bgcolor=green>"
Response.Write "<td width=""15%""><b><font color=white> 领货人信息：</font></b></td>"
Response.Write "<td width=""35%"">"
Response.Write "<b><font color=white> 物品</font></b></td>"
Response.Write "<td width=""50%"">"
Response.Write "<b><font colspan=""2"" color=white> 数量</font></b></td>"
Response.Write "</tr>"
poor_flag = 0
sql = "select * from outward_detail where detail_outw_id = "&outw_id&" and detail_guest_id = "&guest_id&" order by detail_id asc"
set rs_xx = conn.execute(sql)
do while not rs_xx.eof
detail_id = rs_xx("detail_id")
prod_id = rs_xx("detail_prod_id")
detail_no = rs_xx("detail_no")
if poor_flag = 0 then
detail_id2 = detail_id
poor_flag = 1
end if
detail_elink_id = rs_xx("detail_elink_id")
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>"
Response.Write "<td width=""25%""> </td>"
Response.Write "<td width=""35%"">"
response.write prod_no &" " & prod_type &" " & prod_danwei &" " & prod_pinming &" " & prod_weight &" " & prod_volume
Response.Write "</td>"
Response.Write "<td colspan=2 width=""40%"">"
'response.write " "&detail_no &" <a href=""odd_edit_no.asp?ziti_flag="&ziti_flag&"&companyid="&newcompanyid&"&detail_id="&detail_id&""">修改</a>"
response.write " "&detail_no
Response.Write "</td>"
Response.Write "</td>"
Response.Write "</tr>"
end if
rs_prod.close
set rs_prod = nothing
rs_xx.movenext
loop
rs_xx.close
set rs_xx = nothing
rs_detail.movenext
sql = "select * from guest where guest_id = "&guest_id&""
set rs_guest = conn.execute(sql)
if not rs_guest.eof then
guest_user = rs_guest("guest_user")
guest_address = rs_guest("guest_address")
guest_tel = rs_guest("guest_tel")
guest_fax = rs_guest("guest_fax")
end if
rs_guest.close
set rs_guest = nothing
Response.Write "<tr>"
Response.Write "<td width=""15%""> 领货人地址：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write ""& guest_user &" " & guest_address &" " &guest_tel & " " &guest_fax&"</td>"
Response.Write "</tr>"
sql = "select * from detail_info where info_outw_id = "&outw_id&" and info_detail_id = "&detail_id2&""
set rs_info = conn.execute(sql)
if not rs_info.eof then
info_type = rs_info("info_type")
info_takeman_id = rs_info("info_takeman_id")
info_yuji_time = rs_info("info_yuji_time")
info_order_beizu = rs_info("info_order_beizu")
info_order_man = rs_info("info_order_man")
Response.Write "<tr>"
Response.Write "<td width=""15%""> 备注：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write info_order_beizu&" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 出库单填写人：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write info_order_man&" </td>"
Response.Write "</tr>"
end if
rs_info.close
set rs_info = nothing
Response.Write "<tr>"
Response.Write "<td colspan=3>进入<a href='outward_guest_info_edit.asp?detail_id="&detail_id2&"&companyid="&newcompanyid&"'><font color=red>该客户信息修改</font></a></td>"
Response.Write "</tr>"
loop
rs_detail.close
set rs_detail = nothing
%>
<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='edit_beizu' value='' maxlength='25' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">**"
%></td>
</tr>
<input type=hidden name=id value=<%=outw_id%>>
<input type=hidden name=outw_dir_flag value=<%=outw_dir_flag%>>
<input type=hidden name=companyid value=<%=newcompanyid%>>
<tr bgcolor=white>
<td colspan="5"><br><br>
<center>
<input class=buttonface type=button onclick="datacheck()" name=ok value=修改资料>
</center>
<br><br>
</tr>
</table>
</form>
<script language=vbscript>
<!--
Sub datacheck()
if trim(output1.outw_date.value)=empty then
msgbox "「填写日期」不得为空白！", 64, "请输入日期!"
document.output1.outw_date.focus()
Exit Sub
End if
if isdate(trim(output1.outw_date.value)) = false then
msgbox "「填写日期」格式不对！", 64, "请输入正确的日期!"
document.output1.outw_date.focus()
Exit Sub
End if
if trim(output1.outw_consign_date.value)=empty then
msgbox "「委托日期」不得为空白！", 64, "请输入日期!"
document.output1.outw_consign_date.focus()
Exit Sub
End if
if isdate(trim(output1.outw_consign_date.value)) = false then
msgbox "「委托日期」格式不对！", 64, "请输入正确的日期!"
document.output1.outw_consign_date.focus()
Exit Sub
End if
if trim(output1.edit_beizu.value)=empty then
msgbox "「修改备注」不得为空白！", 64, "请填写修改备注!"
document.output1.edit_beizu.focus()
Exit Sub
End if
output1.Submit
End Sub
-->
</script>
<%
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 + -