Sonstiges > Offtopic

Inkompetente Vollkoffer

(1/3) > >>

m3:
Ich durfte letzte Woche den Agent Code debuggen, der aus einer Kooperation eines namhaften Archiv-SW Herstellers und eines IT-Dienstleisters mit drei Buchstaben entsprungen ist. Dabei bin ich auf folgenden Code gestoßen (nur die relevanten Teile, anonymisiert):

--- Code: ---...
Dim viewXXXX As NotesView
...
Set viewXXXX = archiveDb.GetView(xxview)
...
hits = getHits(viewXXXX)

--- Ende Code ---

Ok, klingt ja noch nicht so schlimm. Aber irgendwie klingelten bei mir bei der Funktion "getHits" die Alarmglocken. Also hab ich mal nachgeschaut, was die Funktion denn so macht (wieder gekürzt und anonymisiert):

--- Code: ---Function getHits(view As NotesView) As Integer
getHits = 0
Dim docAct As NotesDocument

Set docAct = view.GetFirstDocument()
Do While Not (docAct Is Nothing)
getHits = getHits + 1
Set docAct = view.GetNextDocument(docAct)
Loop
...
End Function
--- Ende Code ---

Und die Kollegen wundern sich, warum der Code so unperformant ist.  :'(

Und für jene, die nicht verstehen warum ich mich so echauffiere:
Das NotesView-Objekt hat eine Eigenschaft "EntryCount", welche die Anzahl der Dokumente in der View zurückliefert, da brauch ich nicht über alle Dokumente iterieren und mitzählen.  >:(

Und für den Code haben sie auch noch mächtig Kohle verlangt.  >:(

eknori:
EntryCount  --> This property is new with Release 6.

Haben die wahrscheinlich aus kompatibilitätsgründen noch nicht umgebaut  ;D *prust*

m3:
LOL. Das wäre natürlich eine Erklärung, aber dann geh ich doch über das AllEntries Proprty und hol mir den Count aus der NotesViewEntryCollection, oder?

eknori:
Dann läuft das aber nicht mehr unter 4.x

m3:
Die App wurde unter 5 aufgesetzt. Mir tut sowas einfach weh.

Navigation

[0] Themen-Index

[#] Nächste Seite