Seitenhistorie

function IntMonokorrKauf() {

	var strKuerzel = __getProfVal("Kürzel erfassen","kuerzel","Bitte geben Sie Ihr Bearbeiterkürzel ein.");
	var strAbteilung = __getAbteilung();
	var strContent4700 = "|" + strAbteilung + "|" + strKuerzel;
	
	if (application.activeWindow.getVariable("scr") != "8A"){
	application.messageBox("Datensatzkopie","Der Datensatz muss sich in der Vollanzeige befinden!", "alert-icon");
	return;
	}
	var Kopie = application.activeWindow.copyTitle();
	//application.messageBox("Kopie",Kopie,"");
	if (Kopie == "") {
		__dnbFehler("","Es konnte keine Titelkopie erstellt werden","");
	} else {
		var Pos0500 = Kopie.indexOf("0500 ");
		var Tag0500 = Kopie.substring(Pos0500,Kopie.indexOf("\n",Pos0500));
		//application.messageBox("Tag0500",Tag0500,"");
		var Satzart = Tag0500.substring(5,Tag0500.length-1);
		if ((Satzart == "Afa") || (Satzart == "Aaa")) {
			application.activeWindow.command("k",false);
			if (application.activeWindow.title.findTag("0701", 0, true, true, false)) {
				application.activeWindow.title.deleteSelection();
				//application.messageBox("", "4208 vorhanden und gelöscht?", "");
			}
	
			if (application.activeWindow.title.findTag("7001", 0, true, true, false)) {
				application.activeWindow.title.startOfField(false);
				application.activeWindow.title.wordRight(1,false);
				application.activeWindow.title.charLeft(2,false);
				application.activeWindow.title.endOfField(true);
				application.activeWindow.title.insertText("2 xxh\n7100 HB\n8510 ");	
			}
		} else {
		application.messageBox("", "Nur Satzarten Afa und Aaa werden bearbeitet!","");
		}
	}
}