sheet_return.asp

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

<%
'##############################################################################
'#
'#		文 件 名	 : sheet_return.asp
'#
'#
'#		创 建 人	 : yaoxiaohui
'# 　	日　  期	 : 2002-11-28
'#
'#		修改历史  : ****年**月**日 ******
'#      修改内容  : **************************************************
'#
'#		功能描述	 : 退货单
'# 　	版  　本	 : 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 file="sheet_return.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 pForPrint	: pForPrint	= GetParam("forprint")

dim pSheetID	: pSheetID	= GetParam("sheet_id")			'' 采购单编号
'dim pSheetID	: pSheetID	= 218

if IsEmpty(pSheetID) then
	Response.Clear
	Server.Transfer("../common/error.asp")
	Response.end
end if
'response.write pSheetID : response.end
dim sql, rs, j
dim pNodeID, pDepartMgr, pHandover
dim pSheetStatus
dim sNodeName,pOpdate
dim pGoodsType, pGoodsDesc,sGoodsDesc, pCompare1, pCompare2
sql = "select sheet_id,node_id,department_manager,handover,sheet_status from t_stock_master where sheet_id =" & pSheetID
'response.write sql : response.end
set rs = Openrs(conn,sql)
if Not rs.EOF then
	pNodeID			= GetValue(rs,"node_id")
	pDepartMgr		= GetValue(rs,"department_manager")
	pHandover		= GetValue(rs,"handover")
	pSheetStatus	= GetValue(rs,"sheet_status")
end if
rs.Close()
set rs = nothing

sql = "select node_desp from t_node where node_id =" & pNodeID
sNodeName	 = DLookUp(conn,sql)

sql = "select opdate from t_stock_detail where sheet_id =" & pSheetID
pOpdate = DLookUp(conn,sql)

sql = "select goods_type from t_stock_detail where sheet_id =" & pSheetID
set rs = Openrs(conn,sql)
pCompare2 = DLookUp(conn,sql)
pGoodsDesc = ""
while Not rs.EOF
	pCompare1 = GetValue(rs,"goods_type")
	if pCompare1 = pComPare2 then
		pGoodsType = pCompare1
	else 
		pGoodsDesc = "全部"
	end if
	rs.movenext
wend
rs.Close()
set rs = nothing

if pGoodsDesc = "全部" then 
	sGoodsDesc = pGoodsDesc
else
	sql = "select type_desc from t_goods_type where type_id =" & pGoodsType
	sGoodsDesc = DLookUp(conn,sql)
end if

'******************************************************************************
'----   分页相关的变量定义
'------------------------------------------------------------------------------
Dim sSQL, sWhere, sOrderby ,sWhere1
Dim sFileName			: sFileName			= "sheet_return.asp"
Dim iTotalRecords		: iTotalRecords		= 0			                ' 分页
Dim iRecordsPerPage		: iRecordsPerPage	= 10                         ' 一页8行
Dim iTotalPages			: iTotalPages		= 0
Dim iCols				: iCols				= 9                         ' 9列
Dim iCurrentPage		: iCurrentPage		= GetParam("Page")
Dim sSorting			: sSorting			= GetParam("Sorting")
Dim sSorted				: sSorted			= GetParam("Sorted")
Dim sSortParams			: sSortParams		= ""
Dim sFormParams			: sFormParams		= ""
Dim sDirection			: sDirection		= ""
'******************************************************************************
'----   构造分页的SQL语句
'------------------------------------------------------------------------------
sSQL = "select goods_id,goods_name,model,quantity,unit,unit_price,return_reason,purchase_date,supplier,remark" & _
" from t_stock_detail"
sWhere = " where sheet_id =" & pSheetID
sOrderby = " order by goods_id"
'******************************************************************************
'----   分页SQL语句构造完毕，调用PrepareListData进行分页前的准备
'------------------------------------------------------------------------------
dim arrayFields(9), sDelimiter
sDelimiter = "*"
arrayFields(0)	=	"goods_id"
arrayFields(1)	=	"goods_name"
arrayFields(2)	=	"model"
arrayFields(3)	=	"quantity"
arrayFields(4)	=	"unit"
arrayFields(5)	=	"unit_price"
arrayFields(6)	=	"return_reason"
arrayFields(7)	=	"purchase_date"
arrayFields(8)	=	"supplier"
arrayFields(9)	=	"remark"

'response.write pSheetID  &"<BR>"
'response.write sSQL & sWhere & sOrderby  &"<BR>"
'response.end

call PrepareListData(conn,sSQL & sWhere & sOrderby, Join(arrayFields, sDelimiter), sDelimiter)
'******************************************************************************
%>

<html>
<head>
<title>上海信息大楼 Shanghai Information Tower</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../include/common.css" type="text/css">

<style type="text/css">
.tdlist		{border-style:solid;border-color:black;border-top-width:1px;border-bottom-width:0px;border-left-width:1px;border-right-width:0px;}
.tdHead	    {border-style:solid;border-color:black;border-top-width:1px;border-bottom-width:0px;border-left-width:1px;border-right-width:0px;}
</style>

<style type="text/css" media=screen>.noprint {visibility:visible;}</style>
<style type="text/css" media=print>.noprint {visibility:hidden;}</style>

<OBJECT id=closes classid="CLSID:ADB880A6-D8FF-11CF-9377-00AA003B7A11"><param name="Command" value="close"></OBJECT> 
<OBJECT id=WB classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 width=0></OBJECT>

<script language="JavaScript">
	function doPrintSetup()		{ WB.ExecWB(8,1) }			// 打印设置
	function doPrintPreview()	{ WB.ExecWB(7,1) }			// 打印预览
	function doPrint()				{ WB.ExecWB(6,1) }			// 打印
	function closethis()				{ closes.click(); return; }	// 关闭窗口
</script>

</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../images/bg/bg0.jpg">
<br>

<%
'' 本页仅用于打印的时候不显示其它内容
if IsEmpty(pForPrint) then
	Response.Write OuterTableHeader
	Response.Write HeaderWithMenu
	Response.Write InnerTableHeader
else
	Response.Write "<table border=0 cellspacing=0 cellpadding=0 width=600 align=center style=""border:0px solid outset""><tr bgcolor=white><td>" & vbLF
end if
'******************************************************************************
'----   主体从这里开始
'------------------------------------------------------------------------------
Response.Write SheetTop
Response.Write SheetMasterUp
Response.Write Border
Response.Write TableHeader
Response.Write TableRecords(sSQL & sWhere & sOrderby, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
Response.Write Border
Response.Write SheetMasterDown
Response.Write SheetBottom
'' 本页仅用于打印的时候不显示其它内容，如按钮，链接等
if IsEmpty(pForPrint) then
	Response.Write TableAction
	Response.Write TableLink
end if
'------------------------------------------------------------------------------
'----   主体到这里结束
'******************************************************************************
'' 本页仅用于打印的时候不显示其它内容
if IsEmpty(pForPrint) then
	Response.Write InnerTableTailer
	Response.Write Footer
	Response.Write OuterTableTailer
else
	Response.Write "</td></tr></table>"

	Response.Write "<table border=0 align=center class=noprint align=center height=40>" & vbLF & _
		"<tr><td colspan=7>" & vbLF & _
				"<img border=0 src=""../images/button/preview.gif"" style=""cursor:hand"" OnClick=""JavaScript:doPrintPreview();"">" & vbLF & _
				"&nbsp;&nbsp;" & vbLF & _
				"<img border=0 src=""../images/button/print.gif"" style=""cursor:hand"" OnClick=""JavaScript:doPrint();"">" & vbLF & _
				"&nbsp;&nbsp;" & vbLF & _
				"<img border=0 src=""../images/button/close.gif"" style=""cursor:hand"" OnClick=""JavaScript:closes.Click();"">" & vbLF & _
		"</td></tr>" & vbLF & _
		"</table>"	
end if
Disconnect(conn)
%>

</body>
</html>