Seitenhistorie

Eingangsbearbeitung von 2 Pflichtexemplaren bei vorhandenem Aam-Satz oder von einem Pflichtexemplar für den eigenen Standort bei vorhandenem Aam-Satz.

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 ");
	
}

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