Hallo zusammen,
vorab ein Lob an alle im Forum - wirklich genial hier!!
Ich habe bereits hier im Forum http://atnotes.de/index.php/topic,10891.0.html (http://atnotes.de/index.php/topic,10891.0.html) gelesen, dass es möglich ist alle Dokumente von einer DB in die andere zu verschieben. Das klappt soweit auch wunderbar.
Mir geht es jetz jedoch um die Dokumentauswahl.
AllDocsSelect = "@IsNotMember(""A""; ExcludeFromView) & IsMailStationery != 1" + _
"& Form != ""Group"" & Form != ""Person"""
Ich hätte gerne dass alle Dokumente älter als X Tage verschoben werden.
Wenn möglich soll die Tage der User / Admin selbst eingeben können. (Wie die Anfangsabfragen Current/Archiv Database)
Leider klappt es mit einem einfachen nicht.
Kann mir jemand von Euch weiterhelfen?
Vielen Dank vorab
Grüße
Hallo Peter,
ich habe es nun 1zu1 aus dem Agent rauskopiert:
AllDocsSelect = "@IsNotMember(""A""; ExcludeFromView) & IsMailStationery != 1" + _
"& Form != ""Group"" & Form != ""Person"" & @Created < [01.12.2010]"
Grüße
Die Zeiteinstellung hätte ich jetzt auch vermutet.
besser ist evtl. ein
myDate = datenumber(2010,12,31)
AllDocsSelect = "@IsNotMember(""A""; ExcludeFromView) & IsMailStationery != 1" + _
"& Form != ""Group"" & Form != ""Person"" & @Created < [" +cstr(myDate) + "]"
poste vielleicht mal etwas mehr Code.
Gruß
Roland
So, der Count zeigt mir beim Debuggen 6258 (bei Selection )
bei Selection @Created < @Date (2010;12;1)
Wenn ich mir die Ansicht wie die Selection zusammenbastel bekomme ich 6258 Dokumente angezeigt.
Und beim überfliegen habe ich keines aus 2011 oder 2012 gesehen...
Wenn ich nun aber die Routine komplett ausführen lasse, habe ich 70 Dokumente nach dem 01.12.2010
Wie hast Du diesen Code-Teil angepasst, dass er keine Dokumente vor dem CutOff mitnimmt?
Forall folder In sourceDb.Views
If folder.IsFolder And (Instr(1, folder.Name, "(", 0)<>1 Or folder.Name="($Inbox)") Then
' The following code ensures that folders with no docs in them still get copied
' so that any folder design customizations are kept
Set destFolder = destDb.GetView(folder.Name)
If destFolder Is Nothing Then
Set sourceFolder = sourceDb.GetDocumentByUNID(folder.UniversalID)
Call sourceFolder.CopyToDatabase(destDb)
Set destFolder = destDb.GetView(folder.Name)
If destFolder Is Nothing Then
Msgbox("Unable to create folder in new database.")
Exit Sub
End If
End If
' cycle through each doc in the current folder
Set sourceDoc = folder.GetFirstDocument
While Not (sourceDoc Is Nothing)
Set destDoc = sourceDoc.CopyToDatabase(destDb)
' copy each document to the same folder in the destination database
Call destDoc.PutInFolder(folder.Name, True)
' remove document from the collection of docs built from source db all docs view
Set tempDoc = AllDocs.GetDocument(sourceDoc)
Set sourceDoc = folder.GetNextDocument(tempDoc)
Call AllDocs.DeleteDocument(tempDoc) 'remove from collection
' display progress
current = current + 1
Print Cstr(Round(current / docCount * 100, 0)) + "% copied"
Wend
End If
End Forall
Bernhard