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