purchase_modify.asp

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

<%
'##############################################################################
'#
'#		文 件 名	 : purchase_modify.asp
'#
'#
'#		创 建 人	 : yaoxiaohui
'# 　	日　  期	 : 2002-11-26
'#
'#		修改历史  : ****年**月**日 ******
'#      修改内容  : **************************************************
'#
'#		功能描述	 : 采购单更新
'# 　	版  　本	 : 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="purchase_modify.inc" -->

<!-- include files end -->
<%
'##############################################################################
'----   服务器端代码
'##############################################################################
call CheckSecurity()
'------------------------------------------------------------------------------
'----   用户权限检查
'------------------------------------------------------------------------------
if hasright(ID_PURCHASE) < RIGHT_WRITE  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 pGoodsType		: pGoodsType	 = GetParam("goods_type")		'' 采购单类别
dim pDepartID    	: pDepartID		 = GetParam("department")		'' 申购部门
dim pIsTemp		  	: pIsTemp		 = GetParam("is_temporary")		'' 采购单类型
dim pSupplier	  	: pSupplier		 = GetParam("supplier")			'' 供货商
dim pBuyer		  	: pBuyer		 = GetParam("buyer")			'' 采购人
dim pProposer		: pProposer		 = GetParam("proposer")			'' 申购人
dim pSheetStatus	: pSheetStatus	 = GetParam("sheet_status")		'' 采购单状态
dim pPayMode		: pPayMode		 = GetParam("pay_mode")			'' 支付方式
dim pReqPrice		: pReqPrice		 = GetParam("request_price")	'' 申请金额
dim pCheque			: pCheque		 = GetParam("cheque")			'' 支票抬头
dim pOpDate			: pOpDate		 = Getparam("purchase_time")	'' 批准日期
dim pAdmin			: pAdmin		 = Getparam("administrator")	'' 行政主管
dim pMgr			: pMgr			 = Getparam("mgr")				'' 高级经理
dim pPurpose		: pPurpose		 = Getparam("purpose")			'' 用途


dim sFormAction,choose
if UCase(Request.ServerVariables("REQUEST_METHOD") = "POST") then
	sFormAction = GetParam("FormAction")
	choose = GetParam("choose")
	select case sFormAction
	case "update"
		call Update()
	case "over"
		call Update()
		call Over()
	case "del"
		call Del()
	case "output"
		call Output(choose)
	end select
end if
'******************************************************************************
'----   分页相关的变量定义
'------------------------------------------------------------------------------
Dim sSQL, sWhere, sOrderby ,sWhere1
Dim sFileName			: sFileName			= "purchase_modify.asp"
Dim iTotalRecords		: iTotalRecords		= 0			                ' 分页
Dim iRecordsPerPage		: iRecordsPerPage	= 10                         ' 一页8行
Dim iTotalPages			: iTotalPages		= 0
Dim iCols				: iCols				= 8                         ' 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 = "sheet_id=" & pSheetID & "&"
'******************************************************************************
'----   构造分页的SQL语句
'------------------------------------------------------------------------------
sSQL = "select cargo_id,cargo_name,sheet_id,model,quantity,unit_price,unit,remark" & _
	" from t_purchase_detail"
sWhere = " where sheet_id =" & pSheetID
sOrderby = " order by cargo_id"
'******************************************************************************
'----   分页SQL语句构造完毕，调用PrepareListData进行分页前的准备
'------------------------------------------------------------------------------
dim arrayFields(7), sDelimiter
sDelimiter = "*"
arrayFields(0)	=	"cargo_id"
arrayFields(1)	=	"cargo_name"
arrayFields(2)	=	"sheet_id"
arrayFields(3)	=	"model"
arrayFields(4)	=	"quantity"
arrayFields(5)	=	"unit_price"
arrayFields(6)	=	"unit"
arrayFields(7)	=	"remark"
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-width:0px}
.tdHead	    {border-width:0px}
</style>

<!-- 日历 -->
<IFRAME style="display:none;position:absolute;width:148;height:194;z-index=100" ID="CalFrame" MarginHeight=0 MarginWidth=0 noresize frameborder=0 scrolling=no src="../include/cal/calendar.htm"></IFRAME>
<script language="javascript" src="../include/cal/calendar.js"></script>
<script for=document event="onclick()">
<!--
document.all.CalFrame.style.display="none";
//-->
</script>
<!-- 日历 -->

<script language="javascript">
///////////////////////////////////////////////////////////////////////////////
function mover()
{
	var obj = window.event.srcElement;
	obj.style.color = 'blue';
}
///////////////////////////////////////////////////////////////////////////////
function mout()
{
	var obj = window.event.srcElement;
	obj.style.color = 'black';
}
///////////////////////////////////////////////////////////////////////////////
function btnCancel_OnClick()
{
	frmDetail.FormAction.value = "cancel";
	frmDetail.submit();
}
///////////////////////////////////////////////////////////////////////////////
function btnUpdate_OnClick()
{
	if(window.confirm("你确定要更新采购单吗？\n\n确认请按“确定”，取消请按“取消”。") == true )
	{
		frmDetail.FormAction.value = "update";
		frmDetail.submit();
	}
}
///////////////////////////////////////////////////////////////////////////////
function btnOver_OnClick()
{
	if(frmDetail.administrator.value == 0)
	{
		alert("行政主管名空缺!");
		frmDetail.administrator.focus();
		return;
	}
	if(frmDetail.mgr.value == 0)
	{
		alert("高级经理名空缺!");
		frmDetail.mgr.focus();
		return;
	}
	if(frmDetail.purchase_time.value == 0)
	{
		alert("批准日期空缺!");
		frmDetail.purchase_time.focus();
		return;
	}
	if(window.confirm("你确定完成采购了吗？\n\n确认请按“确定”，取消请按“取消”。") == true )
	{
		frmDetail.FormAction.value = "over";
		frmDetail.submit();
	}
}
///////////////////////////////////////////////////////////////////////////////
function btnCount_OnClick()
{
	var price=0;
	var unitprice=0;
	var num=0;
	var count=0;
	eval("count = frmDetail.row_count.value")
	for(var j=1;j<=count;j++)
	{
		eval("num = frmDetail.quantity_"+ j +".value")
		eval("unitprice = frmDetail.unit_price_"+ j +".value")
		unitprice = num*unitprice;
		eval("price = price + "+" + unitprice")
		unitprice = 0;
		num=0;
	}
	eval("frmDetail.request_price.value = price")
	frmDetail.request_price.focus();
	return;
}
///////////////////////////////////////////////////////////////////////////////
function btnDel_OnClick()
{
	if(window.confirm("你确定要删除采购单吗？\n\n一旦删除无法恢复！\n\n确认请按“确定”，取消请按“取消”。") == true )
	{
	frmDetail.FormAction.value = "del";
	frmDetail.submit();
	}
}
///////////////////////////////////////////////////////////////////////////////
function btnOutput_OnClick()
{	
	if (HasCheckedRows() == false) return;		// 没有选中的记录

	frmDetail.FormAction.value = "output"
	frmDetail.submit();
}
///////////////////////////////////////////////////////////////////////////////
function CheckAllRows()
{
	var obj = document.all.choose;
	if (typeof(obj) == "undefined") return false;		// 一条记录也没有，直接返回

	// 如果只有一条记录时，调用length属性的结果为undefined
	if (typeof(obj.length) == "undefined")
	{
		frmDetail.choose_1.checked = true;		// 只要设置第一条记录的checked属性
	}
	else	
	{
		for (var j=1; j<=obj.length; j++)				// 如果有多个对象，就构成一个数组，设置数组中每个对象的checked属性为true
		{
				eval("frmDetail.choose_" + j + ".checked = true")
		}
	}
	return true;	
}
///////////////////////////////////////////////////////////////////////////////
function HasCheckedRows()
{
	var obj = document.all.choose;
	if (typeof(obj) == "undefined")	return false;		// 一条记录也没有，返回false

	// 如果只有一条记录时，调用length属性的结果为undefined
	if (typeof(obj.length) == "undefined")
	{
		// 只要判断第一个选择框的checked属性
		if (frmDetail.choose_1.checked == true)
			return true;
		else
			return false;
	}
	else	// 如果有多个对象，就构成一个数组，察看数组中每个对象的checked属性，只要有一个checked = true，就可以提交了
	{
		var bSelected = false;
		for (var j=1; j<=obj.length; j++)
		{
				eval("bSelected = frmDetail.choose_" + j + ".checked")
				if (bSelected == true) return true;		// 只要有一条记录被选中，就返回true;
		}
	}
	return false;
}
</script>

</head>

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

<%
Response.Write OuterTableHeader
Response.Write HeaderWithMenu
Response.Write InnerTableHeader
'******************************************************************************
'----   主体从这里开始
'------------------------------------------------------------------------------
Response.Write SheetMaster
Response.Write TableHeader
Response.Write TableRecords(sSQL & sWhere & sOrderby, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
Response.Write TableLink
'------------------------------------------------------------------------------
'----   主体到这里结束
'******************************************************************************
Response.Write InnerTableTailer
Response.Write Footer
Response.Write OuterTableTailer
Disconnect(conn)
%>

</body>
</html>