📄 chu_luru_tiaoma.asp

📁 物流管理系统
💻 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-->
<%
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)
%>
<%const title="条形码录入"%>
<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">
<script language=vbscript>
<!--
Sub datacheck()
if isnumeric(trim(input1.tiao_no.value))=false then
   msgbox "「数量」不得为空白或格式不对,须为数字！", 64, "请输入数量!"
     document.input1.tiao_no.focus()
     Exit Sub
  End if
input1.Submit
End Sub
-->
</script>
</head>
<body topmargin="0" onload="javascript:input1.inwa_xianghao.focus()">
<%
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
  Response.Write "<br><p align=center><font size=+2 color=blue><a href='#' onclick=""javascript:window.close()"">[关闭]</a></font></p>"
  response.write "<hr size=1>"
sql="select * from outward_elink where elink_companyid = "&newcompanyid&" and elink_id = "&elink_id&""
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
	outw_date = rs("elink_outw_date")
		%>
	<form action="chu_luru_tiaoma_action.asp" method="POST" name="input1">	
<table align=center cellspacing="0" cellpadding="2" border="0">
<input type=hidden name=id value=<%=request("id")%>>
<input type=hidden name=detail_id value=<%=request("detail_id")%>>
<input type=hidden name=companyid value=<%=request("companyid")%>>
<input type=hidden name=no value=<%=request("no")%>>
<tr>
    <td width="25%"><b>编&nbsp;&nbsp;&nbsp;&nbsp;号：</b></td>
    <td width="75%">
   <%response.write rs("elink_id")%></td>
 </tr>
<tr>
    <td width="25%"><b>易联单号：</b></td>
    <td width="75%">
   <%response.write rs("elink_odd")%></td>
 </tr>
<tr>
    <td width="25%"><b>数量：</b></td>
    <td width="75%">
    <%
    Response.write request("no")
	%>
     </td>
</tr>
<%
		iyear = year(outw_date)
		imonth = month(outw_date)
		if imonth < 10 then imonth = "0"&imonth 
		idata = "o"&iyear&imonth&newcompanyid
		sql = "select id from io_company where company_table = '"&idata&"'"
		'Response.Write sql
		set rs_data = conn.execute(sql)
		if rs_data.eof then
			sql = "exec Create_io_stock_single_o "&newcompanyid&",'"&idata&"' "
			conn.execute(sql)
			'Response.End 
		end if
		rs_data.close
		set rs_data = nothing
		
		sql = "select count(out_info_id) as ko from " &idata &" where out_detail_id = "&request("detail_id")&""
		set rs_sql = conn.execute(sql)
		ko = rs_sql("ko")
		rs_sql.close
		set rs_sql = nothing
%>
<tr>
    <td width="25%"><b>已有个数：</b></td>
    <td width="75%">
    <%
    Response.Write  ko
    %>
     </td>
</tr>
    
<tr>
    <td width="25%"><b>箱&nbsp;&nbsp;&nbsp;&nbsp;号：</b></td>
    <td width="75%">
    <input class=smallInput type=textbox name="inwa_xianghao" value='' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
   </td>
</tr>
<tr>
    <td width="25%"><b>数&nbsp;&nbsp;&nbsp;&nbsp;量：</b></td>
    <td width="75%">
   
   <% 
   	Response.Write "<input class=smallInput type=textbox name=""tiao_no"" value='"&request("no")-ko&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
	%>
   </td>
</tr>

<tr>
   <td>
   <td><br><input class=buttonface type=button  onclick="datacheck()" name=ok value=录入确认>　
 </tr>
</table>
</form>
 <%
end if
rs.Close 
set rs = nothing
call closedatabase
%>
 <hr size=1>
<br> <p align=center><font size=+2 color=blue><a href='#' onclick="javascript:window.close()">[关闭]</a></font></p> 
</body>
</html>
⌨️ 快捷键说明

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