Funktion
Beschreibung
Code in WinIBW2 (Makro/VBScript)
Sub ANPSW() '************************************************ On error resume next Dim PersonenSW, PPN Application.ActiveWindow.Title.StartOfField Application.ActiveWindow.Title.WordRight 1 Application.ActiveWindow.Title.EndOfField True PersonenSW = Application.ActiveWindow.Title.GetSelection() PersonenSW = "rec n; f per " & PersonenSW & " and tb s" Application.ActiveWindow.Title.DeleteSelection Application.ActiveWindow.Command PersonenSW, True ' Uebernahme der PPN mit Funktion Hole IDN, deswegen die folgenden Zeilen auskommentiert ' PPN = Application.ActiveWindow.Variable("P3GPP") ' Application.ActiveWindow.CloseWindow ' Application.ActiveWindow.Title.InsertText "!" & PPN & "!" End Sub
Code in WinIBW3 (Javascript)
Erforderliche Änderungen / Ergänzungen
Überblick
Inhalte