odd_edit.asp

物流管理系统

    <td width="15%">提货地点：</td>
    <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='outw_take_address' value='"&outw_take_address&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=40>"
%></td>
 </tr>
<tr>
    <td width="15%">航班号：</td>
    <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='outw_line_no' value='"&outw_line_no&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=15>"
%></td>
 </tr>
<tr>
    <td width="15%">空运提单号：</td>
    <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='outw_take_no' value='"&outw_take_no&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=15>"
%></td>
 </tr>
<%
else
	ziti_flag = 0
end if
%>
<tr>
 <td colspan=4 align=left bgcolor=green height=20><b><font color=white> 订 单 信 息</font></b></td>
</tr>
<tr>
    <td width="15%">系统编号：</td>
    <td colspan="3" width="85%">
   <%response.write detail_outw_id%></td>
 </tr>
<tr>
    <td width="15%">委托单号SRA：</td>
    <td colspan="3" width="85%">
   [ <a href="odd_edit_sra.asp?id=<%=detail_outw_id%>&companyid=<%=newcompanyid%>"><font color=red> <%response.write outw_sra%> </font></a> ]</td>
 </tr>
<tr>
    <td width="15%">填写日期：</td>
    <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='outw_date' value='"&outw_date&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
%></td>
 </tr>
<tr>
    <td width="15%">委托日期：</td>
    <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='outw_consign_date' value='"&outw_consign_date&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
   %></td>
 </tr>
  
 <tr>
    <td width="15%">实际填写日期：</td>
    <td colspan="3" width="85%">
   <%response.write outw_fact_date & "&nbsp;"%></td>
 </tr>
 <%
 sql = "select * from dc where dc_companyid = "&newcompanyid&" and dc_id = "&outw_dc_id&""
 set rs_dc = conn.execute(sql)
 if not rs_dc.eof then
	dc_code = rs_dc("dc_code")
	dc_name = rs_dc("dc_name")
 end if
 rs_dc.close
 set rs_dc = nothing 
 %>
 <tr>
    <td width="15%">DC信息：</td>
    <td colspan="3" width="85%">
   <%response.write dc_code &" "& dc_name %></td>
 </tr>
  <%
	
	Response.Write "<tr bgcolor=green>"
    Response.Write "<td width=""15%""><b><font color=white> 客户信息：</font></b></td>"
    Response.Write "<td width=""35%"">"
    Response.Write "<b><font color=white> 产品</font></b></td>"
    Response.Write "<td width=""50%"">"
    Response.Write "<b><font colspan=""2"" color=white>&nbsp;数量</font></b></td>"
    Response.Write "</tr>"
	sql = "select * from outward_detail where detail_outw_id = "&detail_outw_id&" and detail_guest_id = "&guest_id&" order by detail_id asc"
	set rs_xx = conn.execute(sql)
	poor_flag = 0
	do while not rs_xx.eof 
		 
		detail_id = rs_xx("detail_id")
		prod_id = rs_xx("detail_prod_id")
		detail_no = rs_xx("detail_no")
		if poor_flag = 0 then
			detail_id2 = detail_id
			poor_flag = 1
		end if
				
		sql = "select * from product where prod_companyid = "&newcompanyid&" and prod_id = "&prod_id&""
		set rs_prod = conn.execute(sql)
		if not rs_prod.eof then
			prod_no = rs_prod("prod_no")
			prod_type = rs_prod("prod_type")
			prod_color = rs_prod("prod_color")
			prod_pinming = rs_prod("prod_pinming")
			prod_weight = rs_prod("prod_weight")
			prod_volume = rs_prod("prod_volume")
			Response.Write "<tr>"
			Response.Write "<td width=""25%"">&nbsp;</td>"
			Response.Write "<td width=""35%"">"
			response.write prod_no &" " & prod_type &" " & prod_color &" " & prod_pinming &" " & prod_weight &" " & prod_volume
			Response.Write "</td>"
			Response.Write "<td colspan=2 width=""40%"">"
			response.write "&nbsp;"&detail_no &" &nbsp;&nbsp;<a href=""odd_edit_no.asp?ziti_flag="&ziti_flag&"&companyid="&newcompanyid&"&detail_id="&detail_id&""">修改</a>"
			Response.Write "</td>"
			Response.Write "</td>"		
			Response.Write "</tr>"
	    end if
		rs_prod.close
		set rs_prod = nothing
	rs_xx.movenext
	loop
	rs_xx.close
	set rs_xx = nothing

		Response.Write "<tr>"
		Response.Write "<td width=""15%""> 客户地址：</td>"
		Response.Write "<td  colspan=""3"" width=""85%"">"
		
		response.write " <select class='smallinput' name='guest_id' size='1' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
		sql = "select * from guest where guest_disabled = 0 and guest_companyid = "&newcompanyid&" order by guest_user "
		set rs_guest = conn.execute(sql)
		if not rs_guest.eof then
			do while not rs_guest.eof
				if guest_id = rs_guest("guest_id") then
					response.write "<option value='"&rs_guest("guest_id")&"' selected>"&rs_guest("guest_user")&"</option>"+chr(13)+chr(10)
				else	
					response.write "<option value='"&rs_guest("guest_id")&"'>"&rs_guest("guest_user")&"</option>"+chr(13)+chr(10)
				end if			
				rs_guest.movenext
			loop
		end if
		rs_guest.close
		set rs_guest = nothing
		Response.Write ""& guest_user &" " & guest_address &" " &guest_tel & " " &guest_fax&"</td>"
		Response.Write "</tr>"
		sql = "select * from detail_info where info_outw_id = "&detail_outw_id&" and info_detail_id = "&detail_id2&""
		'Response.Write sql
		'Response.End 
		set rs_info = conn.execute(sql)
		if not rs_info.eof then
			info_type = rs_info("info_type")
			info_takeman_id = trim(rs_info("info_takeman_id"))
			info_yuji_time = trim(rs_info("info_yuji_time"))
			info_order_beizu = trim(rs_info("info_order_beizu"))
			info_order_man = rs_info("info_order_man")
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 运输方式：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "<select class='smallinput' name='outw_type' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9""  size='1'>"
			if cstr(info_type)="空运门到门" then 
				Response.Write "<option  value='空运门到门' selected>空运门到门</option>"
			else
				Response.Write "<option  value='空运门到门'>空运门到门</option>"
			end if
			if cstr(info_type)="空运自提" then
				Response.Write "<option  value='空运自提' selected>空运自提</option>"
			else
				Response.Write "<option  value='空运自提'>空运自提</option>"
			end if
			if cstr(info_type)="汽运门到门" then
				Response.Write "<option  value='汽运门到门' selected>汽运门到门</option>"
			else
				Response.Write "<option  value='汽运门到门'>汽运门到门</option>"
			end if
			if cstr(info_type)="汽运自提" then
				Response.Write "<option  value='汽运自提' selected>汽运自提</option>"
			else
				Response.Write "<option  value='汽运自提'>汽运自提</option>"
			end if
			if cstr(info_type)="仓库自提" then
				Response.Write "<option  value='仓库自提' selected>仓库自提</option>"
			else
				Response.Write "<option  value='仓库自提'>仓库自提</option>"
			end if	
			if cstr(info_type)="EMS" then
				Response.Write "<option  value='EMS' selected>EMS</option>"
			else
				Response.Write "<option  value='EMS'>EMS</option>"
			end if			
			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='info_takeman_id' value='"&info_takeman_id&"' maxlength=15 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='info_yuji_time' value='"&info_yuji_time&"' 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='info_order_beizu' value='"&info_order_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 info_order_man&"&nbsp;</td>"
			Response.Write "</tr>"
%>
 <tr>
 <td colspan=4 align=left bgcolor=green height=20><b><font color=white>仓 管 信 息</font></b></td>
</tr>
 <%
 if stock_flag = true  then 
 
 %>
 <tr>
    <td width="15%"> 仓管出库日期：</td>
    <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='outw_outstock_date' value='"&outw_outstock_date&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
  %></td>
 </tr>
 <tr>
    <td width="15%"> 仓管出库操作人：</td>
    <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='outw_stock_operate' value='"&outw_stock_operate&"' maxlength=10 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
   %></td>
 </tr>
 <tr>
    <td width="15%">仓管备注：</td>
    <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='outw_stock_beizu' value='"&outw_stock_beizu&"' maxlength=25 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
  %></td>
 </tr>
 <%
 else
	Response.Write "<tr><td  colspan=""4"">仓管出库信息尚未填写！！！ <td></tr>"
 end if

			if elink_id = 0 then
				Response.Write "<tr><td  colspan=""4""><font color=red>该客户分拣信息尚未填写！！！</font><td></tr>"
			else
				Response.Write "<tr bgcolor=green><td  colspan=""4"" align=left bgcolor=green height=20><font color=white><b>分 拣 信 息</b></font><td></tr>"
				sql = "select * from outward_elink where elink_id = "&elink_id&" and elink_companyid = "&newcompanyid&""
				set rs_elink = conn.execute(sql)
				if not rs_elink.eof then
					elink_odd = rs_elink("elink_odd")
					cull_date = rs_elink("cull_date")
					transport_no = rs_elink("transport_no")
					fact_weight = rs_elink("fact_weight")
					if cstr(fact_weight) = "0" then fact_weight = ""
					tally_weight = rs_elink("tally_weight")
					if cstr(tally_weight) = "0" then 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"))
					transport_type = rs_elink("transport_type")
					attemper_dc_id = rs_elink("attemper_dc_id")
					elink_flag = rs_elink("elink_flag")
					rec_date = rs_elink("rec_date")
					rec_man = rs_elink("rec_man")
					rec_idcard = rs_elink("rec_idcard")
					rec_beizu = rs_elink("rec_beizu")
					sign_man = rs_elink("sign_man")
					Response.Write "<tr>"
					Response.Write "<td width=""15%""> 易联单号：</td>"
					Response.Write "<td  colspan=""3"" width=""85%"">"
					Response.Write "[ <a href=""odd_edit_elinkid.asp?elink_id="&elink_id&"&companyid="&newcompanyid&"""><font color=red>"&elink_odd &"</font></a> ]&nbsp;</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='cull_date' value='"&cull_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 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 "<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='fact_weight' value='"&fact_weight&"' 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='tally_weight' value='"&tally_weight&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
					Response.Write "</td>"
					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 "<tr>"
					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 "<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='cull_operate' value='"&cull_operate&"' 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='cull_beizu' value='"&cull_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 cull_man &"&nbsp;</td>"
					Response.Write "</tr>"
				end if	
				rs_elink.Close
				set rs_elink = nothing
			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 "<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='send_date' value='"&send_date&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
   %></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