Workaround: Inhalt im Listenfeld aktualisieren
Verfasst: Di 27. Aug 2024, 08:21
Hallo an alle die es Interessiert:
Ausgehend von dieser Diskussion: viewtopic.php?f=10&t=40038#p108941
habe ich mal ein allgemein gültiges Stück Code erstellt:
Ist getestet und läuft nun super in meiner Artikeleingabe.
Ausgehend von dieser Diskussion: viewtopic.php?f=10&t=40038#p108941
habe ich mal ein allgemein gültiges Stück Code erstellt:
Code: Alles auswählen
SUB Feld_aktuell(oEvent AS OBJECT)
'Eigenschaft Zusatzinformation (TAG) enthält den Feldnamen im Formular
'Ereignis: Bei Fokuserhalt
DIM oForm AS OBJECT
DIM oZielFeld as OBJECT
oForm = oEvent.Source.Model.Parent
oZielFeld = oForm.getByName(oEvent.Source.Model.Tag)
IF hasUnoInterfaces(oForm, "com.sun.star.form.XForm" ) THEN
IF NOT ISNULL(oZielFeld) THEN
oZielFeld.refresh()
END IF
END IF
END SUB