📄 luru_tiaoma_action.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)
if flag > 4 then
call closedatabase
Response.End
end if
%>
<%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">
</head>
<body topmargin="0" onload="javascript:input1.c1.focus()">
<%
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>"
tiaoma_no = trim(request("tiao_no"))
inwa_xianghao = trim(request("inwa_xianghao"))
if tiaoma_no < 1 then
call closedatabase
Response.End
end if
id = request("id")
if not isnumeric(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 * from inward where inwa_companyid = "&newcompanyid&" and inwa_id = "&id&""
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
%>
<form action="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")%>>
<input type=hidden name=rec_no value=<%=request("rec_no")%>>
<tr>
<td width="25%"><b>编 号：</b></td>
<td width="75%">
<%response.write rs("inwa_id")%></td>
</tr>
<tr>
<td width="25%"><b>S I A：</b></td>
<td width="75%">
<%response.write rs("inwa_sia")%></td>
</tr>
<tr>
<td width="25%"><b>实收数量：</b></td>
<td width="75%">
<%
if rs("inwa_flag") =1 then
Response.write request("rec_no")
else
Response.Write request("no")
end if
%>
</td>
</tr>
<%
inwa_date = rs("inwa_date")
iyear = year(inwa_date)
imonth = month(inwa_date)
if imonth < 10 then imonth = "0"&imonth
idata = "i"&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 "&newcompanyid&" "
conn.execute(sql)
end if
rs_data.close
set rs_data = nothing
sql = "select count(in_info_code) as ko from " &idata &" where in_idetail_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>箱 号：</b></td>
<td width="75%">
<input class=smallInput type=textbox name="inwa_xianghao" value='<%=inwa_xianghao%>'></td>
</td>
</tr>
<tr>
<td width="25%"><b>本次录入量：</b></td>
<td width="75%">
<input class=smallInput type=textbox name="tiaoma_no" value='<%=tiaoma_no%>' readonly></td>
</td>
</tr>
<%
for counter = 1 to tiaoma_no
if counter = 1 then
%>
<tr>
<td width="25%"><b>条 形 码：</b></td>
<td width="75%">
<%
else
Response.Write "<tr>"
Response.Write "<td width=""25%""> </td>"
Response.Write "<td width=""75%"">"
end if
Response.Write "<input class=smallInput type=textbox name='c"&counter&"' value=''>"
%>
</td>
</tr>
<%
next
%>
<tr>
<td>
<td><br><input class=buttonface type=submit 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 + -