Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument suchen und Daten ändern

(1/26) > >>

lotus blue:
Hallo Leute,
bräuchte bitte mal Eure Hilfe.

Ich hab in der Ansicht "Aufträge" ca. 200 Dokumente mit Auftragsnummer usw.

Am Ende des Tages (bzw. in der Nacht) wird von einer anderen Anwendung im Haus, eine Datei (csv) mit ca. 20 Dokumente erstellt, die alle ebenfalls die gleichen Auftragsnummern enthalten.

Nun soll am nächsten Morgen verglichen werden und das Feld "Status" in meiner DB bei allen Dok´s geändert werden, die in dieser über Nacht erhaltenen csv-Datei enthalten sind.

Jemand einen Tipp wie ich es angehen könnte?

DerAndre:
Ich geh mal davon aus, das Du Zugriff auf die Datei hast.
Durchiterieren und gut ist.

Sowas gab es glaub ich schonmal hier im Forum.

lotus blue:

--- Zitat von: DerAndre am 04.06.08 - 15:09:59 ---Ich geh mal davon aus, das Du Zugriff auf die Datei hast.
Durchiterieren und gut ist.

Sowas gab es glaub ich schonmal hier im Forum.

--- Ende Zitat ---

Hab schon gesucht und nix gefunden.

DB 1 -> Ansicht Aufträge-> ca. 4000 Doks mit den Feldern "Name, Auftragsnummer,Erledigt"

csv-Datei mit ca. 20 Zeilen und den Feldwerten "Name und Auftragsnummer".
In dieser CSV steht Herr Huber drinnen.
Nun soll im Hauptdok das Feld "erledigt" auf "1" geändert werden.

DerAndre:
Das ist aus der Hilfe:

' Display the contents of c:\config.sys a line at a time.
Dim text As String, fileNum As Integer
fileNum% = FreeFile()
Open "c:\config.sys" For Input As fileNum%
Do While Not EOF(fileNum%)
   Line Input #fileNum%, text$
   Print text$          ' Prints one line of config.sys
Loop
Close fileNum%

Dann musst Du Dir die Sachen besorgen die Du brauchst, damit das Doc suchen und ändern.

lotus blue:
Das ist ja schon mein Import Agent, der ja auch funzt. Aber beim Suchen da happert es genau.


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
   Set db = session.currentdatabase
   
   fileNum% = Freefile()
   
       ' Dateipfad
   fileName$ = "C:\Ordner 123\123\test.csv"
   
 ' Trennzeichen
   delimiter = ";"
   
   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)
      Call CreateDocument(db, FieldArray)
      
   Loop
   Close fileNum%
   Exit Sub
   
End Sub

Sub CreateDocument(db As notesdatabase, FieldArray As Variant)
   Dim doc As New notesdocument(db)
   
   doc.Form = "Auftrag"
   doc.Name = FieldArray(0)
   doc.Nummer = FieldArray(1)
   doc.erledigt = FieldArray(2)
   
   Call doc.save(1,0)
   
End Sub



--- Zitat von: DerAndre am 04.06.08 - 15:22:27 ---Das ist aus der Hilfe:

' Display the contents of c:\config.sys a line at a time.
Dim text As String, fileNum As Integer
fileNum% = FreeFile()
Open "c:\config.sys" For Input As fileNum%
Do While Not EOF(fileNum%)
   Line Input #fileNum%, text$
   Print text$          ' Prints one line of config.sys
Loop
Close fileNum%

Dann musst Du Dir die Sachen besorgen die Du brauchst, damit das Doc suchen und ändern.

--- Ende Zitat ---

Navigation

[0] Themen-Index

[#] Nächste Seite