sheet_goto.asp

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

<%
'##############################################################################
'#
'#		文 件 名	 : sheet_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_STOCK) < 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 sOpType, sStatus

'' 进货方式分类，0全部，1为采购入库，2为移交入库，3为归还入库
'' 库存状态分类，0全部，1在库中，2已借出，3已报废，4已退货，5已领用，6已移出, 7待选择
'' 提醒状态分类，0不需提醒，1正常，2已提醒，3采购中，4选中的
'' 出库方式分类，1入库，2移入，3归还，4领用，5退货，6报废，7移出，8借出

dim sql
sql = "select optype from t_stock_master where sheet_id =" & pSheetID

sOpType = DLookUp(conn,sql)

'response.write sOpType :response.end


select case sOpType
	case "1"	'' 入库
		response.redirect "sheet_purchase_in.asp?sheet_id=" & pSheetID
	case "2"	'' 移入
		response.redirect "sheet_handover.asp?sheet_id=" & pSheetID
	case "3"	'' 归还
		response.redirect "sheet_borrow.asp?sheet_id=" & pSheetID
	case "4"	'' 领用
		response.redirect "sheet_item.asp?sheet_id=" & pSheetID
	case "5"	'' 退货
		response.redirect "sheet_return.asp?sheet_id=" & pSheetID
	case "6"	'' 报废
		response.redirect "sheet_discard.asp?sheet_id=" & pSheetID
	case "7"	'' 移出
		response.redirect "sheet_handover.asp?sheet_id=" & pSheetID
	case "8"	'' 借出
		response.redirect "sheet_borrow.asp?sheet_id=" & pSheetID
end select 
Disconnect(conn)
%>