deliversummary.inc

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

		"		<img border=0 src=""../images/button/reset.gif"" style=""cursor:hand"" name=btnReset>" &_
		"	</td>" & _
		"</tr>" & _
		"</form>" & _
		"</table></td></tr>"&_
		"</table>" 
End Function

'************************************************************************************************
' 函数名　: TableLink()
' 输　入　: 
' 输　出　: 
' 功能描述: 	会议申请表页面上到其他页面的连接
' 调用模块: deliversummary.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-07-11
' 版　本　: 
'************************************************************************************************
Function TableLink()
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
		"<tr height=30>" & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=600>&nbsp;" & _
		"		<img src=""../images/goto.gif"" width=11 height=11>&nbsp;<a href=""deliversummary.asp"">填写会议申请</a>" & _
		"		&nbsp;&nbsp;&nbsp;" & _
		"		<img src=""../images/goto.gif"" width=11 height=11>&nbsp;<a href=""list_checkmeeting.asp"">审批会议申请</a>" & _
		"		&nbsp;&nbsp;&nbsp;" & _
		"		<img src=""../images/goto.gif"" width=11 height=11>&nbsp;<a href=""list_redeliversummary.asp"">修改会议申请表</a></td>" & _
		"</tr>" & _
		"</table>"
End Function

'************************************************************************************************
' 函数名　: UpdateMeeting()
' 输　入　: 
' 输　出　: 
' 功能描述: 	更新会议纪要，同时添加会议落实事项
' 调用模块: deliversummary.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-07-19
' 版　本　: 
'************************************************************************************************
Sub UpdateMeeting()
'	定义变量
	dim sSQL, iExecuter, sMeeting_Name, sSubject, sTask, iDepartment, sMeeting_room, sPresider, dStart_time, dApply_time
	dim dStop_time, fBudget, sAttendee, sGuest, iProposer, rt, rm, sError, sFormaction, crs, rs
	dim sMeetingeffect, iHandler, sHandle_deadline, sAssociate, sRm, sRt, sPrior
'   获取表单的数据，一下是关于会议纪要的数据 
	iExecuter = Getofficer
	iProposer = GetEmpSerial
	sFormaction = GetParam("formaction")
	sMeeting_Name = GetParam("mtName")
	sSubject = GetParam("mtSubject")
	sTask   = GetParam("mtTask")
	iDepartment = GetParam("department")
	sMeeting_room = GetParam("meeting_room")
	sPresider = GetParam("presider")
	dStart_time = GetParam("start_time")
	dStop_time = GetParam("stop_time")
	fBudget = GetParam("budget")
	sAttendee = GetParam("attendee")
	sGuest = GetParam("guest")
	'以下是关于落实事项的数据
	sMeetingeffect = GetParam("meeting_effect")
	sMeetingeffect = trim(sMeetingeffect)
	iHandler = GetParam("handler")
	sHandle_deadline = GetParam("handle_deadline")
	sAssociate = GetParam("associate")
	sRm = GetParam("rm")
	sRt = Getparam("rt")
	'以下是分发对象
	sPrior = GetParam("prior")
	select case sFormaction
	case "print"'如果是查看打印效果，那么先更新会议纪要，再转到打印界面
		sSQL = "select * from T_MeetingPrepare where meeting_serial = "& iMeetingSerial &" and meeting_status = 8"
		set crs = New CRecordset
		set rs = crs.open(dbLocal,sSQL)
		if not rs.eof then 
			'定义更新会议的sSQL语句
			sSQL = "update T_MeetingPrepare set meeting_name = "& ToSQL(sMeeting_Name,"text") & ", subject = "&ToSQL(sSubject,"text") &_
			", task = " & ToSQL(sTask,"text") & ", department = " & ToSQL(iDepartment,"Number") & ", meeting_room = " &_
			ToSQL(sMeeting_room,"text") & ", presider = " & ToSQL(sPresider,"text") & ", start_time = " & ToSQL(dStart_time,"text") &_
			", stop_time = " & ToSQL(dStop_time,"text") & ", budget = " & ToSQL(fBudget,"number") & ", attendee = " &_
			ToSQL(sAttendee,"text") & ", guest = " & ToSQL(sGuest,"text") & " where meeting_serial=" & _
			iMeetingSerial & " and meeting_status = 8 " 
			'执行会议申请的更新
			sError = ExecuteSQL(dbLocal, sSQL)
			if sError <> "" then
				response.write "<script language=""javascript"">alert('对不起，会议纪要修改失败！')</script>"
			else
'				response.write "<script language=""javascript"">alert('会议纪要修改成功！')</script>"
			end if
			response.redirect "printsummary.asp?meetingserial="&iMeetingserial
'			response.write "<script language=vbscript>window.navigate(""printsummary.asp?meetingserial="&iMeetingserial&""")</script>"
		else
			response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议纪要已经分发过了！')</script>"
			response.write "<script language = vbscript>window.navigate(""list_deliversummary.asp"")</script>"
		end if
	case "deliver"
		sSQL = "select * from T_MeetingPrepare where meeting_serial = "& iMeetingSerial &" and meeting_status = 8"
		set crs = New CRecordset
		set rs = crs.open(dbLocal,sSQL)
		if not rs.eof then 
			'定义更新会议的sSQL语句
			sSQL = "update T_MeetingPrepare set meeting_name = "& ToSQL(sMeeting_Name,"text") & ", subject = "&ToSQL(sSubject,"text") &_
			", task = " & ToSQL(sTask,"text") & ", department = " & ToSQL(iDepartment,"Number") & ", meeting_room = " &_
			ToSQL(sMeeting_room,"text") & ", presider = " & ToSQL(sPresider,"text") & ", start_time = " & ToSQL(dStart_time,"text") &_
			", stop_time = " & ToSQL(dStop_time,"text") & ", budget = " & ToSQL(fBudget,"number") & ", attendee = " &_
			ToSQL(sAttendee,"text") & ", guest = " & ToSQL(sGuest,"text") & ", priorgroup = "&ToSQL(sPrior,"text")& ", meeting_status = 9  where meeting_serial=" & iMeetingSerial & " and meeting_status = 8 " 
			'执行会议纪要的更新
			sError = ExecuteSQL(dbLocal, sSQL)
			if sError <> "" then
				response.write "<script language=""javascript"">alert('对不起，会议纪要分发失败！')</script>"
			else
				response.write "<script language=""javascript"">alert('会议纪要分发成功！')</script>"
			end if
			'定义更新会议的sSQL语句
			if len(sMeetingeffect) = 0 then
				sSQL = "update T_MeetingPrepare set  meeting_status = 10  where meeting_serial=" & iMeetingSerial
				'执行会议状态的更新
				sError = ExecuteSQL(dbLocal, sSQL)
				if sError <> "" then
					response.write "<script language=""javascript"">alert('对不起，会议状态修改失败！')</script>"
				else
'					response.write "<script language=""javascript"">alert('会议状态修改成功！')</script>"
					call CommonSendMsg(MSG_MEETING,"",sMeeting_name,"会议纪要已经分发，请各位查看！",iProposer,sPrior)
				end if
			else
			'新增会议落实事项到t_meetingeffect
				sSQL = "insert into T_MeetingEffect(meeting_serial,effect_item,handle_deadline,handler,associate,remind_method,"&_
				"remind_time) values("& ToSQL(iMeetingserial,"number") & "," & ToSQL(sMeetingeffect,"text") & _
				"," & ToSQL(sHandle_Deadline,"text") & "," & ToSQL(iHandler,"number") & "," & ToSQL(sAssociate,"text") & _
				"," & ToSQL(sRm,"text") & "," & ToSQL(sRt,"text") & ")"
				'执行会议落实事项的新增
				sError = ExecuteSQL(dbLocal, sSQL)
				if sError <> "" then
					response.write "<script language=""javascript"">alert('对不起，会议落实事项增加失败！')</script>"
				else
					response.write "<script language=""javascript"">alert('会议落实事项添加成功！')</script>"
					call CommonSendMsg(MSG_MEETING,"",sMeeting_name,"会议落实事项已经下达，请各位查看落实，落实以后请督办人员填写处理结果！",iProposer,sAssociate)
				end if
			end if
			response.write "<script language=vbscript>window.navigate(""list_deliversummary.asp"")</script>"
		else
			response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议已经填写过会议纪要了！')</script>"
			response.write "<script language = vbscript>window.navigate(""list_deliversummary.asp"")</script>"
		end if
	end select
End Sub

%>