Domino 9 und frühere Versionen > ND6: Entwicklung

ReOpen wegen rtf-Feld

(1/6) > >>

LUSBernd:
Hallo,

ich steh grad irgendwie auf dem Schlauch. Ich will ein rtf-Feld überprüfen, ob die Dateianhänge auch nicht zu lang sind, da die DB sonst zu groß wird.

Ich habe im Querysafe eine Funktion geschrieben. Nun muss aber bei einem neu erstellten Dokument dieses erst abgespeichert werden, sonst bekomme ich in der Überprüfung einen Fehler. Ich habe inzwischen auch von ATA das reopen gefunden. Leider stehe ich grad aufm Schlauch wie ich es so einbinde, dass er mir das auch macht, wenn das Dokument neu ist. Also hier die Frage: Wie funzt das?   ???

Hier mein Querysafe:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim rt As NotesRichTextItem
   Dim item As NotesItem
   Dim idx As Integer
   
   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   Set rt = doc.GetFirstItem("bild")
   
   
   
   If Not doc.hasembedded Then
      Call source.FieldSetText("ok", "ok")
   Else
      
      idx = 0
      Forall o In rt.EmbeddedObjects
         Redim Preserve strdateiinfo(idx)
         strdateiinfo(idx) = Trim$(Str(o.filesize))
         If o.filesize > 515000 Then
            Msgbox ("Wie in der Schulung gelernt, müssen die Bilder verkleinert werden!")
            continue = False
            Exit Sub
         End If
         idx = idx + 1
      End Forall
      
      doc.fsize = strdateiinfo
      Call source.FieldSetText("ok", "ok")
      
   End If
   
   
   If source.FieldGetText("ok") = "" Then
      Call source.FieldSetText("ok","")
      continue = False
   Else
      Call source.FieldSetText("ok","")
   End If
End Sub

koehlerbv:
Warum machst Du die Prüfung nicht im QueryClose? Speichern musst Du ja so oder so ...

Bernhard

LUSBernd:
ganz einfach, da sind bereits hunderte Dokumente drin, deren Anhänge schon viel zu groß sind.

Und damit keine Meuterei nur beim Anzeigen dieser Dokumente ausbricht habe ich diesen Weg gewählt.

Philipp

koehlerbv:
Du brauchst doch nur den EditMode abfragen oder das LastModified ... Es gibt jedenfalls keinen Grund, warum man den Lesemodus nicht von der Prüfung ausnehmen kann.

Bernhard

LUSBernd:
Ok, ist richtig. an sowas denke ich einfach noch nicht. Bin halt noch kein Profi.   ;)
Das werde ich mal probieren.

Allerdings ist das noch nicht die Antwort auf meine Frage. Ich bin ja froh, dass ich ihn überhaupt schon dazu bewegen konnte das ganze erfolgreich zu prüfen!!!

Phil

Navigation

[0] Themen-Index

[#] Nächste Seite