purchase_modify.inc

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

<%
'###############################################################################
'#
'#	文件名	 : purchase_edit.inc
'#	
'#      创建人	 : yaoxiaohui
'#      日期	 : 2002-11-06
'#
'#	修改历史  : ****年**月**日 ****** 
'#      修改内容  : *********************************
'#
'#	功能描述	 : 函数文件
'#      版  　本	 : v1.0
'#
'#      Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'###############################################################################

'******************************************************************************
Function SheetMaster()
	dim sql, rs
	dim sIsTemp

	sql = "select sheet_id,goods_type,supplier,request_price,cheque,pay_mode,purpose" & _
		",is_temporary,proposer,sheet_status" & _
		",department,buyer,administrator,mgr,purchase_time from t_purchase_master" & _
		" where sheet_id =" & pSheetID
	
	set rs = Openrs(conn,sql)

	if Not rs.EOF then
		pGoodsType		= GetValue(rs,"goods_type")
		pDepartID		= GetValue(rs,"department")    	
		pIsTemp			= GetValue(rs,"is_temporary")  	
		pSupplier		= GetValue(rs,"supplier")  	
		pBuyer			= GetValue(rs,"buyer") 	
		pProposer		= GetValue(rs,"proposer")
		pSheetStatus	= GetValue(rs,"sheet_status")
		pPayMode		= GetValue(rs,"pay_mode")
		pReqPrice		= GetValue(rs,"request_price")
		pCheque			= GetValue(rs,"cheque")
		pOpDate			= GetValue(rs,"purchase_time")
		pPurpose		= GetValue(rs,"purpose")
		pAdmin			= GetValue(rs,"administrator")
		pMgr			= GetValue(rs,"mgr")
	end if

	rs.Close()
	set rs = nothing
	
	select case pIsTemp
	case "0"
		sIsTemp = "常规采购单"
	case "1"
		sIsTemp = "临时采购单"
	end select

	SheetMaster = _
		"<form name=""frmDetail"" method=post action=""" & sFileName & """>" & vbLF  & _
		"<input type=""hidden"" name=""FormAction"">" & vbLF & _
		"<table cellspacing=0 cellpadding=3 width=""100%"" align=center border=0>" & vbLF & _
		"<tr height=20>" & _
		"<td colspan=6 bgcolor=""black"" align=center style=""color:white;font-weight:600"">采购单" & pSheetID & "细节</td></tr>" & _
		
		"  <tr height=30 bgcolor=white>" & vbLF & _
		"	<td align=right>采购单类型：</td>" & vbLF & _
		"       <td class=tdValue colspan=5>" & sIsTemp & "</td>" & vbLF & _
		"  </tr>" & vbLF & _

		"  <tr height=30 bgcolor=white>" & vbLF & _
		"	<td align=right colspan=1>申购部门：</td>" & vbLF & _
		"       <td>" & vbLF & _
		"			<select name=""department"" style=""width:130"">" & vbLF & _
							SelectOptions(conn, "select *from t_node", "node_id", "node_desp", pDepartID) & vbLF & _
		"			</select></td>" & vbLF & _
		"	<td align=right>采 购 人：</td>" & vbLF & _
		"       <td><input type=""text"" name=""buyer"" value=""" & pBuyer & """ size=20 maxlength=20>" & vbLF & _
		"	<td align=right>申 购 人：</td>" & vbLF & _
		"       <td><input type=""text"" name=""proposer"" value=""" & pProposer & """ size=20 maxlength=20>" & vbLF & _
		"  </tr>" & vbLF & _

		"  <tr height=30 bgcolor=white>" & vbLF & _
		"	<td align=right>类  别：</td>" & vbLF & _
		"       <td>" & vbLF & _
		"			<select name=""goods_type"" style=""width:130"">" & vbLF & _
							SelectOptions(conn, "select * from t_goods_type", "type_id", "type_desc", pGoodsType) & vbLF & _
		"			</select></td>" & vbLF & _
		"	<td align=right>申请金额：</td>" & vbLF & _
		"       <td><input type=""text"" name=""request_price"" value=""" & pReqPrice & """ size=16 maxlength=20>(元)</td>" & vbLF & _
		"	<td align=right>批准日期：</td>" & vbLF & _
		"	<td width=150>" & DrawCal("", pOpDate, "purchase_time", "dateimg") & "</td>" & _
		"  </tr>" & vbLF & _
		
		"  <tr height=30 bgcolor=white>" & vbLF & _
		"	<td align=right colspan=1>供 货 商：</td>" & vbLF & _
		"       <td>" & vbLF & _
		"			<select name=""supplier"" style=""width:130"">" & vbLF & _
							SelectOptions(conn, "select *from t_firm", "id", "name", pSupplier) & vbLF & _
		"			</select></td>" & vbLF & _
		"	<td align=right>支付方式：</td>" & vbLF & _
		"       <td><input type=""text"" name=""pay_mode"" value=""" & pPayMode & """ size=20 maxlength=20>" & vbLF & _
		"	<td align=right>支票抬头：</td>" & vbLF & _
		"       <td><input type=""text"" name=""cheque"" value=""" & pCheque & """ size=20 maxlength=20>" & vbLF & _
		"  </tr>" & vbLF & _

		"  <tr height=30 bgcolor=white>" & vbLF & _
		"	<td align=right>行政主管：</td>" & vbLF & _
		"       <td><input type=""text"" name=""administrator"" value=""" & pAdmin & """ size=20 maxlength=20>" & vbLF & _
		"  </tr>" & vbLF & _
		"	<td align=right>高级经理：</td>" & vbLF & _
		"       <td colspan=3><input type=""text"" name=""mgr"" value=""" & pMgr & """ size=20 maxlength=20>" & vbLF & _
		"  </tr>" & vbLF & _

		"  <tr height=30 bgcolor=white>" & vbLF & _
		"	<td align=right>用途：</td>" & vbLF & _
		"       <td align=left colspan=5><textarea name=""purpose"" rows=1 cols=50>" & pPurpose & "</textarea></td>" & _
		"  </tr>" & vbLF & _

		"</table>"
End Function
'******************************************************************************
Function TableHeader()
	TableHeader = _
		"<table cellspacing=1 cellpadding=0 width=""100%"" align=center bgcolor=silver style=""table-layout:fixed"">" & vbLF & _
		"<tr style=""display:none"">" & vbLF & _
		"	<td width=""8%"">这一行仅用于控制表格的宽度</td>" & vbLF & _
		"	<td width=""8%""></td>" & vbLF & _
		"	<td width=""15%""></td>" & vbLF & _
		"	<td width=""12%""></td>" & vbLF & _
		"	<td width=""8%""></td>" & vbLF & _
		"	<td width=""12%""></td>" & vbLF & _
		"	<td width=""12%""></td>" & vbLF & _
		"	<td width=""*""></td></tr>" & vbLF & _
		"<tr height=25>" & _
		"<td colspan=8 bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"">需采购物品和设备清单</td></tr>" & _
		"<tr bgcolor=white height=25>" & _
        "<td class=tdHead align=center>&nbsp;序号&nbsp;</td>" & _
		"<td class=tdHead align=center>&nbsp;选择&nbsp;</td>" & _
		"<td class=tdHead align=center>&nbsp;物品名称&nbsp;</td>" & _
		"<td class=tdHead align=center>&nbsp;型号规格&nbsp;</td>" & _
		"<td class=tdHead align=center>&nbsp;单位&nbsp;</td>" & _
		"<td class=tdHead align=center>&nbsp;建议数量&nbsp;</td>" & _
		"<td class=tdHead align=center>&nbsp;单价(元)&nbsp;</td>" & _
		"<td class=tdHead align=center>&nbsp;备注&nbsp;</td>" & _
		"</tr>"
End Function
'******************************************************************************
Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
	dim sTemp	: sTemp = ""	' 临时字符串变量
	dim j						' 临时循环变量
	dim sql

	'response.write sSQL : response.end
	'------------------------------------
	' 分页所需的变量定义
	'------------------------------------
	Dim iCounter		: iCounter = 1
	Dim iPrevPage, iNextPage
	dim rowCount        : rowCount = 0

	'------------------------------------
	' 获取数据库连接
	'------------------------------------
	dim rs	: set rs = Openrs(conn,sSQL)
    
	dim sGoodsID, sGoodsName, sModel, sUnit, sQuantity, sUnitPrice,sRemark
	
	if Not rs.EOF then		
		rs.move (iCurrentPage - 1) * iRecordsPerPage
	end if