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


Code in WinIBW3 (Javascript)


Erforderliche Änderungen / Ergänzungen

  • Keine Stichwörter