Seitenhistorie
Funktion
Beschreibung
Datenmaske Loseblatt
Zeile 2336 - 2361
Code in WinIBW2 (Makro/VBScript)
Codeblock |
---|
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