RetroBild

function RetroBild() {

	var strBoxTitel = "Funktion RetroBild";
	var strBoxText = "Bitte Angaben in der Form Xyyyy/zzzz eingeben\n" 
					 + "X = L für DBL\n" 
					 + "X = F für DBF\n"
					 + "X = D für DMA\n" 
					 + "yyyy = Kastennummer\n"
					 + "zzzz = Bildnummer\n\n"
					 + "Beispiel: L2746/0055";
	var strEingabe = __dnbPrompter(strBoxTitel, strBoxText,"");
	//application.messageBox("strEingabe", strEingabe, "");

	if (strEingabe) {
			var intLength = strEingabe.length;
			if ((strEingabe == "") || (intLength > 10)) {
					__dnbFehler("Funktion Retrobild","Falsche Eingabeform");
				} else {
				
/* Nach Rückfrage bei Harald Unger zu ergänzen:
		
		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
*/
				
						var strBibliothek = strEingabe.substring(0,1);
						switch (strBibliothek) {
							case "L":		Bibliothek = "DBL";
											break;
							case "F":		Bibliothek = "DBF";
											break;
							case "D": 		Bibliothek = "DMA";
											break;
							case "R": 		Bibliothek = "Retro2";
											break;
							default:		__dnbFehler("Funktion RetroBild","Erstes Zeichen muss L, F oder D sein!","");
						}
						
						var nrKasten = strEingabe.substring(1,5);
						//application.messageBox("nrKasten", nrKasten, "");
						var nrBild = strEingabe.substring(6,10);
						//application.messageBox("nrBild", nrBild, "");
						
						__retro(Bibliothek,nrKasten,nrBild);
		}
		
	} 
}

 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