Probleme mit kopierten Dokument

[Jörg]

Hallo Forum,

kurz vor dem ende des alten Jahres 2010 habe ich noch eine Problem mit einen Dokument
welches über LS kopiert wurde.
Um das Dokument zu kopierenhabe ich folgendes Script geschrieben:

Sub Initialize
   
'   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession   
   Dim docThis As NotesDocument
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim nav As NotesViewNavigator
   Dim counter As Long
   Dim actcounter As Long
   Dim x As Variant
   Dim y As Variant
   Dim z As Variant
   
   Set db = session.CurrentDatabase
   Set view = db.GetView( "Serien-Geräte" )
   
    REM Create navigator for entire view and get count
   Set nav = view.CreateViewNav()
   'Messagebox nav.Count,, "Number of entries in view"
   actcounter = nav.Count
   counter= 0
   If Not view Is Nothing Then
      Set doc = View.GetFirstDocument()
      While Not doc Is Nothing
         
         Set oDocnext = View.GetNextDocument(Doc)   
         Set doc2 = New NotesDocument(db)
         
         y =Doc.GetItemValue("form")(0)
         z= Doc.GetItemValue("Sub_kategorie")(0)
         x= Doc.GetItemValue("Serie")(0)
         counter= counter +1
         
         If y ="dokument_kopf" And z ="WT" Then
            If x = "2010" Then
               
               counter = counter + 1
               Set doc = view.GetNextDocument(doc)   
               Set item = doc.GetFirstItem("titel")
               Call item.CopyItemToDocument(doc2, "titel")
               'doc2.titel = doc.titel (0)
               Set item = doc.GetFirstItem("language")
               Call item.CopyItemToDocument(doc2, "language")   
               Set item = doc.GetFirstItem("kategorie")
               Call item.CopyItemToDocument(doc2, "kategorie")      
               Set item = doc.GetFirstItem("Sub_kategorie")
               Call item.CopyItemToDocument(doc2, "Sub_kategorie")      
               Set item = doc.GetFirstItem("dcreaders")
               Call item.CopyItemToDocument(doc2, "dcreaders")      
               Set item = doc.GetFirstItem("Doc_Freigabe")
               Call item.CopyItemToDocument(doc2, "Doc_Freigabe")
               Set item = doc.GetFirstItem("form")
               Call item.CopyItemToDocument(doc2, "form")            
               'Set item = doc.GetFirstItem("Serie")
               'Call item.CopyItemToDocument(doc2, "Serie")
               doc2.Serie= "2010"
               
               Call doc2.Save(True,False,False)         
            End If   
         End If
         
         If counter =actcounter Then          
         '   Set entry = view.GetNextDocument(doc)
         'Else
            Exit Sub            
         End If
         Set Doc=oDocnext      
      Wend
   End If
   
End Sub

Dieses Script soll mir eine Dokument in einer View suchen und es kopieren.
Aber leider klappt dies nur in der Schablone, wenn ich es in der realen DB ausführe , werden mir zwar die
dokumente kopiert , aber ich habe keine Rechte mehr dies zu bearbeiten.
Waran kann dies leigen.......?

Für eine Antwort wäre ich euch sehr dankbar.

Gruß Jörg

[DAU-in]

Sind da Leser- und Autorenfelder dabei?

Du setzt nämlich nirgends die Eigenschaft, aber ich sehe ein Item mit Namen dcReaders.

Sind evt. Rollen unterschiedlich vergeben?

lg

Dau-in

[Jörg]

Hi,

danke dir ... ich habe die ACL-Felder vergessen zu kopieren...
also einfach den Wald vor lauter Bäumen nciht geshen...

Danke nochmal und ein frihes neues...

Jörg