Funktion
Beschreibung
Wenn Feld 7002 vorhanden ist wird der Datensatz editiert und die Felder 4801, 5301 und 7109 !!HLS!! ; eingefügt. Könnte in HBHMZLS integriert werden. Ausgangsfenster: DNB-Hauptbestand, Vollanzeige Titeldatensatz mit Exemplardaten
Zeile 4741 - 4773
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