Hallo,
ich muß Dateianhänge aus einem Dokumnet in ein Dokument in einer anderen Datenbank übertragen. Die Dateianhänge sollen aber möglichst nicht vom Quelldokument abgehängt und im Zieldokument angehängt werden. Ich habe das ganze mit NotesItem.CopyItemToDocument versucht. Die Anhänge werden zwar übertragen, erscheinen aber im neuen Dokument nicht im gewünschten Feld sondern im Feld $Files.
Kann mir jemand helfen?
Anbei noch ein Code-Schnipsel.
Set ndoIndex = ndbTeamDb.createdocument()
ndoIndex.replaceitemvalue "FORM", "MainDoc"
ndoIndex.computewithform True, False
ndoIndex.replaceitemvalue "Barcode", strBarcode
vntValue = ndoQuelle.getitemvalue("t_KontoNr")
strKtoNr = vntValue(0)
strNr = fktEntfNichtNumerischeZeichen(strKtoNr)
ndoIndex.replaceitemvalue "Kartennummer", strNr
vntValue = ndoQuelle.getitemvalue("d_ErstellDatum")
vntErstellt = vntValue(0)
ndoIndex.replaceitemvalue "ErstellDatum", vntErstellt
ndoIndex.replaceitemvalue "DOCStatus", "0"
'BA_KA
vntValue = ndoQuelle.getitemvalue("t_Dokumentart")
ndoIndex.replaceitemvalue "Projektnummer", vntValue
'SENDER_KA
ndoIndex.replaceitemvalue "DMSKundenname", "PLUS"
vntValue = ndoQuelle.getitemvalue("t_Mitarbeiter")
ndoIndex.replaceitemvalue "Bearbeiter", vntValue
Set nriAnhaenge = ndoQuelle.getfirstitem("t_Anhaenge")
nriAnhaenge.CopyItemToDocument ndoIndex, "DOCFileNew"
ndoIndex.Save True, False, False
Rainer
Und wo ist da das Problem?
Nach dem "ndo.Quellecopy.CopyToDatabase(ndbTeamDb)" hast Du ein neues Dokument in der Zieldatenbank -- genau wie nach dem "ndbTeamDb.createdocument()".
Jetzt machst Du Dein
ndoIndex.replaceitemvalue "FORM", "MainDoc"
ndoIndex.computewithform True, False
ndoIndex.replaceitemvalue "Barcode", strBarcode
...
fügst die Felder hinzu, die Du noch brauchst, löscht mit "RemoveItem" die Felder, die Du in der ZielDb nicht brauchst und und alles ist gut. :)
Für ein CopyToDatabase müssen die Datenbanken nicht die selbe Schablone verwenden.