⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tiaoma_action.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)
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>
</head>
<body topmargin="0">
<%
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
detail_id = request("detail_id")
if not isnumeric(detail_id) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""detail_id必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
end if
tiaoma_no = trim(request("tiaoma_no"))
tiaoma_no = replace(tiaoma_no,"'","’")
inwa_xianghao = trim(request("inwa_xianghao"))
if inwa_xianghao = "" then 
	inwa_xianghao = " "
else
	inwa_xianghao = replace(inwa_xianghao,"'","’")
end if
sql = "select inwa_flag,inwa_date,inwa_dc_id from inward where inwa_id = "&id&""
set rs_in = conn.execute(sql)
if not rs_in.eof then
	inwa_date = rs_in("inwa_date")
	dc_id = rs_in("inwa_dc_id")
	inwa_flag = rs_in("inwa_flag")
		iyear = year(inwa_date)
		imonth = month(inwa_date)
		if imonth < 10 then imonth = "0"&imonth 
		idata = "i"&iyear&imonth&newcompanyid
else
	rs_in.close
	set rs_in = nothing
	call closedatabase
	Response.End 
end if
rs_in.close
set rs_in = nothing
sql = "select idetail_no,idetail_rec_no,idetail_prod_id from inward_detail where idetail_id = "&detail_id&""
set rs_in = conn.execute(sql)
if not rs_in.eof then
	idetail_no = rs_in("idetail_no")
	idetail_rec_no = rs_in("idetail_rec_no")
	prod_id = rs_in("idetail_prod_id")
else
	rs_in.close
	set rs_in = nothing
	call closedatabase
	Response.End 
end if
rs_in.close
set rs_in = nothing
sql = "select count(in_info_id) as ko from "&idata&" where in_idetail_id = "&detail_id&"" 
set rs_in = conn.execute(sql)
if not rs_in.eof then
	ko = rs_in("ko")		
else
	ko = 0
end if
rs_in.close
set rs_in = nothing
if inwa_flag = 1 then
	if ((clng(ko)+clng(tiaoma_no)) > clng(idetail_rec_no)) then
		call closedatabase
		Response.Write "<script language=javascript>"
		Response.Write "alert(""数量不对,请确认!!!"");"
		Response.Write "history.go(-1);"
		Response.Write "</script>"
		Response.End 
	end if 
elseif inwa_flag = 0 then
	if (clng(ko)+clng(tiaoma_no)) > clng(idetail_no) then
		call closedatabase
		Response.Write "<script language=javascript>"
		Response.Write "alert(""数量不对,请确认!!!"");"
		Response.Write "history.go(-1);"
		Response.Write "</script>"
		Response.End 
	end if
end if
		'需加检验(现未加) 本次录入是否有相同的条码
		for i = 1 to tiaoma_no
			code = trim(request("c"&i&""))
			if code = "" then
				call closedatabase
				Response.Write "<script language=javascript>"
				Response.Write "alert(""条码不得有空格,请确认!!!"");"
				Response.Write "history.go(-1);"
				Response.Write "</script>"
				Response.End
			else
				code = replace(code,"'","’")
			end if
			sql = "select in_info_id from " &idata &" where in_idetail_id = "&request("detail_id")&" and in_info_code = '"&code&"'"
			set info = conn.execute(sql)
			if not info.eof then
				info.close
				set info = nothing
				call closedatabase
				Response.Write "<script language=javascript>"
				Response.Write "alert(""该条码已经存在,请确认!!!"");"
				Response.Write "history.go(-1);"
				Response.Write "</script>"
				Response.End
			end if
			info.close
			set info = nothing
		next
				
		for i = 1 to tiaoma_no
			code = trim(request("c"&i&""))
			code = replace(code,"'","’") 
			sql = "select in_info_id from " &idata &" where in_idetail_id = "&request("detail_id")&" and in_info_code = '"&code&"'"
			set info = conn.execute(sql)
			if info.eof then
				sql = "insert into " & idata &"(in_inwa_id,in_idetail_id,in_info_xianghao,in_info_code,in_info_dc_id,in_info_prod_id,in_info_companyid,in_info_date) values("&id&","&detail_id&",'"&inwa_xianghao&"','"&code&"',"&dc_id&","&prod_id&","&newcompanyid&",'"&inwa_date&"')"
				conn.execute(sql)
			end if
			info.close
			set info = nothing
		next
if inwa_flag = 1 then
	if ((clng(ko)+clng(tiaoma_no)) = clng(idetail_rec_no)) then
		sql = "update inward_detail set idetail_io_flag = 1 where idetail_id = "&request("detail_id")&""
		conn.execute(sql)
		sql = "select idetail_id from inward_detail where idetail_inwa_id = "&id&" and idetail_io_flag =0 "
		set rs_co = conn.execute(sql)
		if rs_co.eof then
			sql = "update inward set tiaoma_flag = 1 where inwa_id = "&id&""
			conn.execute(sql)
		end if
		rs_co.close
		set rs_co = nothing
		call closedatabase
		Response.Write "<script language=javascript>"
		Response.Write "opener.location.reload();"
		Response.Write "window.close();"
		Response.Write "</script>"
		Response.End 
	else
		call closedatabase
		Response.Write "<script language=javascript>"
		Response.Write "window.location.href=""luru_tiaoma.asp?id="&id&"&detail_id="&detail_id&"&no="&idetail_no&"&rec_no="&idetail_rec_no&"&companyid="&newcompanyid&""";"
		Response.Write "</script>"
		Response.End
	end if 
elseif inwa_flag = 0 then
	if (clng(ko)+clng(tiaoma_no)) = clng(idetail_no) then
		sql = "update inward_detail set idetail_io_flag = 1 where idetail_id = "&request("detail_id")&""
		conn.execute(sql)
		sql = "select idetail_id from inward_detail where idetail_inwa_id = "&id&" and idetail_io_flag =0 "
		set rs_co = conn.execute(sql)
		if rs_co.eof then
			sql = "update inward set tiaoma_flag = 1 where inwa_id = "&id&""
			conn.execute(sql)
		end if
		rs_co.close
		set rs_co = nothing
		call closedatabase
		Response.Write "<script language=javascript>"
		Response.Write "opener.location.reload();"
		Response.Write "window.close();"
		Response.Write "</script>"
		Response.End 
	else
		call closedatabase
		Response.Write "<script language=javascript>"
		Response.Write "window.location.href=""luru_tiaoma.asp?id="&id&"&detail_id="&detail_id&"&no="&idetail_no&"&rec_no="&idetail_rec_no&"&companyid="&newcompanyid&""";"
		Response.Write "</script>"
		Response.End
	end if
end if
		%>
	
</body>
</html>

⌨️ 快捷键说明

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