MailboxAntwort

Funktion

Beschreibung

bildet Feld 901 mit akt. Datum und Absender DNB im Ts
Zeile 6001 - 6024

Code in WinIBW2 (Makro/VBScript)Sub

Sub MailboxAntwort()
'Autor: D. Horst, 26.09.2008
'fügt in einem Editschirm ein Feld 901 mit aktuellem Datum gefolgt von unten definiertem String ein
'*Anforderung Frau Bernhard 08/2008
    On Error Resume Next
    Dim strStandort, MailboxPhrase
    Dim aktDatum, Tahr, Monat, Tag
    aktDatum = FormatDateTime(Date, vbShortDate) ' kurzes Format
    Jahr = Year(aktDatum)
    Monat = Month(aktDatum)
    Tag = Day(aktDatum)
    'If Len(Jahr) = 4 Then Jahr = Right(Jahr,2)
    If Len(Monat) = 1 Then Monat = "0" & Monat
    If len(Tag)  = 1 Then Tag = "0" & Tag
    aktDatum = Jahr & "" & Monat & "" & Tag
    Call HoleDNBStandort(strStandort)
    If strStandort = "DBF" or strStandort = "FFM" or strStandort = "DNB-F" Then
        MailboxPhrase = vbCr & "901 " & aktDatum &  " // a-DE-101-SE-F e- *"
    Else
        MailboxPhrase = vbCr & "901 " & aktDatum &  " // a-DE-101-SE-L e- *"
    End If
    MailboxPhrase = Application.LatinToPica(MailboxPhrase)
    Application.ActiveWindow.Title.InsertText MailboxPhrase
End Sub

Code in WinIBW3 (Javascript)

Erforderliche Änderungen / Ergänzungen