Domino 9 und frühere Versionen > ND6: Entwicklung

$Revisions - Problem/Änderung in R6

<< < (3/4) > >>

umi:
6.5.4 engl.
Beispiel Memo.
New Memo : kein $Revisions
CTRL-S: kein $Revisions
Save as Draft: $Revisions als Date/Time

koehlerbv:
Liste oder nicht dürfte keine Rolle spielen, da es im Backend für Items diese Differenzierung gar nicht gibt.

A-Bär: 1. Änderung in R5 - Revisions = 12 Byte. 1. Änderung in R6: 8 Byte.

Bernhard

koehlerbv:
Nachtrag: Schaue ich mir das R6-Dokument mit einem R5-Client an, dann zeigt auch dieser nur Zeit/Datum und nicht Liste an ...

Bernhard  ???

jkunze:
Sub Postsave(Source As Notesuidocument)
   
Dim doc As NotesDocument
Dim var As Variant
Dim i As Integer
   
Set doc = Source.Document
i       = 0
   
If doc.HasItem( "$Revisions") Then
   Forall x In doc.GetItemValue( "$Revisions" )
      i = i + 1
   End Forall
   
   If i = 1 Then
      Call doc.Save( True, True )
   End If
End If      

End Sub

Schönes WE und Gruß Jochen

koehlerbv:
If UBound (doc.GetItemValue ("$Revisions")) = 0 then
   Call doc.Save (True, False, True)
End If

Das wäre die kürzere Variante  ;)

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete