Beschreibung
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
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
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