📄 fenpei_convert.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<%
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
%>
<%const title="出库签收操作"%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<%
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
%>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
<script language=vbscript>
<!--
Sub datacheck()
if isdate(trim(input1.outw_rec_date.value)) = false then
msgbox "「签收日期」格式不对！", 64, "请输入正确的日期!"
document.input1.outw_rec_date.focus()
Exit Sub
End if
if trim(input1.outw_rec_time.value)=empty then
msgbox "「签收时间」不得为空白！", 64, "请输入签收时间!"
document.input1.outw_rec_time.focus()
Exit Sub
End if
if trim(input1.outw_rec_man.value)=empty then
msgbox "「签收人」不得为空白！", 64, "请输入签收人!"
document.input1.outw_rec_man.focus()
Exit Sub
End if
input1.Submit
End Sub
Sub focusto(x)
document.input1.elements(x).focus()
End Sub
sub change()
if input1.stock_flag.value = 1 then
input1.ok.disabled = true
window.location.href = "delay.asp?id=<%=elink_id%>&companyid=<%=newcompanyid%>"
'window.open "delay.asp","delay","height=500,width=500,scrollbars"
elseif input1.stock_flag.value = 2 then
input1.ok.disabled = true
window.location.href = "aim.asp?ref=2&id=<%=elink_id%>&companyid=<%=newcompanyid%>"
elseif input1.stock_flag.value = 3 then
input1.ok.disabled = true
window.location.href = "aim.asp?ref=3&id=<%=elink_id%>&companyid=<%=newcompanyid%>"
elseif input1.stock_flag.value = 4 then
input1.ok.disabled = true
window.location.href = "aim.asp?ref=4&id=<%=elink_id%>&companyid=<%=newcompanyid%>"
elseif input1.stock_flag.value = 5 then
input1.ok.disabled = true
window.location.href = "aim.asp?ref=5&id=<%=elink_id%>&companyid=<%=newcompanyid%>"
elseif input1.stock_flag.value = 6 then
input1.ok.disabled = true
window.location.href = "aim.asp?ref=6&id=<%=elink_id%>&companyid=<%=newcompanyid%>"
else
input1.ok.disabled = false
end if
end sub
-->
</script>
</head>
<body topmargin="0" onload="javascript:self.moveTo(0,0);document.input1.outw_rec_date.focus();">
<%
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
if flag > 4 then
call closedatabase
Response.Write "权限不够！！！"
Response.End
end if
if Request.ServerVariables("REQUEST_METHOD")="POST" then
stock_flag = request("stock_flag")
if stock_flag = 7 then
sql = "select * from outward_elink where elink_id = "&elink_id&""
set rs_out = server.CreateObject("adodb.recordset")
rs_out.Open sql,conn,3,2
if not rs_out.EOF then
dc_id = rs_out("elink_dc_id")
elink_flag = rs_out("elink_flag")
guest_id = rs_out("elink_guest_id")
dir_flag = rs_out("elink_dir_flag")
if elink_flag <> 1 then
outw_rec_date = trim(Request.Form("outw_rec_date"))
outw_rec_date = replace(outw_rec_date,"：",":")
outw_rec_time = trim(Request.Form("outw_rec_time"))
outw_rec_time = replace(outw_rec_time,"：",":")
outw_rec_datetime = outw_rec_date&" "&outw_rec_time
if isdate(outw_rec_datetime) = false then
rs_out.Close
set rs_out = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""签收时间格式不正确,请按规定的格式填写!!!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
outw_rec_man = trim(request("outw_rec_man"))
outw_beizu = trim(Request.Form("outw_beizu"))
outw_beizu = replace(outw_beizu,"'","’")
if outw_beizu = "" then outw_beizu = " "
outw_rec_idcard = trim(Request.Form("outw_rec_idcard"))
if outw_rec_idcard = "" then outw_rec_idcard = " "
rs_out("rec_date") = outw_rec_datetime
rs_out("rec_man") = outw_rec_man
rs_out("rec_idcard") = outw_rec_idcard
rs_out("rec_beizu") = outw_beizu
rs_out("sign_man") = User
rs_out("elink_flag") = 1
rs_out.Update
rs_out.Close
set rs_out = nothing
sql = "select * from outward_detail where detail_elink_id = "&elink_id&" and detail_guest_id = "&guest_id&" order by detail_id asc"
set rs_wa = conn.execute(sql)
do while not rs_wa.eof
prod_id = rs_wa("detail_prod_id")
detail_no = rs_wa("detail_no")
if dir_flag = 0 then
sql = "update inventory set inve_chuku = inve_chuku+ "&detail_no&",inve_fenpei = inve_fenpei - "&detail_no&",inve_last_date = '"&now()&"' where inve_companyid = "&newcompanyid&" and inve_dc_id = "&dc_id&" and inve_prod_id = "&prod_id&""
conn.execute(sql)
end if
rs_wa.movenext
loop
rs_wa.close
set rs_wa = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{opener.location.reload();window.close();}"
Response.Write "</script>"
Response.End
else
rs_out.close
set rs_out = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""该单子已经签收,请确认！"");opener.location.reload();window.close();"
Response.Write "</script>"
Response.End
end if
else
rs_out.Close
set rs_out = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""该易联单号不存在,可能已经被他人删除,请确认！"");opener.location.reload();window.close();"
Response.Write "</script>"
Response.End
end if
else
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""因为您在“货物状态”中未选择“已签收”，故签收资料不能进行！！！"");history.go(-1);"
Response.Write "</script>"
Response.End
end if
else
sql = "select elink_id,elink_odd,transport_no,elink_dc_id,elink_guest_id,elink_dir_flag from outward_elink where elink_id = "&elink_id&""
set rs_e = conn.execute(sql)
if not rs_e.eof then
elink_odd = rs_e("elink_odd")
guest_id = rs_e("elink_guest_id")
dir_flag = rs_e("elink_dir_flag")
transport_no = rs_e("transport_no")
%>
<form action="fenpei_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="10%">系统编号：</td>
<td colspan="3" width="90%">
<%response.write elink_id%></td>
</tr>
<tr>
<td width="10%">易联单号：</td>
<td colspan="3" width="90%">
<%response.write elink_odd%></td>
</tr>
<%
Response.Write "<tr bgcolor=green>"
Response.Write "<td width=""10%""><b><font color=white> 客户信息：</font></b></td>"
Response.Write "<td width=""60%"">"
Response.Write "<b><font color=white> 产品</font></b></td>"
Response.Write "<td width=""30%"">"
Response.Write "<b><font colspan=""2"" color=white> 数量</font></b></td>"
Response.Write "</tr>"
sql = "select * from outward_detail where detail_elink_id = "&elink_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=""15%""> </td>"
Response.Write "<td width=""50%"">"
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>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 分拣件数：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
if transport_no <> 0 then
Response.Write transport_no &" </td>"
else
Response.Write " </td>"
end if
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 货物状态：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "<select onchange=""change()"" style=""font-size:9pt;width=100;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" name='stock_flag' size='1' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
Response.Write "<option selected value=""7""> 已签收 </option>"
Response.Write "<option value=""1""> 航班延误 </option>"
Response.Write "<option value=""2""> 到目的港 </option>"
Response.Write "<option value=""3""> 已派车派送</option>"
Response.Write "<option value=""4""> 车辆/公路事故 </option>"
Response.Write "<option value=""5""> 客人已下班 </option>"
Response.Write "<option value=""6""> 客人要求该日派送</option>"
Response.Write "</select>"
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=""outw_rec_date"" value='' 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=""outw_rec_time"" value='' 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=""outw_rec_man"" 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=""outw_rec_idcard"" value='' maxlength=""18"" 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=""outw_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=<%=elink_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>
<%
else
Response.Write "<center>该单子可能已经被删除!!!</center>"
end if
rs_e.close
set rs_e = nothing
call closedatabase
%>
<br> <p align=center><font size=+3 color=blue><a href='#' onclick="javascript:window.close()">[关闭]</a></font></p>
<br>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -