FindePERinTBs

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();
			}
}

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