📄 outsign_record_info.asp

📁 1.多种查询方式
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ LANGUAGE="VBSCRIPT" %>
<% 
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%const title="出库签收详细信息"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
</head>
<body topmargin="0"  onload="javascript:self.moveTo(0,0)">
<%
if isempty(session("username")) then
	call closedatabase
	Response.Write "请重新登入!"
	Response.End 
end if 
newcompanyid = request("companyid")
if newcompanyid = "" then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""请先选择公司再做此步操作！"");"
	Response.write "history.go(-1);"
	Response.Write "</script>"
	Response.End
elseif not isnumeric(newcompanyid) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
else
	newcompanyid = cint(newcompanyid)  
end if
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)

elink_id = request("id")
if not isnumeric(elink_id) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""id必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
end if
sql="select min(detail_id) as detail_id,min(detail_outw_id) as detail_outw_id,min(detail_guest_id) as detail_guest_id from outward_detail where detail_elink_id = "&elink_id&""
set rs_er = conn.execute(sql)
if not rs_er.eof then
	detail_id = rs_er("detail_id")
	detail_outw_id = rs_er("detail_outw_id")
	guest_id = rs_er("detail_guest_id")
else
	rs_er.close
	set rs_er = nothing
	call closedatabase
	Response.Write "该记录已被删除!"
	Response.End 
end if
rs_er.close
set rs_er = nothing
sql = "select * from outward where outw_id = "&detail_outw_id&""
'Response.Write sql
'Response.End 
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
	outw_date = rs("outw_date")
	outw_fact_date = rs("outw_fact_date")
	outw_consign_date = rs("outw_consign_date")
	outw_sra = rs("outw_sra")
	outw_dc_id = rs("outw_dc_id")
	outw_outstock_date = rs("outw_outstock_date")
	outw_stock_beizu = rs("outw_stock_beizu")
	outw_stock_man = rs("outw_stock_man")
	outw_stock_operate = rs("outw_stock_operate")
	outw_flag = rs("outw_flag")
	outw_dir_flag = rs("outw_dir_flag")
	outw_take_address = trim(rs("outw_take_address"))
	outw_line_no = trim(rs("outw_line_no"))
	outw_take_no = trim(rs("outw_take_no"))
	outw_service_beizu = rs("outw_service_beizu")
	outw_service_man = rs("outw_service_man")
	stock_flag = rs("stock_flag")
	cull_flag = rs("cull_flag")
	attemper_flag = rs("attemper_flag")
	
	%>

<table align=center width=100%  cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC' border="1">
<tr>
 <td colspan=4 align=center bgcolor=red><b><font color=yellow>出库记录详细信息一览</font></b></td>
</tr>
<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%">S&nbsp;&nbsp;R&nbsp;&nbsp;A：</td>
    <td colspan="3" width="85%">
   <%response.write outw_sra%></td>
 </tr>
<tr>
    <td width="15%">出库单日期：</td>
    <td colspan="3" width="85%">
   <%response.write outw_consign_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%">仓库信息：</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)
	do while not rs_xx.eof 
 
		prod_id = rs_xx("detail_prod_id")
		detail_no = rs_xx("detail_no")
				
		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 
			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

 	 	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 = "&detail_outw_id&" and info_detail_id = "&detail_id&""
		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>"
%>
 <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 outw_outstock_date & "&nbsp;"%></td>
 </tr>
 <tr>
    <td width="15%"> 仓管出库操作人：</td>
    <td colspan="3" width="85%">
   <%response.write outw_stock_operate & "&nbsp;"%></td>
 </tr>
 <tr>
    <td width="15%">仓管备注：</td>
    <td colspan="3" width="85%">
   <%response.write outw_stock_beizu & "&nbsp;"%></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")
			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"))
			transport_type = rs_elink("transport_type")
			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")
			attemper_dc_id = rs_elink("attemper_dc_id")
			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>
 <%
12 下一页
💿 文件大小 1144 K
👤 上传用户 libin2722
📂 所属分类其他数据库
🏷️ 相关标签

#查询 #方式
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -