Lotus Notes / Domino Sonstiges > Help-Desk Applikation !!Help!!

Escalation - BUG in 1.5.1

(1/1)

eknori (retired):
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


--- Zitat ---         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
--- Ende Zitat ---


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.


--- Zitat ---               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
--- Ende Zitat ---

Navigation

[0] Themen-Index