Domino 9 und frühere Versionen > ND6: Entwicklung

RichTextItem: Method is not available Fehler ???

<< < (3/3)

jmanuel:
Hallo,

ich habe nun das Problem mit DXL gelöst. Also ich erstelle mit DXL ein Dokument mit Tabelle und mit einem modellierten Button darin. Es funktionierte nach langem rumprobieren. Gibt es eigentlich zu den DXL-Tags und der Syntaks eine Doku ?

Eine weitere Frage (eher ein Problem) zu DXL:

Wenn ich ein DXL import aus einem file.dxl auf Platte hole und importiere funktioniert es einwandfrei. Nun habe ich das selbe File als Attachment in einem Dok. Wenn ich das Attachment löse und dann über DXL importiere bekomme ich den super hässlichen Error "DXL importer operation failed"

Was passiert da ? Es sind doch die gleichen Files, oder nicht ?

Gruss,
Manuel

Ralf_M_Petter:
Eventuell kannst du mal den Code posten, mit dem du das DXL löst und dann importierst. Aber vorsicht mit DXL. DXL kann viel, aber nicht alles, da einige Designporperties nicht im DXL implementiert sind. Deshalb bin ich auch so sauer, weil ich das selbe Problem wie du habe und jetzt auch auf DXL umgestiegen bin und plötzlich sehen meine Tabellen nicht mehr so aus wie ich sie haben will.

Grüße

Ralf

jmanuel:
Hallo,

Ich habe bemerkt das das Attachment nicht alle Tags enthällt. Es ist hinten abgeschnitten. Es liegt also an dem Attachen.

hier ist der Code:
   
        Dim s As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim col As NotesDocumentCollection
   Dim doc As Notesdocument
   Dim kp As NotesDocument
   Dim attachObj As NotesEmbeddedObject
   Dim rtAkteFile As NotesRichTextItem
   
   Dim DxlDocumentCol As NotesDocumentCollection
   Dim filename As String
   
   Set db = s.CurrentDatabase
   Set col = db.UnprocessedDocuments
   Set doc = col.GetFirstDocument
   Set kp = doc   
   Set rtAkteFile = New NotesRichTextItem(kp, "files")
   
   Set DxlDocumentCol = col
   If Lcase(doc.Form(0)) = "kp" Then
      If canShut(doc) Then
         Call createDXLCollection(doc , DxlDocumentCol)
      End If
   End If
   
   REM Open xml file named after current database
   Dim stream As NotesStream
   Set stream = s.CreateStream
   filename$ = "C:\temp\dXLcoll.xml"
   If Not stream.Open(filename$) Then
      Messagebox "Cannot open " & filename$,, "Error"
      Exit Function
   End If
   Call stream.Truncate
   
   
         REM Export note collection as DXL
   Dim exporter As NotesDXLExporter
   Set exporter = s.CreateDXLExporter(DxlDocumentCol)
   Call exporter.SetOutput(stream)
   Call exporter.Process
   
'hier habe ich auch einen Sleep reingebracht, da ich dachte das Lesen des Attachments könnte beginnen vor dem Ende des Schreibens des Files, aber das brachte auch nichts. Fakt ist, das mein dxl-File nicht Komplett ist

      Set attachObj= rtAkteFile.EmbedObject( EMBED_ATTACHMENT ,"", "C:\temp\dXLcoll.xml" )

   Call kp.Save(1,1)

Ralf_M_Petter:
Du solltest den Notesstream closen vor dem Attachen, den sonst passiert das was du beschreibst.

Erst bei dem Closen werden vermutlich die Buffers in das File geschrieben.

Also füge stream.close ein.

Grüße

Ralf

jmanuel:
hi,

danke, daran hats gelegen !!

gruss,
Manuel

Navigation

[0] Themen-Index

[*] Vorherige Sete