Seitenhistorie
Funktion
Beschreibung
Nach Eingabe von Jahrgangs- oder Ausg.-Nr. wird Vollanzeige Titeldatensatz EP-HB-Werk wird editiert, Felder 4083 (Link zur EP), 5301, 7109 werden ergänzt Ausgangsschirm: DNB-Hauptbestand, Vollanzeige EP-HB-Werk mit Exemplardatensatz
Zeile 4501 4560 - 45584619
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)
...