checkmeeting.inc

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

<%
' ==================================================================
' 函数名称：GetInvisibleChar(strData)
' 函数功能：显示原字符串，包括其中的不可见字符：空格和回车
' 输入参数：字符串：strData
' 返回值：  字符串：GetInvisibleChar
' ==================================================================
function GetInvisibleChar(strData)
	Dim strGetSpace
	Dim strGetAll
	if  Isnull(strData) then
		response.write "strData为null!"
		response.end
	else
		strGetSpace = unescape(Replace(escape(strData),"%20","&nbsp;"))
		strGetAll = unescape(Replace(escape(strGetSpace),"%0D%0A","<br>"))
	end if
	GetInvisibleChar = strGetAll
end function
' =====================================================================
' 函数 GetInvisibleChar(strData)结束
' =====================================================================

'************************************************************************************************
' 函数名　: CommentHeader()
' 输　入　: 
' 输　出　: 领导审批意见表单的表头
' 功能描述: 
' 调用模块: checkmeeting.inc
' 作　者　: 蔡晓燕
' 日　期　: 2002-07-15
' 版　本　: 
'************************************************************************************************
Function CommentHeader()
	Response.Write TableTitle("领导审批意见", 600, "", "#0040a0")
	CommentHeader = _
		"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist>" & _
		"<tr>" & _
		"<td class=tdHead width=150>&nbsp;流程步骤</td>" & _
		"<td class=tdHead width=100>&nbsp;审批人</td>" & _
		"<td class=tdHead width=250>&nbsp;审批意见</td>" & _
		"</tr>"
End Function

'************************************************************************************************
' 函数名　: FormMeetingComment(iMeetingSerial)
' 输　入　: iMeetingSerial:会议序列号
' 输　出　: 一次会议的审批意见表单
' 功能描述: 根据会议序列号以及相应的会议申请审批流程，填写相应的会议申请领导审批意见
' 调用模块: checkmeeting.inc
' 作　者　: 蔡晓燕
' 日　期　: 2002-07-15
' 版　本　: 
'************************************************************************************************
Function FormMeetingComment(iMeetingSerial)
	dim sTemp, sTempButtons, iStepno, sOpinion, sAccountname
	dim crs, rs, sSQL, sComment, iIsconfirmed, iApprove_flow, crs2
	sSQL = "select * from T_MeetingPrepare where meeting_status = 2 and meeting_serial = "& iMeetingSerial
	set crs = New CRecordset
	set rs = crs.open(dbLocal,sSQL)
	if not rs.eof then
'		response.write "here"
'		response.end
		sComment = crs.GetValue("comment")
		iIsconfirmed = crs.GetValue("isconfirmed")
		iApprove_flow = crs.GetValue("approve_flow")
		sTempButtons=_
		"		<img border=0 src=""../images/button/pass.gif"" style=""cursor:hand"" name=btnOk>" & _
		"		<img border=0 src=""../images/button/back.gif"" style=""cursor:hand"" name=btnCancel>" 
		if iIsconfirmed = 0 then sTempButtons = sTempButtons & _
		"		<img border=0 src=""../images/button/goon.gif"" style=""cursor:hand"" name=btnGoon>" 
		crs.close()
	'	如果已经经过领导审批流程，那么首先显示领导审批意见
		if iIsconfirmed = 1 then 
			sSQL="select a.step_no,account_name,opinion from t_flow_opinion a,t_flow_step b,v_user_account c"
			sSQL=sSQL & " where a.flow_id=b.flow_id and a.step_no=b.step_no and b.step_op_person=c.account_id"
			sSQL=sSQL & " and a.flow_id=" & iApprove_flow &" order by a.step_no"
			set crs2 = New CRecordset
			Set rs = crs2.open(dbLocal, sSQL)
			FormMeetingComment = ""
			while not rs.eof 
				iStepno = crs2.GetValue("step_no")
				sOpinion = crs2.GetValue("opinion")
				sAccountname = crs2.GetValue("account_name")
				FormMeetingComment = FormMeetingComment & "<tr>" & _
				"<td class=tdlist width=150 align=left> &nbsp;" & iStepno & "&nbsp;</td>" & _
				"<td class=tdlist width=200 align=left> &nbsp;" & ToHTML(sAccountname) & "&nbsp;</td>" & _
				"<td class=tdlist width=250 align=left> &nbsp;" & ToHtml(sOpinion) & "&nbsp;</td>" & _
				"</tr>"
				rs.movenext
		 	wend
			if FormMeetingComment = "" then
				FormMeetingComment = CommentHeader & "<tr><td colspan=3 class=tdlist style=""color:gray"">&nbsp;&nbsp;（哎呀，一条记录也没有找到！）</td></tr>"
			else
				FormMeetingComment = CommentHeader & FormMeetingComment
			end if
			crs2.close()
		end if
	else
		response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议申请已经处理过了！')</script>"
		response.write "<script language = vbscript>window.navigate(""list_checkmeeting.asp"")</script>"
	end if

	FormMeetingComment = FormMeetingComment & _
		TableTitle("审批意见", 600, "", "#0040a0") & _
		"<table cellspacing=0 cellpadding=0 width=600 align=center border=0 class=tablelist>" & _
		"<form name=""frmcheckmeeting"" method=post action=""checkmeeting.asp"">"  & _
		"<tr height=30>" & _
		"	<td class=tdlist width=600 align=center colspan=4><textarea class=""FlatCtrl"" name=""comment"" rows=10 cols=96></textarea></td>"&_
		"</tr>" & _
		"<tr height=50>" & _
		"	<td class=tdlist colspan=4 align=center>" & sTempButtons & _
		"	</td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"   <input type=hidden name=meetingserial value="""&iMeetingSerial&""">" & _
		"   <input type=hidden name=formaction >" & _
		"</tr>" & _
		"</form>" & _
		"</table>" 
End Function

'************************************************************************************************
' 函数名　: FormMeetingDetail(iMeetingSerial)
' 输　入　: iMeetingSerial:会议序列号
' 输　出　: 一次会议的详细信息表
' 功能描述: 根据会议序列号，给出相应的会议详细信息
' 调用模块: checkmeeting.inc
' 作　者　: 蔡晓燕
' 日　期　: 2002-07-11
' 版　本　: 
'************************************************************************************************
Function FormMeetingDetail(iMeetingSerial)
	'------------------------------------
	' 根据会议的MeetingSerial,显示相应的会议详细信息，
	'------------------------------------
	dim sSQL, iExecuter, sMeetingName, sSubject, sTask, iDepartment, sMeetingRoom, sPresider, dStart_time, dApply_time
	dim dStop_time, fBudget, sAttendee, sGuest, iProposer, rt, rm, sError
	dim sTemp, sTempButtons
	dim crs, rs
		sSQL = "select * from T_MeetingPrepare where meeting_serial = "& iMeetingSerial
		set crs = New CRecordset
		set rs = crs.open(dbLocal,sSQL)
	if not rs.eof then 
		sMeetingName = crs.GetValue("meeting_name")
		sSubject = crs.GetValue("subject")
		sTask = crs.GetValue("task")
		sMeetingRoom = crs.GetValue("meeting_room")
		sPresider = crs.GetValue("presider")
		fBudget = crs.GetValue("budget")
		dStart_time = crs.GetValue("start_time")
		dStop_time = crs.GetValue("stop_time")
		dStart_time = Formatdt(dStart_time,"yyyy-mm-dd hh:mm")
		dStop_time = Formatdt(dStop_time,"yyyy-mm-dd hh:mm")
		sGuest = crs.GetValue("guest")
		iDepartment = crs.GetValue("department")
		sAttendee = crs.GetValue("attendee")
		sTempButtons=_
		"		<img border=0 src=""../images/button/submit.gif"" style=""cursor:hand"" name=btnSubmit>" & _
		"		<img border=0 src=""../images/button/reset.gif"" style=""cursor:hand"" name=btnReset>" 
	else
		sMeetingName = ""
		sSubject = ""