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