ErschEing

function ErschEing() {

	var strDate = __makeDate();
	var strKuerzel = __getProfVal("Kürzel erfassen","kuerzel","Bitte geben Sie Ihr Bearbeiterkürzel ein.");
	var strAbteilung = __getAbteilung();
	var strStandort = __getStandort();
	var str4700 = "\n4700 |" + strAbteilung + "|" + strStandort + ";" + strKuerzel + "*Erscheinen eingestellt," + strDate;
	
	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);
		__geheZuKat("4700","",true);
		application.activeWindow.title.insertText(str4700);
		application.activeWindow.simulateIBWKey ("FR");
	}
	
}			

{Button Bearbeiten}
{MP Bearbeiten – Suchen: „4700“}
{FB Weitersuchen} („4700“ wurde markiert)
{FB Abbrechen}
{Cursor ans Ende der Zeile}
{„; L1.1.2:<Namenskürzel automat. eintragen>*Erscheinen eingestellt,<aktuelles Datum automat. eintragen>“
{Button Enter}