Seitenhistorie

Die Funktion ruft den in der Vollanzeige dargestellten Datensatz zur Korrektur auf und ergänzt die Kategorien 8510 und 8100.

function MahnEingNichtPflicht() {

	if (application.activeWindow.getVariable("scr") != "8A"){
		application.messageBox("Datensatzkopie","Der Datensatz muss sich in der Vollanzeige befinden!", "alert-icon");
	} else {
		application.activeWindow.command("k",false);
		application.activeWindow.title.endOfBuffer(false);
		application.activeWindow.title.insertText("\n8510 %\n8100 ");
	}

}

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