Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: JM am 13.09.02 - 10:20:22

Titel: Übertragung von Dokumenten
Beitrag von: JM am 13.09.02 - 10:20:22

Hi,

ich habe folgendes Problem:

Ich möchte aus einer bestehenden Datenbank dokumente in eine andere Datenbank übertragen (auf Knopfdruck mit Hilfe eines Buttons)
die Dokumente sollen nach der Selektion Feld für Feld in eine andere Datenbank eingefügt werden
das ganze soll über eine Art  Konfigurationsdokument geschehen

wer kann mir einen gute Tip geben wie man soi etwas anstellen könnte????

Titel: Re: Übertragung von Dokumenten
Beitrag von: mahonri am 13.09.02 - 11:55:39

Habe sowas schon gemacht

Konfigurationsdokument mit zwei Feldlisten
Quellfelder  und Zielfelder

Im Code Konfigurationsdokument auslesen
Loop über alle gewählten Dokumente
        For i = 0 To Ubound(QuellFelder)
              DummyItemVal = SourceDoc.getItemValue(Quellfelder(i))
              Call ZielDoc.ReplaceItemvalue(ZielFelder(i), DummyItemVal)
         Next  'Field from FieldList
    call ZielDoc.Save(true,false)
Next 'Document

Oder du kopierst das ganze Dokument rüber ;D

Titel: Re: Übertragung von Dokumenten
Beitrag von: JM am 13.09.02 - 15:07:24

habe da mit dem kopiern getestet .... funktioniert aber leider nicht ...

hier ist mein code

@Command([EditCopy]);
@Command([FileOpenDatabase];"":"VKTestM.nsf";"";"");
@Command([EditPaste]);
@Command([FileCloseWindow])

:(

Titel: Re: Übertragung von Dokumenten
Beitrag von: mahonri am 13.09.02 - 15:52:43

Dim session as new Notessession
set CurrDB = Session.Currentdatabase
set Destinationdb = session.getDatabase(Servername,PfadundDatenbankname)
Set Coll = CurrDB.UnprocessedDocuments
Set SourceDoc = Coll.GetFirstDocument
While Not SourceDoc is Nothing
    Set DestinationDoc = SourceDoc.CopyToDatabase(DestinationDB)
   Call DestinationDoc.Save(True,False)
   Set SourceDoc = Coll.GetNextDocument(SourceDoc)
Wend

Das funktioniert dann.
Der Agent sollte dann auf gewählte Dokumente laufen