Wartung / Maintencance - Upgrade Version 8.5.12 - Mittwoch/Wednesday - 2024-08-28 07:30-09:00 a.m.
Seitenhistorie
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)
Codeblock |
---|
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
keineabc
Überblick
Inhalte