Seitenhistorie
Beschreibung
Auszug |
---|
Neu: Nach Aufruf der Funktion öffnet sich ein Eingabefeld zur Suche nach Scan-Nummern (Retro). |
...
unterschiedlicher Retroprojekte. |
Standard-Konfiguration
Die Funktion ist im Pull-Down-Menü Retro... der Funktionsleiste Formalerschliessung enthalten.
Eingabemaske
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-02-02 | Althaus | Neu implementiert |
Datei
dnb_scripte_01.js |
Code
Codeblock |
---|
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
Codeblock |
---|
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.
2011-02-07 | Althaus | Ergänzungen für unterschiedliche Eingabeformate |
2011-07-01 | Althaus | Fehler beim Aufruf von Scans aus dem Retro II-Projekt (z.B. B003/0064) behoben. |
Scriptdatei(en)
dnb_formalerschliessung.js, dnb_public.jsSeitenanfang
Überblick
Inhalte