outward_sra_edit.asp

电子商务 物流 ASP+SQL2

    <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>
  <%
 sql = "select detail_guest_id,min(detail_id) as detail_id  from outward_detail where detail_outw_id = "&outw_id&" group by detail_guest_id order by  min(detail_id) asc"
 set rs_detail = conn.execute(sql)
 do while not rs_detail.eof
	guest_id = rs_detail("detail_guest_id")
	detail_id = rs_detail("detail_id")
	
	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>"
    poor_flag = 0
	sql = "select * from outward_detail where detail_outw_id = "&outw_id&" and detail_guest_id = "&guest_id&" order by detail_id asc"
	set rs_xx = conn.execute(sql)
	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
		detail_elink_id = rs_xx("detail_elink_id")
				
		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 "&nbsp;"&detail_no 
			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
 	 rs_detail.movenext
 	 	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>"
		sql = "select * from detail_info where info_outw_id = "&outw_id&" and info_detail_id = "&detail_id2&""
		set rs_info = conn.execute(sql)
		if not rs_info.eof then
			info_type = rs_info("info_type")
			info_takeman_id = rs_info("info_takeman_id")
			info_yuji_time = rs_info("info_yuji_time")
			info_order_beizu = 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 info_type&"</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 收货人订单号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write info_takeman_id&"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 时限要求：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write info_yuji_time&"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 订单备注：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write info_order_beizu&"&nbsp;</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>"
		end if
		rs_info.close
		set rs_info = nothing
			if detail_elink_id <> 0 then
				Response.Write "<tr>"
				Response.Write "<td width=""15%""> 易联单号：</td>"
				Response.Write "<td  colspan=""3"" width=""85%"">"
				Response.Write "<a href='../operate/elink_record_info.asp?id="&detail_elink_id&"&companyid="&newcompanyid&"&history=1'><font color=red>查看该易联单号信息</font></a>&nbsp;</td>"
				Response.Write "</tr>"
			else
				Response.Write "<tr>"
				Response.Write "<td width=""15%""> 易联单号：</td>"
				Response.Write "<td  colspan=""3"" width=""85%"">"
				Response.Write "<font color=red>尚无易联单号！！！</font>&nbsp;</td>"
				Response.Write "</tr>"
			end if
				Response.Write "<tr>"
				Response.Write "<td colspan=3>进入<a href='outward_guest_info_edit.asp?detail_id="&detail_id2&"&companyid="&newcompanyid&"'><font color=red>该客户信息修改</font></a></td>"
				Response.Write "</tr>"
 loop
 rs_detail.close
 set rs_detail = nothing
  %>
 <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='edit_beizu' value='' maxlength='25' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">**"
%></td>
 </tr>
 <input type=hidden name=id value=<%=outw_id%>>
 <input type=hidden name=outw_dir_flag value=<%=outw_dir_flag%>>
<input type=hidden name=companyid value=<%=newcompanyid%>>
 <tr bgcolor=white>
   <td colspan="5"><br><br>
   <center>
   <input class=buttonface type=button  onclick="datacheck()" name=ok value=修改资料>
   </center>
	<br><br>
 </tr>
</table>
</form>
<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.edit_beizu.value)=empty then
   msgbox "「修改备注」不得为空白！", 64, "请填写修改备注!"
     document.output1.edit_beizu.focus()
     Exit Sub
  End if
output1.Submit
End Sub
-->
</script>
 <%
else
	Response.Write "可能该数据已经被他人删除,请刷新主页面!"
	
end if
rs.Close
set rs = nothing
call closedatabase
end if
%>

 </body>
</html>