Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: NotesRookie am 16.10.02 - 10:12:02

Titel: Problem bei Richttextfeld
Beitrag von: NotesRookie am 16.10.02 - 10:12:02

Hi all ,

ich hab folgendes Problem :


Ich versuche den Inhalt der Felder von einem Dokument in die Felder eines anderen Dokumentes zu kopieren.
Aber bei Richttextfeldern werden Verknüpfungen und die abgelegten
Dateianhänge nicht in das Feld des anderen Dokumentes kopiert.

Kann mir jemand helfen ?

Toll wären auch ein paar zeilen Script, die das machen ... ich
hab es bis dato nicht hinbekommen <schäm>


Schon mal vorab vielen Dank und viele Grüße,

Marcus

Titel: Re:Problem bei Richttextfeld
Beitrag von: Axel am 16.10.02 - 15:18:57

Hi,

ich hab mal für eine Datenübernahme so was gemacht:


...
'Bearbeitung des RichText-Feldes Bemerkungen
Set rtitemA = doc.GetFirstItem( "Bemerkungen" )
Set rtitemB = New NotesRichTextItem(newdoc, "Bemerkungen" )

If ( rtitemA.Type = RICHTEXT And  rtitemB.Type = RICHTEXT ) Then
  Call rtitemB.AppendRTItem( rtitemA )
End If  'If ( rtitemA.Type = RICHTEXT And  rtitemB.Type = RICHTEXT ) Then

...
      

Axel

Titel: Re:Problem bei Richttextfeld
Beitrag von: eknori (retired) am 16.10.02 - 15:23:59

Ich habs mal so gelöst

Sub CopyAllDocItems(Source As notesdocument, dist As Notesdocument)

Dim rtitemA As Variant
Dim rtitemB As Variant

Forall i In Source.items
ItemName = i.name
If Not i.name = "$FILE" Then 'Takes care of where there is an attachment in RTF fields
if i.type = RICHTEXT Then
    Set rtitemA = Source.GetFirstItem( i.Name)
    Set rtitemB = New NotesRichTextItem ( Dist, i.Name )
    Call rtitemB.AppendRTItem( rtitemA )
  Else
    Set notesItem = i.CopyItemToDocument( Dist, i.Name )
 End If
End If
End Forall

End Sub

Titel: Re:Problem bei Richttextfeld
Beitrag von: NotesRookie am 21.10.02 - 08:34:31

Hallo Miteinander,

hat geklappt ...

Nochmals vielen Dank für die Prompte und geniale Hilfe ...


Nee schöne Arbeitswoche ..

Grüße,
Marcus

Titel: Re:Problem bei Richttextfeld
Beitrag von: bificypdog am 27.03.03 - 15:43:28

Kurze Frage - auch wenn die Beiträge schon älter sind.

Ich habe ein Script, dass ungefähr so aussieht, wie du hier geschrieben hast.

Doch nach einer Replizierung der beiden Datenbanken existiert das Dokument zweimal.
Beide Dokumente haben unterschiedlich DocUniqueIDs.

Wie umgehe ich das?

Titel: Re:Problem bei Richttextfeld
Beitrag von: bificypdog am 27.03.03 - 15:58:21

Ooops,bei mir geht es natürlich um das Kopieren von Dokumenten in anderen DBs.

Ausschnitt:

Code

Set db = s.CurrentDatabase
     Set view = db.GetView( sViewName )
     Set doc = view.GetFirstDocument
     
     If Not arc_db Is Nothing Then
          If Not doc Is Nothing Then
               doc.CALL_Status = "Gesendet"
               doc.DocCopied = "1"
               doc.DocStatus = "1"
               Set arc_doc = arc_db.CREATEDOCUMENT()
               
               Forall i In doc.items
                    If i.Name <> "$FILE" Then
                         Call i.CopyItemToDocument( arc_doc, i.Name  ) 
                    End If
               End Forall
               
               Call arc_doc.RemoveItem( "$Links" )
               
               arc_doc.OrigDBPath = db.FilePath
               Call doc.save(True,False)
               Call arc_doc.Save( True, False )
          End If
     End If