Das Notes Forum
Lotus Notes / Domino Sonstiges => Projekt Bereich => Help-Desk Applikation !!Help!! => Thema gestartet von: eknori am 30.10.06 - 08:24:04
-
Kaum draussen, schon der erste BUG ...
Beim Erstellen der Tabelle für die eskalation wird die Anzahl der zeilen falsch berechnet, wenn man die Option "Gruppierung" verwendet.
Um das problem zu beheben, muss ab Zeile 619 in der class:Escalation der fett gedruckte Eintrag verwendet werden
UniqueRcpt = Me.UniqueItems ( tcol , rcpt )
Forall r In UniqueRcpt ' Now split this list into single recipients
Set sCol = Me.SubCol ( tCol , rcpt, Cstr ( r ) )
' sCol contains all Tickets from tCol for a given Recipient "r"
' now send the collection sCol to the recipient Cstr (r ) using Template
Set doc = New NotesDocument ( db ) ' create temp doc
Set rtItem = New NotesRichTextItem ( doc, DEFAULT_NEW_RT_FIELD)
Call rtItem.AppendRTItem (Template.GetFirstItem(DEFAULT_NEW_RT_FIELD)) ' Get Template Body
'********************************************* Create Table START
' fixes an error, where the rows are calculated wrong. base for calculation is sCol not tCol --- START
Call rtItem.AppendTable (sCol.Count + 1, columns,,, tableColStyles) ' create table
'Call rtItem.AppendTable (rows, columns,,, tableColStyles) ' create table
' --- END
Ausserdem werden ab Zeile 645 noch die hard codierten color strings verwendet.
Hier müssen folgende zeilen geändert werden, damit die Farben aus der Konfiguration gezogen werden.
rtTable.Style = TABLESTYLE_TOP
Set color = s.CreateColorObject ' Create color object for use in setting cell colors
' fixed 30.10.2006, Ulrich Krause --- START
color.NotesColor = Me.GetColor (TABLE_COLOR_HEADER)
Call rtTable.SetColor (color) ' Set the top row color to light gray background
color.NotesColor = Me.GetColor (TABLE_COLOR_ALTERNATE)
' --- END