Autor Thema: Escalation - BUG in 1.5.1  (Gelesen 2182 mal)

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.710
  • Geschlecht: Männlich
Escalation - BUG in 1.5.1
« 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

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


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

Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz