Funktion
Beschreibung
Titeldatensatz wird editiert und um Felder 5301, 700 xxh, 4801, 7100 D 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 2843 - 2860
Code in WinIBW2 (Makro/VBScript)
Sub HBExD() '******************************************************************** On error resume next 'Place your function code here 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 D" 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