📄 odd_edit_no.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" onload="javascript:self.moveTo(0,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)
detail_id = request("detail_id")
if not isnumeric(detail_id) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""ID必须为数字！"");"
Response.write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
ziti_flag = request("ziti_flag")
if flag > 4 then
call closedatabase
Response.End
end if
if Request.ServerVariables("REQUEST_METHOD")="POST" then
dim detail_no_now
dim prod_id_now
detail_no_now = clng(trim(request("detail_no")))
prod_id_now = Request("prod_id")
sql = "select * from outward_detail where detail_id = "&detail_id&" "
set rs_xx = conn.execute(sql)
if not rs_xx.eof then
guest_id = rs_xx("detail_guest_id")
prod_id = rs_xx("detail_prod_id")
detail_no = rs_xx("detail_no")
elink_id = rs_xx("detail_elink_id")
outw_id = rs_xx("detail_outw_id")
no = clng(detail_no_now) - clng(detail_no)
if elink_id = 0 then '如果该客户尚未生成易联单号
sql = "select outw_dc_id,outw_dir_flag,outw_flag from outward where outw_id = "&outw_id&" "
set rs_war = conn.execute(sql)
if not rs_war.eof then
elink_dc_id = rs_war("outw_dc_id")
elink_dir_flag = rs_war("outw_dir_flag")
ziti_flag = elink_dir_flag
elink_flag = 0 '由于未生成易联单号，故该记录尚未签收，所以为0
else
rs_war.close
set rs_war = nothing
rs_xx.close
set rs_xx = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{alert(""该委托单号SRA已经不存在！请确认！！！"");opener.location.reload();window.close();}"
Response.Write "</script>"
Response.End
end if
else
'取得该单子的记录标志,以便于判断
sql = "select elink_dc_id,elink_dir_flag,elink_flag from outward_elink where elink_id = "&elink_id&" "
set rs_elink = conn.execute(sql)
if not rs_elink.eof then
elink_dc_id = rs_elink("elink_dc_id")
elink_dir_flag = rs_elink("elink_dir_flag")
ziti_flag = elink_dir_flag
elink_flag = rs_elink("elink_flag")
else
rs_elink.close
set rs_elink = nothing
rs_xx.close
set rs_xx = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{alert(""该易联单号不存在！"");opener.location.reload();window.close();}"
Response.Write "</script>"
Response.End
end if
rs_elink.close
set rs_elink = nothing
end if
sql = "select * from outward_detail_edit "
set rs_odd = server.CreateObject("adodb.recordset")
rs_odd.Open sql,conn,3,3
rs_odd.AddNew
rs_odd("detail_id") = rs_xx("detail_id")
rs_odd("detail_outw_id") = rs_xx("detail_outw_id")
rs_odd("detail_guest_id_old") = rs_xx("detail_guest_id")
rs_odd("detail_prod_id_old") = rs_xx("detail_prod_id")
rs_odd("detail_prod_id_now") = prod_id_now
rs_odd("detail_companyid") = rs_xx("detail_companyid")
rs_odd("detail_elink_id") = rs_xx("detail_elink_id")
rs_odd("detail_no_old") = rs_xx("detail_no")
rs_odd("detail_no_now") = detail_no_now
rs_odd("detail_date_old") = rs_xx("detail_date")
rs_odd("detail_man_old") = rs_xx("detail_man")
rs_odd("detail_io_flag") = rs_xx("detail_io_flag")
rs_odd("delete_flag") = 0
rs_odd("edit_man") = User
rs_odd("edit_fact_date") = now()
rs_odd.Update
rs_odd.Close
set rs_odd = nothing
if cstr(prod_id) <> cstr(prod_id_now) then
if elink_flag <> 1 then
if ziti_flag = 0 then
sql = "update inventory set inve_fenpei = inve_fenpei - "&detail_no&",inve_maysent = inve_maysent + "&detail_no&",inve_total = inve_total + "&detail_no&" "
sql = sql + " where inve_dc_id = "&elink_dc_id&" and inve_prod_id = "&prod_id&" "
conn.execute(sql)
end if
if no = 0 then
if ziti_flag = 0 then
sql = "update inventory set inve_fenpei = inve_fenpei + "&detail_no&",inve_maysent = inve_maysent - "&detail_no&",inve_total = inve_total - "&detail_no&" "
sql = sql + " where inve_dc_id = "&elink_dc_id&" and inve_prod_id = "&prod_id_now&" "
conn.execute(sql)
end if
sql = "update outward_detail set detail_prod_id = "&prod_id_now&" where detail_id = "&detail_id&" "
conn.execute(sql)
else
if ziti_flag = 0 then
sql = "update inventory set inve_fenpei = inve_fenpei + "&detail_no_now&",inve_maysent = inve_maysent - "&detail_no_now&",inve_total = inve_total - "&detail_no_now&" "
sql = sql + " where inve_dc_id = "&elink_dc_id&" and inve_prod_id = "&prod_id_now&" "
conn.execute(sql)
end if
if clng(detail_no_now) = 0 then'删除原记录
sql = "delete outward_detail where detail_id = "&detail_id&" "
conn.execute(sql)
'-----------------------------------------------------------------------------------------
'以下判断该客户是否还有其他记录，若没有相应的记录，则删除相关的易联单号的所有记录
'还有该客户的信息
'若删除了该客户的所有记录,则应该再次查找是否有该SRA其它的记录
'若没有则删除该SRA信息的所有记录
'-----------------------------------------------------------------------------------------
sql = "select * from outward_detail where detail_outw_id = "&outw_id&" and detail_guest_id = "&guest_id&""
set rs_d = conn.execute(sql)
if rs_d.eof then '没有该客户的记录,则将DETAIL_INFO表中的相应记录删除
sql = "select * from detail_info where info_detail_id = "&detail_id&" "
set rs_info = server.CreateObject("adodb.recordset")
rs_info.Open sql,conn,3,2
if not rs_info.EOF then '将历史记录储存并检查
sql = "select * from detail_info_edit "
set rs_detail = server.CreateObject("adodb.recordset")
rs_detail.Open sql,conn,3,3
rs_detail.AddNew
rs_detail("info_id") = rs_info("info_id")
rs_detail("info_outw_id") = rs_info("info_outw_id")
rs_detail("info_type_old") = rs_info("info_type")
rs_detail("info_takeman_id_old") = rs_info("info_takeman_id")
rs_detail("info_yuji_time_old") = rs_info("info_yuji_time")
rs_detail("info_order_beizu") = rs_info("info_order_beizu")
rs_detail("info_order_man") = rs_info("info_order_man")
rs_detail("info_detail_id") = rs_info("info_detail_id")
rs_detail("delete_flag") = 1
rs_detail("edit_man") = User
rs_detail("edit_fact_date") = now()
rs_detail.Update
rs_detail.Close
set rs_detail = nothing
rs_info.Delete
''''''''''''''''''''''''''''''
'删除相应的易联单号
'''''''''''''''''''''''''''''
if elink_id <> 0 then
sql = "select * from outward_elink where elink_id = "&elink_id&" "
set rs_elink = server.CreateObject("adodb.recordset")
rs_elink.Open sql,conn,3,2
if not rs_elink.EOF then
sql ="select * from outward_elink_edit"
set rs_el_da = server.CreateObject("adodb.recordset")
rs_el_da.Open sql,conn,3,3
rs_el_da.AddNew
rs_el_da("elink_id") = rs_elink("elink_id")
rs_el_da("elink_odd_old") = rs_elink("elink_odd")
rs_el_da("cull_date_old") = rs_elink("cull_date")
rs_el_da("tranport_no_old") = rs_elink("transport_no")
rs_el_da("fact_weight_old") = rs_elink("fact_weight")
rs_el_da("tally_weight_old") = rs_elink("tally_weight")
rs_el_da("cull_beizu") = rs_elink("cull_beizu")
rs_el_da("cull_operate_old") = rs_elink("cull_operate")
rs_el_da("send_date_old") = rs_elink("send_date")
rs_el_da("transport_type_old") = rs_elink("transport_type")
rs_el_da("attemper") = rs_elink("attemper")
rs_el_da("attemper_dc_id_old") = rs_elink("attemper_dc_id")
rs_el_da("rec_date_old") = rs_elink("rec_date")
rs_el_da("rec_man_old") = rs_elink("rec_man")
rs_el_da("rec_idcard_old") = rs_elink("rec_idcard")
rs_el_da("rec_beizu") = rs_elink("rec_beizu")
rs_el_da("sign_man") = rs_elink("sign_man")
rs_el_da("elink_flag") = rs_elink("elink_flag")
rs_el_da("elink_companyid") = rs_elink("elink_companyid")
rs_el_da("cull_man") = rs_elink("cull_man")
rs_el_da("elink_dc_id") = rs_elink("elink_dc_id")
rs_el_da("elink_dir_flag") = rs_elink("elink_dir_flag")
rs_el_da("elink_guest_id") = rs_elink("elink_guest_id")
rs_el_da("elink_outw_id") = rs_elink("elink_outw_id")
rs_el_da("elink_outw_date") = rs_elink("elink_outw_date")
rs_el_da("delete_flag") = 1
rs_el_da("edit_man") = User
rs_el_da("edit_fact_date") = now()
rs_el_da.Update
rs_el_da.Close
set rs_el_da = nothing
rs_elink.Delete
end if
rs_elink.Close
set rs_elink = nothing
end if
'易联单号删除完成
'''''''''''''''''''''''''
sql = "select * from outward_detail where detail_outw_id = "&outw_id&" "
set rs_id = conn.execute(sql)
if rs_id.eof then
sql = "select * from outward where outw_id = "&outw_id&" "
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_fact_date_old") = rs("outw_fact_date")
rs_edit("outw_consign_date_old") = rs("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")
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
rs.delete
end if
rs.Close
set rs = nothing
end if
rs_id.close
set rs_id = nothing
''''''''''''''''''''''''
'查找是否有其它相应的outward信息，若没有，则删除该OUTWARD记录
''''''''''''''''''''''''''''
end if
rs_info.Close
set rs_info = nothing
end if
rs_d.close
set rs_d = nothing
'---------------------------------------------------------------------------------------------
else
sql = "update outward_detail set detail_prod_id = "&prod_id_now&",detail_no = "&detail_no_now&" where detail_id = "&detail_id&" "
conn.execute(sql)
end if
end if
elseif elink_flag = 1 then
'更新原有记录的库存
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -