SW_neu

Funktion

Beschreibung

Datenmaske
Zeile 6598 - 6626

Code in WinIBW2 (Makro/VBScript)Sub

Sub SWneu()
'********************************************************************
    On error resume next
    Dim strKuerzel
    Call HoleKuerzel(strKuerzel)
    Application.ActiveWindow.Command "e n", False
    Application.ActiveWindow.Title.InsertText    "005 Ts" & vbCR &_
                                   "011 /s" & vbCR &_
                            "800 " & vbCR &_
                            "801 " & vbCR &_
                            "802 " & vbCR &_
                            "803 " & vbCR &_
                            "804 " & vbCR &_
                            "805 " & vbCR &_
                            "808 |a|" & vbCR &_
                            "808 |b|" & vbCR &_
                            "810 " & vbCR &_
                            "811 " & vbCR &_
                            "814 " & vbCR &_
                            "815 " & vbCR &_
                            "816 " & vbCR &_
                            "830 " & vbCR &_
                            "845 " & vbCR &_
                            "850 " & vbCR &_
                            "860 "
    Application.ActiveWindow.Title.StartOfBuffer
    Application.ActiveWindow.Title.Find "800", True, False, True
    Application.ActiveWindow.Title.EndOfField
End Sub

Code in WinIBW3 (Javascript)

Erforderliche Änderungen / Ergänzungen