Funktion
Beschreibung
Schreibt Suchstring für Basisklassifikationsnotation aus Feld 7109 in die Zwischenablage und setzt mit deren Inhalt Kommando "rec n;f bk <Suchstring>“ ab, bei Treffer kann über „Hole_IDN“ verknüpft werden, sonst Messagebox mit Fehlermeldung Ausgangsbildschirm: DNB-Hauptbestand, editierter Titeldatensatz mit Exemplardaten
Zeile 2819 - 2840
Code in WinIBW2 (Makro/VBScript)
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)
Erforderliche Änderungen / Ergänzungen
keine
Überblick
Inhalte