title image


Smiley für R4.5 / R5.x mit Script...
... in etwa so:



Script-Bibiliotek erstellen und folgende 3 Codings eintragen:



1.

Sub CheckInOutPostopen(Source As Notesuidocument)

If source.IsNewDoc Then

source.Editmode=True

Call source.refresh

Else

source.Editmode=False

End If

End Sub



2.

Sub CheckInOutQuerymodechange(Source As Notesuidocument, Continue As Variant)

Dim session As New NotesSession

Dim doc As NotesDocument

Dim un As New NotesName(session.UserName)

Set doc=Source.Document

If doc.Access(0)="" Then

doc.Access=un.Common+ " seit "+Cstr(Now)

Call doc.Save(True,True)

Print "Dokument gesperrt "+doc.Access(0)

Else

Continue=False

End If

End Sub



3. (Dieser gehört bei Terminate eingetragen)



Sub CheckInOutQueryclose(Source As Notesuidocument, Continue As Variant)

Dim doc As NotesDocument

If source.EditMode Then

Set doc=source.Document

doc.Access=""

Call doc.Save(True,True)

Print "Dokument entsperrt"

End If

End Sub



Dann mußt Du mal in Deine Maske bei (Globals) eintragen



Option Public

Use "CheckInOut"



dann bei Postopen in der Maske eintragen



Sub Postopen(Source As Notesuidocument)

Call CheckInOutPostOpen(Source)

End Sub



dann bei Querymodechange



Sub Querymodechange(Source As Notesuidocument, Continue As Variant)

Call CheckInOutQueryModeChange(Source, Continue)

End Sub



und dann bei Queryclose



Sub Queryclose(Source As Notesuidocument, Continue As Variant)

Call CheckInOutQueryClose(Source, Continue)

End Sub



Zuletzt machst Du am besten eine Teilmaske wo Du ein Feld names Access brauchst und davor schreib "dieses Dokument wird

gerade bearbeitet von" hin.



Füg diese Teilmaske in Deiner Hauptmaske ein und fertig.
Besten Gruß
Frank :-)

(G6 auf Gruppenfoto 2006)


[ Wissend ist, wer weiß, wo er findet, was er noch nicht weiß. (Georg Simmel) ]


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: