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