sheet_goods_print.asp

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

<%
'##############################################################################
'#
'#		文 件 名	 : sheet_stock_print.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_goods_print.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 pOpdate1	: pOpdate1	= GetParam("opdate1")
dim pOpdate2	: pOpdate2	= GetParam("opdate2")
dim pDepotID	: pDepotID	= GetParam("depot_id")
dim pStyle		: pStyle	= GetParam("style")
dim pOpdate		: pOpdate	= date
'response.write pOpdate1 &"<br>"& pOpdate2 &"<br>"& pDepotID &"<br>" : response.end
dim sql, rs, j
dim pGoodsType, pGoodsDesc,sGoodsDesc, pCompare1, pCompare2
dim sDepotName
dim sSQL,sWhere

if pDepotID = "-1" then
	sWhere = ""
else
	sWhere = " and t1.depot_id =" & ToSQL(pDepotID,"number")
end if

sSQL = "select t1.goods_id,t1.goods_name,t1.model,t1.quantity,t1.unit" & _
	",t1.goods_type,t2.depot_name" & _
	" from t_goods t1" & _
	" left join t_depot t2 on t1.depot_id = t2.depot_id" & _
	" where t1.goods_id = t1.goods_id" & _
	sWhere & _
	" order by t1.goods_id"
'response.write pSQL :response.end
set rs = Openrs(conn,sSQL)
if Not rs.EOF then
pCompare2 = GetValue(rs,"goods_type")
end if 
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

sql = "select depot_name from t_depot where depot_id =" & ToSQL(pDepotID,"number")
'response.write sql :response.end
sDepotName = DLookUp(conn,sql)

dim sDate, pYear, pMonth
pYear = year(pOpdate1)
pMonth = month(pOpdate1)
if pStyle = "1" then 
	sDate = pYear & "年度" & pMonth & "月份"
else
	sDate = pYear & "年度"
end if

dim pDepot
if pDepotID = -1 then
pDepot = "所有仓库"
else
sql = "select depot_name from t_depot where depot_id =" & pDepotID
pDepot = DLookUp(conn,sql)
end if
'******************************************************************************
'----   分页相关的变量定义
'------------------------------------------------------------------------------
Dim sFileName			: sFileName			= "sheet_goods_print.asp"
Dim iTotalRecords		: iTotalRecords		= 0			                ' 分页
Dim iRecordsPerPage		: iRecordsPerPage	= 25                        ' 一页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		= ""

sFormParams	= "opdate1=" & pOpdate1 & "&opdate2=" & pOpdate2 & "&depot_id=" & pDepotID & "&style=" & pStyle & "&" 
'******************************************************************************
'----   分页SQL语句构造完毕，调用PrepareListData进行分页前的准备
'------------------------------------------------------------------------------
dim arrayFields(4), sDelimiter
sDelimiter = "*"
arrayFields(0)	=	"goods_id"
arrayFields(1)	=	"goods_name"
arrayFields(2)	=	"model"
arrayFields(3)	=	"quantity"
arrayFields(4)	=	"unit"


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

call PrepareListData(conn, sSQL, 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 TableHeader
Response.Write TableRecords( sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
Response.Write SheetMasterDown
Response.Write SheetBottom
'' 本页仅用于打印的时候不显示其它内容，如按钮，链接等
if IsEmpty(pForPrint) then
	''以下生成可下载保存的Excel文件
	if hasright(ID_STOCK) < RIGHT_WRITE then
	else
	Response.Write "<form name=""FormBuildExcelFile"" method=post action=""BuildFileGoods.asp"">" & _
		"<input type=""hidden"" name=""filename"" value=""报表"">" & _
		"<input type=""hidden"" name=""opdate1"" value=""" & pOpdate1 & """>" & _
		"<input type=""hidden"" name=""opdate2"" value=""" & pOpdate2 & """>" & _
		"<input type=""hidden"" name=""depot"" value=""" & pDepot & """>" & _
		"<input type=""hidden"" name=""depot_id"" value=""" & pDepotID & """>" & _
		"<input type=""hidden"" name=""style"" value=""" & pStyle & """>" & _
		"<table border=0 class=noprint align=center>" & _
		"<tr bgcolor=white height=30>" & _
		"	<td colspan=9 align=center>" & _
		"	<button style=""border:ridge 1px buttonface;font-size:9pt"" onclick=""FormBuildExcelFile.submit();"">生成EXCEL文件</button>" & _
		"</td></tr>" & _
		"</table>" & _
		"</form>"
	end if
	Response.Write "<table border=0 class=noprint>" & vbLF & _
		"<tr height=30><td colspan=9 align=center>" & _
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
		"&nbsp;</td></tr>" & vbLF & _
		"</table>"
	Response.Write TableAction
	Response.Write TableLink
end if
'------------------------------------------------------------------------------
'----   主体到这里结束
'******************************************************************************
'' 本页仅用于打印的时候不显示其它内容
if IsEmpty(pForPrint) then
	Response.Write InnerTableTailer
	Response.Write Footer
	Response.Write OuterTableTailer
else
	sFormParams	= sFormParams & "forprint=1&"
	Response.Write "</td></tr></table>"
	Response.Write "<table border=0 class=noprint align=center>" & vbLF & _
		"<tr height=30><td colspan=9 align=center>" & _
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
		"&nbsp;</td></tr>" & vbLF & _
		"</table>"	
	Response.Write "<table border=0 align=center class=noprint align=center height=40>" & vbLF & _
		"<tr><td colspan=9>" & 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>