Beiträge von pascal_x

    Wenn ich einfach eine Null voranstelle mit ("0"+@DocNumber) dann zeigt er es mir auch richtig an. Ich möchte jedoch die laufende Nummer immer 5-stellig haben. Wenn ich da einfach 4 Nullen voranstelle so wird die laufende Nummer 6-stellig sobald ich mehr als 9 Dokumente habe. Nun zu den Anzeigen.


    Wenn ich die Formel:


    [color=000099]@Right("00000" + "122";5)[/color]


    verwende so wird in der Spalte korrekt der Wert "00122" angezeigt.


    Werwende ich jedoch die Formel:


    [color=0000CC]@Right("00000" + @Text(@DocNumber);5)[/color]


    so bekomme ich, bei Dokument 122 den Wert (0122) anstatt (00122).

    Hi Leute.


    Ich möchte in einer Ansichtsspalte, einer Ansicht ohne Kategorien, eine, fünfstellige, laufende Nummer anzeigen lassen. Habe es mit folgender Formel versucht.


    [color=0000CC]@Right("00000" + @Text(@DocNumber); 5)[/color]


    jedoch liefert diese Formel sehr eigenartige Werte zurück. Wenn ich den Wert Manuell vorgebe wird es richtig angezeigt. Wenn ich jedoch als Wert @DocNumber nehme kriege ich nur Mist. :-?


    Hat jemand eine Idee?

    Hallo Leute.


    Ich habe in einer Maske ein berechnetes Feld mit folgender Formel erstellt:


    [color=0000CC]@If(@IsNewDoc;SourceDate=@Date(@Today); SourceDate:=BERDAT);


    FirstOfYear := @Date(@Year(SourceDate); 1; 1);
    FirstDayNum_SundayBased := @Weekday(FirstOfYear);
    FirstDayNum_MondayBased := @If(FirstDayNum_SundayBased = 1; 7;
    FirstDayNum_SundayBased -1);


    WeekOfYear_Gross := @Integer(@Integer(((SourceDate - FirstOfYear) / (86400)) + 1) / 7) +1;


    DayOfWeek := @Weekday(SourceDate);
    WeekOfYearNum := @If(DayOfWeek >= FirstDayNum_MondayBased; WeekOfYear_Gross;
    WeekOfYear_Gross + 1);


    Pad := @If(WeekOfYearNum <10; "0"; "");
    Pad + @Text(WeekOfYearNum)+@Text(@Year(SourceDate))[/color]


    Wenn ich nun die Maske öffne so wird mir immer die Fehlermeldung angezeigt: "Fehler Feld KW Falscher Datentyp für Formel. Datum/Zeit erwartet".


    Wenn ich aber mit SourceDate direkt auf BERDAT verweise (ohne @if) so funktioniert die Formel. Vorausgesetzt BERDAT ist nicht leer. Aber dann kommt halt die Fehlermeldung wenn ich ein neues Dokument erstellen möchte.


    Was ist falsch an meiner Forme? Ich kann keinen Fehler entdecken.


    Viele Grüße von Pascal.

    Hallo Leute.


    Ist die Kategoriespalte für eingebettete Ansichten immer die erste Spalte der Ansicht?


    Wenn ich in Einer eingebetteten Ansicht für die Option "Einzelne Kategorie Anzeigen eine "@Contains" Formel angebe funktioniert das nicht. Gibt es da Alternativen?

    hi lodsnods.


    Die Fehlermeldung Tritt nur bei neuen Dokumenten auf. Und ich habe noch etwas beobachtet. Ich habe ein berechnetes Feld in diesem Dokument. Und wenn dieses noch keinen Wert enthält (weil ich von dem Abhängigen Eingabefeld gleich auf ok springe) dann erscheint die Fehlermeldung. Klicke ich jedoch zuvor noch in ein beliebiges Feld des Dokumentes so bleibt die Fehlermeldung aus.

    Hallo Leute.


    Ich bearbeite ein Dokument in einer DialogBox und wenn ich dieses dann speichern möchte so erscheint folgende Fehlermeldung:


    "Notes error: Datenbank enthält bereits ein Dokument mit dieser ID (UNID)"


    Trotzdem wird das Dokument korrekt gespeichert. Ich bin ein wenig ratlos.


    Viele Grüße von Pascal.

    Hallo Leute.


    Ich möchte in einer Ansicht die Namen von allen, die Dokumente in der Datenbank erstellt haben, anzeigen. Wenn ich nun in einer Ansicht einfach den DocCreator als Wert in der Ansichtsspalte angebe so wird mir jeder Name mehrfach angezeigt. Logisch denn jeder Benutzer erstellt auch mehrere Dokumente.


    Kann man das irgendwie zusammenfassen, so dass jeder Autor nur noch 1 mal aufgeführt wird?


    Viele Grüße von Pascal.

    Hi Leute.....


    Ich hab das auch mal ausprobiert und das funzt echt gut. Nur ist in meinem Fall der Fortschrittsbalken immer zu schnell auf 100%. Was ist falsch an meinem Script?


    [color=000099]Sub Initialize

    Dim ws As New NotesSession
    Dim view As NotesView
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim fri As NotesDocumentCollection
    Dim anz As Integer
    Dim pernr2 As Double
    Dim pernr As String
    Dim deli As NotesDocument
    Dim feldi As NotesItem
    Dim hwnd As Long
    Dim zeli As Long
    Dim j As Long

    Set db = ws.CurrentDatabase
    Set view = db.GetView("duplisearch")
    Set doc = view.GetFirstDocument
    zeli = view.EntryCount

    i=1

    hwnd = NEMProgressBegin( NPB_STATUSBAR )
    NEMProgressSetBarRange hwnd, 50
    NemProgressSetText hwnd, "Datenbank wird nach Duplikaten durchsucht........", "Bitte warten..."

    Do While Not (doc Is Nothing)

    pernr2 = doc.PERNR(0)
    pernr = Cstr(pernr2)

    Set fri = view.GetAllDocumentsByKey(pernr)

    anz = fri.Count

    If anz > 1 Then
    Set deli = fri.GetLastDocument
    Call fri.DeleteDocument(deli)
    Call fri.RemoveAll(True)
    anz = fri.Count
    End If

    i=i+1
    Set doc = view.GetNthDocument(i)

    NEMProgressSetBarPos hwnd, i

    Loop

    NEMProgressEnd hwnd

    End Sub[/color]