odd_edit.asp

物流管理系统

 		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%""> E T D：</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%""> E T A：</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%""> E T D：</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%""> E T A：</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%""> E T D：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write etd & "&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> E T A：</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%""> E T D：</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%""> E T A：</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
 %>
  <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 "<input  style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='rec_date' value='"&rec_date&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			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=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='rec_man' value='"&rec_man&"' maxlength=10 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			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=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='rec_idcard' value='"&rec_idcard&"' maxlength=18 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			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=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='rec_beizu' value='"&rec_beizu&"' maxlength=25 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			Response.Write "</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
 %>
  <input type=hidden name=id value=<%=elink_id%>>
  <input type=hidden name=detail_id value=<%=detail_id2%>>
  <input type=hidden name=guest_id_before value=<%=guest_id%>>
 <input type=hidden name=outw_dir_flag value=<%=outw_dir_flag%>>
<input type=hidden name=companyid value=<%=newcompanyid%>>
<input type=hidden name=stock_flag value=<%=stock_flag%>>
<input type=hidden name=attemper value=<%=attemper%>>
<input type=hidden name=elink_flag value=<%=elink_flag%>>
<input type=hidden name=detail_outw_id value=<%=detail_outw_id%>>

 <tr bgcolor=white>
   <td colspan="5"><br><br>
   <center>
   <input class=buttonface type=button  onclick="datacheck()" name=ok value=修改资料>
   <input class=buttonface type=button  onclick="javascript:confirmDel(<%= elink_id %>)" name=ok value=删除资料>　
	</center>
	<br><br>
 </tr>
</table>
</form>
<%
rs.Close
set rs = nothing
call closedatabase
%>
<br><br>
 <script language=vbscript>
<!--
Sub datacheck()
<%
if outw_dir_flag = true then
 %>
  if trim(output1.outw_take_address.value)=empty then
   msgbox "「提货地点」必须选择！", 64, "请填写提货地点!"
     document.output1.outw_take_address.focus()
     Exit Sub
  End if
 <%
 end if
 %>
if trim(output1.outw_date.value)=empty then
   msgbox "「填写日期」不得为空白！", 64, "请输入日期!"
     document.output1.outw_date.focus()
     Exit Sub
  End if
if isdate(trim(output1.outw_date.value)) = false then
   msgbox "「填写日期」格式不对！", 64, "请输入正确的日期!"
     document.output1.outw_date.focus()
     Exit Sub
  End if
if trim(output1.outw_consign_date.value)=empty then
   msgbox "「委托日期」不得为空白！", 64, "请输入日期!"
     document.output1.outw_consign_date.focus()
     Exit Sub
  End if
if isdate(trim(output1.outw_consign_date.value)) = false then
   msgbox "「委托日期」格式不对！", 64, "请输入正确的日期!"
     document.output1.outw_consign_date.focus()
     Exit Sub
  End if
if trim(output1.info_yuji_time.value)=empty then
   msgbox "「时限要求」不得为空白！", 64, "请输入正确的时间!"
     document.output1.info_yuji_time.focus()
     Exit Sub
  End if

if isdate(trim(output1.info_yuji_time.value)) = false then
   msgbox "「时限要求」格式不对！", 64, "请输入正确的时间格式!"
     document.output1.info_yuji_time.focus()
     Exit Sub
  End if 
  <%
 if stock_flag = true  then 
  %>
if isdate(trim(output1.outw_outstock_date.value))=false then
   msgbox "「仓管出库时间」格式不对！", 64, "请输入正确的仓管出库时间!"
    document.output1.outw_outstock_date.focus()
     Exit Sub
  End if
if trim(output1.outw_stock_operate.value)=empty then
   msgbox "「仓管出库操作人」不得为空白！", 64, "请输入仓管出库操作人!"
     document.output1.outw_stock_operate.focus()
     Exit Sub
  End if
 <%
 end if
 %> 
 if isdate(trim(output1.cull_date.value)) = false then
   msgbox "「分拣时间」格式不对！", 64, "请输入正确的时间格式!"
     document.output1.cull_date.focus()
     Exit Sub
  End if  
if trim(output1.fact_weight.value)<> empty then
	if isnumeric(trim(output1.fact_weight.value)) = false then
	   msgbox "「实际重量」必须为数字！", 64, "请输入实际重量 !"
     document.output1.fact_weight.focus()
     Exit Sub
     end if
End if
if trim(output1.tally_weight.value)<> empty then
	if isnumeric(trim(output1.tally_weight.value)) = false then
	   msgbox "「记费重量」必须为数字！", 64, "请输入记费重量 !"
     document.output1.tally_weight.focus()
     Exit Sub
     end if
End if
if trim(output1.fact_weight.value)<> empty and trim(output1.tally_weight.value)<> empty then
	if trim(output1.fact_weight.value) > trim(output1.tally_weight.value) then
		msgbox "「记费重量」必须大于等于「实际重量」！", 64, "请输入正确的记费重量 !"
		document.output1.tally_weight.focus()
		Exit Sub	
	end if
end if
if trim(output1.cull_operate.value)= empty then
   msgbox "「分拣操作人」必须选择！", 64, "请输入分拣操作人!"
     document.output1.cull_operate.focus()
     Exit Sub
End if
 <%
 if attemper <> ""  then 
 %>
  if isdate(trim(output1.send_date.value)) = false then
   msgbox "「发运时间」格式不对！", 64, "请输入正确的时间格式!"
     document.output1.send_date.focus()
     Exit Sub
  End if  
 <%
 end if
 if elink_flag = 1  then
 %>
 if isdate(trim(output1.rec_date.value)) = false then
   msgbox "「签收时间」格式不对！", 64, "请输入正确的时间!"
     document.output1.rec_date.focus()
     Exit Sub
  End if  
if trim(output1.rec_man.value)=empty then
   msgbox "「签收人」不得为空白！", 64, "请输入签收人!"
     document.output1.rec_man.focus()
     Exit Sub
  End if
 <%
 end if
  %>
output1.Submit
End Sub
-->
</script>
  <%
 else
	Response.Write "可能该数据已经被他人删除,请刷新主页面!"
end if


end if
%>
</body>
</html>