Domino Code Fragment

Code Name*
Prevent save conficts		Date*
06/15/1999		Source (or email address if you prefer)*
[email protected] / [email protected]
IP address:.172.69.17.141
Description*
Type*
LotusScript		Categories*
Replication
Implementation:
Modify code		Required Client:
4.6		Server:
4.6
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
'Coloca a flag assim que o usuario edita o documento

Sub Postmodechange(Source As Notesuidocument)

Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim wks As New NotesUIWorkspace
Set db=session.CurrentDatabase
Set uidoc=wks.CurrentDocument
Set doc=uidoc.Document

If uidoc.EditMode = True Then
user = session.CommonUserName
doc.LOCKFIELD = user
End If
Call uidoc.save
End Sub

'xxxxxxxxx
'Limpa a flag ao sair do documento em edicao
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim wks As New NotesUIWorkspace
Set db=session.CurrentDatabase
Set uidoc=wks.CurrentDocument
Set doc=uidoc.Document

If uidoc.EditMode = True Then
doc.LOCKFIELD =""
Call uidoc.save
End If
End Sub
'xxxxxxxxx
'Teste para ver se existe alguem editando o documento
If Not(doc2.LOCKFIELD(0) = "") Then
Msgbox "O documento sendo utilizado pelo usuario " + doc2.LOCKFIELD(0)
Exit Sub
End If