handover_input.inc

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

		"       <td colspan=3>" & vbLF & _
		"			<select name=""type_id"" style=""width:130"">" & vbLF & _
		"					<option value=-1>全部</option>" & vbLF & _
							SelectOptions(conn, "select *from t_goods_type", "type_id", "type_desc", pTypeID) & vbLF & _
		"			</select></td>" & vbLF & _
		"	<td align=right colspan=1>移交日期：</td>" & vbLF & _
		"       <td colspan=3>"& DrawCal("", pOpDate, "opdate", "dateimg") &"</td>" & vbLF & _
		"  </tr>" & vbLF & _
		"  <tr height=10 bgcolor=white><td colspan=8></td></tr>" & vbLF & _	
		"</table>"
End Function
'******************************************************************************
Function ActionLink
		ActionLink = _
				"<table>" & _
				"  <tr height=10 bgcolor=white><td colspan=8></td></tr>" & vbLF & _	
				"  <tr height=30 bgcolor=white>" & vbLF & _
		        "	 <td  colspan = 8 align=center>" & _			
				"    <span title=""选中全部，准备剔除"" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""CheckAllRows();"">" & _
				"    <img border=0 src=""../images/task.gif"" style=""vertical-align:middle"">全部选中</span>" & _
				"    &nbsp;&nbsp;&nbsp;" & _
				"    <span title=""选定需要剔除的物品，点击剔除"" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnOutput_OnClick();"">" & _
				"    <img border=0 src=""../images/output.gif"" style=""vertical-align:middle"">物品剔除</span>" & _
				"    &nbsp;&nbsp;&nbsp;" & _
				"    <span title=""填写移交物品清单，然后点击按钮进行入库"" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnHandover_OnClick();"">" & _
				"    <img border=0 src=""../images/arrowr.gif"" style=""vertical-align:middle"">生成移交清单</span>" & vbLF & _	
				"    &nbsp;&nbsp;&nbsp;" & _
				"    <span title=""放弃移交"" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnCancel_OnClick1();"">" & _
				"    <img border=0 src=""../images/delete.gif"" style=""vertical-align:middle"">放弃移交</span>" & _
				"    </td>" & vbLF & _	
				"    </tr></table></form>" & vbLF
End Function
'******************************************************************************
Sub AddinSession()
dim strx,stry
stry = session("i_array")
Session.Contents.Remove "i_array"
strx = pGoodsName & "#^^#" & pModel & "#^^#" & pUnit & "#^^#" & pQuantity & "#^^#" & pRemark
stry = stry & "#@$#" & strx
session("i_array") = stry
End Sub
'******************************************************************************
Sub Cancel()
  Session.Contents.Remove "i_array"
  dim str : str = ""
  session("i_array") = str
  response.redirect "handover_input.asp"
End Sub
Sub Cancel1()
  Session.Contents.Remove "i_array"
  dim str : str = ""
  session("i_array") = str
  response.redirect "goods_input.asp"
End Sub
'******************************************************************************
Function HandoverInput()
dim sGoodsName, sModel, sUnit, sQuantity, sRemark
dim sSheetID, sGoodsID
dim sKeeper
dim rowCount	:	rowCount	= GetParam("row_count")                   ''记录数
dim iCount	:	iCount		= 1
dim sql, sql2, sql3, rs

sql = "select depot_keeper from t_depot where depot_id =" & pDepotID
sKeeper = DLookUp(conn,sql)
	
'	response.write pDepartment&","&pHandover&","&pReceiver& "<br>"
	''物品出入库清单细节t_stock_master
	sql = "insert into t_stock_master(optype,department,handover,receiver,sheet_status)" & _
		" values(2," & ToSQL(pDepartment,"text") & "," & ToSQL(pHandover,"text") & _
		"," & ToSQL(pReceiver,"text") &",2)"
'	response.write sql  & "<br>"
'	response.end
	call Openrs(conn,sql)

	sql = "select Max(sheet_id) from t_stock_master"  
	sSheetID = DLookUp(conn,sql)
	'response.write Cint(rowCount)  & "<br>"
	'response.end
   
	while iCount <= Cint(rowCount)
		sGoodsName		=	GetParam("goods_name_" & iCount)
		sModel			=	GetParam("model_" & iCount) 
		sUnit			=	GetParam("unit_" & iCount)
		sQuantity		=	GetParam("quantity_" & iCount)
		sRemark			=	GetParam("remark_" & iCount)
		
		''物品入库t_goods
		sql = "insert into t_goods(goods_name,model,unit,quantity,is_equip,goods_type,remark,remind_status,depot_id,keeper,input_method,current_status)" & _
			" values(" & ToSQL(sGoodsName,"text") & "," & ToSQL(sModel,"text") & _
			"," & ToSQL(sUnit,"text") & "," & ToSQL(sQuantity,"number") & _
			",0," & ToSQL(pTypeID,"number") & "," & ToSQL(sRemark,"text") & _
			",0," & ToSQL(pDepotID,"number") & "," & ToSQL(sKeeper,"text") & ",2,1)"
		call Openrs(conn,sql)

		''物品出入库记录t_stock_master
		sql = "select Max(goods_id) from t_goods"  
		sGoodsID = DLookUp(conn,sql)		
		sql2 = "insert into t_stock_detail(goods_id,sheet_id,goods_name,model,unit,quantity,goods_type,depot,opdate,remark)" & _
			" values(" & ToSQL(sGoodsID,"number") & "," & ToSQL(sSheetID,"number") & _
			"," & ToSQL(sGoodsName,"text") & "," & ToSQL(sModel,"text") & _
			"," & ToSQL(sUnit,"text") & "," & ToSQL(sQuantity,"number") & _
			"," & ToSQL(pTypeID,"number") & "," & ToSQL(pDepotID,"number") & _
			"," & ToSQL(pOpdate,"text") & "," & ToSQL(sRemark,"text") & ")"
'		response.write sql2  & "<br>"
'		response.end
		call Openrs(conn,sql2)

		iCount = iCount + 1
	wend 
'	response.end
	Session.Contents.Remove "i_array"
	response.redirect "sheet_goto.asp?sheet_id=" & sSheetID
End Function
'******************************************************************************
Sub Output(choose)
	dim j, i, k, myArray, outputArray, sID, str, str2
	outputArray = split(choose,",")
	k = 0
	for j = 0 to UBound(outputArray) step 1
		sID = outputArray(j)
'		response.write sID & "<br>"
		sID = sID - k
		str = session("i_array")
		Session.Contents.Remove "i_array"
		myArray = split(str,"#@$#")
		  
		i = 0
		str2 = ""
		for i = 1 to UBound(myArray)
'		    response.write myArray(i) & "<br>"
			if i <> CInt(sID) then
				str2 = str2 & "#@$#" & myArray(i)
'				response.write "hi<br>"
			end if
		next
'		response.write str2 & "<br>"
		session("i_array") = str2
		k = k + 1
	next
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=""../stock/goods_query.asp"">库存查询</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../stock/output.asp"">物品出库</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../stock/goods_move.asp"">物品移动</a></td>" & vbLF &_
		"</tr>" & vbLF & _
		"</table>" & vbLF
End Function
%>