Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
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
Codeblock |
---|
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
Codeblock |
---|
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 |
Überblick
Inhalte