Seitenhistorie

function __eingabeKommentar(comment,kennzeichen) {

	var Mahnstatus;
	var strKuerzel = __getProfVal("Kürzel erfassen","kuerzel","Bitte geben Sie Ihr Bearbeiterkürzel ein.");
	var strAbteilung = __getAbteilung();
	var strStandort = __getStandort();
	var boolCheck;
	var strContent4700str4700Teil1 = "4700 |" + strAbteilung + "|";
	var +str4700Teil2 strStandort += ";" + strKuerzel;
	
	if (application.activeWindow.getVariable("scr") != "8A")//var strContent4700 = "|" + strAbteilung + "|" + strStandort + ";" + strKuerzel;
	var strContent4700 = "\n" + str4700Teil1 + str4700Teil2;
	
	if (application.activeWindow.getVariable("scr") != "8A"){
		__dnbFehler("Eingabekommentar","Der Datensatz muss sich in der Vollanzeige befinden!", "");
		return;
	} else {
		var Kopie = application.activeWindow.copyTitle();
		//application.messageBox("Kopie",Kopie,"");
		if (Kopie == "") {
			__dnbFehler("Retro","Es konnte keine Titelkopie erstellt werden","");
		} else {
			var Eingabe = "";
			var Pos0500 = Kopie.indexOf("0500 ");
			var Tag0500 = Kopie.substring(Pos0500,Kopie.indexOf("\n",Pos0500));
			//application.messageBox("Tag0500",Tag0500,"");
			var Satzart = Tag0500.substring(6,Tag0500.length-1);
			var Pos0599 = Kopie.indexOf("0599 ");
			var Tag0599 = Kopie.substring(Pos0599,Kopie.indexOf("\n",Pos0599));
			if (Tag0599.indexOf("m") > 0) {
				Mahnstatus = true;
			}				
			//application.messageBox("",Satzart.length,"");	
			if ((Satzart == "ac") || (Satzart == "am")) {
				application.activeWindow.command("k",false);
				__dnbUpdMatStatus("q"+kennzeichen)
				//application.messageBox("","q-Kennzeichnung","");				
				if (application.activeWindow.title.findTag("0599", 0, false, true, false)) {
					if (!Mahnstatus) {
						application.activeWindow.title.deleteLine(1);
						//application.messageBox("","0599 löeschen","");	
					}
				}
				
				__geheZuKat("4700","",trueapplication.activeWindow.title.startOfBuffer(false);
				boolCheck = application.activeWindow.title.insertText("\n4700 " + strContent4700);
find(str4700Teil1, false, false, false)
				//application.messageBox("","4700 eingeben"boolCheck,"");	
	
			if (application.activeWindow.title.findTag("2100", 0, false, true, false))boolCheck) {
					application.activeWindow.title.deleteLineendOfField(1false);
				//application.messageBox("","2100 löschen","");	
	application.activeWindow.title.insertText(str4700Teil2);
				} else {
				__	application.activeWindow.title.startOfBuffer(false);
					__geheZuKat("07014700","",true);
					application.activeWindow.title.insertText(strContent4700);
				}
		
				if (application.activeWindow.title.findTag("07012100", 0, false, true, false)) {
					application.activeWindow.title.find("#", false, true, false);
deleteLine(1);
					//application.messageBox("","Text2100 eingebenlöschen","");	
				}

				__geheZuKat("0701","",true);
				if (application.activeWindow.title.insertTextfindTag("\n0701 /q/@" + comment + "@#");
0701", 0, false, true, false)) {
					application.activeWindow.title.find("#", false, true, false);
					//application.messageBox("","Text eingeben","");	
					application.activeWindow.title.insertText("\n0701 /q/@" + comment + "@#");
					application.activeWindow.title.lineUp(1,false);
					//application.messageBox("","Zeile löschen","");	
					application.activeWindow.title.deleteLine(1);		
					
				} else {
					application.activeWindow.title.insertText("\n0701 /q/@" + comment + "@");
				}
					__geheZuKat("0701","",true);
					//application.activeWindow.simulateIBWKey("FR");
				
				if (kennzeichen != "s") {
					application.activeWindow.simulateIBWKey("FR");
					application.activeWindow.command("k e01",false);
					application.activeWindow.title.lineUpendOfField(1,false);
					//application.messageBoxactiveWindow.title.insertText("","Zeile löschen","");	
\n4801 " + comment);
					application.activeWindow.title.deleteLine(1);		
				
			} else {
__dnbDeleteTag("8034");
					application.activeWindow.title.insertTextsimulateIBWKey("\n0701 /q/@" + comment + "@"FR");
					application.activeWindow.command("k",false);
			}
			__geheZuKatdnbDeleteTag("0701","",true);
					//application.activeWindow.simulateIBWKey("FR");
				}
			
			} else {			
				__dnbFehler("Eingabekommentar","Diese Funktion lässt sich nur für die Datensatzarten\n\n" +
							"- Aac\n- Aam\n- Bac\n- Oac\n- Kac\n- Sac\n- Zac\n\naufrufen!","");
			}
		}
	}
}