AtNotes Übersicht Willkommen Gast. Bitte einloggen oder registrieren.
27.10.21 - 18:53:57
Übersicht Hilfe Regeln Glossar Suche Einloggen Registrieren
News:
Schnellsuche:
+  Das Notes Forum
|-+  Domino 9 und frühere Versionen
| |-+  ND6: Entwicklung (Moderatoren: Axel, eknori, Hoshee, ata, koehlerbv)
| | |-+  Zugriff auf Added per LotusScript?
« vorheriges nächstes »
Seiten: [1] Nach unten Drucken
Autor Thema: Zugriff auf Added per LotusScript?  (Gelesen 2458 mal)
ghost
Aktives Mitglied
***
Offline Offline

Geschlecht: Männlich
Beiträge: 174


Notes ist gut!


« am: 18.05.06 - 09:08:57 »

Hallo,

ist es per LotusScript möglich auszulesen, wann ein Dokument in eine Datenbank eingefügt wurde? Also das Datum, das in den Dokumenteigenschaften unter Added angezeigt wird?

Viele Grüße
ghost
« Letzte Änderung: 18.05.06 - 09:48:13 von ghost » Gespeichert
eknori
@Notes Preisträger
Moderator
Gold Platin u.s.w. member:)
*****
Offline Offline

Geschlecht: Männlich
Beiträge: 11566


« Antworten #1 am: 18.05.06 - 09:18:19 »

Const wAPIModule = "NNOTES" ' Windows/32

Const NOTE_ADDED_TO_FILE = 13

Declare Private Function ConvertTIMEDATEToText Lib wAPIModule Alias "ConvertTIMEDATEToText" _
( Byval zI As Long, Byval zT As Long, T As Long, Byval S As String, Byval nS As Integer, nT As Integer) As Integer
Declare Private Function NSFDbOpen Lib wAPIModule Alias "NSFDbOpen" _
( Byval P As String, hDB As Long) As Integer
Declare Private Function NSFDbClose Lib wAPIModule Alias "NSFDbClose" _
( Byval hDB As Long) As Integer
Declare Private Function NSFNoteOpen Lib wAPIModule Alias "NSFNoteOpen" _
( Byval hDB As Long, Byval NoteID As Long, Byval F As Integer, hNT As Long) As Integer
Declare Private Function NSFNoteClose Lib wAPIModule Alias "NSFNoteClose" _
( Byval hNT As Long) As Integer
Declare Private Function NSFNoteGetInfo Lib wAPIModule Alias "NSFNoteGetInfo" _
( Byval hNT As Long, Byval M As Integer, V As Any) As Integer
Declare Private Function OSPathNetConstruct Lib wAPIModule Alias "OSPathNetConstruct" _
( Byval zP As Long, Byval S As String, Byval F As String, Byval N As String) As Integer

Function AddedToFile(doc As NotesDocument) As String
With doc.ParentDatabase
db$ = String$(1024, " ")
OSPathNetConstruct 0, .Server, .FilePath, db$
End With

Dim hDB As Long
NSFDbOpen db$, hDB
If hDB = 0 Then Exit Function

Dim hNT As Long
Dim T(1) As Long
NSFNoteOpen hDB, Clng("&H" & doc.NoteID), 0, hNT
If Not hNT = 0 Then
NSFNoteGetInfo hNT, NOTE_ADDED_TO_FILE, T(0)
NSFNoteClose hNT
s$ = Space(80)
ConvertTIMEDATEToText 0, 0, T(0), s$, 80, ns%
AddedToFile = Left$(s$, ns%)
End If

NSFDbClose hDB
End Function


( ich glaube, das stand mal im LDD )

EDIT:

Ahh, hier ist es
« Letzte Änderung: 18.05.06 - 09:28:58 von eknori » Gespeichert
ghost
Aktives Mitglied
***
Offline Offline

Geschlecht: Männlich
Beiträge: 174


Notes ist gut!


« Antworten #2 am: 18.05.06 - 09:47:35 »

Super!! Genau danach habe ich gesucht!

Vielen Dank
ghost
Gespeichert
Seiten: [1] Nach oben Drucken 
« vorheriges nächstes »
Gehe zu:  


Einloggen mit Benutzername, Passwort und Sitzungslänge

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006, Simple Machines Prüfe XHTML 1.0 Prüfe CSS
Impressum Atnotes.de - Powered by Syslords Solutions - Datenschutz | Partner: