?? cull_convert.asp
字號:
dim adInteger
adInteger = 3
dim adParamInput
adParamInput = 1
dim adParamOutput
adParamOutput = 2
cmd.Parameters.Refresh
cmd.Parameters("@dc_id") = dc_id
cmd.Parameters("@dir_flag") = dir_flag
cmd.Parameters("@outw_id") = outw_id
cmd.Parameters("@guest_id") = guest_id
cmd.Parameters("@elink_odd") = elink_odd
cmd.Parameters("@cull_datetime") = cull_datetime
cmd.Parameters("@transport_no") = transport_no
cmd.Parameters("@fact_weight") = fact_weight
cmd.Parameters("@tally_weight") = tally_weight
cmd.Parameters("@cull_beizu") = cull_beizu
cmd.Parameters("@cull_operate") = cull_operate
cmd.Parameters("@newcompanyid") = newcompanyid
cmd.Parameters("@user") = User
'cmd.Parameters("@elink_id") = 0
cmd.Parameters("@elink_id").Direction = adParamOutput
cmd.Parameters("@freshflag").Direction = adParamOutput
cmd.Execute
elink_id = cmd.Parameters("@elink_id")
freshflag = cmd.Parameters("@freshflag")
set cmd = nothing
if transport_fenyun <> "" then
for i = 0 to ubound(sp)
sql = "insert into outw_transport(transport_elink_id,transport_fenyun) values('"&elink_id&"','"&sp(i)&"')"
conn.execute(sql)
next
end if
rs_elink.close
set rs_elink = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.write "alert(""該客戶分揀操作完成！"");opener.location.reload();"
Response.Write "window.close();</script>"
Response.End
else
rs_elink.close
set rs_elink = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.write "alert(""該易聯單號已經存在,請改用其它的易聯單號！"");history.go(-1);</script>"
Response.End
end if
else
%>
<form action="cull_convert.asp" method="POST" name="input1">
<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 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>
<%
Response.Write "<tr bgcolor=green>"
Response.Write "<td width=""15%""><b><font color=white> 客戶信息：</font></b></td>"
Response.Write "<td width=""45%"">"
Response.Write "<b><font color=white> 產品</font></b></td>"
Response.Write "<td width=""40%"">"
Response.Write "<b><font colspan=""2"" color=white> 數量</font></b></td>"
Response.Write "</tr>"
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
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 = "&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>"
end if
rs_info.close
set rs_info = nothing
Response.Write "<tr>"
Response.Write "<td colspan=3 align=left bgcolor=green height=20><b><font color=white> 分揀信息</font></b></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=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""cull_date"" value='"&date()&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">**（如：2001-11-23）"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<td width=""15%""> 分揀時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "<input style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""cull_time"" value='"&formatdatetime(time(),4)&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">**（如：17:00）"
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=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""elink_odd"" value='' maxlength=30 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=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""transport_no"" value='' 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=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""fact_weight"" value='' maxlength=30 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9""><b>kg</b>"
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=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""tally_weight"" value='' maxlength=30 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9""><b>kg</b>"
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=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""transport_fenyun"" value='' 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=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""cull_operate"" value='' 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=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""cull_beizu"" value='' maxlength=25 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
Response.Write "</td>"
Response.Write "</tr>"
%>
<input type=hidden name=dir_flag value=<%=dir_flag%>>
<input type=hidden name=id value=<%=outw_id%>>
<input type=hidden name=dc_id value=<%=dc_id%>>
<input type=hidden name=guest_id value=<%=guest_id%>>
<input type=hidden name=sra value=<%=outw_sra%>>
<input type=hidden name=detail_id value=<%=detail_id%>>
<input type=hidden name=companyid value=<%=newcompanyid%>>
<tr bgcolor=white>
<td colspan="4"><br><br>
<center>
<input class=buttonface type=button onclick="datacheck()" name=ok value=分揀操作>
</center>
<br><br>
</tr>
</table>
<form>
<br> <p align=center><font size=+3 color=blue><a href='#' onclick="javascript:window.close()">[關閉]</a></font></p>
<br>
<%
call closedatabase
end if
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -