Beiträge von Sombreros

  • Filtern einer Ansicht

    hiflst Du mir auf die Sprünge? Geht irgendwie nicht. Hab das ganze ein wenig angepasst:


    1. Agent (SelectName)


    @If(@Environment(SelectedView)="1";
    @Command([ViewShowOnlySelected])&
    @SetEnvironment(SelectedView;"0");"");
    MA_Liste:=@DbColumn("":"NoCache";"";"MA";1);
    List:=MA_Liste;
    Eingabe:=@Implode(@Prompt([OkCancelListMult]:[NoSort]; "Filter"; "Ein oder mehrere auswählen:"; ""; List);",");
    ENVIRONMENT Search:=Eingabe;
    @Command([ToolsRunMacro];"FindName");
    @Command([ViewShowOnlySelected]);
    ENVIRONMENT SelectedView:="1";
    @Command([RefreshHideFormulas])


    2.Agent (FindName)


    SELECT termin_ma=@Explode(@Environment("Search");",")




    -> Ich bekomm zwar die MA-Liste angezeigt und kann auch auswählen, nur wenn der 2. Agent gestartet wird steht gar nix mehr im Kalender

  • Filtern einer Ansicht

    Hallo,


    ich möchte in einer Ansicht (Kalenderansicht), nachdem diese geöffnet wurde per Aktion nach bestimmten Einträgen filtern.
    z.B: nach UserName -> ich bekomme nur Einträge dieses Benutzers angezeigt.


    Wie mach ich das (Script oder Formelsprache?) Mit "SELECT" hab ich schon ein wenig experimentiert, aber ohne Ergebnis...


    Grüße Markus

  • adjust-method

    mmmh, sobald ich die Variante wähle" if...(0)" erhalte ich auch in Verbindung mit FieldGetText die Meldung "Variant does not contain a container".
    Lasse ich das weg ist alles wie gehabt ("Type Mismatch").
    Grundsätzlich funktioniert der Spass, nur im letzten Feld im Zussammenhang mit adjust eben nicht...

  • adjust-method

    sorry, war total falsch nach etwas Nachdenken liegt hier liegt das Problem:


    Sub Regiondoubleclick(Source As Notesuiview)
    Set ws = New NotesUIWorkspace
    Set session = New NotesSession
    Dim endzeit As NotesDateTime
    If source.CalendarDateTime <> "" Then
    Set uidoc = ws.ComposeDocument("", "", "Termin")
    Call uidoc.FieldSetText("Datum", source.CalendarDateTime)
    Set endzeit = source.CalendarDateTime
    endzeit.SetNow
    endzeit.adjustHour(+3)
    Call uidoc.FieldSetText("Start",endzeit)
    End If
    End Sub


    ->Datum,Start,Ende sind felder in der Maske Termin


    Wenn ich das so mache bekomme ich ein "Type Mismatch"...

  • adjust-method

    Schön, dann bin ich wenigstens nicht komplett aufm falschen Dampfer:


    wenn ich folgendes Script aber ausführe, erhalte ich die Meldung:"Variant does not contain an object"
    Ist die Methode falsch angewendet?


    Sub Postopen(Source As Notesuidocument)
    Zeit_uebergabe_ende.SetNow
    Zeit_uebergabe_ende.adjustHour(+1)
    If IsNewDoc Then
    Set doc = source.document
    doc.Datum = Cdat(Dat_uebergabe)
    doc.Start = Cdat(Zeit_uebergabe_start)
    doc.Ende = Cdat(Zeit_uebergabe_ende)
    Call source.reload
    End If

  • adjust-method

    Hallo,
    funktioniert diese Methode nur im Zusammenhang mit NotesDateTime oder auch mit CalendarDateTime? Wenn nicht, was ist das Gegenstück zu adjust?


    Grüße Markus

  • Kalender/Sortierung?

    ich fang jetzt gleich an zu weinen;-)
    Bekomm jetzt zwar keine Fehlermeldung mehr, aber es ich bekomm den Datumswert einfach nicht übergeben.


    wenn ich den Debugger anwerfe bleibt er bei RegionDoubleclick stehen und zwar bei


    set ws = New NotesUIWorkspace


    SOURCE (..... "not implemented yet") NOTESUIVIEW

  • Kalender/Sortierung?

    und nochmals das leidige Thema - habe bis jetzt folgenden Code:


    ->In RegionDoubleckick:


    Sub Regiondoubleclick(Source As Notesuiview)

    Set ws = New NotesUIWorkspace
    Set session = New NotesSession

    If source.CalendarDateTime <> "" Then Call ws.ComposeDocument("", "", "Termin")

    End Sub


    ->In der Maske dann eine Global def. Variable


    Dim Dat_uerbergabe as Variant



    ->Im Queryopen:


    Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    If IsNewDoc Then
    Set ws = New NotesUIWorkspace
    Set session = New NotesSession
    Dat_uebergabe = ws.CurrentCalendarDateTime
    End If
    End Sub


    ->Postopen:


    Sub Postopen(Source As Notesuidocument)
    If IsNewDoc Then
    Set doc = source.document
    doc.Datum = Cdat(Dat_uebergabe)
    Call source.reload
    End If
    End Sub



    Notes öffnet mir zwar brav die Maske, der Datumswert wird aber nicht übergeben...

  • Autotextfunktion wie in Outlook?

    Sorry, werde nur gezwungernermaßen damit mit konfrontiert. Das kommt davon, wenn man Outlook-User auf Notes migriert ;)


    Autotexfunktion ist im Prinzip eine autom. Textvervollständigung, was gerade in Standard-Emails recht praktisch ist. Standardformulierungen werden so nach ein paar geschriebenen Buchstaben mit einem Klick hinzugefügt...

  • nur unglesene Mails im Posteingang

    Hallo,


    habe folgendes Problem:


    Im Posteingang werden nur ungelesene Mails angezeigt. Werden diese betrachtet, gibts die Mail nur noch in "alle Dokumente". An den Menupunkt Anicht->Anzeigen habe ich auch schon gedacht, da ist aber alles nur grau hinterlegt (nicht auswählbar). Die erforderlichen Rechte sind eigentlich auch vorhanden. Hat jemand ne Ahnung?


    Notes Client + Server 6.5.1



    Grüße markus

  • Kalender/Sortierung?

    nun ja, das generelle Problem ist, dass ich wirklich gar keinen Schimmer von Script-Programmierung habe und deshalb erst mal ne kleine Einführung brauche, wo ich was wie deklariere und aufrufe...deshalb erst mal n Buch


    Er bleibt bei folgender Stelle hängen




    Sub Initialize
    Set ws = NotesUIWorkSpace.CurrentCalendarDateTime
    End Sub



    habe vorher deklariert:
    Dim ws As NotesUIWorkspace

  • Kalender/Sortierung?

    Leider kommt bestelltes LS-Buch erst nächste Woche und ich deshalb auch nicht weiter....


    Bekomme beim Aufruf der Ansicht und der Maske immer folgende Fehlermeldung:


    "Variant does not contain an object"


    Kann mir jemand auf die Sprünge helfen?