Domino 9 und frühere Versionen > ND9: Entwicklung

Geöffnetes Dokument aus Domino Datenbank auslesen

<< < (3/5) > >>

Tiger955:
Danke vielmals für die ausführliche Beschreibung, ich werde mal mein Glück versuchen, ob ich das umsetzen kann!  ;D

Peter Klett:
Das kriegst Du hin, und wenn es irgendwo klemmt, poste hier Code und Fehlermeldung bzw. Fehlverhalten

Tiger955:
Hallo Peter!

nach einer "künstlerischen Pause"  ;) kann ich mich wieder um das Thema kümmern und bitte nochmals um deine Hilfe, weil ich es nicht ganz verstanden habe - offensichtlich.

Habe deinen Code nunmehr in meine Anwendung eingebaut und es sieht so aus:

Set notesuiworkspace = CreateObject("Notes.Notesuiworkspace")  --> um das geöffnete Doc (die Opportunity) auszulesen
Set objNotes = GetObject("", "Notes.NotesSession")   -->  um dann die versteckte View ("LookupDocID") zu durchlaufen

Anm.: ich glaube in dieser View die Opp samt Opp Positionen gefunden zu haben. Jedenfalls werden mir zwei Docs angelistet, wenn ich nach dem Suchstring "2B46470BCE2FD25BC1257D20003E3134" suche. Eines zeigt genau diese DocID (es ist die Opportunity selbst), die andere hat den Eintrag in "OppID" und ist die Opportunity Position.
Somit denke ich, dass ich grundsätzlich die richtige View gefunden hätte.
 
Set dbname = objNotes.GetDatabase("", "CRM\Opp.nsf")  --> dort ist die versteckte View zu finden

Set uidoc = notesuiworkspace.CURRENTDOCUMENT

strDocID = uidoc.FIELDGETTEXT("DocID")  -->   bringt  meinen "Suchschlüssel" 2B46470BCE2FD25BC1257D20003E3134


'*********  adaptiert Peters Code
Dim auftragview As Object
Set auftragview = dbname.GetView("LookupDocID")  --> die versteckte View
Dim auftragcol As Object
Dim auftragdoc As Object
Set auftragcol = auftragview.GetAllDocumentsByKey("OppID", True)   --> muß ich hier das Feld durchsuchen, wo der Wert 2B46470BCE2FD25BC1257D20003E3134 zu finden ist?

Set auftragdoc = auftragcol.GetFirstDocument
Do While Not auftragdoc Is Nothing

   'Hier verarbeitest Du die Auftragsdokumente
          If auftragdoc.GetFirstItem("OppID") = strDocID Then     --> wenn ich die Opp.Position mit der OppID 2B46470BCE2FD25BC1257D20003E3134 gefunden habe, dann gibt mir testweise die OppPosItemNo  aus.

               'Hier verarbeitest Du die Auftragsdokumente
                MsgBox auftragdoc.GetFirstItem("OppPosItemNo")
          End If
     Set auftragdoc = auftragdoc.GetNextDocument(auftragdoc)
Loop

*************

Der Code läuft ohne Fehler durch (was noch nicht heißt, dass ich es richtig gemacht habe!), aber bringt nichts.

Bitte wo liegt mein Fehler?
O.a. Opportunity hat definitiv eine Opp.Position.

Danke
Michael

ascabg:
Hallo,

Was bedeutet

--- Zitat ---Der Code läuft ohne Fehler durch (was noch nicht heißt, dass ich es richtig gemacht habe!), aber bringt nichts.
--- Ende Zitat ---

Wass soll er denn bringen?


Andreas

Tiger955:
Hallo!

Ich möchte testweise die "OppPositionItemNo" (die Artikelnummer) ausgeben lassen.

In einer Opportunity gibt es Opp-Positionen.
Jede Position ist eine Artikelnummer mit ihren Eigenschaften wie Preis, Einheit etc.
Somit hat jede Opportunity zumindest ein verknüpftes (Sub-)Dokument.

Ich komme auf die Opportunity (ist ja geöffnet) hin, nicht aber auf Werte der "verknüpften" Opp.Positionen.

Genau das ist mein Problem.
Wie bekomme ich bestimmte Feldinhalte aus den verknüpften Dokumenten (=Opp.Positionen) eines geöffneten Docs (=Opportunity)?

Danke
Michael

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete