Beiträge von holgersteiner

  • Dialogbox

    Gibt es diese Möglichkeit auch für Script ?


    @ReplaceSubString(rtitem.values ;@Newline;" ")


    Mein Versuch


    liste2=@Evaluate(@ReplaceSubString(rtitem.values ;@Newline;" "))


    funktioniert nicht

  • Dialogbox

    Mein Chef will das alle Dokus in einem Feld untereineinder
    dargestellt werden. Dieses Feld soll sich unterhalb der Eingabefelder fürs suchen befinden. Nicht in einem zusätzli. Fenster

  • Dialogbox

    Sorry das verstehe ich nicht.


    Habe in der Designerhilfe nur das gefunden.


    Replace(sourceArray, findArray, replacementArray [, start [, count [, compMethod]]])


    Nach was muss ich suchen ? nach CHR(13) für Zeilenumbruch ?

  • Dialogbox

    Die Zeilenumbrüche, beziehen die sich auf das Feld "suchergebnis" oder die Felder aus der Collection ?.


    In den Feldeigenschjften von Suchergebnis habe ich nichts mit Zeilenumbrüchen gefunden



    Habe es auch schon mit Trim versucht,


    Call rtitem.AppendText(Trim(doc.Titel(0))+" "), brachte auch nichts

  • Dialogbox

    1. Die Dialogbox wird über ein Button in einer Ansicht aufgerufen.


    2. Das Feld Suchergebnis wird so gefüllt


    If tmpsuchabtlg = "Alle" Then

    If tmpsuchkstvon = "Alle" And tmpsuchkstbis="Alle" And tmpsuchkategorie ="" And tmpsuchunterkategorie="" And tmpsuchabnahmedatvon="" And tmpsuchabnahmedatbis ="" Then


    Set doc=suchalleview.GetFirstDocument()
    If doc Is Nothing Then
    Msgbox("Keine Datensätze vorhanden !"),16,"Informatuion"
    Call uidoc.FieldSetText("suchabtlg","Alle")
    Call uidoc.FieldSetText("suchkostenstellevon","Alle")
    Call uidoc.FieldSetText("suchkostenstellebis","Alle")
    Call uidoc.FieldSetText("suchkategorie","")
    Call uidoc.FieldSetText("suchunterkategorie","")
    Goto Ende
    End If


    Call rtitem.AppendText("Projektnr Titel Status Auftraggeber Erstellt am Problemnr")
    Call rtitem.AddNewLine(2)

    While Not(doc Is Nothing)
    tmpabtleiter=doc.GetItemValue("Abteilungsleiter")(0)
    tmpdatum=doc.GetItemValue("Erstelldat")(0)
    tmpkst=doc.GetItemValue("Kostenstelle")(0)
    tmpproblennr=doc.GetItemValue("Problemnummer")(0)tmpkategorie=doc.GetItemValue("Kategorie")(0)
    tmpunterkategorie=doc.GetItemValue("Unterkategorie")(0)
    tmpprojektabnahme=doc.GetItemValue("Projektabnahme")(0)

    Call rtitem.AppendText (doc.Projektnummer(0)+" ")
    Call rtitem.AppendText( doc.Titel(0)+" ")
    Call rtitem.AppendText( doc.statusedv(0)+" ")
    Call rtitem.AppendText(extractkzvn(tmpabtleiter)+" ")
    Call rtitem.AppendText(extractdatum(tmpdatum)+" ")
    Call rtitem.AppendText(tmpproblennr)
    Call rtitem.AddNewline(2)
    Set doc=suchalleview.GetNextDocument(doc)
    Wend
    Call uidoc.FieldAppendText("suchergebnis",rtitem.values)
    End If


    Das Feld ist vonm Typ Richtext. Typ Text funktioniert auch nicht
    Auch wenn ich die Platzhalter +" " weglasse passt es nicht in eine Reihe. Eigentlich reicht der Platz

  • Dialogbox

    Hallo zusammen,


    ich habe ein Problem mit einer Maske die in einer Dialogbox angezeigt werden soll.


    1. Zum einem muss ich in einer Ansicht immer auf einem Document stehen, um meine Suchmaske zu öffnen.


    Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace

    Call ws.DialogBox _
    ( "suchmaske")
    End Sub


    2. Ich habe ein Feld in dem meine Suchergebnisse einigermaßen tabellarisch angezigt werden sollen. Leider erfolgt immer bei 15 cm ein Zeilenumbruch. Eingestellt ist dieses aber nirgends


    z.B.:


    Projektnr Titel Status Auftraggeber Erstellt am Problemnr


    905 Email-Adressbuch für ÖA abgeschlossen xxxxxxxxx
    19.05.2009


    1285 DB Terminkalender - Aktualisierung "Einladungsantwort"
    abgeschlossen xxxxxx 19.05.2009


    Wie kann ich es erreichen, dass meine Ergebnisse ordentlich untereinander dargestellt werden ?


    mfg
    Lapfandi

  • iNotes

    Hallo zusammen,


    wir wollen bei uns den Notes Web Client 7 installieren. Haben auf dem Dominoserver aber nur ein Verszeichnis iNotes gefunden, mit den Schablonen intotes5.ntf und DWE7.ntf. Wo bekomme ich den Webclient für Notes 7.02 her ?


    Gruß
    Lapfandi

  • Drucken über VPN

    Hallo zusammen,


    Wir nutzen bei uns in der Firma Arcor VPN. Ein User hat auf seinem PC zuhause Citrix installiert. Wenn er die Anwendung öffnet, hat er die gleiche Umgebung wie in der Firma. Unter Citrix ist Notes 7.02 installiert(Firma). Öffnet der Benutzer nun Notes (zuhause), kann er ganz normal arbeiten. Das Problem ist nur das drucken. Wie mir unser Admin mitteilte, ist unter Citrix(Firma) ein Standarddruckertreiber installiert. Gedruckt werden soll über die VPN-Leitung. Der Druck soll aber zuhause auf dem Drucker erfolgen.


    Es erscheint imme die Meldung


    "Kein Zugriff zum Drucker oder druckertreiber(möglicherweise nicht genügend Arbeitsspeicher)"


    Woran kann das liegen ?


    Mfg
    Lapfandi

  • Dynamischer Select für View

    Da es den Benutzern an der Berechtigung mangelt (mind. Entwicklerrechte) bin ich jetzt dazu übergegangen, die Suchergebnisse in ein RichTextfeld zu schreiben. Schade, mit dynamischer view wäre alles einfacher.



    Vielleicht hat noch jemand eine andere Idee. Ich kann mir nicht vorstellen das ich der einzige bin der versucht einen dynamischen Select in eine View einzubauen ohne den Benutzern die Rechte auf Entwickler setzen zu müssen.


    Lapfandi

  • Dynamischer Select für View

    Danke für den Tip. Hier nochmal mein Grundproblem.
    Es gibt eine Suchmaske. Dort gibt es einen Button "Suchen". Klickt ein User nun auf diesen Button soll eine Selektionsformel für eine Ansicht generiert werden, die sich aus den Suchparametern zusammensetzt. Dann soll eine View geöffnet werden und die Doks nach der Selektionsformel angezeigt werden.


    Leider kann ein Benutzer der kein Entwicklerrecht hat die Selektionsformel ncht in eine bestehende View einstellen. Keine Berechtigung. Auch eine neue View erstellen kann er nicht.
    Ebenfalls keine Berechtigung. Eine Funktion wie "CreatePrivateView" oder ähnliches habe ich nicht gefunden, obwohl man doch unter Erstellen-Ansicht eine View erstellen kann.


    Wenn ich das Script laufen lasse funktioniert es. Es wird die Selektionsformel erstellt und in eine bestehende View eingestellt.
    Auch das erstellen einer View mi der errechneten Selektionsformel funktioniert. Ich arbeite aber auch als Admin.
    Leider kann ich bei den Usern die Rechte nicht höher setzen !



    Gibt es denn einen Befehl wie CreatePrivateView order CreatePrivateFolder ?

  • Dynamischer Select für View

    Der Select funktioniert jetzt. Vielen Dank. Musste aber leider feststellen, dass ein User ohne Entwicklerrechte dafür keine Berechtigung hat. Werde mal versuchen, eine View per Script zu erstellen. Habe mir das so gedacht. Ein User klickt auf einen Button und die View wird dann per Script generiert, Priviteview.
    Ist die View schon vorhanden wird der Select ausgeführt, ansonsten erst die View generiert und dann der Select. Der Viewname richtet sich dann nach dem Username.


    Oder hat jemand eine bessere Idee ?


    Gruß Lapfandi

  • Dynamischer Select für View

    Hallo zusammen


    bekomme einfach den String nicht zusammengesetzt:
    Der Select wird an eine View übergeben


    suchkstvon=uidoc.FieldgetText("suchkostenstellevon")
    suchkstbis=uidoc.FieldgetText("suchkostenstellebis")

    formula= "Select Kostenstelle=" +"+suchkstvon +"+"
    view.SelectionFormula = formula


    Gewünschtes Ergebnis z.B.


    Select Kostenstelle="1111"


    Lapfandi