Wartung / Maintencance - Upgrade Version 8.5.12 - Mittwoch/Wednesday - 2024-08-28 07:30-09:00 a.m.
Funktion
Anlegen eines Rumpfdatensatzes für die Eingangsbearbeitung von 2 Pflichtexemplaren bei fehlendem ND-Datensatz
Zeile 2262 - 2282
Beschreibung
Ausgangsbildschirm beliebig, Lesemodus.
Wechsel in den Korrekturmodus.
Bildung einer Eingabemaske mit
0500 Aaa
0600 r (der Cursor steht hinter dem r)
0701
1100 9999
2000
4000
4030
4201
4701 Namenskürzel
Code in WinIBW2 (Makro/VBScript)
Sub AaaPflicht() '******************************************************************** On error resume next Dim strKuerzel Call HoleKuerzel(strKuerzel) 'Place your function code here Application.ActiveWindow.Command "e t", False Application.ActiveWindow.Title.InsertText "0500 Aaa" & vbCR &_ "0600 r" & vbCR &_ "0701 " & vbCR &_ "1100 9999" & vbCR &_ "2000 " & vbCR &_ "4000 " & vbCR &_ "4030 " & vbCR &_ "4201 " & vbCR &_ "4701 " & strKuerzel Application.ActiveWindow.Title.StartOfBuffer Application.ActiveWindow.Title.Find "0600", True, False, True Application.ActiveWindow.Title.WordRight 1, False Application.ActiveWindow.Title.CharRight 1, False End Sub
Code in WinIBW3 (Javascript)
Erforderliche Änderungen / Ergänzungen
keine
Überblick
Inhalte