📄 inward_edit.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<script src="../js/birthday"></script>
<%const title="入库资料修改"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<!--#include file=../data/flag.inc-->
<%
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)
inwa_id = request("id")
if flag > 4 then
call closedatabase
Response.End
end if
%>
<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">
<script language="javascript">
function confirmDel(id){
if ( confirm("你确定要删除系统编号为"+id+"的入库记录吗？")) {
window.location.href = "inward_edit.asp?action=delete&companyid=<%=newcompanyid%>&id=" + id;
}
}
</script>
</head>
<body topmargin="0">
<%
curaction = request("action")
if cstr(curaction) = "delete" then
id = request("id")
if not isnumeric(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_id = "&id&""
'Response.Write sql
'Response.End
set rs_delete = conn.execute(sql)
if not rs_delete.eof then
delete_flag = rs_delete("inwa_flag")
dc_id = rs_delete("inwa_dc_id")
sql ="select * from inward_edit "
set rs_edit = server.CreateObject("adodb.recordset")
rs_edit.Open sql,conn,3,3
rs_edit.AddNew
rs_edit("inwa_id") = id
rs_edit("inwa_date_old") = rs_delete("inwa_date")
rs_edit("inwa_date_now") = inwa_date
rs_edit("inwa_fact_date_old") = rs_delete("inwa_fact_date")
rs_edit("inwa_fact_date_now") = now()
rs_edit("inwa_sia_old") = rs_delete("inwa_sia")
rs_edit("inwa_dc_id") = rs_delete("inwa_dc_id")
rs_edit("inwa_type_old") = rs_delete("inwa_type")
rs_edit("inwa_yuji_time_old") = rs_delete("inwa_yuji_time")
rs_edit("inwa_contact_old") = rs_delete("inwa_contact")
rs_edit("inwa_ser_beizu") = rs_delete("inwa_ser_beizu")
rs_edit("inwa_flag") = rs_delete("inwa_flag")
rs_edit("inwa_companyid") = rs_delete("inwa_companyid")
rs_edit("inwa_disabled") = rs_delete("inwa_disabled")
rs_edit("inwa_dir_flag") = rs_delete("inwa_dir_flag")
rs_edit("inwa_take_address_old") = rs_delete("inwa_take_address")
rs_edit("inwa_line_no_old") = rs_delete("inwa_line_no")
rs_edit("inwa_take_no_old") = rs_delete("inwa_take_no")
rs_edit("inattemper") = rs_delete("inattemper")
rs_edit("tiaoma_flag") = rs_delete("tiaoma_flag")
rs_edit("inwa_operate_old") = rs_delete("inwa_operate")
rs_edit("inwa_operate_now") = User
rs_edit.Update
rs_edit.Close
set rs_edit = nothing
sql = "select * from inward_detail where idetail_inwa_id = "&id&" "
set rs_detail = conn.execute(sql)
if not rs_detail.eof then
do while not rs_detail.eof
prod_id = rs_detail("idetail_prod_id")
detail_no = rs_detail("idetail_no")
detail_rec_no = rs_detail("idetail_rec_no")
idetail_id = rs_detail("idetail_id")
'记录删除的数据
sql = "select * from inward_detail_edit "
set rs_and = server.CreateObject("adodb.recordset")
rs_and.Open sql,conn,3,3
rs_and.AddNew
rs_and("idetail_id") = rs_detail("idetail_id")
rs_and("idetail_inwa_id") = id
rs_and("idetail_prod_id_old") = rs_detail("idetail_prod_id")
rs_and("idetail_prod_id_now") = 0
rs_and("idetail_no_old") = rs_detail("idetail_no")
rs_and("idetail_no_now") = 0
rs_and("idetail_rec_no_old") = rs_detail("idetail_rec_no")
rs_and("idetail_rec_no_now") = 0
rs_and("idetail_date_old") = rs_detail("idetail_date")
rs_and("idetail_man_old") = rs_detail("idetail_man")
rs_and("idetail_rec_beizu_old") = rs_detail("idetail_rec_beizu")
if isdate(rs_detail("idetail_rec_date")) then
rs_and("idetail_rec_date_old") = rs_detail("idetail_rec_date")
end if
rs_and("idetail_rec_man_old") = rs_detail("idetail_rec_man")
rs_and("idetail_rec_idcard_old") = rs_detail("idetail_rec_idcard")
rs_and("idetail_rec_operate_old") = rs_detail("idetail_rec_operate")
if isdate(rs_detail("idetail_rec_fact_date")) then
rs_and("idetail_rec_fact_date_old") = rs_detail("idetail_rec_fact_date")
end if
rs_and("idetail_flag") = rs_detail("idetail_flag")
rs_and("edit_operate_man") = User
rs_and("edit_operate_fact_date") = now()
rs_and.Update
rs_and.Close
set rs_and = nothing
sql = "update inventory set inve_ruku = inve_ruku - "&detail_rec_no&", inve_zaitu = inve_zaitu - "&detail_no&" + "&detail_rec_no&",inve_maysent = inve_maysent - "&detail_rec_no&" ,inve_total = inve_total - "&detail_no&" where inve_dc_id = "&dc_id&" and inve_prod_id = "&prod_id&" and inve_companyid = "&newcompanyid&" and inve_disabled = 0"
conn.execute(sql)
sql = "delete from inward_detail where idetail_id = "&idetail_id&" "
'Response.Write sql
'Response.End
conn.execute(sql)
rs_detail.movenext
loop
end if
rs_detail.close
set rs_detail = nothing
sql = "delete from inward where inwa_id = "&id&""
'Response.Write sql
'Response.End
conn.execute(sql)
end if
rs_delete.close
set rs_delete = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{opener.location.reload();window.close();}"
Response.Write "</script>"
Response.End
end if
if Request.ServerVariables("REQUEST_METHOD")="POST" then
id = request("id")
if not isnumeric(id) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""id必须为整数！"");history.go(-1);"
Response.Write "</script>"
Response.End
end if
inwa_flag = request("inwa_flag")
'确认是否是dir
dir = request("dir")
if dir = "True" then
inwa_take_address = trim(request("inwa_take_address"))
if inwa_take_address <> "" then
inwa_take_address = replace(inwa_take_address,"'","’")
else
inwa_take_address = " "
end if
inwa_line_no = trim(request("inwa_line_no"))
if inwa_line_no = "" then
inwa_line_no = " "
else
inwa_line_no = replace(inwa_line_no,"'","’")
end if
inwa_take_no = trim(Request("inwa_take_no"))
if inwa_take_no = "" then
inwa_take_no = " "
else
inwa_take_no = replace(inwa_take_no,"'","’")
end if
end if
inwa_sia = trim(Request("inwa_sia"))
inwa_sia = replace(inwa_sia,"'","’")
inwa_date = trim(request("inwa_date"))
inwa_date = replace(inwa_date,"：",":")
inwa_type = trim(request("inwa_type"))
inwa_yuji_time = trim(Request("inwa_yuji_time"))
inwa_yuji_time = replace(inwa_yuji_time,"：",":")
inwa_contact = trim(request("inwa_contact"))
if inwa_contact = "" then
inwa_contact = " "
else
inwa_contact = replace(inwa_contact,"'","’")
end if
sql = "select * from inward where inwa_id <> "&inwa_id&" and inwa_sia = '"&inwa_sia&"' "
set rst = conn.execute(sql)
if rst.eof then
sql = "select * from inward where inwa_id = "&inwa_id&""
set rsty = server.CreateObject("adodb.recordset")
rsty.Open sql,conn,3,3
if not rsty.EOF then
sql ="select * from inward_edit "
set rs_edit = server.CreateObject("adodb.recordset")
rs_edit.Open sql,conn,3,3
rs_edit.AddNew
rs_edit("inwa_id") = inwa_id
rs_edit("inwa_date_old") = rsty("inwa_date")
rs_edit("inwa_date_now") = inwa_date
rs_edit("inwa_fact_date_old") = rsty("inwa_fact_date")
rs_edit("inwa_fact_date_now") = now()
rs_edit("inwa_sia_old") = rsty("inwa_sia")
rs_edit("inwa_sia_now") = inwa_sia
rs_edit("inwa_dc_id") = rsty("inwa_dc_id")
rs_edit("inwa_type_old") = rsty("inwa_type")
rs_edit("inwa_type_now") = inwa_type
rs_edit("inwa_yuji_time_old") = rsty("inwa_yuji_time")
rs_edit("inwa_yuji_time_now") = inwa_yuji_time
rs_edit("inwa_contact_old") = rsty("inwa_contact")
rs_edit("inwa_contact_now") = inwa_contact
rs_edit("inwa_ser_beizu") = rsty("inwa_ser_beizu")
rs_edit("inwa_flag") = rsty("inwa_flag")
rs_edit("inwa_companyid") = rsty("inwa_companyid")
rs_edit("inwa_disabled") = rsty("inwa_disabled")
rs_edit("inwa_dir_flag") = rsty("inwa_dir_flag")
rs_edit("inwa_take_address_old") = rsty("inwa_take_address")
rs_edit("inwa_line_no_old") = rsty("inwa_line_no")
rs_edit("inwa_take_no_old") = rsty("inwa_take_no")
if rsty("inwa_dir_flag") = true then
rs_edit("inwa_take_address_now") = inwa_take_address
rs_edit("inwa_line_no_now") = inwa_line_no
rs_edit("inwa_take_no_now") = inwa_take_no
end if
rs_edit("inattemper") = rsty("inattemper")
rs_edit("tiaoma_flag") = rsty("tiaoma_flag")
rs_edit("inwa_operate_old") = rsty("inwa_operate")
rs_edit("inwa_operate_now") = User
rs_edit.Update
rs_edit.Close
set rs_edit = nothing
dc_id = rsty("inwa_dc_id")
data_flag = rsty("inwa_flag")
dir_flag = rsty("inwa_dir_flag")
if dir_flag = true then
rsty("inwa_take_address") = inwa_take_address
rsty("inwa_line_no") = inwa_line_no
rsty("inwa_take_no") = inwa_take_no
end if
rsty("inwa_sia") = inwa_sia
rsty("inwa_date") = inwa_date
rsty("inwa_type") = inwa_type
rsty("inwa_yuji_time") = inwa_yuji_time
rsty("inwa_contact") = inwa_contact
rsty.Update
rsty.Close
set rsty = nothing
rst.close
set rst = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{opener.location.reload();window.close();}"
Response.Write "</script>"
Response.End
end if
rsty.Close
set rsty = nothing
else
rst.close
set rst = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""该SIA号码已经存在,请改用其它的SIA号码!!!"");"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -