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 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)
Codeblock |
---|
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