elink_record_info.asp

物流管理系统

			end if

		end if
		rs_info.close
		set rs_info = nothing
  
 %>
 <tr>
 <td colspan=4 align=left bgcolor=green height=20><b><font color=white>调 度 信 息</font></b></td>
</tr>
 <%
 if attemper <> ""  then 
 %>
 <tr>
    <td width="15%"> 发运时间：</td>
    <td colspan="3" width="85%">
   <%response.write outw_outstock_date & "&nbsp;"%></td>
 </tr>
 <%
		if transport_type <> 4 then
		 sql = "select * from dc where dc_companyid = "&newcompanyid&" and dc_id = "&attemper_dc_id&""
		set rs_dc2 = conn.execute(sql)
		 if not rs_dc2.eof then
			dc_code2 = rs_dc2("dc_code")
			dc_name2 = rs_dc2("dc_name")
		 end if
		 rs_dc2.close
		set rs_dc2 = nothing 
 
 		Response.Write "<td width=""15%""> 中转城市：</td>"
		Response.Write "<td  colspan=""3"" width=""85%"">"
		Response.Write dc_code2 &" "& dc_name2 & "&nbsp;</td>"
		Response.Write "</tr>"
		end if
 '1为汽运,2为空运,3为铁路,4为EMS
 if transport_type = 1 then
	sql = "select * from car where car_elink_id = "&elink_id&""
	set rs_car = conn.execute(sql)
	if not rs_car.eof then
			car_etd = rs_car("car_etd")
			car_eta = rs_car("car_eta")
			car_no = trim(rs_car("car_no"))
			car_paisong = trim(rs_car("car_paisong"))
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 运输方式：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "汽运</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 预计出发时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write car_etd & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 预计到达时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write car_eta & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 车号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write car_no & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 派送员：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write car_paisong & "&nbsp;</td>"
			Response.Write "</tr>"
	else
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 运输方式：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "汽运</td>"
			Response.Write "</tr>"
	end if
	rs_car.close
	set rs_car = nothing
 elseif transport_type = 2 then
 	sql = "select * from air where air_elink_id = "&elink_id&""
	set rs_air = conn.execute(sql)
	if not rs_air.eof then
			air_take_no = rs_air("air_take_no")
			air_line_no = rs_air("air_line_no")
			air_etd = rs_air("air_etd")
			air_eta = rs_air("air_eta")
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 运输方式：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "空运</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 航空单号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write air_take_no & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 航班号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write air_line_no & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 预计出发时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write air_etd & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 预计到达时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write air_eta & "&nbsp;</td>"
			Response.Write "</tr>"
	else
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 运输方式：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "空运</td>"
			Response.Write "</tr>"		
	end if
	rs_air.close
	set rs_air = nothing
 elseif transport_type = 3 then
  	sql = "select * from railway where railway_elink_id = "&elink_id&""
	set rs_railway = conn.execute(sql)
	if not rs_railway.eof then
			line_no = rs_railway("railway_line_no")
			etd = rs_railway("railway_etd")
			eta = rs_railway("railway_eta")
			take_no = rs_railway("railway_take_no")
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 运输方式：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "铁路</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 车次：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write line_no & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 预计出发时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write etd & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 预计到达时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write eta & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 铁路提单号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write take_no & "&nbsp;</td>"
			Response.Write "</tr>"
	else
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 运输方式：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "铁路</td>"
			Response.Write "</tr>"
	end if
	rs_railway.close
	set rs_railway = nothing
 elseif transport_type = 4 then
   	sql = "select * from ems where ems_elink_id = "&elink_id&""
	set rs_ems = conn.execute(sql)
	if not rs_ems.eof then
			ems_no = rs_ems("ems_no")
			ems_etd = rs_ems("ems_etd")
			ems_eta = rs_ems("ems_eta")
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 运输方式：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "E M S</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 单号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write ems_no & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 预计出发时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write ems_etd & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 预计到达时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write ems_eta & "&nbsp;</td>"
			Response.Write "</tr>"
	else
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 运输方式：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "E M S</td>"
			Response.Write "</tr>"
	end if
	rs_ems.close
	set rs_ems = nothing
 end if
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 调度填写人：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write attemper &"&nbsp;</td>"
			Response.Write "</tr>"
 else
	Response.Write "<tr><td  colspan=""4"">调度信息尚未填写！！！</td></tr>"
 end if

 sql = "select * from outward_status where status_elink_id = "&elink_id&" order by status_id asc "
 'Response.Write sql
 'Response.End 
 set rs_sta = server.CreateObject("adodb.recordset")
 rs_sta.Open sql,conn,3,3
 if not rs_sta.EOF then
	Response.Write "<tr>"
	Response.Write "<td colspan=4 align=left bgcolor=green height=20><b><font color=white>延 误 信 息</font></b></td>"
	Response.Write "</tr>"
 do while not rs_sta.eof 
	status_beizu = rs_sta("status_beizu")
	status_rec_man = rs_sta("status_rec_man")
	status_man = rs_sta("status_man")
	status_datetime = rs_sta("status_datetime")
	status_add_datetime = rs_sta("status_add_datetime")
	status_now_address = rs_sta("status_now_address")
	status_flag = rs_sta("status_flag")
	if status_flag = 1 then
		status = "航班延误"
	elseif status_flag = 2 then
		status = "到目的港"
	elseif status_flag = 3 then
		status = "已派车派送"
	elseif status_flag = 4 then
		status = "车辆/公路事故"
	elseif status_flag = 5 then
		status = "客人已下班"
	elseif status_flag = 6 then
		status = "客人要求该日派送"
	else
		status = "其它"
	end if
	outw_air_no = rs_sta("outw_air_no")
	outw_air_takeid = rs_sta("outw_air_takeid")
	outw_etd = rs_sta("outw_etd")
	outw_eta = rs_sta("outw_eta")
	record=record+1
	if record/2=int(record/2) then
	  bgclr="#F1F1C9"
	else
	  bgclr="#C2D8F8"
	end if
	if status_flag = 1 then
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 航班号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write outw_air_no &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 航空提单号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write outw_air_takeid &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 预计出发时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write outw_etd &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 预计到达时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write outw_eta &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 填写人：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write status_rec_man &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 备注：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write status_beizu &"&nbsp;<font color=red>("& status &")</font></td>"
			Response.Write "</tr>"
	else
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 到达日期：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write status_datetime &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 目前地点：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write status_now_address &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 预计到达时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write outw_eta &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 填写人：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write status_rec_man &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr bgcolor="&bgclr&">"
			Response.Write "<td width=""15%""> 备注：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write status_beizu &"&nbsp;<font color=red>("& status &")</font></td>"
			Response.Write "</tr>"
	end if
	
	rs_sta.movenext
 loop
 end if
 rs_sta.close
 set rs_sta = nothing
%>
  <tr>
 <td colspan=4 align=left bgcolor=green height=20><b><font color=white>签 收 信 息</font></b></td>
</tr>
 <%
 if elink_flag = 1  then 
 			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 签收时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write rec_date &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 签收人：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write rec_man&"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 签收人身份证：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write rec_idcard &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 签收备注：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write rec_beizu &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 签收填写人：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write sign_man&"&nbsp;</td>"
			Response.Write "</tr>"
 else
	Response.Write "<tr><td  colspan=""4"">签收信息尚未填写！！！</td></tr>"
 end if
 %>
</table>
<br><br>
 <%
else
	Response.Write "可能该数据已经被他人删除,请刷新主页面!"
	
end if
rs.Close
set rs = nothing
call closedatabase
%>
<%
if request("history") = 1 then
%>
<center><input class=buttonface type=button name=ok value=" 后  退 " onclick="javascript:history.back();">
</center>
<br><br><br>
 <%
 end if
 %>
 
 </body>
</html>