Funktion
Beschreibung
Titeldatensatz wird editiert, in Feld 7001 wird xp eingefügt, anschließend die Felder 4801, 7109 und – 3 Zeilen aufwärts – 5301.Könnte in HBHMZLS integriert werden. Ausgangsfenster: DNB-Hauptbestand, Vollanzeige Titeldatensatz mit Exemplardaten
Zeile 2883 - 2900
Code in WinIBW2 (Makro/VBScript)
Sub HBExPe() '******************************************************************** On error resume next Application.ActiveWindow.Command "k", False Application.ActiveWindow.Title.Find "7001", False, False, False Application.ActiveWindow.Title.EndOfField Application.ActiveWindow.Title.InsertText "xp" Application.ActiveWindow.Title.InsertText vbCR Application.ActiveWindow.Title.InsertText "4801 " Application.ActiveWindow.Title.LineDown Application.ActiveWindow.Title.EndOfField Application.ActiveWindow.Title.InsertText vbCR Application.ActiveWindow.Title.InsertText "7109 " Application.ActiveWindow.Title.LineUp 3 Application.ActiveWindow.Title.EndOfField Application.ActiveWindow.Title.InsertText vbCR Application.ActiveWindow.Title.InsertText "5301 " End Sub
Code in WinIBW3 (Javascript)
Erforderliche Änderungen / Ergänzungen
keine
Überblick
Inhalte