Seitenhistorie
Funktion
Beschreibung
Anlegen eines Rumpfdatensatzes für die Eingangsbearbeitung von 1 Pflichtexemplar für den eigenen Standort
Zeile 2286 - 2282
Code in WinIBW2 (Makro/VBScript)
Codeblock |
---|
Sub AaaEinzel()
'********************************************************************
On error resume next
Dim strKuerzel, strStandort
Call HoleKuerzel(strKuerzel)
Call HoleDNBStandort(strStandort)
'Place your function code here
Application.ActiveWindow.Command "e t", False
Application.ActiveWindow.Title.InsertText "0500 Aaa" & vbCR &_
"0600 r" & vbCR &_
"0701 @nur in " & strStandort & "@" & vbCR &_
"1100 9999" & vbCR &_
"2000 " & vbCR &_
"4000 " & vbCR &_
"4030 " & 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
Überblick
Inhalte