Moin zusammen,
ich habe wieder einkleines Problem. Ich habe ein Skript, das mir Daten aus einem anderen System holt. Diese möchte ich in verschiedene Masken schreiben. Öffne ich jetzt jedoch eine Ansicht, in der ich mich auf genau diese Masken beziehe, in denen ich meine Daten haben möchte kommt gar nichts. Ich habe aber definitiv Daten in meiner DB, nur wo?
? Hier ein kleiner Auszug aus meinem Skript:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim objServer As New RFCServer
Dim dbCurr As NotesDatabase
Dim view As NotesView
Dim docCurr As NotesDocument
Dim doc As NotesDocument
Dim RfcData As RFCFunction
Dim proj As RFCTable
Dim prps As RFCTable
Dim berecht As RFCTable
Set uidoc = ws.CurrentDocument
uidoc.document.SaveOptions = 0
.....dann Anmeldung ans System usw.
.....und hier beginnen dann die Probleme
Set dbCurr = Session.CurrentDatabase
Set view = dbCurr.GetView( "Ansicht1" )
Set RFCData = New RFCFunction(objServer, "NameRFC")
RFCData.exports("Variable").value = "X"
'Daten übertragen
If RFCData.call = True Then
Set table1 = RFCData.Tables("Table1")
Set table2 = RFCData.Tables("Table2")
Set table3 = RFCData.Tables("Table3")
Forall rowtable1 In table1.rows
Set docCurr = dbCurr.CreateDocument
Set doc = view.GetDocumentByKey( rowtable1.feld1, True )
' neue Datensätze anlegen
If doc Is Nothing Then
counter = counter + 1
Print"Datensatz " + Cstr(counter) + " ..."
docCurr.field1 = rowproj.field1
docCurr.field2 = rowproj.field2
docCurr.field3 = rowproj.field3
.........
.........
So, nachdem der Import der Daten durch ist, finde ich aber keine Datenin meiner Ansicht. Wie bekomme ich die Verbindung zu meiner Maske hin?
Vielen Dank schonmal im voraus,
Noman