Seitenhistorie
Funktion
Beschreibung
Anlegen eines Mahndatensatzes (Aam) oder Infodatensatzes (aaa) (alter Name: AamPflichtaaa)
AamPflichtaaa? --> Zeile 2310 - 2332
Code in WinIBW2 (Makro/VBScript)Sub
Sub AamPflichtaaa()
'********************************************************************
On error resume next
Dim strKuerzel
Call HoleKuerzel(strKuerzel)
'Place your function code here
Application.ActiveWindow.Command "e t", False
Application.ActiveWindow.Title.InsertText "0500 Aam/aaa" & vbCR &_
"0600 r" & vbCR &_
"0701 " & vbCR &_
"1100 " & vbCR &_
"2000 " & vbCR &_
"3000 " & vbCR &_
"4000 " & vbCR &_
"4020 " & vbCR &_
"4030 " & vbCR &_
"4180 " & vbCR &_
"4701 " & strKuerzel
Application.ActiveWindow.Title.StartOfBuffer
Application.ActiveWindow.Title.Find "0600", True, False, True
Application.ActiveWindow.Title.WordRight 1, False
Application.ActiveWindow.Title.CharRight 1, False
End Sub