📄 ems_convert.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 isdate(trim(input1.cull_date.value)) = false then
msgbox "「分拣日期」格式不对！", 64, "请输入正确的日期!"
document.input1.cull_date.focus()
Exit Sub
End if
if isdate(trim(input1.cull_time.value)) = false then
msgbox "「分拣时间」格式不对！", 64, "请输入正确的时间格式!"
document.input1.cull_time.focus()
Exit Sub
End if
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 Request.ServerVariables("REQUEST_METHOD")="POST" then
fayuntype = request("outw_type")
'发运日期
cull_date = trim(request("cull_date"))
cull_date = replace(cull_date,"：",":")
'发运时间
cull_time = trim(request("cull_time"))
cull_time = replace(cull_time,"：",":")
cull_datetime = cull_date&" "&cull_time
if isdate(cull_datetime) = false then
Response.Write "<script language=javascript>"
Response.Write "alert(""发运时间格式不正确,请按规定的格式填写!!!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
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
ems_no = trim(request("ems_no"))
if ems_no = "" then
ems_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 flag <> 0 then
rs_elink("send_date") = cull_datetime
rs_elink("transport_type") = fayuntype
rs_elink("attemper") = User
if elink_flag <> 1 then
rs_elink("elink_flag") = 9
end if
rs_elink("attemper_dc_id") = 0
rs_elink.Update
'sql = "update outward_elink set transport_type = "&fayuntype&",send_date = '"&cull_datetime&"',attemper = '"&user&"',elink_flag = 9 where elink_id = "&elink_id&" and elink_flag <> 1"
'conn.execute(sql)
if cint(carFlag) = 1 then
sql = "select * from ems"
set rs_trans = server.CreateObject("adodb.recordset")
rs_trans.Open sql,conn,3,2
rs_trans.AddNew
rs_trans("ems_elink_id") = elink_id
if etd <> "" then
rs_trans("ems_etd") = etd
end if
if eta <> "" then
rs_trans("ems_eta") = eta
end if
rs_trans("ems_no") = ems_no
rs_trans.Update
end if
else
rs_elink.Close
set rs_elink = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""该客户的调度操作已经完成"");window.close();"
Response.Write "</script>"
Response.End
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(""该易联单号不存在,可能已经被他人删除,请确认！"");history.go(-1);</script>"
Response.End
end if
else 'if is not post then ...
sql = "select elink_outw_id,elink_id,elink_odd,elink_dc_id,elink_guest_id,elink_dir_flag 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")
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
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="ems_convert.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"">"
Response.Write "<option value='1'> 汽 运 </option>"
Response.Write "<option value='2'> 空 运 </option>"
Response.Write "<option value='3'> 铁 路 </option>"
Response.Write "<option value='4' selected> E M S </option>"
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=""cull_date"" value='"&date()&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">**（如：2001-11-23）"
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(time(),4)&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">**（如：17:00）"
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='' 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='' 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=""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=""ems_no"" value='' maxlength=15 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
Response.Write "</td>"
Response.Write "</tr>"
%>
<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
rs_e.close
set rs_e = nothing
call closedatabase
%>
<br> <p align=center><font size=+3 color=blue><a href='#' onclick="javascript:window.close()">[关闭]</a></font></p>
<br>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -