Beschreibung
Neu: Eingabefeld zur Suche nach Scan-Nummern (Retro).
Historie
Datum |
geändert von |
Beschreibung |
---|---|---|
2011-02-02 |
Althaus |
Neu implementiert |
Datei
dnb_scripte_01.js |
Code
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); } } }
VB-Scriptcode
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
Testhinweise
Wurde mit dem im Hilfetext angegebenen Scan getestet.
Überblick
Inhalte