IntMonokorrKauf

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

Korrigiert erstmals abgespeicherte Afa und Aaa-Sätze der Kaufstelle Frankfurt zum Unterdrücken der Pflichtexemplar-routine

Ausgangsbildschirm:
Titeldatensatz mit 0500 Afa
oder
Titeldatensatz mit 0500 Aaa
Vollanzeige

o	löscht in Afa-Satz oder Aaa-Satz Feld 0701
o	ersetzt Feld 7001 durch 7002
o	fügt in 7002 nach Blank ein: xxh
o	fügt Feld 7100 HB ein
o	fügt Feld 8510 ein
o	Cursor sollte in Feld 8510 nach einem Blank stehen

Code:
k{ENTER}{Alt+F3}0701{Alt+W}{ESCAPE}
{Ctrl+Y}{Alt+F3}7001{Alt+W}{ESCAPE}
{RIGHT}{Shift+END}{DELETE}{BACKSPACE}
{BACKSPACE}2{RIGHT} xxh{ENTER}7100 HB
{Ctrl+END}8510