Beiträge von nomaam

    Hallo,


    die Frage klingt vieleicht ein bisschen doof.
    Wenn ich eine Datei in ein neues Memo anhänge, wird Sie dann schon auf den Server geschubst oder erst beim speichern ?


    Was passiert in dem Moment, in dem ich einen Anhang in ein Notes Dokument ziehe. Wird in dem Moment nur ein Icon im Rich Text erstellt oder auch gleich die Datei angehängt. Passiert dies im Cache des Clients oder auf dem Server ?


    hmm ?

    Hallo Gemeinde,


    wir haben hier eine seltsames Phenomän in unserer Wins Datenbank.
    Dort haben wir jede Menge Einträge unterschiedlichens Typs.
    Bsp.
    xXTND á,----)äý [C0h] Andere 10.xxx.xxx Aktiv


    Verwunderlich ist an der Geschichte (und das is t der Grund warum ich mich mit dem Problem ans Forum richte) ist das die Einträge immer mit x beginnen und dann die ersten 4 Zeichen von Notes Benutzernamen folgend. Im Beispiel Eintrag wäre das der XTND Server Benutzer, der weder im AD noch als Hostname auftaucht. Auf dem XTND Server ist Wins als Client aktiviert.


    Hat das schonal jemand gesehen ?
    Vielleicht könnt ihr ja vor dem Admincamp noch ein Statement abgeben.


    Gruß
    Bodo

    Es geht bis 32.767 ! Wenn der Typ Integer ist!
    Wenn man statt dessen Currency nimmt, dann dürfte es bis 999.999.999.999 gehen.
    Neunhundertneunundneunzigmilliardenneunhundertneunundneunzig...

    Hab jetzt ein Script in VB gefunden, welches man 1:1 in LS umsetzen kann.
    Hier der Code:
    Habs getestet, bei mir gehts.


    Dim i%


    '******************** Funktion zur Ermittlung eines Zahlwortes ********************


    Public Function ZWORT(Zahl As Integer) As String
    Dim Teil1$, ATeil$, BTeil$, Rest$


    If Zahl = Fix(Zahl) Then
    Rest = ""
    Else
    Rest = " " & Format((Zahl - Fix(Zahl)) * 100, "00") & "/100"
    End If


    Zahl = Fix(Zahl)
    If Zahl = 1 Then ZWORT = "eins" & Rest: Exit Function
    i = 0
    ATeil = Right(Zahl, 3)
    ZWORT = Hunderter(ATeil)
    If Len(Str(Zahl)) < 5 Then GoTo Beenden
    Teil1 = ZWORT
    Zahl = Left(Zahl, Len(Str(Zahl)) - 4)
    BTeil = Right(Zahl, 3)
    ZWORT = Hunderter(BTeil)
    If ZWORT > "" Then ZWORT = ZWORT & "tausend"
    ZWORT = ZWORT & Teil1
    If Right(ATeil, 3) = 1 Then ZWORT = ZWORT & "s"
    If Len(Str(Zahl)) < 5 Then GoTo Beenden
    Teil1 = ZWORT
    Zahl = Left(Zahl, Len(Str(Zahl)) - 4)
    BTeil = Right(Zahl, 3)
    ZWORT = Hunderter(BTeil)
    If BTeil = "1" Then
    ZWORT = "eine" & "million" & Teil1
    Else
    If ZWORT > "" Then ZWORT = ZWORT & "millionen"
    ZWORT = ZWORT & Teil1
    End If
    If Len(Str(Zahl)) < 5 Then GoTo Beenden
    Teil1 = ZWORT
    Zahl = Left(Zahl, Len(Str(Zahl)) - 4)
    BTeil = Right(Zahl, 3)
    ZWORT = Hunderter(BTeil)
    If BTeil = "1" Then
    ZWORT = "eine" & "milliarde" & Teil1
    Else
    ZWORT = ZWORT & "milliarden" & Teil1
    End If
    Beenden:
    ZWORT = ZWORT & Rest
    End Function


    '************* Funktion zur Ermittlung der Hunderter eines Zahlwortes *************


    Function Hunderter(Hteil)
    Dim EZahl%, Ziffer1$, Ziffer2$, Ziffer3$


    EZahl = Right(Hteil, 1)
    Hunderter = Einer(EZahl)
    Ziffer3 = Hunderter


    '' Erster Ausstieg
    If Hteil < 10 Then Exit Function


    EZahl = Right(Hteil, 2)
    If EZahl < 20 Then
    Hunderter = Zehner(EZahl)
    Ziffer1 = Hunderter
    If Len(Hteil) < 3 Then Exit Function
    End If
    If CInt(Hteil) < 100 And Left(Hteil, 1) <> "0" Then
    EZahl = Left(Hteil, 1)
    Else
    EZahl = Mid(Hteil, Len(Hteil) - 1, 1)
    End If
    If Hunderter <> "" Then
    Hunderter = Hunderter & "und" & Zehner1(EZahl)
    Else
    Hunderter = Zehner1(EZahl)
    Ziffer1 = Hunderter
    End If


    '' Zweiter Ausstieg
    If Hteil < 100 Then Exit Function


    EZahl = Mid(Hteil, Len(Str(Hteil)) - 3, 1)
    If Right(Hteil, 2) < 10 Then
    If Mid(Hteil, 2, 1) = 0 And Right(Hteil, 1) = 1 Then
    Hunderter = Einer(EZahl) & "hunderteins"
    Else
    Hunderter = Einer(EZahl) & "hundert" & Ziffer3
    End If


    ElseIf Right(Hteil, 2) > 9 And Right(Hteil, 2) < 20 Then
    Hunderter = Einer(EZahl) & "hundert" & Ziffer1
    Else
    Hunderter = Einer(EZahl) & "hundert" & Hunderter
    End If
    End Function


    '*************** Funktion zur Ermittlung der Einer eines Zahlwortes ***************


    Function Einer(EinerZahl)
    Select Case EinerZahl
    Case Is = 1
    Einer = "ein"
    Case Is = 2
    Einer = "zwei"
    Case Is = 3
    Einer = "drei"
    Case Is = 4
    Einer = "vier"
    Case Is = 5
    Einer = "fünf"
    Case Is = 6
    Einer = "sechs"
    Case Is = 7
    Einer = "sieben"
    Case Is = 8
    Einer = "acht"
    Case Is = 9
    Einer = "neun"
    End Select
    End Function


    '********** Funktion zur Ermittlung der Zahlen 10 - 19 eines Zahlwortes ***********


    Function Zehner(ZehnerZahl)
    Select Case ZehnerZahl
    Case Is = 10
    Zehner = "zehn"
    Case Is = 11
    Zehner = "elf"
    Case Is = 12
    Zehner = "zwölf"
    Case Is = 13
    Zehner = "dreizehn"
    Case Is = 14
    Zehner = "vierzehn"
    Case Is = 15
    Zehner = "fünfzehn"
    Case Is = 16
    Zehner = "sechzehn"
    Case Is = 17
    Zehner = "siebzehn"
    Case Is = 18
    Zehner = "achtzehn"
    Case Is = 19
    Zehner = "neunzehn"
    End Select
    End Function


    '************** Funktion zur Ermittlung der Zehner eines Zahlwortes ***************


    Function Zehner1(ZehnerZahl)
    Select Case ZehnerZahl
    Case Is = 2
    Zehner1 = "zwanzig"
    Case Is = 3
    Zehner1 = "dreißig"
    Case Is = 4
    Zehner1 = "vierzig"
    Case Is = 5
    Zehner1 = "fünfzig"
    Case Is = 6
    Zehner1 = "sechzig"
    Case Is = 7
    Zehner1 = "siebzig"
    Case Is = 8
    Zehner1 = "achtzig"
    Case Is = 9
    Zehner1 = "neunzig"
    End Select
    End Function

    Sorry wegen des Präfixes und vielen Dank schon mal! Ich komme von hier leider nicht an die Seiten mit dem Code wegen unserem Webfilter. Muss ich mir dann von zu Hause mal anschauen. Ich spreche zwar kein PHP, aber mal schauen ob ich trotzdem durchsteige.
    Vielleicht sonst noch jemand was in Petto ?

    Hallo alle zusammen,


    vielleicht hat es ja schon jemand irgendwo in der Schublade.
    Ich suche ein Script welches Geldbeträge in Worte umwandelt.
    Also z.B.: für Quittungen.
    Beispiel: 112 in Worten -einhundert-und-zwölf-


    Gruß
    Bodo

    Im Server Konfigurationsdokument unter


    - Router/SMTP, Beschränkungen und Steuerungen
    - SMTP Eingangssteuerung
    - Verbindung nur von diesen SMTP-Internet-Host-Namen ... zulassen"


    muß die IP Adresse oder der Name des SMTP Clients eingetragen werden (in eckigen Klammern)


    Gruß
    Bodo

    Die Migration ist gelaufen. Alles soweit Prima. Allerdings konnte ich das 32 Bit Verzeichnis nicht nutzen, weil die Installation mit dem Pfad:
    c:\Programme (x86)\
    ein Problem hatte. Installieren ließ es sich in diese Verzeichnis nur, indem ich die Installationsdateien direkt in das x86 Verzeichnis gelegt habe. Es gibt scheinbar ein Problem mit dem Leerzeichen in dem Pfad. Nachdem ich den Notes Server dann starten wollte, konnte er die Notes.ini nicht finden. Also habe ich dann Notes wieder deinstalliert und in das Programme Verzeichnis installiert (ohne x86).
    Jetzt rennt der Server wunderbar.


    Vielend Dank für die Beiträge
    B. Krug

    Hallo Forum,


    ich will / soll unsere Notes Server (7.01 FP1) von AS400 auf Windows 2003 Entrprise 64 Bit bringen. Hat einer von Euch schon irgendwelche schlechten Erfahrungen mit 64 Bit gemacht? Gibt es irgendwas zu beachten, außer das ich den Notes Client, soweit ich weiß, nicht installieren darf.
    Ich bin auch dankbar für positive Bemerkungen.


    Gruß
    Bodo


    @ RockWilder -Schultz-

    So wie es aus sieht, sind keine weiteren Antworten zu erwarten. Scheinbar kann man mit Nagios auch das Event Log überwachen. Somit wird die Überwachung Notes intern hinfällig.


    Vielen Dank für eure Antworten


    B Krug