Funktion
Beschreibung
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 - 4558
Code in WinIBW2 (Makro/VBScript)
Sub EP2() Dim K4083, K5301, SearchK4700, SearchK5301, SearchK7001, co7001 'K4083 = vbcr & "4083 Aktuelle Ausgabe im MMB: =A http://mmb.ddb.de/z" K4083 = vbcr & application.LatinToPica("4083 Aktuelle Ausgabe im Bereitstellungssystem: =A http://mmb.ddb.de/") 'K5301 = vbcr & "5301 " K5301 = vbcr & application.LatinToPica("5301 ") 'K7109 = vbcr & "7109 !!MLS!! ; " K7109 = vbcr & application.LatinToPica("7109 !!MLS!! ; ") 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) 'msgbox SearchK7001 if SearchK7001 <> "" then 'WinA.Title.EndOfField WinA.Title.WordRight 3 WinA.Title.EndOfField true co7001 = WinA.Title.GetSelection 'msgbox co7001 if co7001 = "x" then 'WinA.Title.DeleteSelection Application.ActiveWindow.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 <> "" 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 Sub
Code in WinIBW3 (Javascript)
Erforderliche Änderungen / Ergänzungen
keine
Überblick
Inhalte