Domino 9 und frühere Versionen > Entwicklung

Problem mit RenderToItem der RichTextItem-Klasse

(1/5) > >>

MadMetzger:
Hallo zusammen!

Ich programmiere gerade eine Datenbank mit einer Checkliste für Personalveränderungen bei uns in der IT-Abteilung.

In einem Dokument soll in ein Richtextfeld ein Dokument mit einer Art Berechtigungsprofil hereingefügt werden. Hierzu habe ich eine Aktion in der Maske hinterlegt, die mit Script arbeitet. Hier taucht jedoch mein Problem auf:

Beim Aufruf der Methode RenderToItem meldet mir Notes in dieser Zeile

--- Code: ---flag = prof_doc.rendertoitem ( prof_rt_item )

--- Ende Code ---
kommt vom Debugger die Meldung "Type mismatch" . Die Variable flag ist als Variant definiert, so wie es in der DesignerHelp steht.

Kann mir jemand verraten, wo das Problem liegt?

Danke schonmal vorweg!

Markus

koehlerbv:
Was sagt denn der Debugger ? Ist prot_rt_item instantiiert und zeigt dieses auf ein RichtTextItem ?

Bernhard

MadMetzger:
Es ist instantiiert und zeigt auch auf das richtige RT-Item...  ???

Schon 'ne Richtung, was ich gucken könnte?

koehlerbv:
Kannst Du noch ein wenig mehr Code posten ?

Bernhard

MadMetzger:
Ich poste hier mal den ganzen Code:


--- Code: ---Dim session As notessession
Dim ws As notesuiworkspace
Dim this_db As notesdatabase
Dim par_view As notesview
Dim prof_dc As notesdocumentcollection
Dim this_ui_doc As notesuidocument
Dim par_doc As notesdocument
Dim prof_doc As notesdocument
Dim this_doc As notesdocument
Dim prof_rt_item As Variant
Dim flag As Variant

Dim server As String
Dim bk_datenbank As String

'##################################################################################################

Set session = New notessession
Set ws = New notesuiworkspace
Set this_db = session.currentdatabase
Set par_view = this_db.getview ( "Parameter" )

Set this_ui_doc = ws.currentdocument
Set this_doc = this_ui_doc.document

flag = False

Call this_doc.save (True,True)

Set prof_rt_item = this_doc.getfirstitem ( "BerechtigungProfilRT" )

If Not par_view Is Nothing Then
Set par_doc = par_view.getdocumentbykey("Berechtigungskonzept")
Else
Msgbox "Ansicht Parameter nicht gefunden!",16,"Fehler"
Exit Sub
End If

If Not par_doc Is Nothing Then
server = this_db.server
bk_datenbank = par_doc.ParameterWertTX (0)
Else
Msgbox "Parameter >Berechtigungskonzept< nicht gefunden!",16,"Fehler"
Exit Sub
End If

Set prof_dc = ws.picklistcollection ( PICKLIST_CUSTOM, False, server, bk_datenbank, "BerechtigungsprofileAktuell", "Profilauswahl", "Bitte wählen Sie ein Profil aus!")

Set prof_doc = prof_dc.getfirstdocument

If prof_rt_item.type = RICHTEXT Then
flag = prof_doc.rendertoitem ( prof_rt_item )
If flag = True Then
Call this_doc.save (True,True)
Else
Msgbox "Profil konnte nicht eingefügt werden!",16,"Fehler"
End If
End If
--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite