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

Helpdeskdatenbank wächst ungewöhnlich schnell

<< < (2/2)

eknori (retired):
Ja, das ist dieser bekloppte Loop, wenn das GetBusinessDays auf einen Fehler läuft.
Grundsätzlich lässt sich der Loop unterbinden, wenn man in der Funktion Getbusinessdays im ERRHANDLE vor dem Resume EXITPOINT noch ein GetBusinessDays = -1 setzt ( als Abbruchbedingung für die While-Schleife in der aufrufenden Funktion.

ABÄR: Da die Schleife schon einmal durchlaufen wurde, stimmt das resultierende datum nicht! Soweit zum SideEffect.

Bin heute aufgrund der starken Beanspruchung in meinem "Nebenjob" nicht dazu gekommen, das Problem anzugehen.

joet72:
Hallo,

Bin gerade dabei, den GetBusiness Days Fehler in der Schablone zu beseitigen. Ich habe Probleme GetBusinessDays = -1 einzubauen.
Wo muss ich das machen ? Sorry, habe von Lotus Script nicht viel Ahnung.

Kann mir vielleicht jemand ein Auschnitt des Codes posten ?

Danke.

Hagen-Roderich:
Im Designer öffnen:
Gemeinsamer Code -> Script-Bibliotheken -> LS.DateTime
Objekte -> Declarations:

Public Function GetBusinessDays(dtStart As String,dtEnd As String) As Integer
      On Error Goto ERRHANDLE
      Dim busdays As Variant
      
      Dim BDS As New NotesDateTime(dtStart)
      Dim BDE As New NotesDateTime(dtEnd)
      
      busdays = Evaluate(_
      {@BusinessDays([}&_
      Cdat(BDS.DateOnly)& {];[}&_
      Cdat(BDE.DateOnly)& {];}&_
      Me.nondays &{;}&_
      Me.holidays & {)})      
      GetBusinessDays = Cint(busdays(0))
      
EXITPOINT:
      Exit Function
ERRHANDLE:
      Call LogError()
      GetBusinessDays = -1
      Resume EXITPOINT      
   End Function

Navigation

[0] Themen-Index

[*] Vorherige Sete