Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
...
Beschreibung
Schreibt Suchstring für Basisklassifikationsnotation aus Feld 7109 in die Zwischenablage und setzt mit deren Inhalt Kommando "
Auszug |
---|
Diese Funktion für die Handbibliothek kopiert im aktuellen Feld (Cursorposition) des Titeldatensatzes den Feldinhalt und setzt die Suche |
rec n;f bk |
Zeile 2819 - 2840
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)
Erforderliche Änderungen / Ergänzungen
'Feldinhalt' ab. Wenn Basisklassifikations-Normdatensätze in Kurz oder Vollanzeige gefunden werden, wird die Verknüpfungs-IDN in das aktuelle Feld im Titeldatensatz eingefügt. Wird bei der Suche nichts gefunden, kommt die Fehlermeldung "Kein Normdatensatz gefunden.\nDie Funktion wird beendet." |
Standard-Konfiguration
Die Funktion steht in der Funktionsleiste Benutzung und unter Funktionstaste F9 zur Verfügung.
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-09-30 | Althaus | neu erstellt |
2011-10-04 | Althaus | Fehlerbereinigung nach gefundenem BK-Datensatz |
Scriptdatei(en)
dnb_benutzung.js
Seitenanfangkeine