Beiträge von Joachim.A

  • LotusScript Dokumente im Hintergrund speichern

    Hallo noch eine kleine kurze Frage
    Kann ich eigentlich einem Textfeld - Berechnet beim Anlegen und Merfachwerte erlaubt, die durch eine neue Zeile getrennt werden


    auf zum Beispiel 10 Zeilen beschränken ?


    Also, dass ich sage nach 10 Einträgen bzw. 10 Zeilen lösche das Inhalt des Feldes und mache normal weiter?

  • LotusScript Dokumente im Hintergrund speichern

    Hallo Andreas,


    vielen Dank für deine schnelle Antwort.
    Also der Code steht in der Maske "Test", wo auch das Feld Status und Historie ist.
    In der Maske "Test1" ist ein Button, der den Wert des Feldes "Status" ändert.


    Code Test (Declarations):
    Dim vglinhalt As String


    Code Test (Postopen):
    Sub Postopen(Source As Notesuidocument)
    Dim doc As NotesDocument
    Set doc = Source.Document
    vglinhalt = doc.Status (0)
    End Sub


    Code Test (Querysave):
    Set doc = Source.Document
    If doc.Status (0) = "" Then
    Msgbox "Bitte geben Sie einen Namen ein", 16, "Fehler"
    Continue = False
    Exit Sub
    End If
    If doc.Status (0) <> vglinhalt Then
    Dim historie As Variant
    historie = doc.Historie
    If historie (Ubound (historie)) <> "" Then
    Redim Preserve historie (Ubound (historie) + 1)
    End If
    historie (Ubound (historie)) = Now & " [" & vglinhalt & "] -> [" & doc.Status (0) & "]"
    doc.Historie = historie
    vglinhalt = doc.Status (0)
    Call doc.Save(False,True)
    End If


    Test1 Speichern Button:
    Sub Click(Source As Button)

    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument

    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument

    Set db = session.CurrentDatabase
    Set view = db.GetView( "(Lookup Nummer)" )
    Set uidoc = ws.CurrentDocument

    Set doc = view.GetDocumentByKey( uidoc.FieldGetText("Nummer"), True )

    Dim Status As String
    Status = doc.Status(0)

    If Status = "0" Then
    doc.Status = "1"
    Elseif Status ="1" Then
    doc.Status = "0"
    End If

    Dim AusgeliehenAm As String
    AusgeliehenAm = Now
    doc.AusgeliehenAm = AusgeliehenAm

    Call doc.Save(False,True)

    End Sub

  • LotusScript Dokumente im Hintergrund speichern

    Hallo,


    ich brauche da wieder mal eure Hilfe. Ich hoffe Ihr könnt mir helfen.


    Ich habe zwei Masken "Test" und "Test1". In der Maske Test1 ist ein Button "Speichern" und der Button ändert den Wert eines Feldes in der Maske "Test".


    Die Änderung des Wertes funktioniert ohne Probleme, nur ich habe in der Maske Test ein "Historie" Feld und wenn ich auf den Button "Speichern" klicke ändert sich ja der Wert des Feldes "Wert auf 1", aber das erkennt der Historie Feld nicht, dass der Button in die Maske reingeht und den Feldwert ändert. Wenn ich den Wert manuell ändere und speicher funktioniert es ohne probleme.


    Vielen Dank im Voraus

  • DBProfile Feldwerte

    Hallo Tode,


    ich habe jetzt eine Schaltfläche in der Startansicht erstellt "DBProfile".


    @Command([EditProfile} ; "(DBProfile)")


    Jetzt erstellt mir es kein Dokument mehr, wenn ich speicher, aber die Felder in der Maske "Daten" sind immernoch leer.

  • DBProfile Feldwerte

    Also ich habe eine neue Maske erstellt -> New Form -> Name (DBProfile)
    dann habe ich in dieser Maske Felder eingefügt -> Feld "Name" und als Default Wert habe ich "Hans Peter" eingegeben und dann habe ich eine andere Maske erstellt -> Maske "Daten" in dieser Maske habe ich ein Computed Text erstellt und als Wert
    @GetProfileField("(DBProfile)";"Name";"Main") eingegeben.


    Aber das Problem ist glaub, dass die Maske "(DBProfile)" Dokumente erstellt, weil wenn ich zum Beispiel im Client in der Maske den Feldwert anstatt "Hans Peter" ändere in "Test", dann erstellt es mir ein Dokument?

  • DBProfile Feldwerte

    Hallo,


    ich habe ein Problem.


    Ich weiß nicht, was ich falsch mache, aber irgendwie will es nicht funktionieren.


    Ich habe zwei Masken einmal "DBProfile" und einmal "Maske" und ich möchte die Feldwerte von der Maske "DBProfile" auf die Felder von der Maske "Maske" übertragen.


    Aber irgendwie klappt das nicht...


    Also nochmal genau:


    z.B. Maske "DBProfile":
    Feld "Name" : Wert "hallo"


    -->


    Maske "Maske"
    Feld "Name" : Wert @GetProfileField("DBProfile";"Name")


    ist das so nicht korrekt? oder muss ich an den Feldeigenschaften noch was ändern?