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

  • Keine Stichwörter