Wartung / Maintencance - Upgrade Version 8.5.12 - Mittwoch/Wednesday - 2024-08-28 07:30-09:00 a.m.
Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
...
Beschreibung
Auszug |
---|
Eingangsbearbeitung von 2 Pflichtexemplaren bei vorhandenem Aam-Satz oder von einem Pflichtexemplar für den eigenen Standort bei vorhandenem Aam-Satz |
Zeile 5118 - 5124
Code in WinIBW2 (Makro/VBScript)Sub
...
. |
Hinweise/Fragen
Automatische Tastaturbelegung mit dem Short-Cut ALT_M gewünscht |
|
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-06-17 | Althaus | neu erstellt |
Datei
dnb_scripte_01.js |
Code
Codeblock |
---|
function MahnEingPflicht() {
if (application.activeWindow.getVariable("scr") != "8A"){
application.messageBox("Datensatzkopie","Der Datensatz muss sich in der Vollanzeige befinden!", "alert-icon");
return;
}
application.activeWindow.command("k",false);
__geheZuKat("0701","",true);
application.activeWindow.title.insertText("\n0701 ");
}
|
Vb-Script
Codeblock |
---|
Sub MahnEingPflicht() ' \**************************************************** |
...
\* On error resume next Application.ActiveWindow.Command "k", |
...
False Application.ActiveWindow.Title.EndOfBuffer |
...
False Application.ActiveWindow.Title.InsertText "0701 " |
...
End Sub |
...
'*******************************************************************\* |
...
'*******************************************************************\* |
...
' \****************************************************\* |
...
Sub MahnEingNichtPflicht() |
...
' \**************************************************** |
...
\* On error resume next Application.ActiveWindow.Command "k", |
...
False Application.ActiveWindow.Title.EndOfBuffer |
...
False Application.ActiveWindow.Title.InsertText "8510 %" & vbCrLf & "8100 " |
...
End Sub |
...
|
Code in WinIBW3 (Javascript)
...
Überblick
Inhalte