executeworksheet.inc

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

<%


Function ExecuteWorksheetForm()
	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")	
	iDepartment		= GetValue(rs,"department")
	sStarttime		= GetValue(rs,"starttime")	
	sFailuretime            = GetValue(rs,"failuretime")
	sRecorder                 = GetValue(rs,"recorder")
        iRemindmethod                 = GetValue(rs,"remind_method")
        iPlanhours                 = GetValue(rs,"plan_hours")        
        iLimitdays		= GetValue(rs,"limit_days")
        iPlanid                 = GetValue(rs,"plan_id")
        iFinished               =GetValue(rs,"finished")
	
	CloseRs(rs)
	
	if iFinished=1 then			
			Response.Clear
			response.redirect("../include/error.asp?error=该工作单已经执行完毕！")
			Response.end
	end if
	
	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	
	
	ExecuteWorksheetForm= _	
      	        "<form method=post name=""frmExecuteWorksheet"" action=""executeworksheet.asp"" >" & vbLF & _								
		"<table width=600 cellspacing=1 cellpadding=3 align=center bgcolor=""silver"" background=""images/bgdots.gif"" style=""table-layout:fixed"">" & vbLF & _
		"	<tr >" & vbLF & _
		"		<td width=110></td><td width=""125""></td>" & vbLF & _
		"		<td width=90></td><td width=""125""></td>" & vbLF & _
		"		<td width=70></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>开始时间<font color=red>*</font></td>" & _
		"               <td class=tdValue nowrap><input type=""text"" name=""starttime"" value="""&sStarttime&""" size=18 maxlength=19></td>" & vbLF & _
		
		"		<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>" 
				
	
		ExecuteWorksheetForm=ExecuteWorksheetForm&_
			"	<tr bgcolor=white height=80>" & vbLF & _
			"		<td align=center>完成情况</td>" & vbLF & _
			"		<td valign=center colspan=5 style=""word-wrap:break-word;""><textarea name='result' color=blue cols=70 rows=5 onkeypress='this.style.color=red' onchange='this.style.color=red'></textarea></td>" & vbLF & _		
			"	</tr>" & vbLF & _	
			"	<tr bgcolor=white height=25>" & vbLF & _
			"		<td align=center>耗材名称</td>" & _
			"		<td class=tdValue nowrap><input type=""text"" name=""exhaustionname"" size=12 maxlength=12></td>"&_
			"		<td align=center>耗材单价</td>" & _
			"       	<td class=tdValue nowrap><input type=""text"" name=""unitprice"" size=12 maxlength=12></td>" & vbLF & _
			"		<td align=center>耗材总价</td>" & _
			"               <td class=tdValue nowrap><input type=""text"" name=""totalprice"" size=9 maxlength=9></td>" & vbLF & _		
			"	</tr>"&_ 
			"	<tr bgcolor=white height=25>" & vbLF & _
			"		<td align=center>完成时间<font color=red>*</font></td>" & _
			"		<td class=tdValue nowrap><input type=""text"" name=""stoptime"" size=18 maxlength=19></td>"&_
			"		<td align=center>实际工时</td>" & _
			"       	<td class=tdValue nowrap><input type=""text"" name=""realhours"" size=9 maxlength=9>小时</td>" & vbLF & _
			sTemp1&_				
			"	</tr>" &_
			"	<tr bgcolor=white height=25>" & vbLF & _
			"		<td align=center>维修人</td>" & _
			"		<td class=tdValue nowrap><input type=""text"" name=""worker"" size=12 maxlength=12></td>"&_
			"		<td align=center>确认人</td>" & _
			"       	<td class=tdValue nowrap><input type=""text"" name=""confirmer"" size=12 maxlength=12></td>" & vbLF & _
			"		<td align=center>审核人</td>" & _
			"               <td class=tdValue nowrap><input type=""text"" name=""checker"" size=9 maxlength=9></td>" & vbLF & _		
			"	</tr>" &_
	                "	<tr bgcolor=white align=center>" & vbLF & _
			"				<td colspan=6>" & _
			"                               <input type=hidden name=worksheetid value="""&pWorksheetid&""">" & _				
					"		<img border=0 src=""../images/button/update.gif"" style=""cursor:hand"" onclick=""CheckInput()"">" & _
					"		<img border=0 src=""../images/button/return.gif"" style=""cursor:hand"" name=btnReturn >"&_
 			"</tr>" & vbLF & _
 			"	<tr bgcolor=white height=25>" & vbLF & _
 			"       <td colspan=6 ><font color=red>注：标*的输入框为日期时间类型，格式：2002-11-20 12:00:00或者2002-11-20 </font></td>"&_
			"</tr>" & vbLF & _	
			"</table>" & vbLF & _
			"</form>" & vbLF
	
			
		
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


sub ExecuteWorksheet()
	dim sSQL,sError,sClientHost,iPass,sFormaction
        dim sResult,sStoptime,iRealhours,sWorker,sConfirmer,sChecker,sExhaustionname,fUnitprice,fTotalprice,sStarttime
	
	sResult=GetParam("result")
	sStoptime=GetParam("stoptime")		
	iRealhours=GetParam("realhours")
	sWorker=GetParam("worker")	
	sConfirmer=GetParam("confirmer")
	sChecker=GetParam("checker")
	sExhaustionname=GetParam("exhaustionname")	
	fUnitprice=GetParam("unitprice")			  
	fTotalprice=GetParam("totalprice")
	sStarttime=GetParam("starttime")

			
	sSQL = "update t_worksheet set result= " &ToSQL(sResult,"text")&",stoptime="&_
	                                         ToSQL(sStoptime,"text")&",starttime="&_	                                        	                                         
	                                         ToSQL(sStarttime,"text")&",real_hours="&_	                                        	                                         
	                                         ToSQL(iRealhours,"number")&",worker="&_
	                                         ToSQL(sWorker,"text")&",confirmer="&_
	                                         ToSQL(sConfirmer,"text")&",checker="&_
	                                         ToSQL(sChecker,"text")&",exhaustion_name="&_
	                                         ToSQL(sExhaustionname,"text")&",unit_price="&_
	                                         ToSQL(fUnitprice,"text")&",total_price="&_
	                                         ToSQL(fTotalprice,"number")&",finished=1 where worksheet_id="&ToSQL(pWorksheetid,"number")
	                                         
	conn.Execute(sSQL)

        sError=ProcessError(conn)
        
        		                                       	
	if sError <> "" then
		response.write "<script language=""javascript"">alert('对不起，执行工作单失败！错误为："&sError&"')</script>"
	else
	        response.write "<script language=""javascript"">alert('对不起，成功执行工作单')</script>"
		Response.Redirect("worksheet.asp?worksheetid="&pWorksheetid)
                response.end						
	end if	
	
		
End Sub
%>