Daten aus Eingebettete Ansicht ziehen

[sharif]

Hallo Leute,
ich versuche Daten aus einer eingebetten Ansicht zu ziehen allerdings bekomme ich das auch nach Stunden langem druchlesen des atnotes Forums nicht hin. Habe mal folgenden Ansatz gewählt, alles nach Anleitung gemacht aber es will nicht funktionieren.
Der Agent würde dann mit der UNID die Daten herbeizuabern
---------------------------------------------------------------------------------
Aus dem atnotes Forum:

geht ganz einfach wenn man weiß wie! Shocked
man braucht für das folgende Szenario:
1. Eingebettete Ansicht
2. eine eingebettete Outline mit einer Schaltfläche
3. ein Agent

Punkt 1 und Punkt 2 sind in der selben Maske untergebracht.
Im Ansichtsevent "Zielrahmen (Einfachklick)" wird folgendes Macro eingefügt:
@If(@ClientType="Notes";@Do(
@Environment("NameVariable";@Implode(@DbName;";")+";"+@Text(@DocumentUniqueID)));"");
""

In der Outline wird eine Schaltfläche (Gliederungseintrag) erstellt.
Sie erhält eine Formel:
@If (@Environment("NameVariable")="";@Do(@Prompt([Ok];"Dokument markieren";"Bitte markieren Sie zuerst ein Dokument!");@Return(""));"");
@Command([ToolsRunMacro];"EinAgent")

Im Agent wird die EnvironmetVariable "NameVariable" ausgelesen. Da die UNID dort abgelegt ist, kann man mit db.getdocumentbyunid das Dokument finden und löschen.

Das Szenario läuft erfolgreich und ohne Probleme. Grins
---------------------------------------------------------------------------------

Wo ist das?
(Ansichtsevent "Zielrahmen (Einfachklick)" )
Arbeite mit Lotus Notes 6.5...

[Axel]

Wo ist das?
(Ansichtsevent "Zielrahmen (Einfachklick)" )
Arbeite mit Lotus Notes 6.5...

Wenn du die eingebettete Ansicht rechts anklickst und dir den Eigenschaftsdialog anzeigen lässt. Auf dem ersten Reiter findest du die Einstellungen für den Zielrahmen (unter dem Namen).


Axel

[sharif]

Gibt es da vll einen besseren Ansatz daten aus einer Eingebetteten View zu ziehen? 

[Axel]

Hi,

meines Wissens nicht. Was willst du denn machen?


Axel

[sharif]

Habe drei Felder:
abfahrtort, ankunftsort und abfahrtsdatum

In einer Form zum Buchen der Strecke.
Durch auswahl des abfahrtort des ankunftsorts und des abfahrtsdatum soll die Eingebettete Ansicht die Daten rausfiltern.
Dat klappt ja alles...

Jetzt müsste der User ein Doc aus der E. View Markieren können und auf knopfdruck Buchen können....

Wie das dann später abläuft weiss ich schon! Bekomme nur nicht die daten aus der E. View...
Vll sollte ich das ganze mit Option Buttons versuchen?!?!?
Es wäre aber schöner wenn es mit E. Views gehen würde! 

[ata]

... wenn du für die eingebettete Ansicht eine verwendest, die nur für diesen Zweck verwendet wird, dann kannst du beim Öffnen des Dokumentes die verwendete Ansicht abprüfen - und das als Trigger verwenden - nur mal so ins unreine gesprochen...

ata

[Axel]

Hi,

wäre es eine Möglichkeit den "Buchen"-Knopf als Aktion in die eingebettete Ansicht aufzunehmen? Seit der Version 6 kannst man auch die Aktionsleiste bei eingebetteten Ansichten einbelnden.

Axel

[sharif]

  Ja klar!
Kann ich denn dann auf den ausgewählten Datensatz zugreifen?
(die Daten sollen in einem Agent weiterverarbeitet werden)
Wenn! - Wie kann ich auf die Daten vom Agent aus zugreifen?

[Axel]

Ja klar!
Kann ich denn dann auf den ausgewählten Datensatz zugreifen?

Da kann ich dir wie Radio Eriwan antworten: "Im Prinzip ja, aber..."   

Mit einem Agenten klappt das dann nicht. Du musst den Code in die Aktion packen. Dann kommst du aber mit UnprocessedDocuments an das/die markierte(n) Dokument(e) ran.

Axel

[sharif]

Hab das jetzt soweit das die Aktion in der View selbst funzt:

Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim col As NotesDocumentCollection
   
   Set s = New NotesSession
   Set db = s.Currentdatabase
   Set col = db.UnprocessedDocuments
   
   If col.count > 1 Then
      Msgbox ("Bitte markieren Sie nur ein Dokument")
      Exit Sub
   End If

Wenn ich jetzt die Aktion über die Eingebettete Ansicht starte bekomme ich diesen fehler: "Object variable not set"

Was ist da falsch???

[TMC]

In welcher Zeile tritt der Fehler auf?

[sharif]

Habe zwar "Debug LotusScript" eingeschaltet aber der fehler kommt sofort ohne das, dass Debug fenster geöffnet wird...

[TMC]

Warum nimmst Du denn kein ErrorHandling? 

Code

Sub 123
On Error Goto ErrorHandler

------------ HIER DEIN CODE ----------------

GoOut:
Exit Sub
ErrorHandler:
Msgbox "Error #" & Err & " — " & Error$ & " (Zeile: " & Erl & ")", 48, "Laufzeitfehler"
Resume GoOut
End Sub

[sharif]

So sieht jetzt mein Code aus:

---------------------------------
On Error Goto ErrorHandler
   
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim col As NotesDocumentCollection
   
   Set s = New NotesSession
   Set db = s.Currentdatabase
   Set col = db.UnprocessedDocuments
   
   If col.count > 1 Then
      Msgbox ("Bitte markieren Sie nur ein Dokument")
      Exit Sub
   End If
   
GoOut:
   Exit Sub
ErrorHandler:
   Msgbox "Error #" & Err & " — " & Error$ & " (Zeile: " & Erl & ")", 48, "Laufzeitfehler"
   Resume GoOut   
---------------------------------

Wenn ich die Aktion über eine "normale" View starte funtioniert es ja aber wenn ich die Aktion über die Eingebettete View starte funtioniert es nicht...
Durch den Error Handler verändert sich nichts an der Fehlermeldung!

[Thomas Schulte]

Das ging früher nicht weil du in einer Embedded View den Handle über die Unprocessed Eigenschaft der Database nicht bekommen hast.
Deswegen ja auch der Trick mit der outline und der Environment Variable in deinem Ursprungspost.

Wobei ich mittlerweile ( 6.5.4 ) festgestellt habe das Notes das markieren und anschließende Löschen aus eine Embedded View beherrscht. Also müsste rein theoretisch jetzt auch ein Zugriff über die unprocessed Eigenschaften funktionieren.  Aber gesehen hab ich das noch nicht. Also ist es auch durchaus möglich das es immer noch nicht funktioniert. Warscheinlicher ist es das das hier immer noch gilt

[sharif]

Da war wohl einer schneller 

Es funzt!!! 
Hatte wohl andere Notes interne probs...
Er hat in der E. View eine Formel ausgeführt die ich vorher mal ausprobiert habe! Keine Ahnung warum.
Der letzte Code ist also funktionsfähig!!!

Hab die 6.5.4 ...

[TMC]

Schön das es klappt.

By the way, die Zeile

Code

Set s = New NotesSession

kannst Du löschen, da Du das NotesSession-Objekt schon beim Dimmen mit New setzt.

[Axel]

Das ging früher nicht weil du in einer Embedded View den Handle über die Unprocessed Eigenschaft der Database nicht bekommen hast.
Deswegen ja auch der Trick mit der outline und der Environment Variable in deinem Ursprungspost.

Wobei ich mittlerweile ( 6.5.4 ) festgestellt habe das Notes das markieren und anschließende Löschen aus eine Embedded View beherrscht. Also müsste rein theoretisch jetzt auch ein Zugriff über die unprocessed Eigenschaften funktionieren.  Aber gesehen hab ich das noch nicht. Also ist es auch durchaus möglich das es immer noch nicht funktioniert. Warscheinlicher ist es das das hier immer noch gilt

Hi,

das geht auch schon unter 6.5.3.

Der Link ist fehlerhaft. Hier ist er fehlerbereinigt: Embedded Views and Unprocesseddocuments method



Axel

[sharif]

Danke an alle dir mir geholfen haben! 

[sharif]

Hab noch nen kleines problem :

Wie kann ich mit einer Aktion durch LotusScript ein Feld in dem selben Doc füllen???
z.b. eine Checkbox...

Daten werden aus einer E. View gezogen und sollen im gleichen doc wo die E. View drin ist quasi nur im nächsten Tabellen Tab in eine Checkbox geschrieben werden...