Hallo,
wir haben bei uns in der Verwaltung das selbe Problem. Im Internet habe ich
dazu folgende Lösung gefunden:
Sub loeschen
Dim doc as Object
Dim a as String
Dim c as Integer
Dim url as string
Dim docinfo as Object
doc = thiscomponent
a = doc.getlocation()
c = len(a)
url = left(a,c-4) & "_temp.odt"
docinfo = doc.getDocumentInfo()
Url = ConvertToUrl(Url)
if doc.isreadonly(Url) Then exit sub
'MsgBox "Temp-Datei wird gelöscht!"
kill(url)
End Sub
Sub benutzerfinden
Dim doc as Object
Dim arg() as new com.sun.star.beans.PropertyValue
Dim surl as String
Dim userdaten as Object
Dim benutzerdaten as Object
Dim docinfo as Object
Dim regval(0) as new com.sun.star.beans.PropertyValue
Dim Vn as String
Dim Nn as String
Dim Kz as String
Dim a as String
Dim b as String
Dim c as Integer
Dim url as String
Dim ff as String
AnzahlListElemente
userdaten = createUnoService("com.sun.star.configuration
ConfigurationProvider")
regval(0).Name = "nodepath"
regval(0).Value = "org.openoffice.UserProfile/Data"
benutzerdaten = userdaten.createInstanceWithArguments("com.sun.star
configuration.ConfigurationAccess",regval())
Vn = benutzerdaten.givenname
Nn = benutzerdaten.sn
Kz = benutzerdaten.initials
doc = thiscomponent
a = doc.getlocation()
c = len(a)
url = left(a,c-4) & "_temp.odt"
docinfo = doc.getDocumentInfo()
ff = FileExists(url)
'if ff = -1 then goto istda
if ff then goto istda
surl = "private:factory/swriter"
doc = StarDesktop.loadComponentFromUrl(surl,"_blank",0,arg())
doc.DocumentInfo.author = vn & " " & nn
doc.storeAsUrl(url,arg())
doc.DocumentInfo.author = vn & " " & nn
doc.storeAsUrl(url,arg())
doc.close(true)
Exit Sub
istda:
doc = Stardesktop.loadComponentFromUrl(url,"_blank",0,arg())
docinfo = doc.getDocumentInfo()
b = docinfo.modifiedby
MsgBox Left(doc.url,Len(doc.url)-9) & " wird derzeit bearbeitet von: " & b
doc.close(true)
End Sub
Das Makro benutzerfinden wird mit dem Ereignis 'Dokument öffnen' verbunden
(Extras/Anpassen .../Ereignisse). Das Makro versucht die geöffnete Datei mit
dem Zusatz '_temp' zu speichern und zu schließen. Wurde die Datei bereits
von einem anderen Benutzer geöffnet, so existiert die Datei mit dem Zusatz
_temp'. Auf diese Datei kann lesend zugegriffen werden und der letzte
(aktuelle) Benutzer ausgelesen werden. In der MsgBox wird ausgegeben, wer
derzeit die Datei bearbeitet. Somit kann ein neuer Benutzer sich ggf.
telefonisch mit dem derzeitigen Benutzer verständigen.
Das Makro loeschen wird mit dem Ereignis 'Dokument schließen' verbunden.
Sobald der Benutzer der '_temp-Datei' das Original schließt, wird auch die
_temp-Datei' geschlossen und der nächste Benutzer kann auf die
Original-Datei zugreifen.
Dieses Verfahren funktioniert bei uns ohne Probleme (Suse Linux 10 im
Netzwerk).
Gruß
Hellmuth
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
