Seitenhistorie
Funktion
Beschreibung
Zeile 1080 - 2096
Code in WinIBW2 (Makro/VBScript)
Codeblock |
---|
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