zdb_ExemplarErfassen

function zdb_ExemplarErfassen() {

	var strScreen = application.activeWindow.getVariable("scr");
	if (strScreen == "8A" || strScreen == "7A" || strScreen == "MT") {
		// FileInput-Objekt deklarieren
		var fileInput = Components.classes["@oclcpica.nl/scriptinputfile;1"]
							.createInstance(Components.interfaces.IInputTextFile);
		// Falls die Datei "Eigene_Bibliothek.txt"  exisitiert, wird sie geöffnet und ihr Inhalt ausgelesen
		var eigene_bibliothek;
		if (fileInput.openSpecial("ProfD", "Eigene_Bibliothek.txt")) {
			eigene_bibliothek = fileInput.readLine();
		} else {
			eigene_bibliothek = "";
		}
		application.activeWindow.command("show d", false);
		// Sichert Inhalt des Zwischenspeichers, da dieser sonst durch copyTitle() überschrieben würde

		try{
			var clipboard = application.activeWindow.clipboard;
		} catch(e){
			// do nothing
		}
		// Kopiert Titel
		var kopie = application.activeWindow.copyTitle();
		application.activeWindow.clipboard = clipboard;
		//Schleife von 1 bis 99, da max. 99 Exemplare pro Bibliothek erfasst werden können
		for (var i = 1; i <= 99; i++) {
			var vergleich = 7000 + i;
			if (kopie.indexOf(vergleich) == -1) {
				var eingabe = vergleich + " x\n4800 " + eigene_bibliothek + "\n7100 \n7109 \n8031 \n8032 \n"
				// Definiert, wo Cursor im Titelbildschirm plaziert wird
				var zeile = 1;
				if (eigene_bibliothek) {
					zeile = 2;
				}
				// Exemplarsatz anlegen und befüllen
				application.activeWindow.command("e e" + i, false);
				if (application.activeWindow.status != "ERROR") {
					application.activeWindow.title.startOfBuffer(false);
					application.activeWindow.title.insertText(eingabe);
					application.activeWindow.title.startOfBuffer(false);
					application.activeWindow.title.lineDown(zeile, false);
					application.activeWindow.title.charRight(5, false);
					return;
				} else {
					return;
				}
			}
		}
	} else {
			application.messageBox("ExemplarErfassen", "Die Funktion kann nur aus der Trefferliste oder der Vollanzeige aufgerufen werden.",  "alert-icon");
	}

}