Skip to end of metadata
Go to start of metadata

Beschreibung

Die Funktion kopiert den Inhalt der aktuellen Kategorie und schickt die Suchfrage "rec n; f per ... and tb s" ab. Der Kategorieinhalt wird entfernt. Die Verknüpfungs-IDN kann im Anschluss mit Funktion HoleIDN übernommen werden! Falls die Funktion nicht aus dem Bearbeitungsschirm aufgerufen wird, wird eine Fehlermeldung ausgegeben. Wird nichts gefunden, so wird das leere Fenster geschlossen.

Historie

Datum

geändert von

Beschreibung

2011-02-02

Althaus

neu erstellt

Code

dnb_inhaltserschliessung.js

function FindePERinTBs () {

/* 
Die Funktion kopiert den Inhalt der aktuellen Kategorie und schickt die Suchfrage "rec n; f per ... and tb s" ab. Der Kategorieinhalt wird entfernt. Die Verknüpfungs-IDN kann im Anschluss mit Funktion HoleIDN übernommen werden!

2011-02-02 : Althaus	: erstellt

*/
	if (application.activeWindow.title == null) {
		__dnbFehler("Funktion FindePERinTBs","Funktion kann nur in einem Bearbeitungsschirm aufgerufen werden!");
	} else {
	
			application.activeWindow.title.startOfField(false);
			application.activeWindow.title.wordRight(1,false);
			application.activeWindow.title.endOfField(true);
			var strPerson = application.activeWindow.title.selection;
			var strSetSize = 0;
			var strCommand = "rec n;f per " + strPerson + " and tb s";
			//application.activeWindow.title.deleteSelection;
			application.activeWindow.command(strCommand,false);
			strSetSize = application.activeWindow.getVariable("P3GSZ");
			if (strSetSize < 1)
				application.activeWindow.closeWindow();
			}
}
VB-Code
Sub ANPSW()
'************************************************	

	On error resume next
	Dim PersonenSW, PPN
	Application.ActiveWindow.Title.StartOfField
	Application.ActiveWindow.Title.WordRight 1
	Application.ActiveWindow.Title.EndOfField True
	PersonenSW = Application.ActiveWindow.Title.GetSelection()
	PersonenSW = "rec n; f per " & PersonenSW & " and tb s"
	Application.ActiveWindow.Title.DeleteSelection
	Application.ActiveWindow.Command PersonenSW, True

	' Uebernahme der PPN mit Funktion Hole IDN, deswegen die folgenden Zeilen auskommentiert
	' PPN = Application.ActiveWindow.Variable("P3GPP")
	' Application.ActiveWindow.CloseWindow 
	' Application.ActiveWindow.Title.InsertText "!" & PPN & "!"

End Sub

Seitenanfang

  • No labels