Mailbox

Funktion

Beschreibung

erzeugt 901 mit akt. Datum und listet die Verbünde auf
Zeile 2112 - 2147

Code in WinIBW2 (Makro/VBScript)Sub

Sub Mailbox()
'************************************************    
    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" Then -> alte Form bis 06.07.07, auskommentiert wegen Problemen mit dem Registryschlüssel
    '2008-01-18: Änderung auf Anforderung Frau Köhn, Angleichung an den Leipziger Stand
    If strStandort = "DBF" or strStandort = "FFM" or strStandort = "DNB-F" Then
        'MailboxPhrase = vbCr & "901 c-na e-au e-bsb e-swbs e-oe e-hbz e-goe e-dnbsl e-slb e-bfu e-cot e-kub e-heb e-sbb e-thb e-oends a-dnbsf * dnbsf" & vbCr    'alte Form bis 2007-01-24
        'MailboxPhrase = vbCr & "901 c-na e-au e-bsb e-swbs e-oe e-hbz e-goe e-dnbsl e-snb e-bfu e-cot e-kub e-heb e-sbb e-thb e-oends a-dnbsf * dnbsf" & vbCr    'neue Form ab 2007-01-24
        'MailboxPhrase = vbCr & "901 c-na e-au e-bsb e-swbs e-oe e-hbz e-goe e-dnbsl e-snb e-bfu e-cot e-kub e-heb e-sbb e-thb e-oends a-dnbsf " & aktDatum & "* " & aktDatum & " dnbsf" & vbCr    'neue Form ab 2008-01-18
        'neue Form ab 26.09.08
        MailboxPhrase = vbCr & "901 " & aktDatum &  " // a-DE-101-SE-F e-AT-3:NOeLB e-AT-9:OBV-SE e-CH-000001-5 e-DE-1 e-DE-101-SE-L e-DE-12-SE e-DE-188 e-DE-Co1 e-DE-384-SE e-DE-576 e-DE-601-SE e-DE-603 e-DE-605-SE e-DE-612-SE e-DE-613*"
        'zukünftige Form, Änderung der österreichischen ISILs, ab Freigabe Bernhard
        'MailboxPhrase = vbCr & "901 " & aktDatum &  " // a-DE-101-SE-F e-AT-NOeLB e-AT-OBV-SE e-CH-000001-5 e-DE-1 e-DE-101-SE-L e-DE-12-SE e-DE-188 e-DE-Co1 e-DE-384-SE e-DE-576 e-DE-601-SE e-DE-603 e-DE-605-SE e-DE-612-SE e-DE-613*"
    Else
        'MailboxPhrase = vbCr & "901 c-na a-dnbsl e-au e-bsb e-dnbsf e-swbs e-hbz e-cot e-swbs e-oe e-goe e-slb e-bfu e-kub e-heb e-sbb e-thb e-oends " & aktDatum & "*" & vbCr    'alte Form bis 2007-01-24
        'MailboxPhrase = vbCr & "901 c-na a-dnbsl e-au e-bsb e-dnbsf e-swbs e-hbz e-cot e-swbs e-oe e-goe e-snb e-bfu e-kub e-heb e-sbb e-thb e-oends " & aktDatum & "*" & vbCr    'neue Form ab 2007-01-24
        'neue Form ab 26.09.08
        MailboxPhrase = vbCr & "901 " & aktDatum &  " // a-DE-101-SE-L e-AT-3:NOeLB e-AT-9:OBV-SE e-CH-000001-5 e-DE-1 e-DE-101-SE-F e-DE-12-SE e-DE-188 e-DE-Co1 e-DE-384-SE e-DE-576 e-DE-601-SE e-DE-603 e-DE-605-SE e-DE-612-SE e-DE-613*"
        'zukünftige Form, Änderung der österreichischen ISILs, ab Freigabe Bernhard
        'MailboxPhrase = vbCr & "901 " & aktDatum &  " // a-DE-101-SE-L e-AT-NOeLB e-AT-OBV-SE e-CH-000001-5 e-DE-1 e-DE-101-SE-F e-DE-12-SE e-DE-188 e-DE-Co1 e-DE-384-SE e-DE-576 e-DE-601-SE e-DE-603 e-DE-605-SE e-DE-612-SE e-DE-613*"
    End If
    MailboxPhrase = Application.LatinToPica(MailboxPhrase)
    Application.ActiveWindow.Title.InsertText MailboxPhrase
End Sub

Code in WinIBW3 (Javascript)

Erforderliche Änderungen / Ergänzungen