outattemper_record_info.asp

用VB语言编写的物流管理系统的

			transport_no = rs_elink("transport_no")
			fact_weight = rs_elink("fact_weight")
			tally_weight = rs_elink("tally_weight")
			cull_beizu = rs_elink("cull_beizu")
			cull_operate = rs_elink("cull_operate")
			cull_man = rs_elink("cull_man")
			send_date = rs_elink("send_date")
			attemper = trim(rs_elink("attemper"))
			attemper_dc_id = rs_elink("attemper_dc_id")
			
			transport_type = rs_elink("transport_type")
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 易联单号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write elink_odd &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 分拣时间：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write cull_date &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 运输件数：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write transport_no&"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 实际重量：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write fact_weight &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 记费重量：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write tally_weight &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			sql = "select transport_fenyun from outw_transport where transport_elink_id = "&elink_id&""
			set rs_trs = conn.execute(sql)
			if not rs_trs.eof then
				fenyun  = ""
				fenyun_flag = false
				do while not rs_trs.eof
					if fenyun_flag = true then	
						fenyun = fenyun & ","&rs_trs("transport_fenyun")
					else
						fenyun = rs_trs("transport_fenyun")
						fenyun_flag = true
					end if
					rs_trs.movenext
				loop
			else
				fenyun = "&nbsp;"
			end if 
			rs_trs.close
			set rs_trs = nothing
			Response.Write "<td width=""15%""> 分运单号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write fenyun&"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 分拣操作人：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write cull_operate &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 分拣备注：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write cull_beizu &"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 分拣填写人：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write cull_man &"&nbsp;</td>"
			Response.Write "</tr>"
			end if	
			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 "<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""><font color=red>调度信息尚未填写！！！</font> 进入<a href=fayun_convert.asp?id="&elink_id&"&companyid="&newcompanyid&">[填写该调度信息]</a><td></tr>"
 end if
 %>
 
</table>
<br><br>
 <%
else
	Response.Write "可能该数据已经被他人删除,请刷新主页面!"
	
end if
rs.Close
set rs = nothing
call closedatabase

%>
</body>
</html>