Domino 9 und frühere Versionen > Entwicklung

hat feld ein attachment

<< < (4/4)

klaussal:
.... und @DOCSIZE gibt's unter R5 nicht  :P

eknori:
Ich habe heute morgen einen entsprechenden "enhancement request" gestellt und gerade hat ein Mitarbeiter aus Dublin angerufen. der Request ist angenommen und wird dann auch irgendwann ( "paar Monate" ) in R6 umgesetzt werden.

Vorgangsnummer dazu ist die NALN5Q5DCL

klaussal:
... wen kennst du eigentlich nicht ?

eknori:
den Papst, die Queen und den Osterhasen  ;D

klaussal:
... hier nochmal die lösung:


--- Code: ---
Sub Postsave(Source As Notesuidocument)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase   
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim docCheck As NotesDocument
   Dim rtitem As Variant
   Dim sizeRT As Integer
   
   Set db = session.currentDatabase
   Set uidoc = ws.currentDocument
   Set doc = uidoc.document   
   Set rtitem = doc.getfirstItem("rt")
   sizeRT = rtitem.valueLength
   If sizeRT > 100 Then
      doc.flag = "ja"
   Else
      doc.flag = "nein"
   End If
   
   Call doc.save(False, False)
End Sub


--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete