Skip to end of metadata
Go to start of metadata

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

Seitenanfang

  • No labels