Domino 9 und frühere Versionen > Entwicklung

Problem mit der Übergabe von Dokumenten unter R5

<< < (4/4)

PAR003:
Hi,
Ich gebe Ihnen einfach mal den Code, den Ich derzeit für einen solchen Dokumenten Transfer benutze.

-->>

Sub Initialize
   Dim doc As NotesDocument
   Dim docNew As NotesDocument
   Dim docRemove As NotesDocument
   Dim view As NotesView
   Dim dbvon As NotesDatabase
   Dim dbziel As NotesDatabase
   Dim session As NotesSession
   Dim viewneuedocs As notesview
   Dim strServer As String
   Dim zaehl1 As Integer
   Dim zaehl2 As Integer
   
   Set session = New NotesSession
   Set dbvon = session.currentDatabase
   strServer = dbvon.server
   Set dbziel = session.GetDatabase(strServer , "Test3.nsf")
   Set docNew = dbziel.createDocument
   
   If Not dbziel.isOpen Then
      strFehler = "Zieldatenbank : Test3.nsf lässt sich nicht öffnen"
      Exit Sub
   End If
   
   
   
   '-------- und jetzt die neuen erstellen
   zaehl2 = 0
   Set view = dbvon.getView(" BookNr_V")
   Set doc = view.getfirstDocument
   Do While Not doc Is Nothing
      Set docNew = dbziel.createDocument
      docNew.form = "Test_D"
      docNew.Name_T = Bookauthor_T
      docNew.Zahl_N = BookNr_N
      
      
      
      docNew.neu = "1"
      Call docNew.Save(True, True)
      zaehl2 = zaehl2 + 1
      Set doc = view.getNextDocument(doc)
   Loop
   
   '------------------------------------------------------------
   ' protokoll erstellen
   Dim docProtokoll As NotesDocument
   Dim rtitem As NotesRichTextitem
   Dim agent As NotesAgent
   Dim dateTime As New NotesDateTime( "3" )
   Dim varDummy As Variant
   Set agent = session.CurrentAgent
   Set docProtokoll = dbvon.createDocument
   
   docProtokoll.form = "protokoll"
   docProtokoll.name = agent.Name
   Call dateTime.SetNow
   'Set docProtokoll.datum_agent = dateTime
   Set rtitem = New NotesRichTextItem (docProtokoll, "protokoll")  
   Call rtitem.AppendText( "Anzahl Dokumente gelöscht :" + Cstr(zaehl1))
   Call rtitem.AddNewLine( 1 )
   Call rtitem.AppendText( "Anzahl Dokumente neu        :" + Cstr(zaehl2))
   varDummy = docProtokoll.ComputeWithForm( False, False )
   Call docProtokoll.Save( False, True )
End Sub



-->>
Ich hoffe das genügt Ihnen als Information.
Thnx PAR003

klaussal:
...

docNew.Name_T = Bookauthor_T
MUSS heissen .... = doc.Bookauthor_T(0)

hatte ich oben bereits geschrieben. man sollte auch lesen können.
was unter "form" steht, ist der name der maske in der empfangs-db !

man sollte schon ein rudimentäres grundwissen haben, sonst ist das ganze für den müll....  ;)

ata:
@Klaussal

... Geduld, Geduld - wir haben alle mal angefangen und hätten perfekte Lösung gebraucht - wobei ich nicht sagen will, daß du nicht ganz unrecht hast...


@Par003

... du hast neben den flschen Zuweisungen auch im NotesDateTime eine Zuweisung, die ich für falsch halte - da muß ein Datum übergeben werden - und "3" ist kein Datum

... Felder übergibst du dem nächsten Dokument wie bereits von Klaus beschrieben...

ata

klaussal:
@ata,

ja ja ich weiss, etwas zu ungeduldig. aber wenn man (nicht du) schon abschreibt, dann bitte auch richtig.  das mit der "3" war ich nicht. mein vorlage sah da anders aus.
naja, ich gelobe mehr geduld in zukunft  ;)

p.s.
ist die cd angekommen ?

Navigation

[0] Themen-Index

[*] Vorherige Sete