Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
Die Funktion kopiert die IDN des angezeigten SWD-Datensatzes und den Inhalt von Feld 810, ruft die Datenmaske für Crosskonkordanz auf und fügt die kopierten Inhalte in die Datenmaske ein. (Für das Kopieren der Inhalte aus dem SWD-Satz benötigt der Benutzer Korrekturbefugnisse in der SWD!) |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-02-02 | Althaus | neu erstellt |
Code
dnb_inhaltserschliessung.js
Code
Codeblock |
---|
function CKneu () { strSWDIDN = application.activeWindow.getVariable("P3GPP"); if (!application.activeWindow.title) { application.activeWindow.command("k", false); } var str810 = application.activeWindow.title.findTag("810", 0, false, true, false); application.activeWindow.simulateIBWKey("FE"); DatenmaskeTcx(); application.activeWindow.title.insertText(strSWDIDN); application.activeWindow.title.startOfBuffer(false); application.activeWindow.title.findTag("810", 0, false, true, false); application.activeWindow.title.endOfField(false); application.activeWindow.title.insertText(str810); } |
VB-Code
Codeblock |
---|
Sub CKneu() On Error Resume Next Dim Cancel Dim SWD_IDN Dim SWDfeld810 Dim SWDsatz,Position If Not Cancel Then SWD_IDN = "" SWDfeld810 = "" SWD_IDN = "!" & Application.ActiveWindow.Variable("P3GPP")& "!" SWDsatz = Application.ActiveWindow.CopyTitle SWDfeld810 = KopiereFeld (SWDsatz,"810 ") Cancel = False Application.ActiveWindow.Command "e n",True Application.ActiveWindow.Title.InsertText "005 Tcx" Application.ActiveWindow.Title.InsertText vbCr Application.ActiveWindow.Title.InsertText "800 " Application.ActiveWindow.Title.InsertText SWD_IDN Application.ActiveWindow.Title.InsertText vbCr Application.ActiveWindow.Title.InsertText "810 " Application.ActiveWindow.Title.InsertText SWDfeld810 Application.ActiveWindow.Title.InsertText vbCr Application.ActiveWindow.Title.InsertText "808 |c|neu" Application.ActiveWindow.Title.InsertText vbCr Application.ActiveWindow.Title.InsertText "808 |d|" Application.ActiveWindow.Title.InsertText vbCr Application.ActiveWindow.Title.InsertText "817 " Application.ActiveWindow.Title.InsertText vbCr Application.ActiveWindow.Title.InsertText "834 " Application.ActiveWindow.Title.InsertText vbCr Application.ActiveWindow.Title.InsertText "840 " Application.ActiveWindow.Title.InsertText vbCr Application.ActiveWindow.Title.InsertText "901 " End If End Sub |
Überblick
Inhalte