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 |
Code
dnb_erwerbung.js
| 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