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)
...
Überblick
Inhalte