checkmeeting.inc

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

		sTask = ""
		sMeetingRoom = ""
		sPresider = ""
		fBudget = 0
		dStart_time = left(now(),len(now())-3)
		dStop_time = left(now(),len(now())-3)
		sGuest = ""
		iDepartment = 0
		sAttendee = ""
		sTempButtons=_
		"		<img border=0 src=""../images/button/submit.gif"" style=""cursor:hand"" name=btnSubmit>" & _
		"		<img border=0 src=""../images/button/clear.gif"" style=""cursor:hand"" name=btnCancel>"
	end if

	FormMeetingDetail=_
		TableTitle("会议申请表", 600, "", "#0040a0") & _
		"<table cellspacing=0 cellpadding=0 width=600 align=center border=0 class=tablelist>" & _
		"<form name=""frmApplymeeting"" method=post action=""applymeeting.asp"">"  & _
		"<tr height=30>" & _
		"	<td class=tdlist width=115 align=right>会议主题：</td>"&_
		"	<td class=tdlist width=485 colspan=4>" & "&nbsp;" & sSubject & "</td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td class=tdlist width=115 align=right>会议名称：</td>" & _
		"	<td class=tdlist width=485 colspan=4>" &  "&nbsp;" & sMeetingName & "</td>"&_
		"</tr>" & _
		"<tr height=30>" & _
		"	<td class=tdlist width=115 align=right>会议内容：</td>" & _
		"	<td class=tdlist width=485 colspan=4>" & "&nbsp;" & GetInvisibleChar(sTask) & "</td>"&_
		"</tr>" & _
		"<tr height=30>" & _
		"	<td class=tdlist width=115 align=right>召开部门：</td>" & _
		"	<td class=tdlist width=170>" & "&nbsp;" & TransDepartment(dbLocal, iDepartment) & "</td>" & _
		"	<td class=tdlist width=80 align=right>召开地点：</td>" & _
		"	<td class=tdlist width=235>"& "&nbsp;" & sMeetingRoom & "</td>" & _
		"	</td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td class=tdlist width=115 align=right>主持人：</td>" & _
		"	<td class=tdlist width=170>" & "&nbsp;" & sPresider & "</td>"& _
		"	<td class=tdlist width=80 align=right>费用预算：</td>" & _
		"	<td class=tdlist width=235>" & "&nbsp;" & fBudget & "</td>"& _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td class=tdlist width=115 align=right>开始时间：</td>" & _
		"	<td class=tdlist width=170>"& "&nbsp;" & dStart_time &"</td>"& _
		"	<td class=tdlist width=80 align=right>结束时间：</td>" & _
		"	<td class=tdlist width=235>"& "&nbsp;" & dStop_time &"</td>"& _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td class=tdlist width=115 align=right>公司内部&nbsp;&nbsp;<br>参会人员：</td>" & _
		"	<td class=tdlist width=485 colspan=3>" & "&nbsp;" & TransEmpSerial(dbLocal,sAttendee) & "</td>"& _
		"<tr height=30>" & _
		"	<td class=tdlist width=115 align=right>公司外部&nbsp;&nbsp;<br>参会人员：</td>"&_
		"	<td class=tdlist width=485 colspan=3>" & "&nbsp;" & sGuest & "</td>"& _
		"<tr height=30>" & _
		"   <input type=hidden name=meetingserial value="""&iMeetingSerial&""">" & _
		"</tr>" & _
		"</form>" & _
		"</table>" 
End Function

'************************************************************************************************
' 函数名　: TableLink()
' 输　入　: 
' 输　出　: 
' 功能描述: 	会议申请表页面上到其他页面的连接
' 调用模块: applymeeting.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=""applymeeting.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_reapplymeeting.asp"">修改会议申请表</a></td>" & _
		"</tr>" & _
		"</table>"
End Function

'************************************************************************************************
' 函数名　: UpdateMeeting()
' 输　入　: 
' 输　出　: 
' 功能描述: 	新增或者更新会议的数据处理，根据meetingserial的值，采取不同的操作:
'			iMeetingserial=0：新的会议申请
'			iMeetingserial<>0 :重新会议申请
' 调用模块: applymeeting.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-07-11
' 版　本　: 
'************************************************************************************************
Sub UpdateMeeting()
'	定义变量
	dim sSQL, iExecuter, sFormaction, sComment, iMeetingserial, sMeetingname, sTask, dStarttime, dStoptime, sAttendee
	dim rt, rm, sError, iProposer, sSQL1
	dim crs, rs
'   获取表单的数据 
	iExecuter = Getofficer
	sFormaction = GetParam("formaction")
	sComment= GetParam("comment")
	iMeetingserial = GetParam("meetingserial")
'response.write "iMeetingSerial="&iMeetingSerial
'response.end
	sSQL = "SELECT * FROM T_MeetingPrepare where meeting_serial = "& iMeetingserial & "and meeting_status = 2 "
	set crs = New CRecordset
	set rs = crs.open(dbLocal,sSQL)
	if not rs.eof then
	'存在该会议，作审批处理
	sMeetingname = crs.GetValue("meeting_name")
	sTask = crs.GetValue("task")
	dStarttime = crs.GetValue("start_time")
	dStoptime = crs.GetValue("stop_time")
	sAttendee = crs.GetValue("attendee")
	iProposer = crs.GetValue("proposer")
		sFormaction = LCase(sFormaction)
		select case sFormaction
		case "ok"'通过审批，则修改会议状态，填写审批意见，发送消息给参会人员
			sSQL = "update t_meetingprepare set meeting_status = 3, comment = "&Tosql(sComment,"text") &" where meeting_serial = "&iMeetingserial
			sError = ExecuteSQL(dbLocal, sSQL)
			if sError <> "" then
				Response.Write "<script language=""javascript"">alert('对不起，会议信息修改出错，请查看数据库！')</script>"
			end if
			call CommonSendMsg(MSG_MEETING,"",sMeetingname,"会议申请通过审批，意见如下："&sComment&"<br>请各位准时参加！",iExecuter,sAttendee)
			call CommonSendMsg(MSG_MEETING,"",sMeetingname,"会议即将召开，等会议召开完毕以后，请您设置会议召开情况！",iExecuter,iExecuter)
		case "cancel"'退回，修改会议状态，填写审批意见，发送消息给会议申请人
			sSQL = "update t_meetingprepare set meeting_status = 1, comment = "&Tosql(sComment,"text") &" where meeting_serial = "&iMeetingserial
			sError = ExecuteSQL(dbLocal, sSQL)
			if sError <> "" then
				Response.Write "<script language=""javascript"">alert('对不起，会议信息修改出错，请查看数据库！')</script>"
			end if
			call CommonSendMsg(MSG_MEETING,"",sMeetingname,"会议申请未通过审批，意见如下："&_
				sComment&"<br>请根据审批意见重新申请！",iExecuter,iProposer)
		case "goon"'添加新任务，提交审批
'			sMeetingname = "会议：《"&sMeetingname&"》的申请正在审批过程中，请等候审批结果！"
'			call CommonSendMsg(MSG_MEETING,"",sMeetingname,"您申请的会议已经提交给领导审批，请等候审批结果！",iExecuter,iProposer)
		end select

		if sFormaction = "goon" then
			response.write "<script language=javascript >window.alert('会议正在领导审批流程中！')</script>"
			response.write "<script language=vbscript>window.navigate(""../flowmgr/meetingsubmit.asp?mtype=0&meetingserial="&_
			iMeetingserial&"&"")</script>"
			response.end
		end if
			
	else
	'不存在该会议，给出出错信息
		response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议申请已经处理过了！')</script>"
		response.write "<script language = vbscript>window.navigate(""list_checkmeeting.asp"")</script>"
	end if
	response.write "<script language=vbscript>window.navigate(""list_checkmeeting.asp"")</script>"
End Sub

%>