Seitenhistorie
...
Code in WinIBW2 (Makro/VBScript)
Sub CKneu()
On Error Resume Next
Dim Cancel
Dim SWD_IDN
Dim SWDfeld810
Dim SWDsatz,Position
If Not Cancel Then
SWD_IDN = ""
SWDfeld810 = ""
SWD_IDN = "!" & Application.ActiveWindow.Variable("P3GPP")& "!"
SWDsatz = Application.ActiveWindow.CopyTitle
SWDfeld810 = KopiereFeld (SWDsatz,"810 ")
Cancel = False
Application.ActiveWindow.Command "e n",True
Application.ActiveWindow.Title.InsertText "005 Tcx"
Application.ActiveWindow.Title.InsertText vbCr
Application.ActiveWindow.Title.InsertText "800 "
Application.ActiveWindow.Title.InsertText SWD_IDN
Application.ActiveWindow.Title.InsertText vbCr
Application.ActiveWindow.Title.InsertText "810 "
Application.ActiveWindow.Title.InsertText SWDfeld810
Application.ActiveWindow.Title.InsertText vbCr
Application.ActiveWindow.Title.InsertText "808 |c|neu"
Application.ActiveWindow.Title.InsertText vbCr
Application.ActiveWindow.Title.InsertText "808 |d|"
Application.ActiveWindow.Title.InsertText vbCr
Application.ActiveWindow.Title.InsertText "817 "
Application.ActiveWindow.Title.InsertText vbCr
Application.ActiveWindow.Title.InsertText "834 "
Application.ActiveWindow.Title.InsertText vbCr
Application.ActiveWindow.Title.InsertText "840 "
Application.ActiveWindow.Title.InsertText vbCr
Application.ActiveWindow.Title.InsertText "901 "
End If
End Sub
Code in WinIBW3 (Javascript)
...