Dokument suchen und Daten ändern

[klaussal]

"Option Declare" nicht vergessen und den Debugger benutzen.

[lotus blue]

Hi Leute,
kann mich nur nochmalig bedanken für Eure Hilfe.

Hab Gestern noch den Debugger laufen lassen.
Hier bricht er mir ab.
Call doc.ReplaceItemValue("Status", "erledigt")

Hier nochmal das Script. Könnt ihr mich bitte berichtigen wenn ich da was falsch verstehe:
Sub Initialize
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As notesdocument
   Dim fileNum As Integer, cells As Integer, k As Long
   Dim fileName As String
   Dim InputStr As String, delimiter As String
   Dim FieldArray As Variant
   Dim view As NotesView
   
   Set db = session.currentdatabase
   Set view = db.GetView ("Alle Dokumente")   <-die View in der gesucht werden soll
   
   fileNum% = Freefile()
   
     'Dateipfad
   fileName$ = "V:\Archiv.csv"   <- Pfad u. Name der zu durchsuchenden Datei   
   'Trennzeichen
   delimiter = ";"   <- das Trennzeichen innerhalb der csv
   
   Open fileName$ For Input As fileNum%
   Line Input #1,  InputStr$   
   Do While Not Eof(fileNum%)
    'Zeile für Zeile einlesen
      Line Input #1,  InputStr$
      FieldArray = Split(InputStr$,delimiter, -1, 0)
      If Not Isempty(FieldArray) Then
         Set doc = view.GetDocumentByKey(FieldArray(0))
         Call doc.ReplaceItemValue(Status, "erledigt")  <- das zu ändernde Feld mit dem Wert
         Call doc.Save(True,True)
      End If
   Loop
   Close fileNum%
End Sub


Muss ich eigentlich nicht den Maskennamen irgendwo unterbringen, oder passiert das über die View?

[DerAndre]

Du hast Dir die Frage selber schon beantwortet.

Im Quelltext steht der Feldname ohne Anführungszeichen...

[MadMetzger]

Und mit Option Declare, was man grundsätzlich einschalten sollte, wäre hier schon im Designer ein Fehler hochgekommen... 

[lotus blue]

Declare hab ich in der Tat vergessen.
Auch die ""  Mann Mann.
Aber es funzt immer noch nicht. Stoppt immer noch bei Call doc.ReplaceItemValue("Status", "erledigt").

Wie sieht es aus?
*Muss ich nicht irgendwo übergeben was für einen Wert er überhaupt in den Dokumenten suchen muss?
*Den Maskennamen angeben?

Gruß

[Driri]

Muss ich nicht irgendwo übergeben was für einen Wert er überhaupt in den Dokumenten suchen muss?

Tust Du doch mit dieser Zeile :

Set doc = view.GetDocumentByKey(FieldArray(0))


Voraussetzung dafür ist natürlich :

a) Die verwendete View ist nach dem Suchkriterium sortiert
b) Es ist wirklich der erste Wert, nach dem gesucht werden soll (FieldArray(0) = 1. Wert im Array)

Den Maskennamen angeben?

Wozu ? Beim Neuanlegen von Dokumenten sollte man das Item "Form" setzen, damit beim Öffnen später die korrekte Maske gezogen wird.
Bei vorhandenen Dokumenten sollte man eigentlich davon ausgehen, daß die Form gesetzt ist.

[lotus blue]

Tust Du doch mit dieser Zeile :
Set doc = view.GetDocumentByKey(FieldArray(0))

Voraussetzung dafür ist natürlich :
a) Die verwendete View ist nach dem Suchkriterium sortiert
b) Es ist wirklich der erste Wert, nach dem gesucht werden soll (FieldArray(0) = 1. Wert im Array)

Wozu ? Beim Neuanlegen von Dokumenten sollte man das Item "Form" setzen, damit beim Öffnen später die korrekte Maske gezogen wird.
Bei vorhandenen Dokumenten sollte man eigentlich davon ausgehen, daß die Form gesetzt ist.

Paßt dann eigentlich alles. Aber wo hängt es dann noch.
Ist sicher nur ein kleines Details aber finde es nicht. 

[Driri]

Was sagt denn der Debugger ? Wird überhaupt ein Dokument gefunden ?

Du solltest vor dem ReplaceItemValue auf jeden Fall eine Prüfung einbauen, ob überhaupt ein Dokument gefunden wurde. Wenn z.B. in der Importdatei eine Titelzeile enthalten ist, möchte ich mal darauf wetten, daß für den Wert kein Dokument gefunden wird.

[lotus blue]

Was sagt denn der Debugger ? Wird überhaupt ein Dokument gefunden ?

Ja die Dok´s findet er, aber bei Call doc.replaceItem bricht er mit nem "Objekt variable not set" ab.

[Driri]

Dann hat er kein Dokument gefunden.

[DerAndre]

Mach auf jeden Fall noch ein

if not doc is nothing

drumherum. Kannst Dir dann ja mittels Print im Else-Zweig die nicht gefundenen Nummern ausgeben lassen.
Oder in einer Messagebox am Ende oder oder oder

Den Rest hat Ingo schon zum besten gegeben

[Kadlec]

Ich hatte mal ein gleiches Problem.
Hatte mir dann den Wert (FieldArray(0)) mal im Script in eine Temp schreiben lassen.
Evt. ist noch ein führendes, nachfolgendes Leerzeichen da.

Boris

[lotus blue]

Alos im Debugger bei den Variablen sieht es so aus, dass er
*Filename
*Inputstr
*Delimeter
*Fieldarray 0,1,2

richtig füllt.

[Axel]

Alos im Debugger bei den Variablen sieht es so aus, dass er
*Filename
*Inputstr
*Delimeter
*Fieldarray 0,1,2

richtig füllt.

Das war eigentlich klar nach der Antwort:

Ja die Dok´s findet er, aber bei Call doc.replaceItem bricht er mit nem "Objekt variable not set" ab.

... und weiter?   

Was ist mit doc?


Axel
 

[lotus blue]

Es kann doch nur daran liegen, dass er nicht weiß wohin er was schreiben soll oder?
Call doc.ReplaceItemValue("Status", "erledigt")

Er soll ja in dem bereits in der DB existierenden Dok beim Feld "Status" erledigt reinsetzen. Das heißt er findet das Feld nicht oder so ähnlich.
Lieg ich da richtig. Will ja keine Lösung und weiß nicht wie das Teil arbeitet.

[Driri]

Nein, falsch. ReplaceItemValue legt das Item einfach an, wenn es denn nicht existiert. Ich denke immer noch, daß doc nicht sauber ist.


Prüf doch bitte einfach ab, ob das Dokument existiert. Andre hat ja schon geschrieben, wie es geht. Du kannst dann ja z.B. einfach im Else-Zweig testweise per Print etwas ausgeben lassen. Wenn Du dann in der Statuszeile das Print-Ergebnis bekommst, wurde kein Dokument gefunden.

Boris hat Dir auch noch nen Tipp gegeben. Prüf mal nach, ob da wirklich der korrekte Wert enthalten ist. Zur Not schreib Dir den Wert aus FieldArray(0) in eine temporäte Variable und laß Dir diese auch einfach ausgeben. Idealerweise mit nem Sonderzeichen davor und dahinter, dann sieht man auch direkt, ob da ggf. Leerzeichen oder so drin sind.

Also so was hier :

Dim tmp As String
...
tmp = CStr(FieldArray(0))
Print "|" & tmp & "|"
...


Edit :

Ist das View-Objekt eigentlich korrekt ? Also, siehst Du im Debugger, daß das View-Objekt auch gefüllt ist oder bleibt es leer ?

[DerAndre]

Aus der Hilfe:

ReplaceItemValue

Replaces all items of the specified name with one new item, which is assigned the specified value. If the document does not contain an item with the specified name, the method creates a new item and adds it to the document.

Das ist doch eindeutig, oder?

[Axel]

Das heißt er findet das Feld nicht oder so ähnlich.

Er findet das Dokument nicht.

Daher nochmal meine Frage. Was sagt der Debugger zur Variable doc

Du musst eine vernüftige Fehlerbehandlung einbauen. Sonst fällst du immer wieder auf die Nase. Entsprechende Infos, wie man so was macht, wurden dir hier bereits mehrfach gegeben.


Axel

[lotus blue]

Sodala, wieder einen Schritt weiter:
Hab den Code umgebaut:
.................
'Zeile für Zeile einlesen
      Line Input #1,  InputStr$
      FieldArray = Split(InputStr$,delimiter, -1, 0)
      If Not Isempty(FieldArray) Then
         Set doc = view.GetDocumentByKey(FieldArray(0))
         If Not doc Is Nothing Then
            Call doc.ReplaceItemValue("Status", "erledigt")
            Call doc.Save(True,True)
         Else
            Messagebox"Test Nachrichtenbox",0,"Test"
         End If
      End If

Tja und es erscheint in der Tat die Box mit Nachrichtenbox.

Grazie für eure Tips.  Jetzt hab ich das auch schon mal

[lotus blue]

Daher nochmal meine Frage. Was sagt der Debugger zur Variable doc
Axel

Wie sollte es anders sein, die Zeile bleibt leer