Beiträge von MarcD

Hallo Andreas,

alle Anwender haben Leseberechtigung, sprich in der Kalender-Anwendung können sie auch auf die Ressourcen-Db zugreifen.
Der feste Aufruf der View erfordert aber anscheinend Administrator-Rechte auf die Ressourcen-Db, die natürlich nicht gewährt werden ...

Beste Grüße!

Entschuldigt, dass ich mich so lange hierzu nicht gemeldet habe, doch ich dachte, ich hätte es über eine andere Aussteuerung geschafft ...
Am Freitag gab es dann die ersten Tests und dann war die Lösung keine mehr!

Ich hatte das Feld als 'Dialog Liste' mit 'Use View dialog for choices' aufgesetzt(Database: 'Ressourcen XXXX', View: '$Ressourcen', Column: '2').
So konnte ich die Werte in einem vernünftigen Dialog auswählen (lassen).

Allerdings nur ich, denn dafür benötigt man Administrationsrechte auf die Ressourcen-Datenbank, die wir nicht all unseren Mitarbeitern(wie den Testern) geben können.

Falls es weitere Lösungsvorschläge gibt, wäre ich sehr dankbar, von ihnen zu erfahren!

Hallo Forum,

heute einmal etwas Einfaches, deren Lösung mir jedoch einfach nicht gelingen will.
Ich habe ein Feld 'Raum', den ich gerne durch meine Anwender pflegen lassen möchte.

Die Auswahl der Dialogliste 'Raum', soll jedoch je nach Wahl des Feldes "Ort" entsprechend eingeschränkt sein.

Über die Definition des Feldes mit 'Use View dialog fpr choices', Database = 'Ressourcen', View = 'Ressourcen', Column = '1' erhalten ich alle Räume aller Standorte.
An der Stelle ist es nicht möglich, oder?

Ich habe schon etliche Kombinationen eines @DBLookup('Use formula for choices') probiert, jedoch immer nur Fehler erhalten ... UND ist der Befehl überhaupt meine Lösung?
Die letzte Formel war:

@DbLookup("" : "NoCache"; "LNCGN001/XXXX" : "RessourcenXXXX.nsf";"Ressourcen";ort;"CommonNameResourceName";"Location")

(Server error: File does not exist)

Die View 'Ressourcen' ist folgend aufgebaut:

Je nach Ortswahl des Anwenders, sollen die Einträge dieser View mit der Kategorie Raum in der DialogListe angeboten werden.
D.h. bei Köln: A1

Vielen Dank für Eure Unterstützung!

Marc

Danke für die Hinweise !!!

Mit dem angefügten Code im PostOpen hat es funktioniert:

'' In Sammelrechnung die verschiedenen Summen ermitteln
    Dim session As New notessession
    Dim db As NotesDatabase
    Dim view As NotesView    
    Dim doc As NotesDocument    
    Dim uidoc As NotesUIDocument
    Dim item As NotesItem
    Dim gsvar As Variant
    Dim fsvar As Variant
    Dim count%
    Dim itemname$
    Dim ks#
    Dim gs#
    Dim fs#

'' Summen ermitteln    
    Set db=session.CurrentDatabase
    Set view = db.GetView( "de.dsgf.view.Rechnungspositionen" )
    Set sdoc = view.GetFirstDocument   

    counter% = 0    
    ks#= 0
    gs# = 0
    fs# = 0

    Do While Not source.Document Is Nothing
        Set item = source.Document.Items(counter%)
        If  item.Name = "$ID" Then
            hv$ = item.values(0)
            Exit Do
        End If
        counter% = counter% + 1
    Loop

    Do While Not sdoc Is Nothing
        If sdoc.columnvalues(0) = hv$ Then
            ksvar = sdoc.getitemvalue("KSumme")
            ks# = ks# + ksvar(0)
            gsvar = sdoc.getitemvalue("GSumme")
            gs# = gs# + gsvar(0)
            fsvar = sdoc.getitemvalue("FSumme")
            fs# = fs# + fsvar(0)
        End If
        Set sdoc = view.GetNextDocument(sdoc)
    Loop

'' Felder belegen
    Set doc = source.document
    Call doc.ReplaceItemValue("KSumme", Cstr(ks#))
    Call doc.ReplaceItemValue("GSumme", Cstr(gs#))
    Call doc.ReplaceItemValue("FSumme", Cstr(fs#))
    Call doc.Save( True, True )

Hallo zusammen,

ich muss aus mehreren KindsDokumenten Werte herauslesen, um diese dann im Elterdokument summiert darzustellen und zu prüfen.
Dafür habe ich eine View mit den relevanten Daten im Hauptvorgang erstellt, die ich im QueryOpen auslese und damit die Maske im HV versorge. (Quellcode unten an)

Bis darauf, dass die Werte erst im Änderungsmodus aufgefrischt werden und nicht bereits beim Aufruf der Maske, ist es an der Stelle in Ordnung ...
(Gibt ein automatisches Öffnen im Bearbeitungsmodus?)

Für eine Prüfung(noch nicht im Code) der Vollständigkeit der KindsDokumente möchte ich gerne beim Speichern Werte ebenso ermitteln.
Jetzt wollte ich es mir einfach machen, den gleichen Code im QuerySave verwenden, aber es erscheint der Fehler 'Type mismatch' , weil gsvar leer ist, obwohl die view an beiden Stellen (QueryOpen und QuerySave im Debugger) gleich ausgeprägt ist...

Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim view As NotesView
    Dim gsvar As Variant
    Dim fsvar As Variant
    Dim count%
    Dim gs#
    Dim fs#

    Set db = session.CurrentDatabase
    Set view = db.GetView("de.dsgf.view.Rechnungspositionen")

    gsvar = view.getcolumnvalues(4)
    fsvar = view.getcolumnvalues(5)
    count%=0
    gs# = 0
    fs# = 0

    [color=#FF0000]Forall element In gsvar[/color]
        gs# = gs# + Cdbl(gsvar(count%))
        fs# = fs# + Cdbl(fsvar(count%))
        count% = count% + 1
    End Forall

    Set doc = source.document
    Call doc.ReplaceItemValue("GSumme", Cstr(gs#))
    Call doc.ReplaceItemValue("FSumme", Cstr(fs#))

Erneut besten Dank für Eure aufhellenden Beiträge!

Marc

Das reine Aufzählen funktioniert mit unten angezeigtem Code.
Zu beachten wären noch Prüfungen, unter welchen Bedingungen die Nummer vergeben werden soll ...

Vielen Dank für eure Hilfe!

Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Dim item As NotesItem

Dim bez$
Dim nummer$

Set db = session.CurrentDatabase
Set view = db.GetView( "de.xxxxxxx.view.nummernkreise" )
Set doc = view.GetFirstDocument

globalbez$ = session.GetEnvironmentString( "globalbez$")

Do Until doc Is Nothing
bez$ = doc.columnvalues(0)
If bez$ = globalbez$ Then
nummer$ = Cstr( Clng(doc.columnvalues(1)) + 1)
Set item = doc.ReplaceItemValue( "AktuelleNummer", nummer$ )
Call doc.Save( True, True )
Exit Do
End If
Set doc = view.GetNextDocument(doc)
Loop

End Sub

Perfekt. Vielen Dank!

Es ist eher andersherum- die Anwender bedienen nahezu ausschließlich die Tastatur. Ich möchte durch die Werte in der Combobox Fehleingaben vermeiden und ein reiner Check ist mir zu wenig.
Daher dachte ich an eine Art Autoverfollständigen, in dem einem die möglichen Werte abhängig von der schon getätigten Eingabe angezeigt werden:
"1" >
100000
100001
100002
"11" >
110000
Die Combobox war nur erdachtes Mittel zum Zweck ...

Gibt es denn eine schöne Alternative, mögliche Eingabewerte anzuzeigen/einzublenden und gleichzeitig tippen zu können?

War schon an der Stelle. Werde mich noch einmal reintüfteln ... Danke!

Wie müsste ich den Code denn ändern. (Bin absoluter Frischling...)

Tausend Dank!

Hallo zusammen,

ich habe eine Combobox Konten(über @DBLookup), welche mir die Werte sauber anzeigt und auswählbar(klickbar) macht.
Nehmen wir an darin stünden die Werte:
100000
100001
100002
110000
Wenn ich über ein Tab in die Box springe und manuell "1"+"1" tippe, erhalte ich den zweiten Wert(100001).
Kann ich das Verhalten so ändern, dass ich die 110000 ("1"+"1"0000) erhalte?

Danke und beste Grüße

Marc

Richtig es ist so simpel- wie überschreibe ich die View, die nicht angezeigt wird?
[@Dirk: die Punkte ... stehen bei mir für einen fehlenden Code. der die Anforderung erfüllen soll...]

Hallo Andreas,

es liegen durch den kleinen Zwischenfehler zu wenig Posts zu den ersten Inhaltsreichen Erläuterungen- Entschuldige!

Der Wert wird herausgeholt aus de.xxxxxx.view.nummernkreise und soll dort an gleicher Stelle erhöht wieder eingesetzt werden.
eval gibt den Wert in der View de.xxxxxx.view.nummernkreise aus Spalte "AktuelleNummer" zurück (in meinem Fall noch 0).

Code im QuerySave:
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim ort As String
Dim number As Double

Set uidoc = Source

ort = uidoc.FieldGetText(Cstr("Erfassungsort"))
Select Case ort
Case "Augsburg", "München", "Nürnberg", "Grafenau":
eval = Evaluate({@DbLookup("" : "NoCache" ; @DbName; "de.xxxxxx.view.nummernkreise" ; "ALL-RW-RG-N"; "AktuelleNummer" ;[FailSilent])})
number = Cint(eval(0))
If number < 1 Then
number = 1
Else
number = number + 1
End If
Call uidoc.FieldSetText("PagStempel","N-"+ Cstr(number))
...

Die eigenständige View de.xxxxxx.view.nummernkreise ist aufgebaut:

Wie mache ich dies am Geschicktesten?

Das 'Set uidoc = Source ' hat das kleine Problem gelöst, aber wie schreibe ich nun den um 1 erhöhten Wert in die View zurück?
Eval [0] VARIANT
[0] 0
NUMBER 1DOUBLE

Bei Ort kommt der Fehler! Der aber jetzt 'Object variable not set'.
uidoc ist an dieser Stelle im Debugger leer ??? Daher habe ich die SOURCE gepostet ...

Ich hoffe nicht zu spät noch die Datendefinition:

Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim ort As Variant
Dim ort2 As String
Dim number As Double

Set uidoc = work.currentdocument

ort = uidoc.FieldGetText(Cstr("Erfassungsort"))
Select Case ort

Unter SOURCE > DOCUMENT > ITEMS > [152] ist Folgendes enthalten:
NAME: "Erfassungsort"
TYPE: 1280
VALUES: ["Augsburg"] VARIANT
[0]: "Augsburg" STRING
VALUELENGTH: 10

Reicht dir das? Oder brauchst du noch etwas?

In Select Case uidoc.FieldGetText("Erfassungsort")
Im Erfassungsort wird in einer Combobox ein Ort ausgewählt, doch die Variable ist im Debugger im Querysave leer.

Hallo Dirk,

ich kämpfe gerade daran den Wert aus der Combobox herauszuholen(E: "Variant does not contain an object") ...

Durch einen Formeltester habe ich jedoch herausgefunden, dass die zentrale Formel korrekt ist.
Der Wert wird herausgeholt aus de.xxxxxx.view.nummernkreise und soll dort an gleicher Stelle wieder eingesetzt werden.
eval gibt den Wert in der View de.xxxxxx.view.nummernkreise aus Spalte "AktuelleNummer" zurück (in meinem Fall noch 0).

(Der PagStempel wird im Fenster noch versorgt - dort ist aber soweit alles klar.)

Viele Grüße

Marc