worksheet.inc

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

<%


Function WorksheetForm()
	dim sTemp,sTemp1
	dim iEquisysid,iObjecttype,iFormtype,iUrgency,sContent,sResult,iDepartment,sStarttime,sStoptime,sFailuretime
	dim sWorker,sConfirmer,sChecker,sRecorder,iRemindmethod,iPlanhours,iRealhours,iLimitdays,iPlanid,sExhaustionname
	dim fUnitprice,fTotalprice,iFinished
	dim sObjectname,sObjecttype,sFormtype,sUrgency,sFinished,sDepartment,sRemindmethod
	 
	dim sSQL
	sSQL=" select * from t_worksheet where worksheet_id="&ToSQL(pWorksheetid,"number")
	
	
	dim rs
	
	set rs = OpenRS(conn, sSQL)
	
	'' 若找不到相应的记录，则跳转到出错页面
	
	
	if rs.EOF then
			CloseRS(rs)
			Response.Clear
			Response.Redirect "../include/error.asp?error=没有找到该工作单记录"			
			Response.end
	end if
	
	iEquisysid		= GetValue(rs,"equi_sys_id")
	iObjecttype		= GetValue(rs,"object_type")
	iFormtype		= GetValue(rs,"form_type")		
	iUrgency		= GetValue(rs,"urgency")
	sContent                =GetValue(rs,"content")
	sResult                 = GetValue(rs,"result")
	iDepartment		= GetValue(rs,"department")
	sStarttime		= GetValue(rs,"starttime")
	sStoptime               = GetValue(rs,"stoptime")
	sFailuretime            = GetValue(rs,"failuretime")
	sWorker                 = GetValue(rs,"worker")
        sConfirmer                 = GetValue(rs,"confirmer")
        sChecker                 = GetValue(rs,"checker")
        sRecorder                 = GetValue(rs,"recorder")
        iRemindmethod                 = GetValue(rs,"remind_method")
        iPlanhours                 = GetValue(rs,"plan_hours")
        iRealhours                 = GetValue(rs,"real_hours")
        iLimitdays		= GetValue(rs,"limit_days")
        iPlanid                 = GetValue(rs,"plan_id")
        sExhaustionname                 = GetValue(rs,"exhaustion_name")
        fUnitprice                 = GetValue(rs,"unit_price")
        fTotalprice                 = GetValue(rs,"total_price")
        iFinished               =GetValue(rs,"finished")
	
	CloseRs(rs)
	
	
	select case iObjecttype
		case 0		
			sObjectname=DLookUp(conn,"select sys_desc from t_sys where sys_id="&ToSQL(iEquisysid,"number"))
	        case 1
			sObjectname=DLookUp(conn,"select name from t_equipment where equi_id="&ToSQL(iEquisysid,"number"))
		case else
		        sObjectname=""
	end select
	select case iObjecttype
		case 0
			sObjecttype="系统"
	        case 1
	                sObjecttype="设备"
	        case else
	                sObjecttype=""
	end select			
	select case iFormtype
		case 0
			sFormtype="常规"
			sTemp=	"		<td align=center>维保计划号</td>" & _
				"               <td class=tdValue nowrap>"&iPlanid&"</td>"
			sTemp1="<td colspan=2></td>"
	        case 1
	                sFormtype="临时"
	                sTemp=	"		<td align=center>客户意见号</td>" & _
				"               <td class=tdValue nowrap>"&DLookUp(conn,"select complaint_id from t_customer_complaints where worksheet_id="&pWorksheetid)&"</td>"
		
			sTemp1="<td colspan=2></td>"
	        case else
	                sFormtype=""
	                sTemp="<td colspan=2></td>"
			sTemp1="<td colspan=2></td>"
	end select
	select case iUrgency
		case 0
			sUrgency="普通"
	        case 1
	                sUrgency="紧急"
	        case 2
	                sUrgency="非常紧急"
	        case else
	                sUrgency=""
	end select
	select case iFinished
		case 0
			sFinished="待办"
	        case 1
	                sFinished="已办"
       		case else
	                sFinished=""
	end select
	select case iRemindmethod
		case 0
			sRemindmethod="不提醒"
		case 1
			sRemindmethod="提前一天提醒"
		case 2
			sRemindmethod="提前二天提醒"
		case 3
			sRemindmethod="提前三天提醒"
		case 4
			sRemindmethod="提前四天提醒"
		case 5
			sRemindmethod="提前五天提醒"
		case 6
			sRemindmethod="提前六天提醒"
		case 7
			sRemindmethod="提前七天提醒"
		case else 
			sRemindmethod="不提醒"
	end select
	if iPlanhours="" then
		iPlanhours="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;小时"
	else
	        iPlanhours=iPlanhours&"&nbsp;&nbsp;&nbsp;小时"
	end if
	if iLimitdays="" then
		iLimitdays="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;天"
	else
	        iLimitdays=iLimitdays&"&nbsp;&nbsp;&nbsp;天"
	end if	
	if iRealhours="" then
		iRealhours="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;小时"
	else
	        iRealhours=iRealhours&"&nbsp;&nbsp;&nbsp;小时"
	end if
	
                
      	WorksheetForm= _		
		"<table width=600 cellspacing=1 cellpadding=3 align=center bgcolor=""silver"" background=""images/bgdots.gif"" style=""table-layout:fixed"">" & vbLF & _
		"	<tr style=""display:none"">" & vbLF & _
		"		<td width=110></td><td width=120></td>" & vbLF & _
		"		<td width=90></td><td width=120></td>" & vbLF & _
		"		<td width=80></td><td width=*></td>" & vbLF & _		
		"	</tr>" & vbLF & _
		"	<tr bgcolor=""#0040a0"" style=""color:white;font-weight:600"">" & vbLF & _
		"		<td colspan=6 align=center>工 作 单 信 息</td>" & vbLF & _
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>对象名（对象号）</td>" & _
		"               <td class=tdValue nowrap title="&sObjectname&"("&iEquisysid&")"&">"&sObjectname&"("&iEquisysid&")"&"</select></td>" & vbLF & _	
		"		<td align=center>对象类型</td>" & _
		"               <td class=tdValue nowrap>"&sObjecttype&"</select></td>" & vbLF & _	
		sTemp&_			
		"	</tr>" & vbLF & _		
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>工作单类型</td>" & _
		"		<td class=tdValue nowrap>"&sFormtype&"</td>"&_
		"		<td align=center>紧急程度</td>" & _
		"		<td class=tdValue nowrap>"&sUrgency&"</td>"&_
		"		<td align=center>负责部门</td>" & _
		"		<td class=tdvalue>"&DLookUp(conn,"select node_desp from t_node where node_id="&ToSQL(iDepartment,"number"))&"</td>" & vbLF & _	
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white height=50>" & vbLF & _
		"		<td align=center>工作单内容</td>" & vbLF & _
		"		<td valign=center class=tdvalue colspan=5 style=""word-wrap:break-word;"">"&FormatStr(sContent)&"</td>" & vbLF & _		
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>开始时间</td>" & _
		"		<td class=tdValue nowrap>"&sStarttime&"</td>"&_
		"		<td align=center>故障时间</td>" & _
		"               <td class=tdValue nowrap>"&sFailuretime&"</td>" & vbLF & _
		"		<td align=center>记录人</td>" & _
		"               <td class=tdValue nowrap>"&sRecorder&"</td>" & vbLF & _		
		"	</tr>" & vbLF & _					
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>提醒方式</td>" & _
		"		<td class=tdValue nowrap>"&sRemindmethod&"</td>"&_
		"		<td align=center>预设工时</td>" & _
		"               <td class=tdValue nowrap>"&iPlanhours&"</td>" & vbLF & _
		"		<td align=center>完成期限</td>" & _
		"               <td class=tdValue nowrap>"&iLimitdays&"</td>" & vbLF & _		
		"	</tr>" 
				
	if iFinished=1 then
		WorksheetForm=WorksheetForm&_
			"	<tr bgcolor=white height=50>" & vbLF & _
			"		<td align=center>完成情况</td>" & vbLF & _
			"		<td valign=center  class=tdvalue colspan=5 style=""word-wrap:break-word;"">"&FormatStr(sResult)&"</td>" & vbLF & _		
			"	</tr>" & vbLF & _	
			"	<tr bgcolor=white height=25>" & vbLF & _
			"		<td align=center>耗材名称</td>" & _
			"		<td class=tdValue nowrap>"&sExhaustionname&"</td>"&_
			"		<td align=center>耗材单价</td>" & _
			"       	<td class=tdValue nowrap>"&fUnitprice&"</td>" & vbLF & _
			"		<td align=center>耗材数量</td>" & _
			"               <td class=tdValue nowrap>"&fTotalprice&"</td>" & vbLF & _		
			"	</tr>"&_ 
			"	<tr bgcolor=white height=25>" & vbLF & _
			"		<td align=center>完成时间</td>" & _
			"		<td class=tdValue nowrap>"&sStoptime&"</td>"&_
			"		<td align=center>实际工时</td>" & _
			"       	<td class=tdValue nowrap>"&iRealhours&"</td>" & vbLF & _
			sTemp1&_				
			"	</tr>" &_
			"	<tr bgcolor=white height=25>" & vbLF & _
			"		<td align=center>维修人</td>" & _
			"		<td class=tdValue nowrap>"&sWorker&"</td>"&_
			"		<td align=center>确认人</td>" & _
			"       	<td class=tdValue nowrap>"&sConfirmer&"</td>" & vbLF & _
			"		<td align=center>审核人</td>" & _
			"               <td class=tdValue nowrap>"&sChecker&"</td>" & vbLF & _		
			"	</tr>" 
	end if
	
	WorksheetForm=WorksheetForm&_
		"	<tr bgcolor=white align=center>" & vbLF & _
		"		<td colspan=6>" & vbLF & _
		"			&nbsp;&nbsp;&nbsp;" & vbLF & _
		"			<a style=""color:blue"" target=_blank href=""PrintWorksheet.asp?worksheetid=" & pWorksheetid & """><img border=0 src=""../images/edit.gif"">&nbsp;察看打印版</a>" & vbLF 
	
	if iRight=2 and iFinished=0 then
		WorksheetForm=WorksheetForm&_
			"		&nbsp;&nbsp;&nbsp;" & vbLF & _
			"		<a style=""color:blue"" href=""EditWorksheet.asp?worksheetid=" & pWorksheetid & """><img border=0 src=""../images/edit.gif"">&nbsp;修改工作单</a>" & vbLF & _
			"		&nbsp;&nbsp;&nbsp;" & vbLF & _
			"		<a style=""color:blue"" href=""ExecuteWorksheet.asp?worksheetid=" & pWorksheetid & """><img border=0 src=""../images/edit.gif"">&nbsp;执行工作单</a>" & vbLF & _
			"       </td>   "& vbLF & _
			"</tr>"
	end if
	
	WorksheetForm=WorksheetForm&"</table>"
			
		
End Function

Function TableLink()
	'' 这是管理页面，因此每个链接都没有限制
	TableLink = _
		"<table width=600 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=""../worksheet/list_worksheet.asp"">工作单管理</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _		
		"</tr>" & _
		"</table>"
End Function


%>