purchase_goto.asp

物业管理和办公自动化系统

<%
'##############################################################################
'#
'#		文 件 名	 : purchase_goto.asp
'#
'#
'#		创 建 人	 : yaoxiaohui
'# 　	日　  期	 : 2002-11-7
'#
'#		修改历史  : ****年**月**日 ******
'#      修改内容  : **************************************************
'#
'#		功能描述	 : 采购单管理
'# 　	版  　本	 : v1.0
'#	
'#	    Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'##############################################################################
'------------------------------------------------------------------------------
'----   服务器端设置
'------------------------------------------------------------------------------
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>
<!-- include files begin -->

<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/commonpage.inc" -->

<!-- include files end -->
<%
'##############################################################################
'----   服务器端代码
'##############################################################################
call CheckSecurity()

if hasright(ID_PURCHASE) < RIGHT_READ  then
	Response.Clear
	Response.Redirect "../include/error.asp?error=只有采购管理员才能进行操作！"
	Response.end
end if

dim conn
set conn = DBConnection

dim pSheetID	: pSheetID = GetParam("sheet_id")
dim sStatus
dim sql
sql = "select sheet_status from t_purchase_master where sheet_id =" & pSheetID
sStatus = DLookUp(conn,sql)
if hasright(ID_PURCHASE) < RIGHT_WRITE then
	response.redirect "purchase_sheet.asp?sheet_id=" & pSheetID
else
select case sStatus
	case "新建"
		response.redirect "purchase_modify.asp?sheet_id=" & pSheetID
	case "完成"
		response.redirect "purchase_sheet.asp?sheet_id=" & pSheetID
	case "入库"
		response.redirect "purchase_sheet.asp?sheet_id=" & pSheetID
end select
end if
Disconnect(conn)
%>