<cfset dsn=caller.dsn>
<cfquery name="getSets" datasource="#dsn#">
select * from TMSSets where TMSSETID='#attributes.setid#' order by tmssetid
</cfquery>
<cfif getsets.Router is 1>
<cfset Complist="GWS,ADUA,DSA,Router">
<cfelse>
<cfset Complist="GWS,ADUA,DSA">
</cfif>
<cfloop list="#CompList#" index="i">
<cf_TMSStatusColor setid="#attributes.setid#" type="#i#">
<cfquery datasource="#dsn#">
update ComponentStatus set FENStatus='#FENStatusBackground#' where setid='#attributes.setid#' and comptype='#i#'
</cfquery>
<cf_TMSStatusColorIAVA setid="#attributes.setid#" type="#i#">
<cfquery datasource="#dsn#">
update ComponentStatus set IAVAStatus='#IAVAStatusBackground#' where setid='#attributes.setid#' and comptype='#i#'
</cfquery>
</cfloop>
<cfset FullList="GWS,ADUA,DSA">
<cfif getsets.router is 1>
<cfset FullList=ListAppend(FullList, "Router")>
</cfif>
<cfif getsets.TACLANE is 1>
<cfset FullList=ListAppend(FullList, "TACLANE")>
</cfif>
<cfloop list="#FullList#" index="i">
<cf_TMSStatusColorAI setid="#attributes.setid#" type="#i#">
<cfquery datasource="#dsn#">
update ComponentStatus set AIStatus='#AIStatusBackground#' where setid='#attributes.setid#'
</cfquery>
</cfloop>
</cfloop>
<CFQUERY NAME="getComps" datasource="#dsn#">
select * from componentstatus where setid='#attributes.setid#'
</CFQUERY>
<cfloop query="getcomps">
<cfif (getcomps.fenstatus is 'red') OR (getcomps.iavastatus is 'red') OR (getcomps.aistatus is 'red')>
<cfset myoverallstatus='red'>
<cfelseif (getcomps.fenstatus is 'green' and getcomps.iavastatus is 'green' and getcomps.aistatus is 'green')>
<cfset myoverallstatus='green'>
<cfelseif (getcomps.fenstatus is 'yellow' OR getcomps.fenstatus is 'green') and (getcomps.iavastatus is 'yellow' OR getcomps.iavastatus is 'green') and (getcomps.aistatus is 'yellow' OR getcomps.aistatus is 'green')>
<cfelse>
<cfset myoverallstatus='cyan'>
</cfif>
<cfquery datasource="#dsN#">
update componentstatus set Overallstatus='#myoverallstatus#' where setid='#attributes.setid#' and comptype='#i#'
</cfquery>
</cfloop>
<hr>
<cfloop query="getsets">
<CFQUERY NAME="getComps2" datasource="#dsn#">
select setid,overallstatus from componentstatus where setid='#attributes.setid#'
</CFQUERY>
<!---create list and loop over list looking for red, then yellow and finally greens--->
<cfset StatusList=valuelist(getcomps2.overallstatus)>
<cfloop query="getcomps2">
<cfif len(statuslist) is 0>
<cfset MySetoverallstatus='green'>
<cfelse>
<cfif ListContainsNoCase(statuslist, 'red')>
<cfset MySetoverallstatus='red'>
<cfelseif ListContainsNoCase(statuslist, 'yellow')>
<cfset MySetoverallstatus='yellow'>
<cfelse>
<cfset MySetoverallstatus='green'>
</cfif>
</cfif>
</cfloop>
<cfquery datasource="#dsn#">
update TMSSets SET Overallstatus='#mysetoverallstatus#'
where tmssetid='#attributes.setid#'
</cfquery>
TMSStatusColor - the first custom tag that the one above calls...
<cfset dsn=#caller.dsn#>
<cfif attributes.type is not 'TACLANE'>
<cfquery name="getsoftware" datasource="#dsn#">
select * from dmssoftwarebaseline where dmscomponent='#attributes.type#'
</cfquery>
<cfset THECriteria="">
<cfloop query="getsoftware">
<cfset statusbackground="orange">
<cfset TheSoftware=Getsoftware.DMSComponent & getsoftware.DMSProduct>
<cfset thecriteria=TheSoftware & '=' & '''' & 'yes' & '''' & ' OR ' & TheCriteria>
</Cfloop>
<cfset thecriteria=left(Thecriteria, len(thecriteria)-4)>
<cfset Thecriteria='(' & TheCriteria & ')'>
<cfset THecriteria= thecriteria & ' and (Fens.Status = ''Closed. Applicable to TMS''
and FenFinal.finalrecommendation=''Closed. Applicable to TMS''
and Fens.Fennumber=Fentestlabreview.fennumber
AND FENs.FENNumber NOT IN (select FENNUMBER
from FEN2COmponent
where TMSSETID=''#attributes.setid#''
AND DMSCOmponent=''#attributes.type#''))'>
<cfquery name="getfens" datasource="#dsn#">
select FENs.fennumber, FENTestlabReview.InstallNLTDate
from Fens, FenTestLabReview, FENFinal
where #preservesinglequotes(TheCriteria)#
</cfquery>
<cfset caller.FENstatusbackground="orange">
<cfif getFENs.recordcount is 0>
<cfset caller.FENStatusBackground="green">
<cfelse>
<Cfloop query="getFENs">
<cfset CompareDate=DateCompare(getFENs.installnltdate, now(), 'd')>
<cfif CompareDate LT 0>
<cfset caller.FENStatusBackground="red">
<cfbreak>
<Cfelseif comparedate gte 0>
<cfset caller.FENStatusBackground="Yellow">
</cfif>
</Cfloop>
</cfif>
<cfelse>
<cfset caller.FENstatusbackground="green">
</cfif>
[Todays Threads] [This Message] [Subscription] [Fast Unsubscribe] [User Settings]
