Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
...
Beschreibung
Auszug |
---|
Funktion für die Handbibliotheksverwaltung der elektronischen Publikationen (Variante zu EP1). |
EP-HB-Werk wird editiert |
und die folgenden Felder werden ergänzt |
: |
Zeile 4560 - 4619
Code in WinIBW2 (Makro/VBScript)
Sub EP3()
'* 30.06.2008 Horst EP3: Änderung Text Inputbox und Text Variable 4083 auf Anforderung Fr. Baumgartner/Hr. Schulze
Dim AusgabeNr, InputAusgNr, K4083, K5301, SearchK5301, SearchK7001, co7001
InputAusgNr = InputBox("Bitte geben Sie den Zeitraum oder die Ausgabebezeichnungen an!", "Eingabe", Eingabe)
If (InputAusgNr = "") or (InputAusgNr = vbAbort) then
exit Sub
else
'K4083 = vbcr & "4083 Zugriff ab Ausgabe " & InputAusgNr & " im MMB: =A http://mmb.ddb.de/z"
K4083 = vbcr & application.LatinToPica("4083 Zugriff auf die Ausgaben von " & InputAusgNr & " über das Bereitstellungssystem: =A http://mmb.ddb.de/z")
K5301 = vbcr & application.LatinToPica("5301 ") 'Zeichenkonversion eingefügt
K7109 = vbcr & application.LatinToPica("7109 !!MLS!! ; ") 'Zeichenkonversion eingefügt
On error resume next
'Vollanzeige des Ausgangsdatensatzes erzwingen
Set WinA = Application.ActiveWindow
if not WinA.Variable("scr") = "8A" then
Fehler "Es liegt kein Datensatz in Vollanzeige vor!"
exit sub
end if
WinA.Command "k", False
SearchK7001 = WinA.Title.StartOfBuffer
SearchK7001 = WinA.Title.FindTag ("7001", 0, True, True)
if SearchK7001 <> "" then
WinA.Title.WordRight 3
WinA.Title.EndOfField true
co7001 = WinA.Title.GetSelection
if co7001 = "x" then
WinA.Title.EndOfField false
WinA.Title.InsertText K7109 & K4083
else
WinA.Title.EndOfField
WinA.Title.InsertText K7109 & K4083
end if
end if
SearchK5301 = WinA.Title.StartOfBuffer
SearchK5301 = WinA.Title.FindTag ("5301", 0, True, True)
if SearchK5301 = true then
'WinA.Title.Find "5301 ", True, False, True
WinA.Title.EndOfField
Else
WinA.Title.StartOfBuffer
WinA.Title.FindTag "7109", 0, True, True
WinA.Title.EndOfField
WinA.Title.InsertText K5301
End if
End if
End Sub
'********************************************************************
Code in WinIBW3 (Javascript)
Erforderliche Änderungen / Ergänzungen
|
Standard-Konfiguration
Die Funktion steht in der Funktionsleiste Benutzung zur Verfügung.
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-09-30 | Althaus | neu erstellt |
Scriptdatei(en)
dnb_benutzung.js
Seitenanfangkeine