📄 air_convert_edit.asp
字号:
rs_trans("air_eta") = eta
end if
rs_trans("air_take_no") = take_no
rs_trans("air_line_no") = line_no
rs_trans.Update
end if
rs_trans.Close
set rs_trans = nothing
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
rs_elink.Close
set rs_elink = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.write "alert(""该客户的调度修改操作完成！"");opener.location.reload();"
Response.Write "window.close();</script>"
Response.End
else
rs_elink.Close
set rs_elink = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.write "alert(""该易联单号不存在,可能已经被他人删除,请确认！"");opener.location.reload();window.close();</script>"
Response.End
end if
else
sql = "select elink_outw_id,elink_id,elink_odd,elink_dc_id,elink_guest_id,elink_dir_flag,transport_type,send_date,attemper_dc_id from outward_elink where elink_id = "&elink_id&""
set rs_e = conn.execute(sql)
if not rs_e.eof then
elink_odd = rs_e("elink_odd")
guest_id = rs_e("elink_guest_id")
dir_flag = rs_e("elink_dir_flag")
outw_id = rs_e("elink_outw_id")
transport_type = rs_e("transport_type")
send_date = rs_e("send_date")
attemper_dc_id = rs_e("attemper_dc_id")
if transport_type <> 2 then
rs_e.close
set rs_e = nothing
call closedatabase
Response.Write "error!no right"
Response.End
end if
sql = "select min(detail_id) as detail_id from outward_detail where detail_outw_id = "&outw_id&" and detail_elink_id = "&elink_id&""
set rs_de = conn.execute(sql)
if not rs_de.eof then
detail_id = rs_de("detail_id")
else
rs_de.close
set rs_de = nothing
rs_e.close
set rs_e = nothing
call closedatabase
Response.Write "该记录可能已经被删除!请确认!!!"
Response.End
end if
rs_de.close
set rs_de = nothing
sql = "select info_yuji_time from detail_info where info_outw_id = "&outw_id&" and info_detail_id = "&detail_id&""
set rs_de = conn.execute(sql)
if not rs_de.eof then
info_yuji_time = rs_de("info_yuji_time")
end if
rs_de.close
set rs_de = nothing
%>
<form action="air_convert_edit.asp" method="POST" name="input1">
<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>
<tr>
<td width="15%">系统编号：</td>
<td colspan="3" width="85%">
<%response.write elink_id%></td>
</tr>
<tr>
<td width="15%">易联单号：</td>
<td colspan="3" width="85%">
<%response.write elink_odd%></td>
</tr>
<%
sql = "select * from guest where guest_id = "&guest_id&""
set rs_guest = conn.execute(sql)
if not rs_guest.eof then
guest_user = rs_guest("guest_user")
guest_address = rs_guest("guest_address")
guest_tel = rs_guest("guest_tel")
guest_fax = rs_guest("guest_fax")
end if
rs_guest.close
set rs_guest = nothing
Response.Write "<tr>"
Response.Write "<td width=""15%""> 客户地址：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write ""& guest_user &" " & guest_address &" " &guest_tel & " " &guest_fax&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""20%""> 要求派送时间：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write info_yuji_time &" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 运输方式：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "<select onchange=""change()"" style=""font-size:9pt;width=100;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" name='outw_type' size='1' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" disabled>"
Response.Write "<option value='1'> 汽 运 </option>"
Response.Write "<option value='2' selected> 空 运 </option>"
Response.Write "<option value='3'> 铁 路 </option>"
Response.Write "<option value='4'> E M S </option>"
Response.Write "</select>"
Response.Write "</td>"
Response.Write "</tr>"
sql = "select * from air where air_elink_id = "&elink_id&" "
set r_air = conn.execute(sql)
if not r_air.eof then
air_etd = r_air("air_etd")
air_eta = r_air("air_eta")
air_take_no = r_air("air_take_no")
air_line_no = r_air("air_line_no")
air_city_dc = r_air("air_city_dc")
end if
r_air.close
set r_air = nothing
Response.Write "<tr>"
Response.Write "<td width=""15%""> 发运日期：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "<input style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""cull_date"" value='"&formatdatetime(send_date,2)&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" disabled>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<td width=""15%""> 发运时间：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "<input style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""cull_time"" value='"&formatdatetime(send_date,4)&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" disabled>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 预计出发时间：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "<input style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""etd"" value='"&air_etd&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">（如：2001-11-23 15:30）"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 预计到达时间：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "<input style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""eta"" value='"&air_eta&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">（如：2001-11-24 18:30）"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 口岸城市：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
response.write " <select class='smallinput' name='city' size='1' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" disabled>"
'Response.Write "<option selected value="""">========中转城市========</option>"
sql = "select dc_id,dc_code,dc_name from dc where dc_id = "&attemper_dc_id&""
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
response.write "<option value='"+CStr(rs("dc_id"))+"'>"+rs("dc_code")+" "+rs("dc_name")+" </option>"+chr(13)+chr(10)
rs.movenext
loop
else
response.write "<option value='0'>没有DC编号</option>"+chr(13)+chr(10)
end if
rs.close
set rs = nothing
response.write " </select>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 航空单号：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "<input style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""take_no"" value='"&air_take_no&"' maxlength=15 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""16%""> 航班号：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "<input style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""line_no"" value='"&air_line_no&"' maxlength=15 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
Response.Write "</td>"
Response.Write "</tr>"
%>
<input type=hidden name=yuji_time value=<%=info_yuji_time%>>
<input type=hidden name=dir_flag value=<%=dir_flag%>>
<input type=hidden name=id value=<%=elink_id%>>
<input type=hidden name=companyid value=<%=newcompanyid%>>
<tr bgcolor=white>
<td colspan="4"><br><br>
<center>
<input class=buttonface type=button onclick="datacheck()" name=ok value=调度修改>
</center>
<br><br>
</tr>
</table>
<form>
<%
else
Response.Write "<center>该单子可能已经被删除!!!</center>"
end if
%>
<br> <p align=center><font size=+3 color=blue><a href='#' onclick="javascript:window.close()">[关闭]</a></font></p>
<br>
<%
rs_e.close
set rs_e = nothing
call closedatabase
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -