Wartung / Maintencance - Upgrade Version 8.5.12 - Mittwoch/Wednesday - 2024-08-28 07:30-09:00 a.m.
Seitenhistorie
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)
Codeblock |
---|
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
keineabc
Überblick
Inhalte