?? attemper_record_info.asp
字號:
<%@ 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
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&""
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>
<%
if outw_dir_flag = true then
%>
<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 outw_take_address & " "%></td>
</tr>
<tr>
<td width="15%">航班號：</td>
<td colspan="3" width="85%">
<%response.write outw_line_no & " "%></td>
</tr>
<tr>
<td width="15%">空運提單號：</td>
<td colspan="3" width="85%">
<%response.write outw_take_no & " "%></td>
</tr>
<%
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 outw_id%></td>
</tr>
<tr>
<td width="15%">S R 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_date & " "%></td>
</tr>
<tr>
<td width="15%">委托日期：</td>
<td colspan="3" width="85%">
<%response.write outw_consign_date & " "%></td>
</tr>
<tr>
<td width="15%">實際填寫日期：</td>
<td colspan="3" width="85%">
<%response.write outw_fact_date & " "%></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> 數量</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%""> </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 " "&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&" </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&" </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&" </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&" </td>"
Response.Write "</tr>"
if elink_id = 0 then
Response.Write "<tr><td colspan=""4""><font color=red>該客戶分揀信息尚未填寫！！！</font> 進入<a href=""#"" onclick=""javascript:window.open('cull_convert.asp?id="&outw_id&"&companyid="&newcompanyid&"&guest_id="&guest_id&"&sra="&outw_sra&"&detail_id="&detail_id&"&dc_id="&outw_dc_id&"&dir_flag="&outw_dir_flag&"','"&User&"hamier899eff','height=500,width=500,scrollbars')""&>[填寫該客戶分揀信息]</a> <td></tr>"
else
Response.Write "<tr bgcolor=green><td colspan=""4""><font color=white>該客戶分揀信息</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")
Response.Write "<tr>"
Response.Write "<td width=""15%""> 易聯單號：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write elink_odd &" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 分揀時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write cull_date &" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 運輸件數：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write transport_no&" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 實際重量：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write fact_weight &" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 記費重量：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write tally_weight &" </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&" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 分揀操作人：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write cull_operate &" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 分揀備注：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write cull_beizu &" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 分揀填寫人：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write cull_man &" </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 stock_flag = true then
%>
<tr>
<td width="15%"> 倉管出庫日期：</td>
<td colspan="3" width="85%">
<%response.write outw_outstock_date & " "%></td>
</tr>
<tr>
<td width="15%"> 倉管出庫操作人：</td>
<td colspan="3" width="85%">
<%response.write outw_stock_operate & " "%></td>
</tr>
<tr>
<td width="15%">倉管備注：</td>
<td colspan="3" width="85%">
<%response.write outw_stock_beizu & " "%></td>
</tr>
<%
else
Response.Write "<tr><td colspan=""4"">倉管出庫信息尚未填寫！！！ <td></tr>"
end if
%>
</table>
<%
else
Response.Write "可能該數據已經被他人刪除,請刷新主頁面!"
end if
rs.Close
set rs = nothing
call closedatabase
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -