sheet_stock_print0120.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_stock_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")
'response.write pOpdate1&"<br>"&pOpdate2&"<br>" : response.end

dim sWhere
if pDepotID = "-1" then
	sWhere = ""
else
	sWhere = " and t3.sheet_status <> 0 and t1.depot =" & ToSQL(pDepotID,"number")
end if

dim sql, rs, j, sSQL
dim pGoodsType, pGoodsDesc,sGoodsDesc, pCompare1, pCompare2

sSQL = "select t1.goods_id,t1.goods_name,t1.sheet_id,t1.model,t1.quantity" & _
	",t1.unit,t1.goods_type,t1.opdate,t2.depot_name,t1.remark" & _
	" from t_stock_detail t1" & _
	" left join t_depot t2 on t1.depot = t2.depot_id" & _
	" left join t_stock_master t3 on t1.sheet_id = t3.sheet_id" & _
	" where t1.opdate >= " & ToSQL(pOpdate1,"text") & " and t1.opdate < " & ToSQL(DateAdd("d",1,pOpdate2),"text") & _
	sWhere & _
	" order by t1.opdate desc"
'response.write sSQL  & "<br>" : 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 = "全部" and pGoodsType <> "" then 
	sGoodsDesc = pGoodsDesc
else
	sql = "select type_desc from t_goods_type where type_id =" & pGoodsType
	sGoodsDesc = DLookUp(conn,sql)
end if

'******************************************************************************
'----   分页相关的变量定义
'------------------------------------------------------------------------------
Dim sFileName			: sFileName			= "sheet_stock_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 & "&" 
'******************************************************************************
'----   分页SQL语句构造完毕，调用PrepareListData进行分页前的准备
'------------------------------------------------------------------------------
dim arrayFields(6), 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)	=	"remark"

'response.write pSheetID  &"<BR>"
'response.write sSQL &"<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>

<script language="JavaScript">
function btnExcel_OnClick()
{
	FormBuildExcelFile.FormAction.value = "save";
	FormBuildExcelFile.submit();
}
</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
	if hasright(ID_STOCK) < RIGHT_WRITE then
	else
	Response.Write "<form name=""FormBuildExcelFile"" method=post action=""BuildExcelFile.asp"">" & _
		"<input type=""hidden"" name=""filename"" value=""进出库统计结果"">" & _
		"<input type=""hidden"" name=""opdate1"" value=""" & pOpdate1 & """>" & _
		"<input type=""hidden"" name=""opdate2"" value=""" & pOpdate2 & """>" & _
		"<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=" & iCols & " align=right>" & _
				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 height=50>" & vbLF & _
		"<tr><td colspan=" & iCols & ">" & _
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
		"&nbsp;</td></tr>" & vbLF & _
		"<tr><td colspan=" & iCols & ">" & 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>