Beschreibung
Eingangsbearbeitung von 2 Pflichtexemplaren bei vorhandenem Aam-Satz oder von einem Pflichtexemplar für den eigenen Standort bei vorhandenem Aam-Satz.
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
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
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
Überblick
Inhalte