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

  • Keine Stichwörter