Seitenhistorie

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.

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