deliversummary.inc

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

<%
'************************************************************************************************
' 函数名　: FormMeetingTable(iMeetingSerial)
' 输　入　: iMeetingSerial:会议序列号
' 输　出　: 一个会议纪要的表单，包括会议落实事项
' 功能描述: 根据会议序列号，画出相应的会议纪要表单，和填写会议落实事项的表单
' 调用模块: deliversummary.inc
' 作　者　: 蔡晓燕
' 日　期　: 2002-07-19
' 版　本　: 
'************************************************************************************************
Function FormMeetingTable(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, sComment
	dim sTemp, sTempButtons, sAssociate
	dim crs, rs
	sAssociate = ""
	sSQL = "select * from T_MeetingPrepare where meeting_status = 8 and 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")
		sComment = crs.GetValue("comment")
		sTempButtons=_
		"		<img border=0 src=""../images/button/view.gif"" style=""cursor:hand"" name=btnPrint>" 
	else
		response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议纪要已经分发过了！')</script>"
		response.write "<script language = vbscript>window.navigate(""list_deliversummary.asp"")</script>"
	end if

	FormMeetingtable=_
		"<table cellspacing=0 cellpadding=0 width=600 align=center border=1>" & _
		"<tr><td>"&_
		TableTitle("会议信息表——请根据审批意见修改各项信息，该表信息将会自动产生会议纪要。", 600, "", "#0040a0") & _
		"<table cellspacing=0 cellpadding=0 width=600 align=center border=0>" & _
		"<form name=""frmdeliversummary"" method=post action=""deliversummary.asp"">"  
		FormMeetingTable = FormMeetingTable & _
		"<tr height=30>" & _
		"	<td width=115 align=right>审批意见：</td>"&_
		"	<td width=485 colspan=3>" & sComment & "</td>"& _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>会议主题：</td>"&_
		"	<td width=485 colspan=3><input name=""mtSubject"" value=""" & sSubject & """ size=64  type=""text"" maxlength=128></td>"& _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>会议名称：</td>" & _
		"	<td width=485 colspan=3><input name=""mtName""  value=""" & sMeetingName & """ size=64  type=""text"" maxlength=128></td>"&_
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>会议内容：</td>" & _
		"	<td width=485 colspan=3><textarea class=""FlatCtrl"" name=""mtTask"" rows=10 cols=62>"&sTask&"</textarea></td>"&_
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>召开部门：</td>" & _
		"	<td width=170><select name=department style=""WIDTH:170px"">" & OwnerDepartmentSelectOptions(iDepartment) & "</select></td>" & _
		"	<td width=80 align=right>召开地点：</td>" & _
		"	<td width=235><input name=""meeting_room"" value="""& sMeetingRoom &""" type=""text"" size=21 maxlength=25 >"& _
		"	</td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>主持人：</td>" & _
		"	<td width=170><input name=presider value=""" & sPresider & """ type=""text"" size=21 maxlength=10 >"& _
		"	<td width=80 align=right>费用：</td>" & _
		"	<td width=235><input name=""budget"" type=""text"" size=21 maxlength=8 value=""" & fBudget & """></td>"& _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>开始时间：</td>" & _
		"	<td width=170><input name=""start_time"" type=""text"" size=21 maxlength=19 value="""& dStart_time &""">" &"</td>"& _
		"	<td width=80 align=right>结束时间：</td>" & _
		"	<td width=235><input name=""stop_time"" type=""text"" size=21 maxlength=19 value="""& dStop_time &""">" &"</td>"& _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td colspan=2 width=300 align=center>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;（输入格式：2001-20-1 08:20）</td>" & _
		"	<td colspan=2 width=300 align=center>（输入格式：2001-20-1 08:20）&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>公司内部&nbsp;&nbsp;<br>参会人员：</td>" & _
		"	<td width=170><select style=""width:140px"" multiple size=6 name=employee>" & GetRemainlist(sAttendee) & "</select>"& _
		"	<td width=80 align=left	><input type=button name=AddAtt value=""--->"" onclick=""JavaScript:MoveOptions(document.all.frmdeliversummary.employee,document.all.frmdeliversummary.attendee)""> <br>" & _
		"		<br><input type=button name=DelAtt value=""<---"" onclick=""JavaScript:MoveOptions(document.all.frmdeliversummary.attendee,document.all.frmdeliversummary.employee)""> </td>" & _
		"	<td width=235><select style=""width:140px""multiple size=6 name=attendee>"& GetAttendeelist(sAttendee) &"</select></td>"& _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>外部人员：</td>"&_
		"	<td width=485 colspan=4><input name=""guest"" value=""" & sGuest & """ size=64  type=""text"" maxlength=100></td>"& _
		"<tr height=50>" & _
		"	<td colspan=4 align=center>" & sTempButtons & _
		"	</td>" & _
		"</tr>" & _
		"	<tr><td colspan=4 ><hr size=2 width=598></td></tr>"&_
		"<tr height=50>" & _
		"	<td colspan=4 align=center style=""color:red"">如果本次会议有落实事项，请填写以下信息： "& _
		"	</td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"   <input type=hidden name=formaction>" & _
		"   <input type=hidden name=rt>" & _
		"   <input type=hidden name=meetingserial value="""&iMeetingSerial&""">" & _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>落实事项：</td>" & _
		"	<td width=485 colspan=4><textarea class=""FlatCtrl"" name=""meeting_effect"" rows=10 cols=62></textarea></td>"&_
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>督办人员：</td>" & _
		"	<td width=170><select name=handler style=""WIDTH:170px"">" &EmpOwnerSelectOptions(0)& "</select></td>" & _
		"	<td width=80 align=right>处理时限：</td>" & _
		"	<td width=235><input name=""handle_deadline"" type=""text"" size=21 maxlength=10 >"& _
		"	</td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>相关人员：</td>" & _
		"	<td width=170><select style=""width:140px"" multiple size=6 name=employee1>" & GetRemainlist(sAssociate) & "</select>"& _
		"	<td width=80 align=left	><input type=button name=AddAtt value=""--->"" onclick=""JavaScript:MoveOptions(document.all.frmdeliversummary.employee1,document.all.frmdeliversummary.associate)""> <br>" & _
		"		<br><input type=button name=DelAtt value=""<---"" onclick=""JavaScript:MoveOptions(document.all.frmdeliversummary.associate,document.all.frmdeliversummary.employee1)""> </td>" & _
		"	<td width=235><select style=""width:140px""multiple size=6 name=associate>"& GetAttendeelist(sAssociate) &"</select></td>"& _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>提醒方式：</td>"&_
		"	<td width=170><select name=rm style=""WIDTH:170px"">" &_
		"	  <option value = ""04000000"">每天提醒一次</option> " & _
		"	  <option value = ""08010000"">每周提醒一次</option> " & _
		"	  <option value = ""16010000"">每月提醒一次</option> " & _
		 "</select></td>" & _
		"</tr>" & _
		"<tr><td colspan=4 ><hr size=2 width=598></td></tr>"&_
		"<tr height=50>" & _
		"	<td colspan=4 align=center style=""color:red"">请选择会议纪要的分发对象： "& _
		"	</td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=115 align=right>分发给：</td>" & _
		"	<td width=170><select style=""width:140px"" multiple size=6 name=employee2>" & GetRemainlist(sAttendee) & "</select>"& _
		"	<td width=80 align=left	><input type=button name=AddAtt value=""--->"" onclick=""JavaScript:MoveOptions(document.all.frmdeliversummary.employee2,document.all.frmdeliversummary.prior)""> <br>" & _
		"		<br><input type=button name=DelAtt value=""<---"" onclick=""JavaScript:MoveOptions(document.all.frmdeliversummary.prior,document.all.frmdeliversummary.employee2)""> </td>" & _
		"	<td width=235><select style=""width:140px""multiple size=6 name=prior>"& GetAttendeelist(sAttendee) &"</select></td>"& _
		"</tr>" & _
		"<tr height=50>" & _
		"	<td colspan=4 align=center><img border=0 src=""../images/button/deliver.gif"" style=""cursor:hand"" name=btnDeliver>"&_