Funktion
Beschreibung
Code in WinIBW2 (Makro/VBScript)
Sub AcLo() '******************************************************************** '*** 09-07-06 : Althaus Feld 1700 ergänzt 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 Ac" & vbCR &_ "0600 lo" & vbCR &_ "1700 " & vbCR &_ "3010 " & vbCR &_ "3100 " & vbCR &_ "3120 " & vbCR &_ "4000 " & vbCR &_ "4030 " & vbCR &_ "4060 Losebl.-Ausg." & vbCR &_ "4062 cm" & vbCR &_ "4063 " & vbCR &_ "4700 " & strKuerzel & vbCR &_ "4701 " & strStandort & ";" & strKuerzel Application.ActiveWindow.Title.StartOfBuffer Application.ActiveWindow.Title.Find "3010", True, False, True Application.ActiveWindow.Title.EndOfField End Sub
Code in WinIBW3 (Javascript)
Erforderliche Änderungen / Ergänzungen
Überblick
Inhalte