Seitenhistorie
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 Sub123
Code in WinIBW3 (Javascript)
...