Seitenhistorie

function Kein_Sammelgebiet_eindeutig() {

	__eingabeKommentar("Gehoert eindeutig nicht zum Sammelgebiet der Deutschen Nationalbibliothek","s");
	
	/* Lt. Frau Freidhof kann der Inhalt der 4700 wegfallen. Hier der VB-Code:
	Application.ActiveWindow.Command "k", False
	Call HoleDNBStandort(strStandort)
	Call HoleKuerzel(strKuerzel)
	Application.ActiveWindow.Title.InsertText vbcr & "4701 " & strStandort & "; " & strKuerzel & "#NSG :" & vbcr
	Application.ActiveWindow.SimulateIBWKey "FR"
*/
}

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 strContent4700 = "|" + strAbteilung + "|" + strStandort + ";" + strKuerzel;
	
	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","",true);
			application.activeWindow.title.insertText("\n4700 " + strContent4700);
			//application.messageBox("","4700 eingeben","");	
	
			if (application.activeWindow.title.findTag("2100", 0, false, true, false)) {
				application.activeWindow.title.deleteLine(1);
				//application.messageBox("","2100 löschen","");	
			}
			__geheZuKat("0701","",true);
			if (application.activeWindow.title.findTag("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");
	
			} 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!","");
			}
		}
	}
}