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

  • Keine Stichwörter