[ABAP] Prüfen, ob System ActiveX unterstützt

Variante 1 (GUI_HAS_OBJECTS)

DATA: lv_obj_model_available TYPE abap_bool.

* Konstanten für object_model (Typgruppe SFES)
*  SFES_OBJ_ACTIVEX   = 'ACTX'
*  SFES_OBJ_JAVABEANS = 'JBEAN'
*  SFES_OBJ_OLE       = 'OLE'
*  SFES_OBJ_SAP       = 'SAP'
*  SFES_OBJ_HTML      = 'HTML'
* Test, ob Objekte des gegebenen Modells unterstuezt werden
CALL FUNCTION 'GUI_HAS_OBJECTS'
  EXPORTING
    object_model         = sfes_obj_activex
  IMPORTING
    return               = lv_obj_model_available
  EXCEPTIONS
    invalid_object_model = 1
    OTHERS               = 2.

IF sy-subrc = 0.
  WRITE: / 'Model available:', lv_obj_model_available.
ENDIF.

Variante 2 (GUI_HAS_ACTIVEX)

DATA: lv_has_activex TYPE abap_bool.

* Test, ob ActiveX Controls unterstuetzt werden
* Nutzt FuBa GUI_HAS_OBJECTS
CALL FUNCTION 'GUI_HAS_ACTIVEX'
  IMPORTING
    return  = lv_has_activex.

WRITE: / lv_has_activex.