Funktion
Beschreibung
Titeldatensatz wird editiert und um Felder 5301, 700 xxh, 4801, 7100 HB und 7109 erweitert, Cursor geht dann vier Zeilen aufwärts und ans Feldende. Könnte in HBHMZLS integriert werden. Ausgangsfenster: DNB-Hauptbestand, Vollanzeige Titeldatensatz mit Exemplardaten
Zeile 2863 - 2879
Code in WinIBW2 (Makro/VBScript)
Sub HBExHB() '******************************************************************** On error resume next Application.ActiveWindow.Command "k", False Application.ActiveWindow.Title.EndOfBuffer Application.ActiveWindow.Title.InsertText "5301 " Application.ActiveWindow.Title.InsertText vbCR Application.ActiveWindow.Title.InsertText "700 xxh" Application.ActiveWindow.Title.InsertText vbCR Application.ActiveWindow.Title.InsertText "4801 " Application.ActiveWindow.Title.InsertText vbCR Application.ActiveWindow.Title.InsertText "7100 HB" Application.ActiveWindow.Title.InsertText vbCR Application.ActiveWindow.Title.InsertText "7109 " Application.ActiveWindow.Title.LineUp 4 Application.ActiveWindow.Title.EndOfField End Sub
Code in WinIBW3 (Javascript)
Erforderliche Änderungen / Ergänzungen
keine
Überblick
Inhalte