📄 air_convert_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>
<%
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
%>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
<script language=vbscript>
<!--
Sub datacheck()
if trim(input1.etd.value) <> empty then
if isdate(trim(input1.etd.value)) = false then
msgbox "「预计出发时间」格式不对！", 64, "预计出发时间必须为时间格式!!"
document.input1.etd.focus()
exit sub
end if
end if
if trim(input1.etd.value) <> empty then
if cdate(trim(input1.etd.value)) < cdate(trim(input1.cull_date.value) + " " + trim(input1.cull_time.value)) then
msgbox "「预计出发时间」必须比「分拣时间」晚！！", 64, "请确认!!!"
document.input1.etd.focus()
exit sub
end if
end if
if trim(input1.eta.value) <> empty then
if isdate(trim(input1.eta.value)) = false then
msgbox "「预计到达时间」格式不对！", 64, "预计到达时间必须为时间格式!!"
document.input1.eta.focus()
exit sub
end if
end if
if trim(input1.etd.value) <> empty and trim(input1.eta.value) <> empty then
if cdate(trim(input1.etd.value)) > cdate(trim(input1.eta.value)) then
msgbox "「预计到达时间」必须比「预计出发时间」晚！", 64, "请确认!!!"
document.input1.eta.focus()
exit sub
end if
end if
input1.Submit
End Sub
sub change()
if input1.outw_type.value = 1 then
window.location.href = "fayun_convert.asp?id=<%=request("id")%>&companyid=<%=newcompanyid%>"
elseif input1.outw_type.value = 2 then
window.location.href = "air_convert.asp?id=<%=request("id")%>&companyid=<%=newcompanyid%>"
elseif input1.outw_type.value = 3 then
window.location.href = "railway_convert.asp?id=<%=request("id")%>&companyid=<%=newcompanyid%>"
elseif input1.outw_type.value = 4 then
window.location.href = "ems_convert.asp?id=<%=request("id")%>&companyid=<%=newcompanyid%>"
end if
end sub
-->
</script>
</head>
<body topmargin="0" onload="javascript:self.moveTo(0,0);document.input1.outw_type.focus();">
<%
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
elink_id = request("id")
if not isnumeric(elink_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
dim carFlag
carFlag = 0
etd = trim(request("etd"))
etd = replace(etd,"：",":")
if etd <> "" then
carFlag = 1
end if
eta = trim(request("eta"))
eta = replace(eta,"：",":")
if eta <> "" then
carFlag = 1
end if
take_no = trim(request("take_no"))
if take_no = "" then
take_no= " "
else
carFlag = 1
end if
line_no = trim(request("line_no"))
if line_no = "" then
line_no = " "
else
carFlag = 1
end if
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
flagtype = rs_elink("transport_type")
elink_flag = rs_elink("elink_flag")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if cint(carFlag) = 1 then
sql = "select * from air where air_elink_id = "&elink_id&" "
set rs_trans = server.CreateObject("adodb.recordset")
rs_trans.Open sql,conn,3,2
if rs_trans.EOF then
'-----------------------------------------------------
'插入历史记录表中
sql = "select * from air_edit_info"
set rs_edit = server.CreateObject("adodb.recordset")
rs_edit.Open sql,conn,3,2
rs_edit.AddNew
rs_edit("air_elink_id") = elink_id
if etd <> "" then
rs_edit("air_new_etd") = etd
end if
if eta <> "" then
rs_edit("air_new_eta") = eta
end if
rs_edit("air_take_new_no") = take_no
rs_edit("air_line_new_no") = line_no
rs_edit("air_edit_man") = User
rs_edit("air_edit_datetime") = now()
rs_edit.Update
rs_edit.Close
set rs_edit = nothing
'-----------------------------------------------------
rs_trans.AddNew
rs_trans("air_elink_id") = elink_id
if etd <> "" then
rs_trans("air_etd") = etd
end if
if eta <> "" then
rs_trans("air_eta") = eta
end if
rs_trans("air_take_no") = take_no
rs_trans("air_line_no") = line_no
rs_trans.Update
else
air_take_old_no = rs_trans("air_take_no")
air_line_old_no = rs_trans("air_line_no")
air_old_etd = rs_trans("air_etd")
air_old_eta = rs_trans("air_eta")
'-----------------------------------------------------
'插入历史记录表中
sql = "select * from air_edit_info"
set rs_edit = server.CreateObject("adodb.recordset")
rs_edit.Open sql,conn,3,2
rs_edit.AddNew
rs_edit("air_elink_id") = elink_id
if air_old_etd <> "" then
rs_edit("air_old_etd") = air_old_etd
end if
if air_old_eta <> "" then
rs_edit("air_old_eta") = air_old_eta
end if
if air_take_old_no <> "" then
rs_edit("air_take_old_no") = air_take_old_no
end if
if air_line_old_no <> "" then
rs_edit("air_line_old_no") = air_line_old_no
end if
if etd <> "" then
rs_edit("air_new_etd") = etd
end if
if eta <> "" then
rs_edit("air_new_eta") = eta
end if
rs_edit("air_take_new_no") = take_no
rs_edit("air_line_new_no") = line_no
rs_edit("air_edit_man") = User
rs_edit("air_edit_datetime") = now()
rs_edit.Update
rs_edit.Close
set rs_edit = nothing
'-----------------------------------------------------
if etd <> "" then
rs_trans("air_etd") = etd
end if
if eta <> "" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -