• Erstellt von Unbekannter Benutzer (zoepfgen), zuletzt aktualisiert von Althaus, Bernd am 2011-07-08 Lesedauer: 1 Minute(n)

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

Seitenanfang

  • Keine Stichwörter