📄 outward_guest_info_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-->
<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")
detail_id = clng(detail_id)
if flag > 4 then
call closedatabase
Response.End
end if
if Request.ServerVariables("REQUEST_METHOD")="POST" then
curaction = trim(request("action"))
edit_beizu = trim(request("edit_beizu"))
edit_beizu = replace(edit_beizu,"'","’")
if cstr(curaction) = "delete" then '如果是删除该客户信息
else '如果是修改记录
guest_id = request("guest_id")
guest_id = clng(guest_id)
outw_type = request("outw_type")
outw_type = replace(outw_type,"'","")
info_takeman_id = trim(request("info_takeman_id"))
if info_takeman_id = "" then
info_takeman_id = " "
else
info_takeman_id = replace(info_takeman_id,"'","’")
end if
info_yuji_time = trim(request("info_yuji_time"))
info_yuji_time = replace(info_yuji_time,"：",":")
info_order_beizu = trim(request("info_order_beizu"))
if info_order_beizu = "" then
info_order_beizu = " "
else
info_order_beizu = replace(info_order_beizu,"'","’")
end if
sql = "select * from outward_detail where detail_id = "&detail_id&" "
set rs_det = conn.execute(sql)
if not rs_det.eof then
outw_id_database = rs_det("detail_outw_id")
guest_id_database = rs_det("detail_guest_id")
rs_det.close
set rs_det = nothing
else
rs_det.close
set rs_det = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{alert(""该记录已经不存在！请确认！！！"");opener.location.reload();window.close();}"
Response.Write "</script>"
Response.End
end if
if clng(guest_id) <> clng(guest_id_database) then '假如修改了客户，则应将相应的信息记录下来
'查看是否是合并用户。在此不允许合并
'2003-1-21修改
sql = "select * from outward_detail where detail_guest_id = "&guest_id&" and detail_outw_id = "&outw_id_database&" "
set rset2 = server.createobject("adodb.recordset")
rset2.open sql,conn,1,1
if not rset2.eof then
rset2.close
set rset2 = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{alert(""由于该委托单号已有该客户存在，所以不能修改该客户的地址！！！"");history.back(-1);}"
Response.Write "</script>"
response.end
end if
sql = "select * from outward_detail where detail_outw_id = "&outw_id_database&" and detail_guest_id = "&guest_id_database&" "
set rs_ee = server.CreateObject("adodb.recordset")
rs_ee.Open sql,conn,3,3
do while not rs_ee.EOF
sql = "select * from outward_detail_edit "
set rs_dd = server.CreateObject("adodb.recordset")
rs_dd.Open sql,conn,3,3
rs_dd.AddNew
rs_dd("detail_id") = rs_ee("detail_id")
rs_dd("detail_outw_id") = rs_ee("detail_outw_id")
rs_dd("detail_guest_id_old") = rs_ee("detail_guest_id")
rs_dd("detail_guest_id_now") = guest_id
rs_dd("detail_prod_id_old") = rs_ee("detail_prod_id")
rs_dd("detail_companyid") = rs_ee("detail_companyid")
rs_dd("detail_elink_id") = rs_ee("detail_elink_id")
rs_dd("detail_no_old") = rs_ee("detail_no")
rs_dd("detail_date_old") = rs_ee("detail_date")
rs_dd("detail_man_old") = rs_ee("detail_man")
rs_dd("detail_io_flag") = rs_ee("detail_io_flag")
rs_dd("delete_flag") = 0
rs_dd("edit_man") = User
rs_dd("edit_fact_date") = now()
rs_dd.Update
rs_dd.Close
set rs_dd = nothing
'修改客户
rs_ee("detail_guest_id") = guest_id
rs_ee.Update
rs_ee.MoveNext
loop
rs_ee.Close
set rs_ee = nothing
'------------------------
'2003-1-21修改
'修改易联单表中的客户地址
sql = "update outward_elink set elink_guest_id = "&guest_id&" where elink_guest_id = "&guest_id_database&" and elink_outw_id = "&outw_id_database&" "
conn.execute(sql)
'------------------------
end if
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_type_now") = outw_type
rs_detail("info_takeman_id_old") = rs_info("info_takeman_id")
rs_detail("info_takeman_id_now") = info_takeman_id
rs_detail("info_yuji_time_old") = rs_info("info_yuji_time")
rs_detail("info_yuji_time_now") = 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") = 0
rs_detail("edit_man") = User
rs_detail("edit_fact_date") = now()
rs_detail.Update
rs_detail.Close
set rs_detail = nothing
rs_info("info_type") = outw_type
rs_info("info_takeman_id") = info_takeman_id
rs_info("info_yuji_time") = info_yuji_time
rs_info("info_order_beizu") = info_order_beizu
rs_info.Update
end if
rs_info.Close
set rs_info = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{alert(""客户信息修改成功！"");opener.location.reload();window.close();}"
Response.Write "</script>"
Response.End
end if
else
%>
<form action="outward_guest_info_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>
<%
sql = "select * from outward_detail where detail_id = "&detail_id&" "
set rs_de = conn.execute(sql)
if rs_de.eof then
rs_de.close
set rs_de = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{alert(""该记录不存在或已经被删除！"");opener.location.reload();window.close();}"
Response.Write "</script>"
Response.End
else
detail_outw_id = rs_de("detail_outw_id")
guest_id = rs_de("detail_guest_id")
rs_de.close
set rs_de = nothing
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>"
sql = "select * from outward_detail where detail_outw_id = "&detail_outw_id&" and detail_guest_id = "&guest_id&" order by detail_id asc"
set rs_xx = conn.execute(sql)
poor_flag = 0
do while not rs_xx.eof
detail_id_da = 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_da
poor_flag = 1
end if
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
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
Response.Write "<tr>"
Response.Write "<td width=""15%""> 领货人：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
response.write " <select class='smallinput' name='guest_id' size='1' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
sql = "select * from guest where guest_disabled = 0 and guest_companyid = "&newcompanyid&" order by guest_user "
set rs_guest = conn.execute(sql)
if not rs_guest.eof then
do while not rs_guest.eof
if guest_id = rs_guest("guest_id") then
response.write "<option value='"&rs_guest("guest_id")&"' selected>"&rs_guest("guest_user")&"</option>"+chr(13)+chr(10)
else
response.write "<option value='"&rs_guest("guest_id")&"'>"&rs_guest("guest_user")&"</option>"+chr(13)+chr(10)
end if
rs_guest.movenext
loop
end if
rs_guest.close
set rs_guest = nothing
Response.Write ""& guest_user &" " & guest_address &" " &guest_tel & " " &guest_fax&"</td>"
Response.Write "</tr>"
sql = "select * from detail_info where info_outw_id = "&detail_outw_id&" and info_detail_id = "&detail_id2&""
'Response.Write sql
'Response.End
set rs_info = conn.execute(sql)
if not rs_info.eof then
info_type = rs_info("info_type")
info_takeman_id = trim(rs_info("info_takeman_id"))
info_yuji_time = trim(rs_info("info_yuji_time"))
info_order_beizu = trim(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 "<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='info_order_beizu' value='"&info_order_beizu&"' maxlength=25 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
Response.Write "</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
end if
%>
<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=<%=detail_outw_id%>>
<input type=hidden name=detail_id value=<%=detail_id%>>
<input type=hidden name=companyid value=<%=newcompanyid%>>
<input type=hidden name=guest_id_before value=<%=guest_id%>>
<tr bgcolor=white>
<td colspan="5"><br><br>
<center>
<input class=buttonface type=button onclick="datacheck()" name=ok value=修改资料>
<%
'<input class=buttonface type=button onclick="deletedatacheck()" name=ok value=删除资料>
%>
<input class=buttonface type=button name=ok value="后退" onclick="javascript:history.back();">
</center>
<br><br>
</tr>
</table>
</form>
<br><br>
<script language=vbscript>
<!--
Sub datacheck()
if isdate(trim(output1.info_yuji_time.value)) = false then
msgbox "「时限要求」格式不对！", 64, "请输入正确的时间格式!"
document.output1.info_yuji_time.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
Sub deletedatacheck()
if trim(output1.edit_beizu.value)=empty then
msgbox "「修改备注」不得为空白！", 64, "请填写修改备注!"
document.output1.edit_beizu.focus()
Exit Sub
End if
if msgbox("您的这个操作将删除该客户的所有记录! 按[确 定]删除,按[取 消]放弃!",1) = 2 then
document.output1.edit_beizu.focus()
Exit Sub
end if
document.output1.action="outward_guest_info_edit.asp?action=delete"
document.output1.submit()
End Sub
-->
</script>
<%
call closedatabase
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -