purchase_modify.inc

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

	while not rs.EOF and iCounter <= iRecordsPerPage
		rowCount = rowCount + 1
		sGoodsID				= GetValue(rs,"cargo_id")
		sGoodsName				= GetValue(rs,"cargo_name")
		sModel			        = GetValue(rs,"model")
		sQuantity	    		= GetValue(rs,"quantity")
		sUnitPrice		    	= GetValue(rs,"unit_price")
		sUnit		        	= GetValue(rs,"unit")
		sRemark					= GetValue(rs,"remark")

		sTemp = sTemp & "<tr bgcolor=white height=20>" & _
		        "<td align=center nowrap>&nbsp;" & rowCount & "&nbsp;</td>" & _
				"<input type=""hidden"" name=""cargo_id_"& rowCount &""" value=""" & sGoodsID & """>" & _
				"<td align=center><input type=""checkbox"" id=choose_" & rowCount & " name=""choose"" value=""" & rowCount & """ style=""border-width:0""></td>" & vbLF & _
				"<td align=center title=""" & sGoodsName & """ nowrap>&nbsp;" & sGoodsName & "&nbsp;</td>" & _
				"<input type=""hidden"" name=""cargo_name_" & rowCount & """ value=""" & sGoodsName &""">" & _
				"<td align=center title=""" & sModel & """ nowrap>&nbsp;" & sModel & "&nbsp;</td>" & _
				"<input type=""hidden"" name=""model_" & rowCount & """ value=""" & sModel &""">" & _
				"<td align=center title=""" & sUnit & """ nowrap>&nbsp;" & sUnit & "&nbsp;</td>" & _
				"<input type=""hidden"" name=""unit_" & rowCount & """ value=""" & sUnit &""">" & _
				"<td align=center nowrap><input type=""text"" name=""quantity_" & rowCount & """ value="""& sQuantity &""" size=11 maxlength=20></td>" & _
				"<td align=center nowrap><input type=""text"" name=""unit_price_" & rowCount & """ value="""& sUnitPrice &""" size=11 maxlength=20></td>" & _
				"<td align=center nowrap><input type=""text"" name=""remark_" & rowCount & """ value="""& sRemark &""" size=34 maxlength=50>" & _
				"</tr>"
		
		iCounter = iCounter + 1
		rs.movenext
	wend
	rs.Close()
	set rs = nothing

	' 填补空白行
	sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)

	TableRecords = _ 
				sTemp & _
				"<input type=""hidden"" name=""row_count"" value=""" & rowCount &""">" & _
				"<input type=""hidden"" name=""is_temp"" value=""" & pIsTemp &""">" & _
				"<input type=""hidden"" name=""sheet_id"" value=""" & pSheetID &""">" & _
				"  <tr height=30 bgcolor=white>" & vbLF & _
		        "	 <td  colspan = 8 align=center>" & _
				"    <span title=""计算金额！"" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnCount_OnClick();"">" & _
				"    <img border=0 src=""../images/edit.gif"" style=""vertical-align:middle"">计算金额</span>" & vbLF & _
				"<span>&nbsp;&nbsp;</span>" & _
				"    <span title=""剔除所选记录！"" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnOutput_OnClick();"">" & _
				"    <img border=0 src=""../images/output.gif"" style=""vertical-align:middle"">删除所选记录</span>" & vbLF & _
				"<span>&nbsp;&nbsp;</span>" & _
				"    <span title=""填写采购单细节，然后点击按钮更新采购单！"" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnUpdate_OnClick();"">" & _
				"    <img border=0 src=""../images/modify.gif"" style=""vertical-align:middle"">更新采购单</span>" & vbLF & _
				"<span>&nbsp;&nbsp;</span>" & _
				"    <span title=""采购完成后，点击按钮完成采购单！"" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnOver_OnClick();"">" & _
				"    <img border=0 src=""../images/arrowr.gif"" style=""vertical-align:middle"">完成采购单</span>" & vbLF & _
				"<span>&nbsp;&nbsp;</span>" & _
				"    <span title=""放弃购买"" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnDel_OnClick();"">" & _
				"    <img border=0 src=""../images/delete.gif"" style=""vertical-align:middle"">取消采购单</span>" & _
				"    </td>" & vbLF & _	
				"    </tr></table></form>" & vbLF
End Function
'******************************************************************************
Sub Del()
	dim sql, rs, j
	dim sCargoID, sCargoName, sModel, sUnit, sQuantity, sUnitPrice, sRemark, sGoodsID
	dim rowCount	: rowCount = GetParam("row_count")

	for j = 1 to Cint(rowCount) step 1
		sCargoID	= GetParam("cargo_id_" & j)
		sCargoName	= GetParam("cargo_name_" & j)
		sModel		= GetParam("model_" & j)
		sUnit		= GetParam("unit_" & j)
		sQuantity	= GetParam("quantity_" & j)
		sUnitPrice	= GetParam("unit_price_" & j)
		sRemark		= GetParam("remark_" & j)
		sql = "select * from t_goods where goods_name=" & ToSQL(sCargoName,"text") & _
			" and model=" & ToSQL(sModel,"text") & _
			" and unit=" & ToSQL(sUnit,"text") & _
			" and remind_status = 3"
		'response.write sql :response.end
		set rs = Openrs(conn,sql)
		if Not rs.EOF then
			sGoodsID = GetValue(rs,"goods_id")
			sql = "update t_goods set remind_status = 2 where goods_id =" & sGoodsID
			call Openrs(conn,sql)
		end if
		sql = "delete from t_purchase_detail where cargo_id =" & sCargoID
		call Openrs(conn,sql)
	next
	sql = "delete from t_purchase_master where sheet_id =" & pSheetID
	call Openrs(conn,sql)
	response.redirect "purchase_mgr.asp"
End Sub
'*******************************************************************************
Sub Update()
dim sql, j
dim sCargoID, sCargoName, sModel, sUnit, sQuantity, sUnitPrice, sRemark
dim rowCount	: rowCount = GetParam("row_count")

sql = "update t_purchase_master set goods_type=" & ToSQL(pGoodsType,"number") &_
	",department=" & ToSQL(pDepartID,"number") & _
	",buyer=" & ToSQL(pBuyer,"text") & _
	",proposer=" & ToSQL(pProposer,"text") & _
	",administrator=" & ToSQL(pAdmin,"text") & _ 
	",mgr=" & ToSQL(pMgr,"text") & _
	",purchase_time=" & ToSQL(pOpDate,"text") & _
	",supplier=" & ToSQL(pSupplier,"number") & _
	",request_price=" & ToSQL(pReqPrice,"number") & _ 
	",pay_mode=" & ToSQL(pPayMode,"text") & _
	",cheque=" & ToSQL(pCheque,"text") & _
	",purpose=" & ToSQL(pPurpose,"text") & _
	" where sheet_id=" & pSheetID

'response.write sql :response.end
call Openrs(conn,sql)

for j = 1 to Cint(rowCount) step 1
	sCargoID	= GetParam("cargo_id_" & j)
	sQuantity	= GetParam("quantity_" & j)
	sUnitPrice	= GetParam("unit_price_" & j)
	sRemark		= GetParam("remark_" & j)
	sql = "update t_purchase_detail set quantity=" & ToSQL(sQuantity,"number") & _
		",unit_price=" & ToSQL(sUnitPrice,"number") & _
		",remark=" & ToSQL(sRemark,"text") & _
		" where cargo_id=" & ToSQL(sCargoID,"number")
	call Openrs(conn,sql)
next

End Sub
'*******************************************************************************
Sub Over()
	dim sql
	sql = "update t_purchase_master set sheet_status = '完成' where sheet_id =" & pSheetID
	call Openrs(conn,sql)
	response.redirect "purchase_mgr.asp"
End Sub
'*******************************************************************************
Function TableLink()
	TableLink = _
		"<table width=""100%"" cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
		"<tr height=10>" & vbLF & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
		"</tr>" & vbLF & _
		"<tr>" & vbLF & _
		"	<td width=600>&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../purchase/purchase_mgr.asp"">采购单管理</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../stock/goods_query.asp"">库存查询</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../purchase/purchase_new.asp"">新建采购</a></td>" & vbLF & _
		"</tr>" & vbLF & _
		"</table>" & vbLF
End Function
'*******************************************************************************
sub Output(choose)
	dim arrayOutput, sCargoID, pCargoID
	dim j, sql

	arrayOutput = split(choose, ",")

	for j = 0 to UBound(arrayOutput) step 1
			sCargoID = GetParam("cargo_id_" & Trim(arrayOutput(j))) 
			pCargoID = sCargoID & "," & pCargoID
	next

    dim Num        :  Num = Len(pCargoID)
    pCargoID = left(pCargoID,Num - 1)

	sql = "delete from t_purchase_detail where cargo_id in (" & pCargoID &")"
	'response.write sql : response.end
	call Openrs(conn,sql)
end sub
%>