Seitenhistorie

...

Auszug

Die Publikation ist nicht sammelpflichtig. (Daten ohne Bestand Fallgruppe 5).
Die Funktion wechselt in den Korrekturmodus, ändert die Satzart in Aaq, erzeugt durch Besetzung der Kategorie 0701 die Exemplarkategorie 8034 4801 mit dem Standardvermerk „Kein Sammelgebiet der Deutschen Nationalbibliothek“ „vergriffen“ im eigenen Exemplar und ergänzt die Kategorie 4700 |ERW|Standort;Namenskürzel ***. Das Exemplar des anderen Standortes wird nicht verändert.
Da die Funktion auch von anderen Abteilungen genutzt wird, ist die Bildung von 4700 $S (|...|) variabel.
Falls die Kategorie 4700 bereits mit Abteilungskürzel des Bearbeiters existiert, wird neuer Text nur angehängt. Der Datensatz bleibt im Korrekturmodus (wg. Hinterlegen von Infos in 4700 und Überprüfung vor dem Abspeichern).

Hinweise/Fragen/Anforderungen

<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="80b9f8b0-dc23-4376-9f94-d7abc92f96c3"><ac:plain-text-body><![CDATA[	Der Standard-Vermerk Kein Sammelgebiet soll in den Exemplardatensätzen beider Standorte in einem eigenen Unterfeld von Feld 4801 stehen: 4801 [Unterfeld]Kein Sammelgebiet		]]></ac:plain-text-body></ac:structured-macro>
Feld 8034 soll nicht mehr besetzt werden.

Historie

Datum	geändert von	Beschreibung
2011-06-18	Althaus	neu erstellt

Code

dnb_erwerbung.js

Historie

Datum	geändert von	Beschreibung
2011-06-18	Althaus	neu erstellt
2011-06-30	Althaus	Prüfung 4700 ergänzt
2011-07-04	Althaus	Standardvermerk jetzt in 4801 statt 8034

Code

dnb_erwerbung.js

Codeblock


function Kein_Sammelgebiet() {

	__eingabeKommentar("Gehoert nicht zum Sammelgebiet der Deutschen Nationalbibliothek","");
	
/* 
	EingabeKommentar "Gehoert nicht zum Sammelgebiet der Deutschen Nationalbibliothek",""
	Application.ActiveWindow.Command "k", False
	Call HoleDNBStandort(strStandort)
	Call HoleKuerzel(strKuerzel)
	Application.ActiveWindow.Title.InsertText vbcr & "4701 " & strStandort & "; " & strKuerzel & "#NSG :" & vbcr
	'Application.ActiveWindow.Title.LineUp
	'Application.ActiveWindow.Title.EndOfField
	Application.ActiveWindow.SimulateIBWKey "FR"
*/
}

dnb_public.js

Codeblock


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 str4700Teil1 = "4700 |" + strAbteilung + "|";
	var str4700Teil2 = ";" + strKuerzel;
	//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

Codeblock


function Kein_Sammelgebiet() {

	__eingabeKommentar("Gehoert nicht zum Sammelgebiet der Deutschen Nationalbibliothek","");
		
/* 
	EingabeKommentar "Gehoert nicht zum Sammelgebiet der Deutschen Nationalbibliothek",""
	Application.ActiveWindow.Command "k", False
	Call HoleDNBStandort(strStandort)
	Call HoleKuerzel(strKuerzel)
	Application.ActiveWindow.Title.InsertText vbcr & "4701 " & strStandort & "; " & strKuerzel & "#NSG :" & vbcr
	'Application.ActiveWindow.Title.LineUp
	'Application.ActiveWindow.Title.EndOfField
	Application.ActiveWindow.SimulateIBWKey "FR"
*/
}

dnb_public.js

Codeblock


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;
	
} 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.getVariablefindTag("scr0599"), != "8A"){
		__dnbFehler("Eingabekommentar","Der Datensatz muss sich in der Vollanzeige befinden!", "");
		return;
	} else {
		var Kopie = application.activeWindow.copyTitle(0, false, true, false)) {
					if (!Mahnstatus) {
						application.activeWindow.title.deleteLine(1);
						//application.messageBox("Kopie",Kopie,"");
		if (Kopie == "") {
			__dnbFehler("Retro","Es konnte keine Titelkopie erstellt werden0599 löeschen","");	
					} else {
				}
			var Eingabe = "";	
			var Pos0500 = Kopie.indexOf("0500 "	application.activeWindow.title.startOfBuffer(false);
				var Tag0500boolCheck = Kopie.substring(Pos0500,Kopie.indexOf("\n",Pos0500));
application.activeWindow.title.find(str4700Teil1, false, false, false)
				//application.messageBox("Tag0500",Tag0500boolCheck,"");
			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 = trueif (boolCheck) {
					application.activeWindow.title.endOfField(false);
					application.activeWindow.title.insertText(str4700Teil2);
				} else {
					application.activeWindow.title.startOfBuffer(false);
			}		__geheZuKat("4700","",true);
		
			//application.messageBox("",Satzart.length,"");	
.activeWindow.title.insertText(strContent4700);
				}
		
				if ((Satzart == "ac") || (Satzart == "am"application.activeWindow.title.findTag("2100", 0, false, true, false)) {
					application.activeWindow.title.command("k",falsedeleteLine(1);
				__dnbUpdMatStatus("q"+kennzeichen)
				//application.messageBox("","q-Kennzeichnung2100 löschen","");	
				}

				__geheZuKat("0701","",true);
				if (application.activeWindow.title.findTag("05990701", 0, false, true, false)) {
				if (!Mahnstatus true, false)) {
					application.activeWindow.title.deleteLine(1);
					//application.messageBoxfind("#","0599 löeschen","" false, true, false);	
				}
			}
			
			__geheZuKat("4700	//application.messageBox("","Text eingeben",true"");	
					application.activeWindow.title.insertText("\n4700n0701 /q/@" + comment + strContent4700"@#");
			//		application.messageBox("","4700 eingeben","");	
	
			if (application.activeWindow.title.findTag("2100", 0, false, true, false)) {
activeWindow.title.lineUp(1,false);
					//application.messageBox("","Zeile löschen","");	
					application.activeWindow.title.deleteLine(1);		
				//application.messageBox("","2100 löschen","");	
	
				} else {
					application.activeWindow.title.insertText("\n0701 /q/@" + comment + "@");
				}
					__geheZuKat("0701","",true);
					if (//application.activeWindow.title.findTagsimulateIBWKey("0701", 0, false, true, false)) {
				application.activeWindow.title.find("#", false, true, false);
				//application.messageBox("","Text eingeben","");	
FR");
				
				if (kennzeichen != "s") {
					application.activeWindow.simulateIBWKey("FR");
					application.activeWindow.title.insertTextcommand("\n0701 /q/@" + comment + "@#"k e01",false);
					application.activeWindow.title.lineUpendOfField(1,false);
					//application.activeWindow.title.messageBoxinsertText("","Zeile löschen","");	
\n4801 " + comment);
					__dnbDeleteTag("8034");
					application.activeWindow.title.deleteLine(1);		
				simulateIBWKey("FR");
			} else {
				application.activeWindow.title.insertTextcommand("\n0701 /q/@" + comment + "@"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!","");
			}
		}
	}
}

...

ILTIS-Handbuch

WinIBW-Handbuch

ILTIS-Infos

Versionen im Vergleich

Alte Version 5

Neue Version 6

Schlüssel

Hinweise/Fragen/Anforderungen

Historie

Code

Historie

Code