Sub Click(Source As Button)
Dim session As New NotesSession
Dim wksp As New notesuiworkspace
Dim db As notesdatabase
Dim uidoc As notesuidocument
Dim doc As NotesDocument
Dim Todoview As notesview
Dim opentodocol As notesdocumentcollection
Dim messagestext As String
Dim messagessplit As Variant
Dim messageslist List As String
Dim user As String
Dim x As Variant
Dim i As Integer
Dim message As String
Dim messageintern As String
Dim messagestringsplit As Variant
Dim thisdate As New NotesDateTime("")
Dim ok As Boolean
Dim picklistback As Variant
Dim reroutenewDocumenthistory As String
Dim evalstring As String
Dim evalvar As Variant
Dim isnotesuser As Boolean
Dim notesitem As notesitem
Dim docmailsend As String
Set db = session.CurrentDatabase
Set todoview = db.GetView("($vwOpenTodo)")
Set uidoc = wksp.CurrentDocument
holders = uidoc.document.LockHolders
If holders(0) <> "" Then
Forall h In holders
lockmessage = lockmessage & h & Chr(13)
End Forall
Messagebox lockmessage,, "Lock holders"
Exit Sub
End If
' if the uidoc is not in editmode set it
If uidoc.EditMode= False Then
uidoc.EditMode=True
End If
' get the actual date
Call thisdate.setnow
' get the actual user
user = session.commonUserName
' build a list for the message strings
messagestext = uidoc.fieldgettext("MESSAGES")
messagessplit = Split(messagestext,";")
For I = 0 To Ubound(messagessplit) Step 1
x = Split(messagessplit(i),"=")
messageslist(x(0)) = x(1)
Next
' check if the document has open Todos
Set opentodocol = todoview.GetAllDocumentsByKey(uidoc.Document.UniversalID)
If opentodocol.count>0 Then
' messageoutbreak
'x =Split(messageslist("msgTicketOpenTodo"),"~") 'wieder aktivieren
'PW PROGRAMMIERT ANFANG
x =Split(MessageslistitemNotExists(messageslist, "msgTicketOpenTodo",2),"~")
'PW PROGRAMMIERT ENDE
Messagebox x(1),16,x(0)
Exit Sub
End If
' check if the document has a solution
If uidoc.Document.solution(0) = "" Then
' messageoutbreak
'x =Split(messageslist("msgTicketDNoSolution"),"~")
'PW PROGRAMMIERT ANFANG
x =Split(MessageslistitemNotExists(messageslist, "msgTicketDNoSolution",2),"~")
'PW PROGRAMMIERT ENDE
Messagebox x(1),16,x(0)
Exit Sub
End If
' check if the user really wants to close this ticket
'x =Split(messageslist("msgTicketDClose"),"~")
'PW PROGRAMMIERT ANFANG
x =Split(MessageslistitemNotExists(messageslist, "msgTicketDClose",2),"~")
'PW PROGRAMMIERT ENDE
i= Messagebox(x(1),36,x(0))
If i <> 6 Then
Exit Sub
End If
' checked all barriers go on and change the document
' set some fields in the uidoc
uidoc.Document.status = "99"
uidoc.document.CompletedBy = user
uidoc.document.DateCompleted = thisdate.LocalTime
' use the LogActions function for logging entrys.
Ok = logActions(uidoc,"UserClosed","",thisdate.Dateonly, thisdate.timeonly,"","","","")
If ok = False Then
' was not assigned due to an error in the logAction Script
Exit Sub
End If
'set the doc
Set doc = uidoc.Document
Call doc.Save(True,False)
Call uidoc.close
End Sub