Agent prüft keine Doppeleinträge mehr

[tron55]

Hallo,

wir haben eine Zeiterfassungsdatenbank in der alle 100 Mitarbeiter ihre Zeiten buchen.
Am Ende des Monats werden die Stunden zusammengerechnet und mit den sollstunden verglichen / Vertriebler nach Stundensatz bezahlt.

Die Agenten in der Datenbank wurden leider von einem ausgeschiedenen Administrator mit seinem persönlichem User signiert.
Als der Admin ausschied, wurde irgendwann sein User aus  dem Dominoverzeichnis gelöscht.
Nachfolgend wurden dann alle Agenten mit einem echten Administratoraccount zu signiert.

Die Datenbank funktioniert auch weiterhin, nur leider prüft kein Agent mehr ob Zeiten doppelt erfasst werden.

Ich bin mir nun nicht ganz sicher ob das schon nicht mehr funktioniert hat, als der Admin aus dem dominoverzeichnis gelöscht wurde oder erst als die Agenten neu signiert wurden.


Ich hänge mal an was meiner Meinung nach verantwortlich ist für die Prüfung eines Eintrages in der Zeiterfassung auf doppelposts.


Es gibt zeinen Agenten der heisst "Check"
der hat im hauptfenster diesen Code

Option Public
Sub Initialize
   On Error Goto catch
   
   Dim s As New NotesSession
   Dim doc As NotesDocument
   Dim al As NotesLog
   Set al = New NotesLog("NotesLog")
   Call al.openAgentLog()
   
   
   Set doc = s.DocumentContext
   
   'is the timerecord valid?
   Call doc.removeItem("SaveOptions")
   Call doc.save( True, True)
   Print "["+doc.Database(0)+"/TimeChecksByUser/" + doc.UniversalID+"?OpenDocument]"
   
finally:
   Exit Sub
   
catch:
   Call al.logAction( "Error in SaveTimeCheck: " + Error$)
   Resume finally
End Sub

und im initialize

Sub Initialize
   On Error Goto catch
   
   Dim s As New NotesSession
   Dim doc As NotesDocument
   Dim al As NotesLog
   Set al = New NotesLog("NotesLog")
   Call al.openAgentLog()
   
   
   Set doc = s.DocumentContext
   
   'is the timerecord valid?
   Call doc.removeItem("SaveOptions")
   Call doc.save( True, True)
   Print "["+doc.Database(0)+"/TimeChecksByUser/" + doc.UniversalID+"?OpenDocument]"
   
finally:
   Exit Sub
   
catch:
   Call al.logAction( "Error in SaveTimeCheck: " + Error$)
   Resume finally
End Sub

Da kann man ja jetzt eigentlich nicht so viel falsch machen.

Da der Code nicht angefasst wurde scheint es mir irgendwie logischer zu sein das dass ein administratives Problem ist,aber ich hab keinen Plan wo ich nach dem Fehler suchen soll.

Vorschläge?

[koehlerbv]

Mike, der von Dir gepostete Code macht absolut nichts, was auf Doppelbuchungsprüfungen auch nur ansatzweise hindeutet.
Du müsstest also erstmal die wirkliche Stelle finden. Passiert das eigentlich ad hoc (meine Zeiterfassung überprüft bereits beim Abspeichern, ob es Überschneidungen gibt) oder periodisch mit Protokoll?
Passiert das bei allen Usern? Nur um abzusichern, dass hier nicht die ECL reinfunkt, was aber eher unwahrscheinlich wäre, insofern Ihr diese nicht permanent per Policy or whatever neu schreibt.

Für uns ist das also erstmal nur "Skispringen im Nebel" - sorry.

Bernhard

[tron55]

Hi Bernhard,

ok dann hab ich mich von der Kommentarzeile täuschen lassen.
Die Prüfung passiert normalerweise ad hoc.
Es passiert bei allen Usern.

Ja kein Problem, ich bin für jede Idee dankbar, weil ich hab aktuell keinen Schimmer warums nicht mehr geht   

Ich such mal weiter.

[Driri]

Die Prüfung passiert normalerweise ad hoc.

Was heißt das ? Beim Speichern des Dokumentes ?

Das würde darauf hindeuten, daß der Code eher in einem Event der Maske hinterlegt ist. Zumindest würde ich dort mal nachschauen, wenn das nichts zeitgesteuertes ist.

[tron55]

Die Prüfung passiert normalerweise ad hoc.

Was heißt das ? Beim Speichern des Dokumentes ?

Das würde darauf hindeuten, daß der Code eher in einem Event der Maske hinterlegt ist. Zumindest würde ich dort mal nachschauen, wenn das nichts zeitgesteuertes ist.

Genau das heisst es.
Guter Tipp da werde ich gleich mal suchen.

Trotzdem ist mir unverständlich warum das auf einmal nicht mehr funktionieren kann wenn sich doch am Code selbst nichts geändetr hat.

[tron55]

Hi,

ok ich habe gesucht und gesucht aber ich finde kein einzige Event in der Maske , dass hier weiterhelfen könnte
Gibt es noch eine wahrscheinliche Möglichkeit?

Wie gesagt, es ist ja irgendwie seltsam das es nicht mehr geht, weil sich am Code selbst nichts geändert haben kann.

Kann ich irgendetwas tun damit wir den Fehler besser eingrenzen können?

PS: sorry ich weiß das ist etwas Blindflug...

[koehlerbv]

In Frage kommen
- QuerySave (meist verwendet)
- PostRecalc (dessen wahren Stärken oft verkannt werden)
- QueryClose (selten, weil entweder ein sehr schräger Ort oder weil andere Umstände das Erzwingen).

Bernhard

[WernerMo]

Hallo,

den Grund:

Trotzdem ist mir unverständlich warum das auf einmal nicht mehr funktionieren kann wenn sich doch am Code selbst nichts geändetr hat.

Wirst Du vermutlich finden, wenn Du den Code gefunden hast, evtl. geht der Code auf eine Ansicht (view) die aus irgend einem Grund nicht aktuell/schnell genug ist.

Gruß Werner

[tron55]

In Frage kommen
- QuerySave (meist verwendet)
- PostRecalc (dessen wahren Stärken oft verkannt werden)
- QueryClose (selten, weil entweder ein sehr schräger Ort oder weil andere Umstände das Erzwingen).

Bernhard

Treffer bei QuerySave. Danke !

[tron55]

Ok beim Debuggen fällt sofort auf das er die Eingabe so abprüft:


-> Check ob an dem X Tag etwas gebucht ist
-> check wann es gebucht wurde und ob es sich überschneidet mit $libraryeinträge für Tag X


Vorher konvertiert er allerdings den Datumsstring zu dd/mm/yy.
Suchen tut er aber nach einem dd.mm.yy

Natürlich findet er dann nichts .
Das ist ja komisch, aktiv umgestellt hat da nämlich keiner was.

[tron55]

Ok, ich dachte ja ich hab das Problem gefixed, leider war dem nicht so.

Querysave lässt immernoch Doppeleinträge zu.
Am Code selbst wurde nichts geändert, deswegen kapiere ich es nicht.

Ich hatte ja mal gesagt das er den Datumstring falsch konvertiert, aber das kann ich irgendwie nicht mehr so wirklich nachstellen.

In der Maske gibt es wie schon mal festgellt , diesen code unter querysave

Sub Querysave(Source As Notesuidocument, Continue As Variant)
     'Validation
   Const Button = 16
   Const Title = "Error!"
   Dim session As New NotesSession
   Dim doc As NotesDocument   
   Set doc = source.Document
   Dim dtuntil As NotesDateTime
   Dim dtday As NotesDateTime
   Dim itm As NotesItem
   
   Dim Fields(2) As String
   Dim msg(2) As String
   Dim ErrorField As String
   
   
     'Fields and errormessages for validation
   fields(0) = "ProjectSelection"
   msg(0) = "Please select a project!"
   fields(1) = "TimeReportDate"
   msg(1) = "Please enter a date!"
   fields(2) = "Criterion"
   msg(2) = "Please select a criterion!"
   
   For i=0 To Ubound(fields)
      If doc.GetItemValue(fields(i))(0) = "" Then
         Msgbox msg(i), button, title
         If ErrorField = "" Then ErrorField = fields(i)   'remember the first field, where an error occurred
         continue = False
      End If
   Next
   
   If ErrorField <> "" Then
      Call Source.GoToField(ErrorField)  'in case of an error goto Errorfield
      Continue = False
      Exit Sub
   End If
   
'set environment variables used when opening the form as default values   
   
   
   Set itm = doc.getFirstItem( "TimeReportHourEnd" )
   Set dtuntil = itm.DateTimeValue
   Set itm = doc.getFirstItem( "TimeReportDate")
   Set dtday = itm.DateTimeValue
   
   Call session.setEnvironmentVar( "TimeSheet_ProjectSelection", doc.ProjectSelection(0))   
   Call session.setEnvironmentVar( "TimeSheet_TimeReportDate", dtDay.DateOnly)
   Call session.setEnvironmentVar( "TimeSheet_TimeReportHourStart", doc.TimeReportHourStart(0))   
   Call session.setEnvironmentVar( "TimeSheet_TimeReportHourEnd", doc.TimeReportHourEnd(0))   
   Call session.setEnvironmentVar( "TimeSheet_Criterion", doc.Criterion(0))   
   
'is the timerecord valid?   
   If( isValidTimeRecord( doc ) = 1 ) Then
      continue = True
      Call doc.removeItem("SaveOptions")
   Else
      continue = False
   End If
   
   
End Sub

es gibt aber außerdem noch Webquerysave mit diesem Code

@Command([ToolsRunMacro]; "(WebQuerySave)")

und in WebQuerySave steht dann

Option Public
Use "TimeReport"
Sub Initialize
%REM
This agent is called before a time sheet document is saved
Checks if Time Report is correct and valid
Sets project role access if available
%END REM
   
   
   On Error Goto catch
   Dim s As New NotesSession
   Dim doc As NotesDocument
   Dim roleDoc As NotesDocument
   Dim check As Integer
   Dim al As NotesLog
   Set al = New NotesLog("NotesLog")
   Call al.openAgentLog()
   Set db = s.currentDatabase
   Set roleView = db.getView("(ProjectRoles)")
   
   Set doc = s.DocumentContext
   
   'is the timerecord valid?
   check =  isValidTimeRecord( doc )
   If( check = 1 ) Then
      Call doc.removeItem("SaveOptions")
      Set roleDoc = roleView.getDocumentByKey( doc.ProjectName(0), True)
      If( Not roleDoc Is Nothing) Then
         Set roleReaderItem = roleDoc.getFirstItem( "ReaderRoles")
         Set roleAuthorItem = roleDoc.getFirstItem( "AuthorRoles")
         
         Call doc.removeItem("ProjectReaders")
         Call roleReaderItem.copyItemToDocument( doc, "ProjectReaders")
         
         Call doc.removeItem("ProjectAuthors")
         Call roleAuthorItem.copyItemToDocument( doc, "ProjectAuthors")
         
      End If
      
      Call doc.save( True, True)
      Call al.logAction( "WebQuerySave:SaveAndCreateNew Valus is:" + doc.SaveAndCreateNew(0))
      
      If( doc.SaveAndCreateNew(0) = "1") Then
         Print "["+doc.Database(0)+"/TimeReport?OpenForm]"
      Else
         Print "["+doc.Database(0)+"/TimeReportsByDay/" + doc.UniversalID+"?OpenDocument]"
      End If
      Exit Sub
   Elseif( check = -1) Then
      'Time Report could not be saved. There is a time conflict with an existing time report.
      Print "["+doc.Database(0)+"/dlgErrorTimeConflict?OpenForm]"
   Elseif ( check = - 2) Then
      Print "["+doc.Database(0)+"/dlgErrorFrozen?OpenForm]"
   Elseif ( check = - 3) Then
      Print "["+doc.Database(0)+"/dlgError?OpenForm]"
   End If
   
finally:
   Exit Sub
   
catch:
   Call al.logAction( "Error in WebQuerySave: " + Error$)
   Resume finally
End Sub

Er tut weder das eine noch das andere. Was übersehe ich hier?

[ata]

... ich hab's nicht ganz verstanden, was du unter Doppeleinträgen verstehst. Deine Aussage "... weder das eine tut - noch das andere" hilft auch nicht weiter. Was genau passiert denn? Beim Web-Agent mal Print-Statements einbauen, damit man sieht wie der Code die Verzweigungen verarbeitet - das sollte ein erster Ansatz zum Debuggen sein...

Toni 

[tron55]

Ok sorry.

Doppeleinträge sind einfach zweimal gebuchte zeiten, also zb 19.09 09:00 - 18:00 Uhr und 19.09 10:00 - 13:00 Uhr
Normalerweise sollte er dann sagen "ne ist nicht, die Zeit wurde schon erfasst"

Das hat auch immer funktioniert und nun aus heiterem Himmel nicht mehr.

Das mit dem Debuggen ist furchtbar mühsam weil ich das lange nicht mehr gemacht habe ;(

[ata]

... bei Server-basierenden Agenten bleibt dir das aber nicht erspart - leider. Die Print- oder MsgBox-Statements findest du dann in der Log.nsf - oder du loggst über eine Notes-Log-DB dann hast du es komfortabler...

Plötzlich gibt es eigentlich nicht. Irgendetwas scheint geändert worden zu sein. Läuft die DB auf einem anderen Server? Ist ein Server als ausführend eingetragen? Wurde der Server umbenannt? Was sagt das Agent-Log - wann lief der Agent zum letzten Mal?...

Das wäre mal ein erster Ansatz - ansonsten debuggen...

Toni

[tron55]

Das einzige was ich anfangs vermutet hatte...

Ein ehemaliger Entwickler hatte ne Menge Agenten und Masken mit seinem User signiert und wurde vor einiger Zeit aus dem Domino Directory gelöscht.
Der Agent "Webquerysave" wird aber nun von der Gruppe Company Administrator ausgeführt (dort ist der Notes Admin drin) kann also eigentlich kein problem sein


@ Rest
Dann werde ich mal probieren ob ich das noch hinbekomme

[Driri]

Du solltest Dir mal in der Scriptbibliothek "TimeReport" die Funktion "isValidTimeRecord" anschauen. Dort wird vermutlich die Validierung bzw. die Suche nach Doppeleinträgen stattfinden.

[tron55]

Option Public
Option Declare


Function isValidTimeRecord( doc As NotesDocument ) As Integer
   On Error Goto catch
   
   Const Button = 16
   Const Title = "Error!"
   isValidTimeRecord = 1
   
   Dim tr As NotesDocument
   Dim startItem As NotesItem,  endeItem As NotesItem, dateItem As NotesItem
   Dim start As NotesDateTime, ende As NotesDateTime, reportDate As NotesDateTime
   Dim keys(1) As String   
   
   
   Set startItem = doc.getFirstItem("TimeReportHourStart")
   Set endeItem = doc.getFirstItem("TimeReportHourEnd")
   Set dateItem = doc.getFirstItem("TimeReportDate")
   
   Set start = startItem.DateTimeValue
   Set ende = endeItem.DateTimeValue
   Set reportDate = dateItem.DateTimeValue
   
   Dim coll As NotesDocumentCollection
   Dim userTimeReportsView As NotesView
   Dim db As NotesDatabase
   Dim key As String
   Set db = doc.ParentDatabase
   Set userTimeReportsView = db.getView("(UserTimeReports)")
   
   keys(0) = doc.TimeReportUser(0)
   keys(1) = reportDate.dateonly
   If( Instr(1, keys(1), ".") > 0 ) Then
      ' we need to convert into the format mm/dd/yyyy because it is used in the view
      keys(1) = Mid$( reportDate.DateOnly, 4, 2) + "/" + Mid$(reportDate.DateOnly, 1,2) + "/"  + Mid$(reportDate.DateOnly, 7,4)
   End If
   
'   Call logMsg( "1", "Inside isValidTimeRecord for " + keys(0) + " " + keys(1))
   Set coll = userTimeReportsView.getAllDocumentsByKey( keys, True )
   
   Dim timeFrom As NotesDateTime, timeUntil As NotesDateTime
   Dim chstartItem As NotesItem,  chendeItem As NotesItem
   Dim chstart As NotesDateTime, chende As NotesDateTime
   
   Set tr = coll.getFirstDocument()
   While ( Not tr Is Nothing And isValidTimeRecord)
      Set chstartItem = tr.getFirstItem("TimeReportHourStart")
      Set chendeItem = tr.getFirstItem("TimeReportHourEnd")
      
      Set chstart = chstartItem.DateTimeValue
      Set chende = chendeItem.DateTimeValue
      
      If( chStart.TimeDifference( ende ) >= 0  Or start.TimeDifference( chEnde) >= 0) Then
         'Everything is ok
         'if the work is overlapping at midnight, then it is necessary to stop at 00:00 and start a new entry at the next day
      Else
         If( tr.UniversalID <> doc.UniversalID) Then
            Msgbox "There is a time conflict with the activity "+tr.Subject(0) + " in project " + tr.ProjectName(0), button, title      
            isValidTimeRecord = -1
         End If
      End If
      
      Set tr = coll.getNextDocument(tr)
      
   Wend
   
'   Call logMsg( "1", "isValidTimeRecord has the value " + Cstr(isValidTimeRecord))
   
   If( isValidTimeRecord = 1 ) Then   
      Dim frozenView As NotesView
      Dim frozenDocs As NotesDocumentCollection
      Dim frozenDoc As NotesDocument
      Dim dtFreeze As NotesDateTime
      Dim dtTimeReport As NotesDateTime
      
      Set frozenView = db.GetView("(ActiveFrozenPeriods)")
      Set frozenDocs = frozenView.GetAllDocumentsByKey(doc.ProjectName(0), True)
      Set frozenDoc = frozenDocs.getFirstDocument()
      
      Stop
      
      While( Not frozenDoc Is  Nothing)
         If( frozenDoc.SubProjectSelection(0) <> "" ) Then
            If( doc.ProjectPartName(0) <> frozenDoc.SubProjectSelection(0)) Then Goto nextFrozen            
         End If
         
         If( frozenDoc.UserSelection(0) <> "" ) Then
            If( doc.TimeReportUser(0) <> frozenDoc.UserSelection(0)) Then Goto nextFrozen            
         End If
         
         Set dtFreeze = frozenDoc.GetFirstItem("FreezeDate").DateTimeValue
         Set dtTimeReport = doc.GetFirstItem("TimeReportDate").DateTimeValue
         
         If(  dtTimeReport.TimeDifference( dtFreeze)  <= 0  ) Then
            isValidTimeRecord = -2
            Msgbox "Time Record could not be saved. Period for this combination is already closed.", button, title      
         End If
         
nextFrozen:         
         Set frozenDoc = frozenDocs.GetNextDocument(frozenDoc)
      Wend
   End If
   
finally:
   Exit Function
   
catch:
   Msgbox Error$
   isValidTimeRecord = -3
   Resume finally
End Function


Function logMsg( nr As Integer, msg As String)
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   
   Set db = s.CurrentDatabase
   
   Set doc = New NotesDocument( db )
   doc.form = "GeneralLog"
   doc.msg = msg
   doc.nr = nr
   Call doc.save(True, True)
   
End Function

In meinem jugendlichen leichtsinn behaupte ich nun einfach mal :
Sieht doch eigentlich ok aus 

[tron55]

1)Läuft die DB auf einem anderen Server?
2)Ist ein Server als ausführend eingetragen?
3)Wurde der Server umbenannt?
4)Was sagt das Agent-Log - wann lief der Agent zum letzten Mal?...

1)nein
2) nein vorher war niemand ausführend eingetragen nun ist Administrators dort eingetragen.
3)nein
4) angeblich lief webquerysave noch nie 

[Peter Klett]

Schau Dir mal die versteckte Ansicht an (STRG+SHIFT festhalten, mit der Maus Ansicht - Gehe zu... und dann die Ansicht "(UserTimeReports)" auswählen).

In welchem Format stehen die Datumsangaben? Vergleiche das mit dem Datumsformat, mit dem gesucht wird. Entgegen einem früheren Post von Dir sucht er nach dd/mm/yyyy und nicht nach dd/mm/yy. Da musst Du ganz genau sein. Zusätzlich solltest über Prints oder Msgbox ausgeben lassen, welchen Suchschlüssel er verwendet. Die Datumsformatierung ist "handgemacht" und muss nicht zwingend passen. Wenn das Datum zum Beispiel mit 19.9.2011 ausgegeben wird, reicht es nicht aus mit Mid zu arbeiten, wenn der Entwickler 19.09.2011 erwartet hat. Ich kann da nur den Befehl "Format" empfehlen, um Datum sauber in einen formatierten String umzuwandeln.

[tron55]

Du hast "leider" vollkommen Recht, da ist es wieder.
Früher war das Format völlig ok, deswegen hat das auch geklappt.
Irgendwann macht er dann auf einmal wilde Punkte... wtf...

Wie kommt denn sowas und vor allen Dingen , wie stelle ich das am umkompliziertesten wieder um?
(das kann ja irgendwie nur ein Setting sein und kein Code)