Funktion
Beschreibung
Code in WinIBW2 (Makro/VBScript)
Sub HBKauf() On error resume next Dim K7002ff, SearchK7002, K7002 K7002ff = vbcr & "4801 " & vbcr & _ "5301 " & vbcr & _ "7109 !!HLS!! ; " Set WinA = Application.ActiveWindow if not WinA.Variable("scr") = "8A" then Fehler "Es liegt kein Datensatz in Vollanzeige vor!" exit sub end if CopyTitle = WinA.CopyTitle K7002 = mid(CopyTitle, instr(CopyTitle,"7002 ")) K7002 = left(K7002, instr(K7002,vbcr)) if K7002 = "" then Fehler "Der Datensatz enthält kein Feld 7002!" exit Sub else WinA.Command "k", False SearchK7002 = WinA.Title.StartOfBuffer SearchK7002 = WinA.Title.FindTag ("7002", 0, True, True) WinA.Title.EndOfField WinA.Title.InsertText K7002ff end if End Sub
Code in WinIBW3 (Javascript)
Erforderliche Änderungen / Ergänzungen
keine
Überblick
Inhalte