?? 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 + -