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