Help Version 2.0 Beta 1 released ...

[Dr.Domino]

Ich hab mal den Debugger angeschmissen ... ziemlich weit in CreateTicket kriege
ich einen

ERR 91
ERRLINE 188
ERRMSG "Object Variable not set"
METHOD "CREATENEWTICKET"

[Dr.Domino]

Erinnert mich irgendwie an die alte BusinessDays Geschichte ...

[Dr.Domino]

Bei Logs gibts bei mir INvalid or non-existant

[Dr.Domino]

So. mal kurz OpenLog an den Start gebracht ...


Error Num   91   
Error Msg   Object variable not set   

Error Line   188   
Language   LotusScript   
Agent   Dispatch

Stack Trace
*1666E614,CREATENEWTICKET,242
*16691914,PROCESSMAILTICKETSANDRESPONSES,76
*7484B14,INITIALIZE,2

Method   CREATENEWTICKET

Error 91 on line 188 in function CREATENEWTICKET: Object variable not set

[eknori]

jo, da fehlt irgend ein Datum

   If me_doc.HasItem ("DateCreated") Then
      Set item = me_doc.GetFirstItem( "DateCreated" )
   Elseif me_doc.HasItem ("ComposedDate") Then
      Set item = me_doc.GetFirstItem( "ComposedDate" ) <-- Zeile 188
   Else
      Set item = me_doc.GetFirstItem( "DeliveredDate" )
   End If

[koehlerbv]

Bei der Meldung kann da aber eigentlich nur doc uninstantiiert sein, Ulrich ...

Bernhard

[Thomas Schulte]

Kann eigentlich nicht sein Bernhard. Weil wenn dann müsste er schon bei me_doc.HasItem("DateCreated") auf die Nase fallen.

[koehlerbv]

Set item = me_doc.GetFirstItem( "ComposedDate" ) <-- Zeile 188

Set tut da nix böses
GetFirstItem kann schlimmstenfalls item auf Nothing lassen, wenn's nix bringt (Datum fehlt)
Bleibt als einziges anderes Objekt nur noch me_doc ...

Bernhard

[Dr.Domino]

Hmm ... me_doc wird aber schon als Parameter im Funktionsaufruf instantiiert ...

[koehlerbv]

Ist denn bei Dir der Inhalt der Zeile 188 der gleiche wie bei Ulrich? Nicht, dass da ein Missverständnis besteht ...

Bernhard

[Dr.Domino]

LOL! Da reden wir tatsächlich aneinander vorbei ... bie mire sehen diese Zeilen so aus


185   Dim DTCalc As New DateTimeCalculator (EXCLUDE_DAYS,EXCLUDE_DATES,SERVICEHOURS)
186   Dim dt1 As NotesDateTime
187   Set item = me_doc.GetFirstItem( "DateCreated" )
188   Set dt1 = New NotesDateTime ( DTCalc.GetNextBusinessDay(item.Text) )
189   Set item = NewTicket.ReplaceItemValue ("DTCreated", "")
190   Set item.DateTimeValue = dt1   

Womit wir in der Tat wieder bei den Businessdays wären *g*

[eknori]

jo, und wenn es kein

187   Set item = me_doc.GetFirstItem( "DateCreated" )

gibt, dann geht der Code eine Zeile später ( 188 ) auf die Bretter.

Also ersetze mal die Zeile 187 durch den folgenden Block

   If me_doc.HasItem ("DateCreated") Then
      Set item = me_doc.GetFirstItem( "DateCreated" )
   Elseif me_doc.HasItem ("ComposedDate") Then
      Set item = me_doc.GetFirstItem( "ComposedDate" ) <-- Zeile 188
   Else
      Set item = me_doc.GetFirstItem( "DeliveredDate" )
   End If

Das, was du da hast ist irgendwie ein uraltes Codeframent

[Dr.Domino]

Gemacht ... und löppt ...


Das Code ist aber anscheinend in der "aktuellen" 2.0ß2 auf ONTF so drin :-)

Anyhow, Hauptsache Bug gefunden!

[eknori]

Da muss Tim aber einen reichlich alten Stand als Grundlage für den Aufbau der Beta verwendet haben. Ich habe hier mal gesucht und einen Post vom 25.09.07 gefunden, der den Codeblock schon behandelt:

http://atnotes.de/index.php?topic=35075.msg241493#msg241493

[Thomas Schulte]

Hmm wir haben die aktuelle 1.6 gezogen extra dafür und dann alles eingebaut. Ich glaub wir müssen dann noch einmal einen Code Review machen. Mist.

[eknori]

Hmm wir haben die aktuelle 1.6 gezogen

... an der wir nach dem release noch so einige Dinge korrigiert haben  ... und dann den Download nicht aktualisiert haben. Mea Culpa.

[Thomas Schulte]

Weist du auswendig was wir da alles korrigiert haben?

[eknori]

Nein ... das weiss ich nicht mehr. Müsste man hier alles noch mal durchackern ab relese Datum

[koehlerbv]

Bayern hat ja ab morgen "langes Wochenende" wegen Mariä Himmelfahrt. Und einige Zeit wird es wohl dauern, bis der ganze Code (der ja schon sackweise neue Elemente enthalten dürfte ...) verglichen ist gegen die letzte 1.6.

Ihr habt wirklich mein allergrösstes Mitgefühl (vor allem, da ja "die Welt" auf Euch schaut und das Durcheinander alle betreffen würde). Man tut alles gegen solch einen GAU, und dann passiert er doch ...

Ich leide wirklich mit Euch. Ich hatte bisher "Glück" und es betraf nur kleine Parts grosser Applikationen, die betroffen gewesen sein könnten (man muss ja immer alles in Frage kommende durchschauen). In dieser Situation hilft selbst Teamstudio Delta nicht wirklich weiter.

Bernhard

[eknori]

Und wenn ich mir "meine" 1.6 ansehe, die wir in der Firma einsetzen. Die sieht dann wieder gaanz anders aus