Domino 9 und frühere Versionen > Entwicklung

Problem bei Richttextfeld

<< < (2/2)

bificypdog:
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

--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete