Wartung / Maintencance - Upgrade Version 8.5.12 - Mittwoch/Wednesday - 2024-08-28 07:30-09:00 a.m.
Seitenhistorie
...
dnb_scripts_01.js |
Code
Codeblock |
---|
function __Schlagwortsuche(strKommando,strTrunkierung) {
var intWinID1 = application.activeWindow.windowID;
var intWinID2;
// var strKommando = "rec n;f an ";
// var strTrunkierung = "ANSrecn";
var swPrompt = utility.newPrompter();
var strKategorie;
var strSchlagworte;
var strIDN = application.activeWindow.getVariable("P3GPP");
var strSWDIDN;
var msg;
var intLength;
var strText = "Eingabeform: Kategorie Schlagwort(e)\n" +
" z.B.: 5100 Magie\n" +
" oder 5101 feng shui\n";
var strEingabe = "";
if (application.activeWindow.getVariable("scr") != "MT") {
__dnbFehler("Fehler","Die Funktion kann nur im Korrekturmodus aufgerufen werden!");
} else {
msg = swPrompt.prompt(strTrunkierung,strText,strEingabe,null,null);
if (msg == true) {
strEingabe = swPrompt.getEditValue();
intLength = strEingabe.length;
if (intLength < 6) {
__dnbFehler(strTrunkierung,"Bitte Eingabeform beachten: " + strText);
} else {
strKategorie = strEingabe.substring(0,4);
strSchlagworte = strEingabe.substring(5,intLength+1);
if (strTrunkierung == "ANSrecn") {
application.activeWindow.command (strKommando + "\"\"" + strSchlagworte + "\"\"", true);
} else {
application.activeWindow.command (strKommando + strSchlagworte, true);
}
intWinID2 = application.activeWindow.windowID;
strSWDIDN = application.activeWindow.getVariable("P3GPP");
if ((strSWDIDN == strIDN) || (application.activeWindow.getVariable("scr") != "8A")) {
application.closeWindow(intWinID2);
application.activateWindow(intWinID1);
__dnbFehler("Schlagwortsuche","Schlagwort nicht eindeutig zu ermitteln!");
} else {
application.closeWindow(intWinID2);
application.activateWindow(intWinID1);
__geheZuKat(strKategorie,"",false);
application.activeWindow.title.insertText(strKategorie + " !" + strSWDIDN + "!\n");
}
}
}
}
}
function ANS() {
__Schlagwortsuche("f sw ","ANS");
}
|
VB-Code
Codeblock |
---|
'******************************************************************** Sub ANS() '******************************************************************** Call Schlagwortsuche("f ","ANS") End Sub ' ANS '******************************************************************** Private Sub Schlagwortsuche(Kommando,Trunkierung) '******************************************************************** ' Wird von ANSrecn und ANS aufgerufen on error resume next Dim Text, Schleife,Eingabe Text = "Eingabeform: Kategorie Schlagwort(e) Operator" & vbCrLf & _ " z.B.: 5100 Magie +" & vbCrLf & _ " oder 5101 -feng shui ;" & vbCRLf & _ " Der Operator ist optional" Schleife = vbYes Eingabe = "" Do If Application.ActiveWindow.Variable("scr") <> "MT" Then MsgBox "Diese Funktion kann nur im Korrekturmodus aufgerufen werden", _ vbOKOnly+vbCritical,Titel Else Eingabe = Trim(InputBox(Text,Titel,Eingabe)) If Len(Eingabe) = 0 Then Schleife = vbAbort Else If Len(Eingabe) < 6 Then MsgBox "Bitte Eingabeform beachten: " & vbCrLf & Text1, _ vbOKOnly+vbExclamation,Titel Schleife = vbNo Else Call Teilung(Eingabe) If Trunkierung = "ANSrecn" Then Suchschlagwort = """" & Suchschlagwort & """" End If If Len(Kategorie) > 0 Then Schleife = vbYes WinID1 = Application.ActiveWindow.WindowID Application.ActiveWindow.Command Kommando & Suchschlagwort, True WinID2 = Application.ActiveWindow.WindowID If WinID1 = WinID2 Then MsgBox "Schlagwort nicht gefunden!",vbOKOnly+vbInformation,Titel Schleife = vbNo Else If Application.ActiveWindow.Variable("scr") = "8A" Then ' Vollanzeige WinID2 = Application.ActiveWindow.WindowID IDN = Application.ActiveWindow.Variable("P3GPP") Zeile = Kategorie & " " & Praefix & "!" & IDN & "! " & Suffix & vbCr Application.CloseWindow(WinID2) Application.ActivateWindow(WinID1) Application.ActiveWindow.Title.EndOfBuffer False ' Sicherheitsabfrage wegen evtl falscher Cursorpositionierung Application.ActiveWindow.Title.EndOfBuffer True If Len(Application.ActiveWindow.Title.GetSelection) > 0 Then MsgBox "Cursor war nicht am Ende!",vbOKOnly+vbInformation,Titel Application.ActiveWindow.Title.EndOfBuffer False End If Application.ActiveWindow.Title.StartOfField True If Len(Application.ActiveWindow.Title.GetSelection) > 0 Then Application.ActiveWindow.Title.EndOfField False Application.ActiveWindow.Title.InsertText vbCr End If Application.ActiveWindow.Title.InsertText Zeile Schleife = vbYes Else ' Kurzanzeige If Len(Praefix) = 1 Then Zeile = WinID1 & " " & Praefix & Kategorie & " " & Suffix Else Zeile = WinID1 & " " & Kategorie & " " & Suffix End If Application.ActiveWindow.ClipBoard = Zeile Application.ActiveWindow.Command "s k", False Schleife = vbYes End If End If Else Schleife = vbNo End If End If End IF End If Loop Until (Schleife = vbYes) Or (Schleife = vbCancel) Or (Schleife = vbAbort) End Sub ' Schlagwortsuche '******************************************************************** Private Sub Teilung(Feld) '******************************************************************** ' wird von Schlagwortsuche aufgerufen on error resume next Dim Temp, Position Kategorie = "" Suchschlagwort = "" Praefix = "" Suffix = "" Position = InStr(Feld," ") If Position > 0 Then Kategorie = Left(Feld,Position-1) Temp = Right(Feld,Len(Feld)-Position) If Left(Temp,1) = "-" Then Praefix = "-" Temp = Right(Temp,Len(Temp)-1) End If If (Right(Temp,1) = ";") Or (Right(Temp,1) = "+") Or (Right(Temp,1) = "#") Then Suffix = Right(Temp,1) Suchschlagwort = Left(Temp,Len(Temp)-1) Else Suchschlagwort = Temp End If Else MsgBox "Die Eingabe muss mindestens eine Kategorie und ein Schlagwort enthalten", _ vbOKOnly+vbCritical,Titel End If End Sub 'Teilung |
...
Überblick
Inhalte