Domino 9 und frühere Versionen > ND8: Entwicklung

Script Error:Nicht alle Dokumente werden verarbeitet

(1/2) > >>

Jörg:
Hi @all,

Ich habe mir ein script geschrieben , mit dem ich mir alle Dokumente mit gewissen
Definitionen aus einer View filtere und jeden gefundene Dokument kopiere.
Danach soll das Dokument bearbeitet werden.
Zum Schluss möchte ich ein Item löschen und es neu erzeugen lassen.

Hier erstmal der Code:

--- Code: ---Option Public
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 doc2 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
Dim success As Variant


Set db = session.CurrentDatabase
Set view = db.GetView( "Serien-Geräte" )
Call view.Refresh
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)

y =Doc.GetItemValue("form")(0)
z= Doc.GetItemValue("Hide_kategorie")(0)
x= Doc.GetItemValue("Serie")(0)
counter= counter +1

If y ="dokument_kopf" And z= "Serien-Geräte" Then
If x = "2011" Then

counter = counter + 1
Set doc2 = doc.Copytodatabase(db)

Dim oldtitel As String
oldtitel =Doc.GetItemValue("titel")(0)
oldtitel = Left$(oldtitel, Len(oldtitel)-4)
doc2.titel = oldtitel + "2012"
doc2.Serie= "2012"
Call doc2.Removeitem("ID_MainDOC")
success = doc2.ComputeWithForm( False, False )
If success Then
Call doc2.Save( True, True )
End If
End If
End If

If counter =actcounter Then
Exit Sub
End If
Set Doc=oDocnext
Wend
End If
End Sub
--- Ende Code ---

Nun scheint es so das manchmal das Item "ID_MainDOC" durch den Befehl "ComputeWithForm" nicht
angelegt wird.
Wie kann ich sicherstellen das hier immer das Dokument erst dann gespeichert wird,
wenn das Feld vorhanden und mit der DocID gefüllt wurde.

Danke schon mal vorab.....

Gruß Jörg

koehlerbv:
Scheint es so - oder ist es so? Wenn es Dir nur so scheint, dann suche weiter, ob ID_MainDOC nun erzeugt wird oder nicht.

Angenommen, es "scheint" nicht nur so, sondern es es ist ein Faktum:
Es wäre interessant zu erfahren, wie Deine Maske ID_MainDOC erzeugt. So ganz unerheblich ist das ja nicht. Du solltest auch das Resultat von ComputeWithForm abfragen und prüfen. Und dabei immer bedenken: Jede programmierte Aktion in der Maske kann ComputeWithForm ein Bein stellen.

Um das Speichern zu verhindern: Du brauchst vor dem doc2.Save doch nur abfragen, ob ID-DocMain (0) leer ist oder nicht.

Bernhard

Jörg:
Hallo,

in den Feld "ID_MainDOC" steht folgende Formel drin:

--- Code: ---@If(ID_MainDOC ="";@Text(@DocumentUniqueID);ID_MainDOC)
--- Ende Code ---
Wenn ich eine Abfrage erstelle ob das Feld leer ist, dann hat das kopierte
Dokument in der view die selben Daten wie das original Dokument.

Daher stellt sich mir die Frage wann ein kopiertes Dokument eine neue "DocumentUniqueID" erhält.

GRuß Jörg

Driri:
Bei CopyToDatabase bleibt die UniqueID erhalten, außer diese existiert schon in der Datenbank.

umi:
Hi
Ist das Feld ID_MainDoc berechnet oder berechnet beim Anlegen ?
Du könntest es sonst auch via Script abfüllen.

--- Code: ---if success then
 call doc2.save(true,false)
 call doc2.replaceitemvalue("ID_MainDoc",doc2.universalid)
 call doc2.save(true,false)
end if

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite