Seitenhistorie

function __retro(Bibliothek, Kasten, Bild) {

	const tifHomeDBF = "\\\\Dnbf-nsc1-p02\\DBF-Retro\\DBF001\\";
	const tifHomeDBL = "\\\\Dnbf-nsc1-p02\\DBL-Retro\\";
	const tifHomeDMA = "\\\\Dnbf-nsc1-p02\\DBL-Retro\\!dma\\";
	const jpgHomeRetro2 = "\\\\Dnbf-nsc1-p02\\DNB-Retro2\\";

	var Pos8595 = 0;
	var tifHome;
	var Titel;
	var Exemplarkennung;

	switch (Bibliothek) {
		case "DBL":		tifHome = tifHomeDBL;
						Titel = "Retro DBL";
						Exemplarkennung = "[0101";
						break;
		case "DBF":		tifHome = tifHomeDBF;
						Titel = "Retro DBF";
						Exemplarkennung = "[0292";
						break;
		case "DMA": 	tifHome = tifHomeDMA;
						Titel = "Retro DMA";
						Exemplarkennung = "[3000";
						break;
		case "Retro2": 	tifHome = jpgHomeRetro2;
						Titel = "Retro 2";
						Exemplarkennung = "[0";
						break;
		default:		__dnbFehler("Retro","Unbekannter Parameter beim Aufruf einer Retro-Funktion","");
	}
	
	if ((Kasten != "") && (Bild != "")) {
		__retroAnzeige(tifHome,Bibliothek,Kasten,Bild);
	} else {
		application.activeWindow.command("show da",false);		
		var Kopie = application.activeWindow.copyTitle();
		//application.messageBox("Kopie",Kopie,"");
		if (Kopie == "") {
			__dnbFehler("Retro","Es konnte keine Titelkopie erstellt werden","");
		} else {
			var Eingabe = "";
			var Pos2260 = Kopie.indexOf("2260 ");
			//application.messageBox("Pos2260",Pos2260,"");
			if (Pos2260 > 0) {
				Eingabe = Kopie.substring(Pos2260 + 5,Pos2260+14);
				Kasten = Eingabe.substring(0,4)
				//application.messageBox("Kasten",Kasten,"");
				Bild = Eingabe.substring(5,9)
				//application.messageBox("Bild",Bild,"");		
			}

			Pos8595 = Kopie.indexOf("8595 ");
			if (Pos8595 > 0) {
				Eingabe = Kopie.substring(Pos8595 + 5,Pos8595+14);
				Kasten = Eingabe.substring(0,4)
				//application.messageBox("Kasten",Kasten,"");
				Bild = Eingabe.substring(5,9)
				//application.messageBox("Bild",Bild,"");	
			}
			
			if ((!Pos8595) && (!Pos2260)) {
				__dnbFehler("Retro","Keine Kategorie 2260 bzw. 8595 mit Scannummer vorhanden","");
			} else {
				__retroAnzeige(tifHome,Bibliothek,Kasten,Bild);
			}
		}
	}
	
}

 Sub RetroBild()
' 26.02.2009 un - Anpassung Retro 2
Dim Eingabetext, Bibo, Kastennr, Bildnr
	On Error Resume Next
	Eingabetext = InputBox("Bitte Angaben in der Form Xyyyy/zzzz eingeben" & vbCrLf & _
				"X = L für DBL" & vbCrLf & _
				"X = F für DBF" & vbCrLf & _
				"X = D für DMA" & vbCrLf & "yyyy = Kastennummer" & vbCrLf & "zzzz = Bildnummer" & vbCrLf & vbCrLf &  _
				"Beispiel: L2746/0055","Funktion RetroBild")
	If Len(Eingabetext) = 0 Then
		Exit Sub
	End If
	If (Eingabetext = "") Or (Len(Eingabetext) > 10) Then
		MsgBox "Falsche Eingabeform", vbOKOnly + vbCritical,"Funktion RetroBild"
		Exit Sub
	Else
		If (Len(Eingabetext) = 9) And (Left(Eingabetext,1) >= "A") Then
			Eingabetext = "R" & Eingabetext
		ElseIf (Len(Eingabetext) = 8) And (Left(Eingabetext,1) >= "A") Then
			Eingabetext = "R" & Eingabetext
		ElseIf (Len(Eingabetext) = 8) And IsNumeric(Eingabetext) Then
			Eingabetext = "L" & Left(Eingabetext,4) & Right(Eingabetext,4)
		ElseIf Len(Eingabetext) = 9 Then
			Eingabetext = "L" & Eingabetext
		End If
		Select Case UCase(Left(Eingabetext,1))
			Case "L"
				Bibo = "DBL"
			Case "F"
				Bibo = "DBF"
			Case "D"
				Bibo = "DMA"
			Case "R"
				Bibo = "Retro2"				
			Case Else
				MsgBox "Erstes Zeichen muss L, F oder D sein",vbOKOnly + vbCritical,"Funktion RetroBild"
				Exit Sub
		End Select
	End If
	Kastennr = Mid(Eingabetext,2,4)
	Bildnr = Right(Eingabetext,4)
	Call Retro(Bibo,Kastennr,Bildnr)
End Sub