Beschreibung
Neu: 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 |
Datei
dnb_scripts_01.js |
Code
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
Überblick
Inhalte