Seitenhistorie
...
Code in WinIBW2 (Makro/VBScript)
Codeblock |
---|
Sub BKNorm() '******************************************************************** On error resume next Application.ActiveWindow.Title.StartOfField Application.ActiveWindow.Title.WordRight Application.ActiveWindow.Title.EndOfField true Application.ActiveWindow.ClipBoard = Application.ActiveWindow.Title.GetSelection() Application.ActiveWindow.Title.DeleteSelection ' msgbox Application.ActiveWindow.ClipBoard Application.ActiveWindow.Command "rec n;f bk " & Application.ActiveWindow.ClipBoard, True Application.ActiveWindow.ClipBoard = Application.ActiveWindow.Variable("P3GPP") 'wegen Fehler bei Kurzanzeige: Prüfung ob Voll- (Doctype = Tk) oder Kurzanzeige (Normdaten-Doctype = ths) if not ((Application.ActiveWindow.Variable("P3GTG") = "8A" and Application.ActiveWindow.DocType = "Tk") or (Application.ActiveWindow.Variable("P3GTG") = "7A" and Application.ActiveWindow.DocType = "ths") ) then 'msgbox Application.ActiveWindow.DocType & vbcrlf & _ ' Application.ActiveWindow.Variable("P3GTG") Achtung "Kein Normdatensatz gefunden," & vbcrlf & "Funktion muß beendet werden." exit Sub else Application.ActiveWindow.CloseWindow Application.ActiveWindow.Title.InsertText "!" & Application.ActiveWindow.ClipBoard & "!" end if End Sub |
Code in WinIBW3 (Javascript)
...
Überblick
Inhalte